Yoko

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