Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Search found 4 matches

by diGriZzZ
27.04.2005 12:40
Forum: Помощь по скриптам
Topic: Provocation
Replies: 3
Views: 8847

Provocation

Begin p:=0; while true do begin i:=0; if p = 10 then DisConnect; while i < 30 do begin repeat {if TargetPresent then begin CancelTarget; Wait(1000); end;} b:=Now; WaitTargetObject($0113DC1E); //ID of your pet which is provoked wait(1000); UseSkill('Provocation'); until WaitJournalLine(b, 'Select a ...
by diGriZzZ
25.04.2005 9:37
Forum: Scripts
Topic: Provocation for bards
Replies: 2
Views: 12103

по просьбам трудящихся... вроде защитились от зависания таргета, но т.к. мы оба не знаем из-за чего и при каких условиях происходит такая бяка, мы не гарантируем, что устранили эту проблему Program Prov; var t:Integer; b:TDateTime; {$Include 'all.inc'} Begin SetARStatus(true); Hungry(1,backpack); wh...
by diGriZzZ
25.04.2005 7:56
Forum: Scripts
Topic: Provocation for bards
Replies: 2
Views: 12103

Provocation for bards

Program UseProvocation; Var i : Integer; b : TDateTime; {Author of hungry modul: Miralex, Authors of script: Miralex, diGriZzZ} procedure Hungry(NeededLevel : Integer); var HArray : array [0..10] of String; CurrentLevel : Integer; HasError : Boolean; TimeSayHungry : TDateTime; FoodID : Cardinal; i,...
by diGriZzZ
21.04.2005 11:58
Forum: Помощь по скриптам
Topic: Provocation
Replies: 1
Views: 6267

Provocation

Program UseProvocation; Var i : Integer; TestItemID : Cardinal; procedure Hungry(NeededLevel : Integer); var HArray : array [0..10] of String; CurrentLevel : Integer; HasError : Boolean; TimeSayHungry : TDateTime; FoodID : Cardinal; i,c,difference : Integer; begin if (NeededLevel < 0) or (NeededLev...