В рунбуке 1 руну нажал полетел копать накопал 450 веса и домой после отгруски обратно есть скрипт но обратно не летит сука!
sub minround() VAR Kirka = '0x0E85' ;Òèï òîãî ÷åì áóäåì êîïàòü VAR MaxVes = 500 ; ìàêñèìàëüíàé âåñ ìèíóñ 10-15 ñòîóîâ VAR TileNum = '-1' ; Íîìåð òàéëà VAR x, y, t, k, i VAR MaxTime = 100 VAR ms1 = "There is no ore" VAR ms2 = "You can't use" VAR ms3 = "You put " VAR ms4 = "You loosen some rocks" VAR ms5 = "location" VAR ms6 = "Try mining" VAR ms7 = "You can't see that" VAR ms8 = "There is nothing" VAR ms9 = "You cannot mine so" VAR h=3 VAR m,Exit VAR UnloadCont='0x40006982' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû DIM Ore[5] Ore[0]=0x19B9 ; 4 and more ore Ore[1]=0x19B7 ; 1 ore Ore[2]=0x19BA ; 2 ore Ore[3]=0x19B8 ; 3 ore
uo.print('!!Âûáåðè Ðóíáóê!! ') uo.exec('addobject Runebook') while uo.targeting() wait(100) wend
uo.exec("recall Runebook 2") wait(7500)
na4alo: uo.press(114) wait(4000)
for i=1 to 6 for y=-1 to 1 for x=-1 to 1 k = 0 repeat UO.DeleteJournal() t = UO.Timer() k = k + 1 wait(100) UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) UO.UseType( Kirka ) repeat wait(100) 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)OR UO.InJournal(ms9) OR ((t +MaxTime) < UO.Timer()) If UO.Weight > MaxVes Then UO.Print(" Overweight!" ) goto recal return Endif until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) next next uo.press(40) wait(700) uo.press(40) wait(700) next goto rec
recal: uo.exec("recall Runebook 5") ; äîìîé ( â ðóíáóêå ñëîò 1 ) wait(7500) UO.Say('Bank') wait(2000) if uo.waiting() then uo.canceltarget() endif UO.SetReceivingContainer(UnloadCont) wait(500) For m=0 to 3 Exit=0 repeat UO.FindType(Ore[m]) if UO.GetQuantity('finditem')>0 then UO.Grab('0','finditem') wait(1500) Else Exit=1 endif until Exit==1 Next UO.UnSetReceivingContainer() wait(500) UO.Useobject("stoun") wait(500) UO.Recall(0x40016690, h) h = h+1 if h>16 then h = 2 endif wait(7500) goto na4alo
rec: UO.Recall(0x400034B9, h) h = h+1 if h>16 then h = 2 endif wait(7500) goto na4alo endsub
|