Yoko
http://forum.yoko.com.ua/

Лут из трупов
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4012		 Page 1 of 1
Author:  Dominator [ 2005-05-16 05:30:08 ]
Post subject:  Лут из трупов
Кароч есть вот такой скрипт :

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

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

Кто сможет додалать заранее спасибо.
Author:  flake [ 2005-05-16 09:00:25 ]
Post subject: 
Хех, интересно, на каком же шарде будет нормально работать такой скрипт? :lol:

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

Замени на это:
Code:
UO.SetArm('CWeapon')
UO.WaitTargetObject('Corpse') 
UO.UsetYpe('0x0F52') 
UO.Arm('CWeapon')
Author:  Mr.RMK [ 2005-05-21 13:30:25 ]
Post subject: 
A na DRW mozno fast lut?
Esli mozno to skriptik ja sebe zakinu :)
Author:  Dominator [ 2005-05-27 16:12:34 ]
Post subject: 
Mr.RMK wrote:
A na DRW mozno fast lut?
Esli mozno to skriptik ja sebe zakinu :)


Да можно ,ток осторожно :wink:
Кароч он на ДРВ работает
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/