function GetTradeContainer(TradeNum,Num: Byte): Cardinal;
Господа подскажите как получить номер трейда. Уже башку сломал (

Вопрос по этому же скрипту. Через какое то время просто затыкаеться и все.. Не могу понять на чем:( задача в общем-то его немного кастрировать, ибо он не отыгрыват все что нада в данный момент все работает в виде немного обрезанного скрипта program Fishing; {(c)Made by Slak} type FishR = record Tile...

А это собсно все что есть(

Miralex wrote:В конце должен быть End.

жалуеться на отсутствующий ";"

Черт, а у меня жалуетья на неожиданный конец скрипта, причем кол во бегинов и эндов равное procedure Mine; var x, y:integer; sTime : TDateTime; begin for x:=-2 to 2 do begin for y:=-2 to 2 do begin findtype($0E85, backpack); UnEquip(RHandLayer); wait(500); Equip(RhandLayer,finditem); UseObject(findi...

Собсно, взял за пример мининг, уже тут выложеный. Бьюсь с ним неделю, и уже перестал что бы то нибыло понимать. Язык для меня новый, и буду очень благодарен если мне укажут в чем я не прав. program Mine; var x,y,t,h,z,i:integer; var Time : TDateTime; procedure Make; Begin wait(1000); i:=200; clearjo...