sub killelem() VAR Count, LastTimer, Elem UO.UseType('0x0F0E','0x0631') ; inviz potion While UO.STR<201 ; U'r not morfed char max Strength + 1 If UO.Mana>=50 then UO.WaitMenu('What','Daemon') UO.Cast('Polymorph') wait(8000) else UO.UseType('0x0F0E','0x09DF') ; total mana potion wait(3000) endif Wend
LastTimer=UO.Timer()
repeat UO.BandageSelf() wait(4000) until UO.Life==UO.STR OR LastTimer+300<UO.Timer()
repeat wait(1000) If UO.Life<100 Then UO.UseType('0x0F0E','0x09BB') ;GH Endif
If UO.GetDistance(Elem)>1 Then walkn(0,0,Elem) Endif
If UO.Life<100 Then UO.UseType('0x0F0E','0x0631') ; inviz potion wait(1000) repeat UO.BandageSelf() wait(4000) until UO.Life==UO.STR UO.UseType(0x1B76) ; heater shield wait(1000) uo.sayu("Я вернулся!!!") Endif
until UO.IsNPC(Elem)==0 wait(3000)
UO.WaitTargetGround('0x19B9') ; 4 and more ore wait(1500) UO.Grab('all') UO.WaitTargetGround('0x19B8') ; 3 ore wait(1500) UO.Grab('all') UO.WaitTargetGround('0x0EED') ; gold coins wait(500) UO.Grab('all')
UO.FindType('0x0010',-1,'ground') If UO.GetQuantity('finditem')>0 Then KillElem() Endif
UO.Exec('warmode 0') wait(1000)
UO.Print("Sdoh skotina!")
LastTimer=UO.Timer() if UO.Life<200 then ; U'r max HP repeat UO.BandageSelf() wait(4000) until UO.Life>200 OR LastTimer+300<UO.Timer() endif UO.DeleteJournal()
end sub
Морфится - хилится - убивает... Но не работает uo.grab, инжа выдает таргет и предлагает мне самому нацелится на нужный мне предмет Подскажите нубойду, как будет выглядить этот grab, чтобы чар сам поднимал лут с земли.
______________________
*Версия инжы последняя
**дрв шард
Угу осталось от отладочных работ Дело в том что когда элем нужен его ждать можно сутки когда не нужен пачками лезут. Я тогда 4 дня откатывал этот скрипт.
А вот дохиливание мне не требуется элемы итак неплохо мрут исключение состовляет момент когда чар в морфе и морф кончается в бою Все никак руки не дойдут переделать.
sub ElementalKill() var Count,LastTimer,Elemental var o,exit dim Ore[13] Ore[1]=0x19B9 Ore[2]=0x19B7 Ore[3]=0x19BA Ore[4]=0x19B8 Ore[5]=0x0F11 Ore[6]=0x0F16 Ore[7]=0x0F18 Ore[8]=0x0F15 Ore[9]=0x0F10 Ore[10]=0x0F0F Ore[11]=0x0F26 Ore[12]=0x1F4C Ore[13]=0x0EED uo.UseType('0x0F0E','0x0631') ## - Инвизка(тип,цвет). while uo.STR<uo.Life+1 if uo.Mana>=50 then uo.WaitMenu('What','Daemon') uo.Cast('Polymorph') wait(8000) else uo.UseType('0x0F0E','0x09DF') ## - Тотал Мана(тип,цвет). wait(3000) end if wend LastTimer=uo.Timer() repeat uo.BandageSelf() wait(4000) until uo.Life==uo.STR or LastTimer+300<uo.Timer() uo.UseType('0x1B76') ## - Хеатер Щит(тип). uo.DeleteJournal() uo.Exec('warmode 1') uo.FindType('0x0010',-1,'ground') Elemental=uo.GetSerial('finditem') uo.Attack(Elemental) repeat wait(1000) if uo.Life<50 Then uo.UseType('0x0F0E','0x09BB') ## - Греатер Хеал(тип,цвет). end if if uo.GetDistance(Elemental)>1 then
GotoXY(uo.getx(Elemental),uo.gety(Elemental),1) ## - тут моя ходилка он работает и Савина.
end if until uo.IsNPC(Elemental)==0 wait(3000) uo.Exec('warmode 0') wait(1000) LastTimer=uo.Timer() uo.DeleteJournal() for o=1 to 13 exit=0 repeat uo.FindType(Ore[o],-1,'ground') if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') wait(1500) else exit=1 end if until exit==1 next ### uo.Exec('warmode 1') uo.Exec('warmode 0') uo.Exec('exec Mining') end sub
sub grabelem() var i DIM Item[6] ###################################### Item[1]=0x19B9 ; >3 ore Item[2]=0x19B7 ; 1 ore Item[3]=0x19BA ; 2 ore Item[4]=0x19B8 ; 3 ore Item[5]=0x0EED ; gold ###################################### for i = 1 to 5 UO.FindType(Item[i], '-1', 'ground') UO.MoveItem('finditem','-1','backpack') Wait(1000) CheckLag() next end sub
ну дорабатывал я с дохиливанием и грабоим тока откуда они у вас я только для себя писал и фраза uo.sayu("я вернулся") я только для себя писал как такое возможно странно ??? вот мои варианты хотя они тута есть
sub killelem() VAR Count, LastTimer, Elem UO.UseType('0x0F0E','0x0631') ; inviz potion While UO.STR<201 ; U'r not morfed char max Strength + 1 If UO.Mana>=50 then UO.WaitMenu('What','Daemon') UO.Cast('Polymorph') CheckLag() wait(8000) CheckLag() else UO.UseType('0x0F0E','0x09DF') ; total mana potion wait(3000) CheckLag() endif Wend
LastTimer=UO.Timer()
repeat CheckLag() UO.BandageSelf() wait(4000) until UO.Life==UO.STR OR LastTimer+300<UO.Timer()
repeat CheckLag() wait(1000) If UO.Life<150 Then UO.UseType('0x0F0E','0x09BB') ;GH Endif
If UO.GetDistance(Elem)>1 Then CheckLag() walkn(0,0,Elem) Endif
If UO.Life<75 Then UO.Exec('warmode 0') UO.UseType('0x0F0E','0x0631') ; inviz potion UO.Exec('warmode 0') wait(3000) UO.Exec('warmode 0') repeat UO.BandageSelf() wait(4000) CheckLag() until UO.Life==UO.STR wait(1000) UO.UseType(0x1B76) ; heater shield wait(15000) UO.Exec('warmode 1') UO.Attack(Elem) Endif
until UO.IsNPC(Elem)==0 wait(3000)
grabelem()
UO.FindType('0x0010',-1,'ground') If UO.GetQuantity('finditem')>0 Then CheckLag() KillElem() Endif
UO.Exec('warmode 0') wait(1000)
UO.Print("Sdoh skotina!")
LastTimer=UO.Timer() if UO.Life<200 then ; U'r max HP repeat UO.BandageSelf() wait(4000) CheckLag() until UO.Life>200 OR LastTimer+300<UO.Timer() endif UO.DeleteJournal() While UO.STR>201 CheckLag() If UO.Mana<30 then UO.UseType('0x0F0E','0x09DF') endif UO.Cast('Dispel','self') wait(5000) Wend end sub
sub grabelem() var i DIM Item[6] ###################################### #Типы оров, золота ###################################### Item[1]=0x19B9 ; >3 ore Item[2]=0x19B7 ; 1 ore Item[3]=0x19BA ; 2 ore Item[4]=0x19B8 ; 3 ore Item[5]=0x0EED ; gold ###################################### for i = 1 to 5 UO.FindType(Item[i], '-1', 'ground') UO.MoveItem('finditem','-1','backpack') Wait(1000) CheckLag() next end sub
осталось от отладочных работ 