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

unload
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10521		 Page 1 of 1
Author:  Bangbuss [ 2006-12-13 22:27:29 ]
Post subject:  unload
kak sdelat' 6tob rabotal postajano, nu toest 6tob vso reme proveral backpack, kak toka v backpacke pokazhetsa zadanie tipi 4ar vigruzhet ih.

Code:
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
:cry:
Author:  CONDOMchick [ 2006-12-13 22:31:28 ]
Post subject: 
Ну скажи какая ошибка или что?
Author:  Bangbuss [ 2006-12-13 22:35:24 ]
Post subject: 
shas posmatri.
Author:  Destruction [ 2006-12-14 00:33:53 ]
Post subject: 
Code:
DIM Item[3] 
...
Item[3]=0x09CE 
...
   for i = 1 to 3


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


Это как минимум.
Author:  Bangbuss [ 2006-12-18 23:26:50 ]
Post subject: 
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:
Author:  Savage [ 2006-12-19 07:29:02 ]
Post subject: 
Code:
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
Author:  Bangbuss [ 2006-12-23 01:23:10 ]
Post subject: 
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.
Author:  Savage [ 2006-12-23 08:51:23 ]
Post subject: 
Исправил.
Author:  Bangbuss [ 2006-12-23 09:49:03 ]
Post subject: 
Nevigruzhaet!
Author:  Savage [ 2006-12-23 13:16:40 ]
Post subject: 
Типы проверяй тогда.
Author:  Bangbuss [ 2006-12-23 21:49:10 ]
Post subject: 
SAVAGE 6to staboj proesxodet, vrode tut adin iz luchshih, no...
Ti opjat' napisal nepravelno:

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


ti zabil postavit':

Code:
   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:
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.
Author:  Savage [ 2006-12-24 09:23:58 ]
Post subject: 
Если типы правильно записал то почему они разные в обоих скриптах?
Author:  Bangbuss [ 2006-12-24 12:54:31 ]
Post subject: 
Code:
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:
Author:  Savage [ 2006-12-24 15:25:59 ]
Post subject: 
Все ясно. Ты вместо типов цвет указал.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/