Code: Select all
sub FishingAround()
VAR Ms0 = "You can't see" ; ?? ????? ????? ?????
VAR Ms1 = "You can't fish under the ship" ; ?? ????? ?????? ?????
VAR Ms2 = "You are too far away" ; ??????
VAR Ms3 = "There are no fish here" ; ????????? ???
VAR Ms4 = "You fish a while, but fail to catch anything" ; ????
VAR Ms5 = "You pull out" ; ?????? ???-??
VAR Ms6 = "You fail to catch anything." ; ?? ????? ?????? ?????
VAR k, t, v, x, y
VAR MaxTime = 800
For y = -4 To 4
For x = -4 To 4
k = 0
repeat
If UO.Dead() Then
return
Endif
DeleteJournal(ms0)
DeleteJournal(ms1)
DeleteJournal(ms2)
DeleteJournal(ms3)
DeleteJournal(ms4)
DeleteJournal(ms5)
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.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
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(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
k = k + 1
If UO.InJournal(ms5) Then
k = 0
Endif
If UO.Dead() Then
return
Endif
If UO.InJournal( ms5 ) Then
GetResultFish()
Endif
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
If UO.Dead() Then
return
Endif
Next
Next
endsub
Sub GetResultFish()
; ------- ???? -------
DIM Fish[18]
Fish[0] = '0x170B' ; ??????
Fish[1] = '0x170F' ; ?????
Fish[2] = '0x170D' ; ????????
Fish[3] = '0x1711' ; ??????
Fish[4] = '0x09CC' ; ??? ???? 1
Fish[5] = '0x09CD' ; ??? ???? 2
Fish[6] = '0x09CE' ; ??? ???? 3
Fish[7] = '0x09CF' ; ??? ???? 4
Fish[8] = '0x0FC4' ; ???????, ??? 1
Fish[9] = '0x0FC5' ; ???????, ??? 2
Fish[10] = '0x0FC6' ; ???????, ??? 3
Fish[11] = '0x0FC7' ; ???????, ??? 4
Fish[12] = '0x0FC8' ; ???????, ??? 5
Fish[13] = '0x0FC9' ; ???????, ??? 6
Fish[14] = '0x0FCA' ; ???????, ??? 7
Fish[15] = '0x0FCB' ; ???????, ??? 8
Fish[16] = '0x0FCC' ; ???????, ??? 9
Fish[17] = '0x14ED' ; ?????
VAR Razmer = 17 ; ?????? ??????? - 1
VAR dagger = 'type '
VAR i
; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ??????????????
; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????.
For i = 0 To Razmer
UO.FindType( Fish[i], '-1', 'ground' )
If UO.FindCount() > 0 Then
UO.WaitTargetObject( 'finditem' )
UO.UseType( dagger )
Wait( 300 )
Endif
next
endsub