Yoko

Posted: **2006-12-13 22:27:29**

kak sdelat' 6tob rabotal postajano, nu toest 6tob vso reme proveral backpack, kak toka v backpacke pokazhetsa zadanie tipi 4ar vigruzhet ih.

Code: Select all

sub UnLoad()
var cont = '0x40036DAC' ##ID sunduka
var i
DIM Item[3]
Item[1]=0x09CC
Item[2]=0x0DD6
Item[3]=0x09CE
   UO.UseObject(cont)
   for i = 1 to 3
   UO.FindType(Item[i], '-1', 'backpack')
   while UO.GetQuantity('finditem') > 0
      UO.MoveItem('finditem','-1',cont)
         Wait(1000)         
      UO.FindType(Item[i],'-1','backpack')
   wend
   next
end sub

Posted: **2006-12-13 22:31:28**

Ну скажи какая ошибка или что?

Posted: **2006-12-13 22:35:24**

shas posmatri.

Posted: **2006-12-14 00:33:53**

Code: Select all

DIM Item[3] 
...
Item[3]=0x09CE 
...
   for i = 1 to 3

Code: Select all

   UO.FindType(Item[i], '-1', 'backpack') 
   while UO.GetQuantity('finditem') > 0

Это как минимум.

Posted: **2006-12-18 23:26:50**

krch nefiga u menja nepoluchilos, to lagoval script to vobshe nevikidaval zadanie tipi. ti nemozhesh sdelat' kak nado. tut zhe skript ne na 100 strok :wink:

Posted: **2006-12-19 07:29:02**

Code: Select all

sub UnLoad() 
   var cont = '0x40036DAC' ;ID sunduka 
   var i 
   DIM Item[3] 

   Item[0]='0x09CC'
   Item[1]='0x0DD6'
   Item[2]='0x09CE'

   UO.UseObject(cont) 
   While TRUE
      UO.FindType(Item[i], -1, 'backpack') 
      If UO.FindCount() Then 
         UO.MoveItem('finditem',-1,cont) 
      Endif
      Wait(1000)          
      If i==2 Then
         i=0
      Endif
   wend 
end sub

Posted: **2006-12-23 01:23:10**

SAVAGE ili ti neponel 6to mne nado ili skoreje vsego ti nepravelno napisal kod. Skript vobshe nerabotaet, Mne nado bilo 6tob skript rabotal postajano, ja zapuskaju skript a on prosta otkrivaet ID sunduka i vso! ne vigruzhaet zadanie tipi! Prosta zapuskaju skript on otkrivaet sunduk i skript virubaetsa.

A nado, kak ja uzhe pisal:

Bangbuss wrote:kak sdelat' 6tob rabotal postajano, nu toest 6tob vso reme proveral backpack, kak toka v backpacke pokazhetsa zadanie tipi 4ar vigruzhet ih.

P.S. Experti esli netrudna proverte skript.

Posted: **2006-12-23 08:51:23**

Исправил.

Posted: **2006-12-23 09:49:03**

Nevigruzhaet!

Posted: **2006-12-23 13:16:40**

Типы проверяй тогда.

Posted: **2006-12-23 21:49:10**

SAVAGE 6to staboj proesxodet, vrode tut adin iz luchshih, no...
Ti opjat' napisal nepravelno:

Code: Select all

Line 12: Bad operation of this type of variable - ITEM

ti zabil postavit':

Code: Select all

   for i = 0 to 2

Ja postavil, posle kago, skript zarabotal no poljube nevigruzhaet, vso reme pishet ''items found 0''. TIPI PRAVELNO ZAPESAL.

Nu esli sovsem nepoluchaetsa s etim skriptom, to mozhet etot skript mozhno peredelat' tak 6tob vikidaval ne na zemlju a v ukazanij sunduk.

Code: Select all

sub drop()
VAR n
Dim Drop[2]
Drop[1] = '0x052D'
Drop[2] = '0x084D'

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

Tok tam nado sdelat' 6tob proveral toka tipi, shas tam vikidivaet na zemplju odnago tipa opredelonie cveta.

Posted: **2006-12-24 09:23:58**

Если типы правильно записал то почему они разные в обоих скриптах?

Posted: **2006-12-24 12:54:31**

Code: Select all

Sud Drop

Eto moj skript na vikidivanie nenuzhnij rudi pri kapanie. etot skript rabotaet otli4no. A vot Etot Unload nerabotaet, nu ja zhe netakoj mudak 6tob tipi nepravelno napisat', dumaesh ja prosta tak tut pishu proveral 10x, vsaka probaval prezhde 4em pisat' tut. Nu tak 6to pomozhesh? Podari mne etot skriptik na razhdestvo :wink:

Posted: **2006-12-24 15:25:59**

Все ясно. Ты вместо типов цвет указал.

Yoko

unload

unload