помогите со скриптом, Плизз)) |
помогите со скриптом, Плизз)) |
29 августа 2013 13:08
Сообщение #1
|
|
помогите со скриптом чтоб он их сам убивал и лут не работает я не шарю ПЛИЗЗЗ sub Tam() VAR TamTime = UO.Timer() var tam='0x00CF' var ser, kk, MaxVes VAR SpiritTime = UO.Timer() uo.ignorereset() UO.Exec( 'set finddistance 9' ) #uo.Exec('terminate Herding') #AddObject('tam','Кого тамим?') while Uo.skillval ( 'Animal Timing' ) < 110 kk=0 UO.FindType( '0x00CF', '-1', '1' ) if UO.FindCount() > 0 then UO.Click( 'finditem' ) wait(200) tam=UO.GetSerial('finditem') uo.print( 'serial'+tam ) wait(200) UO.WarMode( 0 ) UO.DeleteJournal() UO.WaitTargetObject(tam) UO.UseSkill( 'Animal Taming' ) repeat wait(1000) kk=kk+1 until UO.InJournal('to accept you|You fail to tame|is already|of battle|see the creature|kk>10|You are too far') if UO.InJournal('master|already') then wait(1000) UO.WaitTargetObject(tam) uo.say("all kill") wait(1000) kk=0 repeat kk=kk+1 wait(1000) until UO.InJournal('Body') or kk>12 UO.WarMode( 0 ) wait(100) if UO.InJournal('Body') then LootRat() wait(1000) endif If ( UO.Timer() - SpiritTime ) / 600 > 15 Then ; Прошло 5 минут с момента последней кормежки UO.UseType( '0x097B' ) ; фишстейки wait(1000) endif UO.Ignore( tam ) end if endif # MaxVes = 0 # MaxVes = ((UO.STR) * 4) # If UO.Weight > MaxVes Then # RecallHome() # wait(5000) # NechegoDelat() # Endif wait(1000) wend uo.ignorereset() endsub sub LootRat() DIM R[3] var c R[1] = 0x0C4F R[2] = 0x1078 R[3] = 0x09F1 UO.UseObject('lastcorpse') wait(400) uo.waittargetobject('lastcorpse') uo.usetype(0x0F51) wait(800) for c=1 to 3 repeat uo.findtype(R[c],"-1","lastcorpse") if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then UO.Grab("0","finditem") wait(1000) end if until UO.FindCount()<1 wait(10) uo.usetype('0x0F9E') wait(20) uo.waittargettype('0x1078') UO.DeleteJournal() next end sub |
|
|
|
Сообщений: 73 Рег. 19.08.2013 |
29 августа 2013 13:14
Сообщение #2
|
Для начала - скрипты в теги засовывают. Для продолжения - в данный момент скрипт не читаем практически ввиду отсутствия отступов. Для окончания - кого их и какой лут ? |
|
|
|
29 августа 2013 14:57
Сообщение #3
|
|
sub Tam() VAR TamTime = UO.Timer() var tam='0x00CF' var ser, kk, MaxVes VAR SpiritTime = UO.Timer() uo.ignorereset() UO.Exec( 'set finddistance 9' ) #uo.Exec('terminate Herding') #AddObject('tam','Кого тамим?') while Uo.skillval ( 'Animal Timing' ) < 110 kk=0 UO.FindType( '0x00CF', '-1', '1' ) if UO.FindCount() > 0 then UO.Click( 'finditem' ) wait(200) tam=UO.GetSerial('finditem') uo.print( 'serial'+tam ) wait(200) UO.WarMode( 0 ) UO.DeleteJournal() UO.WaitTargetObject(tam) UO.UseSkill( 'Animal Taming' ) repeat wait(1000) kk=kk+1 until UO.InJournal('to accept you|You fail to tame|is already|of battle|see the creature|kk>10|You are too far') if UO.InJournal('master|already') then wait(1000) UO.WaitTargetObject(tam) uo.say("all kill") wait(1000) kk=0 repeat kk=kk+1 wait(1000) until UO.InJournal('Body') or kk>12 UO.WarMode( 0 ) wait(100) if UO.InJournal('Body') then LootRat() wait(1000) endif If ( UO.Timer() - SpiritTime ) / 600 > 15 Then; Прошло 5 минут с момента последней кормежки UO.UseType( '0x097B' ); фишстейки wait(1000) endif UO.Ignore( tam ) end if endif # MaxVes = 0 # MaxVes = ((UO.STR) * 4) # If UO.Weight > MaxVes Then # RecallHome() # wait(5000) # NechegoDelat() # Endif wait(1000) wend uo.ignorereset() endsub sub LootRat() DIM R[3] var c R[1] = 0x0C4F R[2] = 0x1078 R[3] = 0x09F1 UO.UseObject('lastcorpse') wait(400) uo.waittargetobject('lastcorpse') uo.usetype(0x0F51) wait(800) for c=1 to 3 repeat uo.findtype(R[c],"-1","lastcorpse") if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then UO.Grab("0","finditem") wait(1000) end if until UO.FindCount()<1 wait(10) uo.usetype('0x0F9E') wait(20) uo.waittargettype('0x1078') UO.DeleteJournal() next end sub |
|
|
|
29 августа 2013 14:58
Сообщение #4
|
|
лут кожу и мясо)) |
|
|
|
29 августа 2013 15:06
Сообщение #5
|
|
сначало тамил потом убивал и резал Sheep и лутил кожу и мясо)) |
|
|
|
Сообщений: 73 Рег. 19.08.2013 |
29 августа 2013 15:09
Сообщение #6
|
GOBLIN, Так и не написал, что должен делать скрипт. Кого он тамит и кого атакует и где. |
|
|
|
Сообщений: 1043 Рег. 18.06.2011 |
29 августа 2013 15:56
Сообщение #7
|
2 Id Это ты МЕНЯ называешь занудным? 1)+2) Суровый скриптер ;) 3) у него в срипте написано var tam='0x00CF' через инсайд можно помсотреть что за зверек. И как бы Sheep это не корабль :) Страннее другое var tam='0x00CF' что как бы ТИП а потом вдруг UO.WaitTargetObject(tam) что как бы ОБЪЕКТ и что как бы не одно и тоже. На старом форуме вроде был скрипт на ворон и на овечек - притамил, подозвал и зарезал. Лутать нельзя по правилам сервера. |
|
|
|
Сообщений: 1043 Рег. 18.06.2011 |
29 августа 2013 16:03
Сообщение #8
|
твой скрипт как то вот так будет выглядеть. sub Tam() VAR TamTime = UO.Timer() var tam= var ser, kk VAR SpiritTime = UO.Timer() uo.ignorereset() UO.Exec( 'set finddistance 9' ) while Uo.skillval ( 'Animal Timing' ) < 1100; значение скилла 110.0 kk=0 UO.FindType( '0x00CF', '-1', '1' ) if UO.FindCount() > 0 then tam=UO.GetSerial('finditem') UO.WarMode( 0 ) wait(200) UO.DeleteJournal() UO.WaitTargetObject(tam) UO.UseSkill('Animal Taming') repeat wait(1000) kk=kk+1 until UO.InJournal('to accept you|fail to tame|already|of battle|the creature|too far') or kk>10 if UO.InJournal('master|already') then wait(1000) UO.WaitTargetObject(tam) uo.say("all kill") wait(1000) kk=0 repeat kk=kk+1 wait(1000) until UO.InJournal('Body') or kk>12 UO.WarMode( 0 ) wait(100) If ( UO.Timer() - SpiritTime ) / 600 > 15 Then UO.UseType( '0x097B' ); фишстейки wait(1000) endif UO.Ignore( tam ) end if endif wait(1000) wend uo.ignorereset() endsub Хотя он и странный. Я не проверял работу. |
|
|
|
Сообщений: 73 Рег. 19.08.2013 |
29 августа 2013 22:00
Сообщение #9
|
Alucard, Меня еще Animal Timing смущает чутка =) А насчет овец и кораблей, на момент написания моего сообщения, текст выглядел примерно так: "injfal8w643y8ltg2l3tg4c72tgl7ctg23tg643t2gc6"... и потом лутит их. |
|
|
|
Сейчас: 26 ноября 2024 00:30 |