Yoko

All sides of Injection
It is currently 2025-10-15 13:19:01

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
PostPosted: 2010-03-08 23:31:12 
Offline

Joined: 2010-02-08 13:19:47
Posts: 3
Доброго времени суток, товарищи скриптеры. Прошу уделить чуток времени :cry:
В скриптах понимаю не шибко, посему и обращаюсь.
Вобщем вот
Code:
sub Fish()
VAR Ms0 = "You can't see"
VAR Ms1 = "You can't fish there!"
VAR Ms2 = "That is too far away"
VAR Ms3 = "There are no fish here"
VAR Ms4 = "There doesn't seem to be any fish here"
VAR Ms5 = "Next"
VAR Ms6 = "That location is not in your line of sight!"
VAR t, v, x, y, k
VAR MaxTime = 800
For y = -3 To -3
For x = -3 To 3
k = 1

repeat
If UO.Dead() Then
Wait(70000)
Endif
uo.DeleteJournal(ms0)
uo.DeleteJournal(ms1)
uo.DeleteJournal(ms2)
uo.DeleteJournal(ms3)
uo.DeleteJournal(ms4)
uo.DeleteJournal(ms6)
t = UO.Timer()
If UO.Waiting() Then
UO.CancelTarget()
Endif
UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
UO.UseType('0x0DBF')
repeat
wait(100)
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms6) OR UO.InJournal(ms5) OR ((t + MaxTime) < UO.Timer())

If UO.Dead() Then
Wait(70000)
Endif

until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms6) OR UO.InJournal(ms5)
#UO.Say('Next')
k = k + 1

Wait(500)
If UO.Injournal(ms5) then
k = k + 1
#UO.Deletejournal(ms5)
Endif

Wait(500)
If k == 5 then
UO.Exec('exec boat')
else
UO.Print('Do perehoda '+Str(5 - k)+' kletok')
endif
Wait(500)

If UO.Dead() Then
Wait(70000)
Endif
Next
Next
endsub


sub boat()
UO.Print("I am capitan!")
UO.Exec('terminate Fish')
Wait(100)
UO.SayU("Raise anchor")
Wait(200)
UO.SayU("Forward full")
Wait(10000)
UO.SayU("Stop")
Wait(200)
UO.SayU("Drop anchor")
Wait(500)
UO.Exec('exec Fish')
endsub


Проблемка в том что при переходе первый раз на следующую точку к переменной 'k' прибавляется 1, но в дальнейшем значение остается прежним :cry:
За корявость прошу сильно не ругать, буду благодарен за любую помощь :oops:

З.Ы. Заодно не подскажите ли как "научить" инжект распознавать кириллицу (качал файлик fonts.mul с русским шрифтом - не помогло :cry: )

_________________
Я на правильном пути, и poher мне куда идти...


Top
   
PostPosted: 2010-03-09 19:37:46 
Offline

Joined: 2010-02-08 13:19:47
Posts: 3
Ап, товарищи :D Помогите пожалуйста :oops:

_________________
Я на правильном пути, и poher мне куда идти...


Top
   
PostPosted: 2010-03-17 19:44:57 
Offline

Joined: 2010-01-16 10:11:35
Posts: 4
Поставь к=1 выше ФОРов, а не ниже.


Top
   
PostPosted: 2010-04-01 13:44:58 
Offline

Joined: 2010-02-08 13:19:47
Posts: 3
Buratino wrote:
Поставь к=1 выше ФОРов, а не ниже.


Экий я глупый, спасибо :oops:

_________________
Я на правильном пути, и poher мне куда идти...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited