Page 1 of 1
Что нужно исправить?!
Posted: 2006-03-21 22:42:25
by Cyn4uK
Чар стоит и ловит вокруг себя. Дело в том что когда он ничего не ловит он быстро перебрасывает, а когда словит что то то перебрасывает туда же с задержкой %) Не могли почистить и подправить!!!
ЧТобы перебрасывалъ быстро если словит что то, убрать рекол (а токогда я сам пытался вырезать рекол - скрипт просто простаивал и все) , ну и чтобы работал все время пока не отрублю вручную =) Заранее пасиба.
Code: Select all
var lasttimer
sub checktimer()
if (uo.timer() - lasttimer) <= 20 then
uo.print(str(uo.timer() - lasttimer))
uo.print("You are fishing too fast! Waiting 5 seconds.")
wait(2500)
endif
lasttimer = uo.timer()
end sub
sub main()
var mx, my, mz, i, j
var isfishing, ixx, isheavy
var item = "item",ftype,ispickup
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
uo.exec("set distance 1")
while not uo.dead()
for i = mx-6 to mx+6
for j = my-6 to my+6
uo.deletejournal()
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j))
isfishing = 1
while not uo.injournal("can't") and not uo.injournal("here") and not UO.InJournal("far away") and not UO.InJournal("sight")
checktimer()
UO.DeleteJournal()
UO.Waittargettile("6044", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
ixx = 0
while not uo.injournal("can't") and not uo.injournal("here") and not UO.InJournal("far away") and not UO.InJournal("sight") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
wend
UO.DeleteJournal()
next
next
wend
# UO.recall('0x40023FBD','2')
uo.print("*** Script ended ***")
end sub
Скрипт создан при помощи ножниц (Ctrl +C ) и клея (Ctrl + V)
Posted: 2006-03-22 09:48:43
by Scripts Writer
не весь скрипт опубликовали
Posted: 2006-03-23 01:29:16
by Cyn4uK
Извините. Исправил. Вот теперь весь, то есть тот которым я пользуюсь!
Posted: 2006-03-23 01:48:36
by Grin
Code: Select all
var lasttimer
sub checktimer()
if (uo.timer() - lasttimer) <= 20 then
uo.print(str(uo.timer() - lasttimer))
uo.print("You are fishing too fast! Waiting 5 seconds.")
wait(2500)
endif
lasttimer = uo.timer()
end sub
sub main()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
while not uo.dead()
for i = mx-6 to mx+6
for j = my-6 to my+6
UO.DeleteJournal()
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j))
while not uo.injournal("can't|here|far away|sight")
checktimer()
UO.DeleteJournal()
UO.Waittargettile("6044", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
while not uo.injournal("can't|here|far away|sight|put|catch")
wait (100)
wend
wend
next
next
wend
uo.print("*** Script ended ***")
end sub
В журнале о выалове чего либо пишут? тоесть иможет ли фишинг закончится не сообщая ниочем в журнале?
Posted: 2006-03-24 10:33:41
by Cyn4uK
You catch a nice fish
Всегда что то пишут!!!
Тестим-с...
А мона еще чтобы скидывал на пол рыбу из бэкпака при весе в 600?
Posted: 2006-03-24 10:51:47
by Grin
проверяй
Posted: 2006-03-24 11:13:42
by Cyn4uK
Еще есть пишет при неудаче ловли, но рыбп там есть - They don't seem
to be bitting today = это нужно добавить сюда?
Code: Select all
UO.Usetype('0x0DBF')
while not uo.injournal("can't|here|far away|sight|put|catch|today") ### - сюда???
wait (100)
А мона еще чтобы скидывал на пол рыбу из бэкпака при весе в 600?
Работаит!! пасибо большое!!!
Posted: 2006-03-24 12:14:03
by Cyn4uK
Через некоторое время скрипт просто встает... может изза того что нет этого:
Code: Select all
ixx=0
while not uo.injournal("can't|here|far away|sight|put|catch|today") and ixx<=100
wait (100)
ixx=ixx+1
вот весь:
Code: Select all
var lasttimer, ixx, xyz
sub checktimer()
if (uo.timer() - lasttimer) <= 20 then
uo.print(str(uo.timer() - lasttimer))
uo.print("Ямщик! Не гони мля лошадей!... *давим на тормоз* 2.5 сек")
wait(2500)
endif
lasttimer = uo.timer()
end sub
sub main()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
Dim A[36]
A[0] = '0x09CC'
A[1] = '0x09CE'
A[2] = '0x09CD'
while not uo.dead()
for i = mx-5 to mx+5
for j = my-5 to my+5
UO.DeleteJournal()
UO.Print("Now fishing In: "+str(mx-i)+" "+str(my-j))
while not uo.injournal("can't|here|far away|sight")
checktimer()
UO.DeleteJournal()
UO.Waittargettile("6044", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
ixx=0
while not uo.injournal("can't|here|far away|sight|put|catch|today") and ixx<=100
wait (100)
ixx=ixx+1
if UO.Weight>600 then
wait(1000)
for xyz=0 to 2
UO.FindType(A[xyz])
UO.MoveItem( 'finditem', '0', 'ground' )
wait(50)
next
end if
wend
wend
next
next
wend
uo.print("*** Script ended ***")
end sub
. Не чет все ранов не хочет - пишет Can't picup item...
upd Edred респект те и медаль за уроки ) починил наконец свой скрипт )
