Просмотр полной версии : Скрипт на фишинг
Напишите пожалуйста скрипт на фишинг !
Заранее спасибо !
Выводишь корабль на прямое длинное место.
Командуешь Forward и включаешь УОлуп :) , допустим, на Delete:
LastObject
WaitForTarget
TargetSelf.
Это самый простой вариант, но вполне приемлемый...
Devil Dun'Shaar
31.07.2004, 22:39
set $not there are
set $can't you can't see
set $put you pull
set $loos you fish
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2
send f1
waitfortarget 3000
left 649, 217
for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re
send f2
waitfortarget 10000
wait 600
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $can't or lastmsg = $noline or lastmsg = $far
if lastmsg = $put or lastmsg = $loos
gosub re
end_if
if timer > 10000
gosub re
end_if
end_while
set #x #x
set #y #y - 1
set timer
end_for
set #x #x + 1
set #y #y + 5
set timer
end_for
say forward
wait 7s
say stop
f1 = Lastobject
f2 = Lastobject - WFT - Lasttarget
проплавает немного, вылавливает вокруг себя всю рыбу и так по циклу
Большое спасибо ... Топик закрыт !
Powered by vBulletin™ Version 4.0.3 Copyright © 2025 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot