Помогите скриптом на мининг!, Forgotten World... Опции

[Зостр]

На пилот. (IMG:style_emoticons/default/smile.gif)

[U.n.-n]O.0[b-i.S.]

На пилот. (IMG:style_emoticons/default/smile.gif)

http://forum.fwuo.ru/showthread.php?t=227

[Зостр]

Спасибо.

[SMERTb]

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F5 1000
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 7000)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 7000)
end_while
if wght >= 420
repeat 5
alarm
end_repeat
pause_script
end_if
goto repeat
end_while
end_for
end_for
set #walk random 7
if #walk = 0
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if

Вот тебе скрипт. Он ходит и копает во круг себя (IMG:style_emoticons/default/biggrin.gif)

[SMERTb]

send F5 1000

F5 поменяй на свою кнопку повтора действия. (IMG:style_emoticons/default/tongue.gif)

[sparkman]

Код

set #pickaxeid lastobjectid
set #move 0

set $msg1 :



set $msg2 you put
set $msg3 fail
set $msg4 try
set $msg5 line
set $msg6 where
set $msg7 no ore
set $msg8 skill

:body
set #orex charposx - 2
set #orey charposy - 2

repeat 5
repeat 5
gosub work
set #orex #orex + 1
end_repeat
set #orex charposx - 2
set #orey #orey + 1
end_repeat

if #move = 0
set #move 2
if_not chardir = 0
send pageup 500
end_if

repeat 5
send pageup 500
end_repeat
goto body
end_if

if #move = 2
set #move 4
if_not chardir = 2
send pagedown 500
end_if

repeat 5
send pagedown 500
end_repeat
goto body
end_if

if #move = 4
set #move 6
if_not chardir = 4
send end 500
end_if

repeat 5
send end 500
end_repeat
goto body
end_if

if #move = 6
set #move 0
if_not chardir = 6
send home 500
end_if


repeat 5
send home 500
end_repeat
goto body
end_if

goto body
end_script

:work
set lastobjectid #pickaxeid
set lasttargetkind 3
set laststatictype 1339
set lasttargetx #orex
set lasttargety #orey
send f1 // lastobject waitfortarget lasttarget
waitfortarget 1000

set timer

while lastmsg = $msg6 or lastmsg = $msg1
wait 5
if timer > 8000
send escape
return
end_if
if hits < str
say guards
wait 1000
end_if
end_while


:msgs

if lastmsg = $msg2 or lastmsg = $msg3 or lastmsg = $msg8
goto work
end_if


if lastmsg you must
wait 2000
goto work
end_if

if lastmsg = $msg3 or lastmsg = $msg4 or lastmsg = $msg5 or lastmsg = $msg7
return
end_if

if timer > 6000
return
else
goto msgs
end_if

Народ, что нужно добавить в этом скрипте, чтобы чар сам брал кирку из бэкпэка в том случае, если она сломается?

[Leshrak]

Все скрипты перепробовал, не один не работает.
Помогите очень нужен скрипт (IMG:style_emoticons/default/sad.gif)

[Leshrak]

Ну плз, очень нужен рабочий скрипт (IMG:style_emoticons/default/sad.gif).

[ВУВ]

Почему в этом скрипте,когда чар покопал идёт дальше и пишеться,что Это слишком долеко,что надо сделать?

if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
if lastmsg you have been
send F7 // use skill stealth
wait 1500
end_if
send f1 //LastObject, WaitForTarget, TargetSelf
wait 2000
set #r random 4
//Проверка наличия руды
if lastmsg there is no ore
if #r = 0
send up 500
send up 500
end_if
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
wait 8000
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you have been
send f7 // use skill stealth
wait 1500
end_if
//Не допускать выход из шахты
if charposy > 828
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send left 500
send left 500
send left 500
send left 500
send left 500
end_if