нужно добавить как наберает определёный вес,чар улетает по руне она находиться в банке.
Code: VAR Kirka = '0x0E85' ; ??? ????? sub minamine() #????????? VAR MaxVes =550 ; ?????? ?? ?????? VAR TileNum = '1339' ; ???? ?????? #?????????? VAR x, y, t, k, oldx, oldy, wh, togg #????????? VAR ms1 = "There is no ore here to mine" VAR ms2 = "You can't use" VAR ms3 = "You put the" VAR ms4 = "You loosen" VAR ms5 = "You have no" VAR ms6 = "Try mining in rock" VAR ms7 = "??.." VAR ms8 = "broke the " #???????! while 1 wait(300) oldx = uo.getx(480,98) #???????? ??? ??: ????? ? ??????? oldy = uo.gety(83,377) wait (3000) UO.Set('quiet','1') #???????? ?????????... for y=-2 to 2 for x=-2 to 2 k = 0 repeat UO.DeleteJournal() t = UO.Timer() k = k + 1 UO.CancelTarget() wait(300) UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) UO.UseType( Kirka ) ######################### repeat wait(300) until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms8) ######################### If UO.Weight > MaxVes Then ; ????.... UO.Print(" Overweight!" ) return Endif until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 7) ) next next UO.Set('quiet','0') #?????? uo.print( '??????? ?????????????.') #?????? ??? ???????... wait(3000) oldx = uo.getx(480,98) #??? ??? ?? ??????. oldy = uo.gety(83,377) if wh == '1' then #?????? uo.press (33) uo.press (33) uo.press (33) else #????? uo.press (35) uo.press (35) uo.press (35) endif wait(300) if (uo.getx() == oldx) and (uo.gety() == oldy) then uo.print('?????!') if wh == '1' then #??????????? wh ? ???????? ????? uo.press(36) uo.press(36) uo.press(36) wh = '0' else wh = '1' uo.press(36) uo.press(36) uo.press(36) end if else uo.print('????????.') endif wait(300) # ???.... ??????! wend endsub
буду благодарен !
|