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

Подредактируйте Loot
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3850		 Page 1 of 1
Author:  Dominator [ 2005-04-28 00:15:04 ]
Post subject:  Подредактируйте Loot
Нужно добавить строчку чтобы появлялся таргет ,для того чтобы можно было указать самому на труп-тоесь только поле моего нажатия на бинд и после указанием на тело будет разрезано указанное мною тело. Вот собственно сам скрипт :

sub Loot()
var i,n
Dim A[38]
A[1] = 0x0f7b ;BloodMoss
A[2] = 0x0f09 ;Invisibility
A[3] = 0x0f09 ;ManaRefresh
#A[4] = 0x0f0b ;Refresh
#A[5] = 0x13B9 ;VikingSword
#A[6] = 0x0f0c ;Heal
#A[7] = 0x143E ;Halberd
#A[8] = 0x1ce1 ;haed
#A[9] = 0x1f14 ;Runa
#A[10] = 0x204e ;RobeOfDarkMage
#A[11] = 0x0f51 ;Dagger
A[12] = 0x0f7a ;BlackPearl
#A[13] = 0x1404 ;WarFork
A[14] = 0x0f84 ;Garlic
A[15] = 0x0f85 ;Ginseng
A[16] = 0x1B76 ;Heater
A[17] = 0x1411 ;PlatemailLegs
A[18] = 0x1415 ;Platemail
A[19] = 0x1410 ;PlatemailArms
A[20] = 0x1414 ;PlatemailGauntlets
A[21] = 0x1412 ;PlatemailHelm
A[22] = 0x1413 ;PlatemailHelm
#A[23] = 0x1F40 ;Poison
#A[24] = 0x1F4A ;Light
A[25] = 0x0f86 ;MandrakeRoot
A[26] = 0x0f88 ;Nightshade
#A[27] = 0x0E76 ;Bag
A[28] = 0x09B0 ;BeltPouch
A[29] = 0x0E75 ;Backpack
A[30] = 0x0E21 ;bandage
A[31] = 0x1F5F ;FS
A[32] = 0x1F49 ;GH
A[33] = 0x1F4C ;Recall
A[34] = 0x0f8c ;SulphorousAsh
A[35] = 0x0f8d ;SpidersSilk
A[36] = 0x0EED ;Gold
A[37] = 0x1BD1; Feathers
#A[38] = 0x09F1; myaso ptichek
A[39]=0x0E34 ; Blank Scroll
A[40]=0x14EB ; Treassure Map
A[41]=0x0F90 ; Dead Woods
A[42]=0x0F7E ; Skeleton Bones
A[43]=0x0F25 ; Pieces of Amber
A[44]=0x0F16 ; Ametist
A[45]=0x0F20 ; Tourmaline
A[46]=0x0F26 ; Diamond
A[47]=0x0F30 ; Diamond
A[48]=0x0F78 ; Batwings


UO.WaitTargetObject("lastcorpse")
UO.useobject (0x4013EE14); chem rezat"
wait(1000)

i = 1200
FOR n=1 TO 38
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab(1, "finditem")
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
end sub
Author:  Beyonder [ 2005-04-28 09:23:53 ]
Post subject: 
Замени:
Code:
UO.WaitTargetObject("lastcorpse")
UO.useobject (0x4013EE14); chem rezat"
wait(1000)

На :
Code:
UO.useobject (0x4013EE14); chem rezat"
while UO.Targeting()
  wait(100)
wend
Author:  Dominator [ 2005-04-30 01:08:42 ]
Post subject: 
спс ,таргет есть :D ,но теперь он ошибку выдаёт в етой строчке
Wait(i)
END if
next
end sub
можно как нибудь концовку переделать (желательно чтобы этот скрипт кто-нибудь протестил ,чтоб он ошибок невыкидывал некаких)
Всем спасибо :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/