program fightDexter; var t : Integer; bandage,en:Cardinal; tweapon:word; {$Include 'all.inc'} procedure weaponckeck; begin if (not dead) and (connected) then begin checksave; if (getquantity(findtype(tweapon,backpack)) > 0) and (gettype(ObjAtLayer(RhandLayer)) <> gettype(finditem)) then begin addto...

Первая ошибка какую комунду использовать для веит таргета ?

program fightDexter; var t : Integer; bandage,en:Cardinal; tweapon:word; {$Include 'all.inc'} procedure weaponckeck; begin if (not dead) and (connected) then begin checksave; if (getquantity(findtype(tweapon,backpack)) > 0) and (gettype(ObjAtLayer(RhandLayer)) <> gettype(finditem)) then begin addto...

Выдает ошибку Что нада исправить ?

а можна ли будет его настроить под пол ??Или слижком много нада убирать и менять потомушо например умирать я не буду реги мне тоже не нужны просто ходил рубил и складывал все в сундук

Очевидно автор скрипта не предполагал что его детище будут запускать в идеальных условиях. Думаю надо дать скрипту искуственную задержку, чтоб обработка журнала выполнялась корректно. Ошибка (чар зацикливается пытаясь копать во время того как уже копает) стара как мир, аффтару скрипта низачот. :P п...

И как еше правильно вставить реконектор чтобы он при реконекте дальше продолжал и еше при максимальном весе он вырубаетса я ето в скрипте не нашол а хотелось бы чтоб он копал пока все кирки не поламаютса

Compiler: [Error] (Òåêñòîâûé äîêóìåíò (2).txt at 39:10): Unknown identifier 'checksave' Compiler: [Error] (Òåêñòîâûé äîêóìåíò (2).txt at 48:13): Unknown identifier 'waitconnection' Compiler: [Error] (Òåêñòîâûé äîêóìåíò (2).txt at 62:16): Unknown identifier 'checksave' Вот какие ошибки. Я ети строки...

Как зделать чтобы при паломке кирки чтобы он брал в руку новую и дальше копал ?

program MinRound; {$Include 'all.inc'} const TileNum = $1342; PickAxe = $49BB5D88; {типы кучек} {Сообщения} Msg1 = 'put'; Msg2 = 'fail'; Msg3 = 'you try'; Msg4 = 'no ore'; var x,y,k : integer; Begin while weight < 200 do begin for x:=-2 to 2 do begin for y:=-2 to 2 do begin WaitForTarget(500); UseO...

Но у тебя он такой большой но я попробую посомтреть

Если у каго мининг вокруг себя и чтобы кирки просто менял и все если можна конечно за рание спасибо .