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

kak rabotaet etot skript?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10249
Page 1 of 1

Author:  Bangbuss [ 2006-12-01 18:30:04 ]
Post subject:  kak rabotaet etot skript?

skript dolzhen vikidavat' nenuzhnuju rudu. Toka u menja vapros kak on otlechaet katoraja ruda nenuzhna, esli tip vseh rud odin i totzhe. Ponemaju po cvetu mozhno opredeljit nenuzhnuju rudu, nu tut ukazan toka tip.

Code:
sub main()
VAR n
Dim Drop[10]
Drop[1] = '0x0909'
Drop[2] = '0x03E3'
Drop[3] = '0x0026'
Drop[4] = '0x06D6'
Drop[5] = '0x0000'
Drop[6] = '0x0601'
Drop[7] = '0x052D'
Drop[8] = '0x0488'
Drop[9] = '0x084D'
Drop[10] = '0x060C'

while true
For n = 1 To 10
UO.FindType('0x19B9', Drop[n] ,'backpack')
If UO.FindCount() then
UO.MoveItem('finditem', -1 ,'ground')
wait(1000)
Endif
Next
wait(1000)
wend
end sub

Author:  omi4 [ 2006-12-01 18:42:00 ]
Post subject: 

здесь как раз цвет, а не тип

Author:  Nmy [ 2006-12-01 20:34:59 ]
Post subject: 

мой код :roll: непомню для каго писал... скрипт на олдп сбрасывает ненужную руду когда копаем- запускаем

Author:  Bangbuss [ 2006-12-01 21:34:56 ]
Post subject: 

dlja Fakegod :wink:

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