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

lootscript problem
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7264		 Page 1 of 1
Author:  helpmeplz1 [ 2006-04-04 06:30:38 ]
Post subject:  lootscript problem
sry for not knowin russian
sub Loot()
VAR i, n
VAR w = 500 ; the waiting time after moving an item
VAR razmer = 5
DIM Loot[5]
Loot[1] = '0x143E'
Loot[2] = '0x1406'
Loot[3] = '0x1515'
Loot[4] = '0x1BC3'
Loot[5] = '0x204E'

if uo.getdistance( 'lastcorpse' ) <4 then
uo.deletejournal()
repeat
uo.findtype( '-1', '-1', 'lastcorpse' )
n = 0
for i = 1 to razmer
if uo.getgraphic( 'finditem' ) == Loot[i] then
uo.moveitem( 'finditem', 'all', 'my' )
wait(w)
if uo.injournal( 'UNSP' ) then
wait(w*3)
endif
n = 1
goto nextitem
endif
next
if n == 0 then
uo.ignore( 'finditem' )
endif
nextitem:
until uo.findcount() == 0
else
uo.print( 'The corpse is too far!' )
endif
endsub

it says cant find item or something. any suggestions?
Author:  Scripts Writer [ 2006-04-04 13:41:44 ]
Post subject: 
Go to topic " Что ищут многие ", or look at search-there are lots scripts which do you want.
Author:  Mihail [ 2006-04-04 16:16:20 ]
Post subject: 
а ты не подумал что у него русский пакет шрифтов может быть не установлен и твое сообщение для него будет выглядеть в виде пустых окошек?
-
to author
1. please use [code] TAG
2. try this script

[code]sub Lootbody()
VAR i,k,Exit
DIM Loot[30]

Loot[0]=0x13B9 ; Halberd
Loot[1]=0x143E ; Vikin Sword
Loot[2]=0x0EED ; gp
Loot[3]=0x1B76 ; Shield
Loot[4]=0x1B77 ; Shield
Loot[5]=0x1415 ; Body
Loot[6]=0x1416 ; Body
Loot[7]=0x1411 ; Legs
Loot[8]=0x141A ; Legs
Loot[9]=0x1414 ; Gauntlets
Loot[10]=0x1418 ; Gauntlets
Loot[11]=0x1410 ; Arms
Loot[12]=0x140E ; Helm
Loot[13]=0x1413 ; Gorget
Loot[14]=0x1086 ; Mana Bracelet
Loot[15]=0x1F5F ; Fs
Loot[16]=0x0F0E ; Bag
Loot[17]=0x1F52 ; Total Mana
Loot[18]=0x1406 ; War Mace
Loot[19]=0x1412 ; Plate Helm
Loot[20]=0x0E21 ; Bandages
Loot[21]=0x0EED ;
Loot[22]=0x0EED ;
Loot[23]=0x0EED ;
Loot[24]=0x0EED ;
Loot[25]=0x0EED ;
Loot[26]=0x0EED ;
Loot[27]=0x0EED ;
Loot[28]=0x0EED ;
Loot[29]=0x0EED ;

UO.SetReceivingContainer('0x400186C7')
For i=0 to 29
Exit=0
repeat
if Loot[i]==0x0F0E then
k=0x09DF
else
k=-1
endif
UO.FindType(Loot[i],k,'lastcontainer')
if UO.FindCount('finditem') then
UO.Grab('0','finditem')
wait(500)
Else
Exit=1
endif
until Exit==1 OR uo.injournal("loot")
Next
UO.UnSetReceivingContainer()
end sub[/code]
and look at this topic
viewtopic.php?t=3802&postdays=0&postorder=asc&highlight=paralyze+field&start=0
-
online translate - http://www.online-translator.com/translator.asp?lang=en
Author:  Scripts Writer [ 2006-04-04 17:28:02 ]
Post subject: 
Code:
1. please use TAG


лол
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/