Daite Plz Skript Na Fishing Na Pristani!

#1 Mazahist

Newbie

Members
15 posts

Posted 20 February 2008 - 03:29

Pomagite plz daite skript na Fishing na pristani ! :excl:

#2 Regdoll

Newbie

Members
17 posts

Posted 20 February 2008 - 08:09

sub FISHING() 



DIM ULOVtype[7] 



ULOVtype[0] = '0x09CC' #fish1 



ULOVtype[1] = '0x09CD' #fish2 



ULOVtype[2] = '0x09CE' #fish3 



ULOVtype[3] = '0x09CF' #fish4 



ULOVtype[4] = 'UUF' #heal 



ULOVtype[5] = 'DMF' #ball 



ULOVtype[6] = 'RVH' #sos Tattered Treasure map 



VAR udochka = 'XHF' 



VAR nozh = '0x0F51' 



VAR NumTile = '6043' 



VAR MaxWeigth = UO.STR*4 



VAR i, x, y, k 



wait(200) 



UO.Equipt('Rhand', udochka) 



start: 



for x=-6 to 6 



for y=-6 to 6 



UO.Print("??????? ? ?????: " + str(x) + " " + str(y)) 



UO.DeleteJournal() 



while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")and not UO.InJournal("Try fishing elsewhere") 



k = 0 



if UO.Weight > MaxWeigth then 



goto finish 



endif 



UO.DeleteJournal() 



UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ())) 



UO.UseType(udochka) 



while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50) 



k = k + 1 



wait(100) 



if UO.InJournal("Targeting Cancelled") then 



goto start 



endif 



wend 



#???????? ???? 



if UO.InJournal("You put") then 



for i=0 to 6 



UO.FindType(ULOVtype[i], '-1', 'ground') 



UO.MoveItem('finditem') 



wait(50) 



next 



endif 



wend 



next 



next 



finish: 



UO.Print("?????? ???????????? ??? ?????") 



wait(1000) 



#????? ???? 



UO.Print("????? ???? ?? ??? ??????") 



for i=0 to 3 



UO.WaitTargetType(ULOVtype[i]) 



UO.UseType(nozh) 



wait(1000) 



next 



if UO.Weight < MaxWeigth-5 then 



goto start 



endif 



UO.Print("??????? ???????????") 



endsub

Edited by Dark_Storm, 20 February 2008 - 12:48.
+10% Скрипт без тегов CODE

#3 AlexDar

Newbie

Members
12 posts

Posted 20 February 2008 - 08:24

левый скрипт, и я уже писал почему
к тому же непрописаны действия чара при вылавливании мобов

#4 Wizzard

Journeyman

Members
69 posts

Gender:Male
Location:Riga

Posted 20 February 2008 - 08:52

set %pole XHF

set %fish DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD

set %somabanka ZLVBKMD



moving:

msg back$

wait 14s

msg stop$

gosub fishing

msg back$

wait 14s

msg stop$

gosub fishing

msg back$

wait 14s

msg stop$

gosub fishing

msg forward$

wait 45s

msg stop$

gosub fishing

wait 1s

goto moving



sub fishing

wait 5s

for %xx -5 5

{

for %yy -5 5

{

finditem %pole

set #LOBJECTID #FINDID

event macro 17 0

wait 2

target 5s

set #LTARGETX #CHARPOSX + %xx

set #LTARGETY #CHARPOSY + %yy

set #LTARGETKIND 3

event macro 22 0

wait 3

gosub proverka

}

}

return



sub proverka

set %overtime #SCNT + 15

loop:

if #hits < #str

{

msg .arm Newbie Item $

msg .camp heal $

wait 15s

finditem ZLF

set #LOBJECTID #FINDID

event macro 17 0

wait 10

event macro 23 0

wait 6s

return

}

deletejournal

scanjournal 1

if There_are_no_ in #JOURNAL || Try_fishing_ in #JOURNAL || That_is_too in #JOURNAL || You_fail_to_catch_ in #JOURNAL || Fishing_has in #JOURNAL || #SCNT >= %overtime

return

if You_pull in #JOURNAL || seconds_before in #JOURNAL

{

wait 1s

return

}

goto loop

POzalujsta lovit vezde , toljko minus pri vilavlivanje bota on tupo stoit healitsa + wit puwku odevaet + camp delaet no za botom nebegaet

Edited by Dark_Storm, 20 February 2008 - 12:48.
+10% Скрипт без тегов CODE