Yoko

All sides of Injection
It is currently 2026-01-18 21:24:10

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
 Post subject: Лут из трупов
PostPosted: 2005-05-16 05:30:08 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Кароч есть вот такой скрипт :

Sub LootT()
UO.addObject('Corpse')
While UO.Targeting()
Wait(30*3)
Wend
UO.WaitTargetObject('Corpse')
UO.UsetYpe('0x0F52')
Wait(3000)
UO.FindtYpe('0x0F78',-1,'Corpse') ; Batwing
UO.Grab('1000','finditem')
UO.FindtYpe('0x0EED',-1,'Corpse') ; gp
UO.Grab('100000','finditem')
UO.FindtYpe('0x0F7B',-1,'Corpse') ; BM
UO.Grab('50','finditem')
UO.FindtYpe('0x0F7A',-1,'Corpse') ; BP
UO.Grab('50','finditem')
UO.FindtYpe('0x0F84',-1,'Corpse') ; GA
UO.Grab('50','finditem')
UO.FindtYpe('0x0F85',-1,'Corpse') ; GI
UO.Grab('50','finditem')
UO.FindtYpe('0x0F86',-1,'Corpse') ; MR
UO.Grab('50','finditem')
UO.FindtYpe('0x0F88',-1,'Corpse') ; NS
UO.Grab('50','finditem')
UO.FindtYpe('0x0F8C',-1,'Corpse') ; SA
UO.Grab('50','finditem')
UO.FindtYpe('0x0F8D',-1,'Corpse') ; SS
UO.Grab('50','finditem')
UO.FindtYpe('0x0F90',-1,'Corpse') ; Dead Woods
UO.Grab('200','finditem')
UO.FindtYpe('0x0F7E',-1,'Corpse') ; Skeleton Bones
UO.Grab('2000','finditem')
UO.FindtYpe('0x0F87',-1,'Corpse') ; Eyes of newt
UO.Grab('100','finditem')
UO.FindtYpe('0x0E34',-1,'Corpse') ; Blank Scroll
UO.Grab('800','finditem')
UO.FindtYpe('0x14EB',-1,'Corpse') ; Treassure Map
UO.Grab('50','finditem')
UO.FindtYpe('0x0F91',-1,'Corpse') ; Wyrm"s Hearts
UO.Grab('200','finditem')
UO.FindtYpe('0x09DF',-1,'Corpse') ; Mana
UO.Grab('50','finditem')
UO.FindtYpe('0x09BB',-1,'Corpse') ; GH
UO.Grab('50','finditem')
UO.FindtYpe('0x1F5F',-1,'Corpse') ; FS
UO.Grab('50','finditem')
UO.FindtYpe('0x1411',-1,'Corpse') ;PlatemailLegs
UO.Grab('4','finditem')
UO.FindtYpe('0x1415',-1,'Corpse') ;Platemail
UO.Grab('4','finditem')
UO.FindtYpe('0x1410',-1,'Corpse') ;PlatemailArms
UO.Grab('4','finditem')
UO.FindtYpe('0x1414',-1,'Corpse') ;PlatemailGauntlets
UO.Grab('4','finditem')
UO.FindtYpe('0x1412',-1,'Corpse') ;PlatemailHelm
UO.Grab('4','finditem')
UO.FindtYpe('0x1413',-1,'Corpse') ;PlatemailHelm
UO.Grab('4','finditem')
UO.FindtYpe('0x1B76',-1,'Corpse') ;Heater
UO.Grab('4','finditem')
UO.FindtYpe('0x13B9',-1,'Corpse') ;VikingSword
UO.Grab('4','finditem')
Wait(300*3)
End Sub

Он работает ,с етим всё нормально ,я бы хотел чтобы ктонибуть его долелал .Необходими чтобы скрипт сохранял оружие которое в руке у чара (не делает ,но хотелось бы) ; использовала тип указанный в скрипте-резал труп и лутат(это делает) ; далее брал в руку то оружие которое было у чара изначально (не то чем он резал),т.е. то которое он сохранил.Собственно всё .

Кто сможет додалать заранее спасибо.


Top
   
 Post subject:
PostPosted: 2005-05-16 09:00:25 
Offline
Expert!
User avatar

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel
Хех, интересно, на каком же шарде будет нормально работать такой скрипт? :lol:

З.Ы.:
Вот это:
Code:
UO.WaitTargetObject('Corpse') 
UO.UsetYpe('0x0F52')

Замени на это:
Code:
UO.SetArm('CWeapon')
UO.WaitTargetObject('Corpse')
UO.UsetYpe('0x0F52')
UO.Arm('CWeapon')


Top
   
 Post subject:
PostPosted: 2005-05-21 13:30:25 
Offline
User avatar

Joined: 2005-02-26 16:49:30
Posts: 11
Location: South Central
A na DRW mozno fast lut?
Esli mozno to skriptik ja sebe zakinu :)


Top
   
 Post subject:
PostPosted: 2005-05-27 16:12:34 
Offline
User avatar

Joined: 2005-04-06 05:53:47
Posts: 124
Mr.RMK wrote:
A na DRW mozno fast lut?
Esli mozno to skriptik ja sebe zakinu :)


Да можно ,ток осторожно :wink:
Кароч он на ДРВ работает


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 4 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited