Yoko

All sides of Injection
It is currently 2025-12-04 00:07:09

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 14 posts ] 
  Print view Previous topic | Next topic 
Author Message
Bangbuss
 Post subject: unload
PostPosted: 2006-12-13 22:27:29 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
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:


Last edited by Bangbuss on 2006-12-13 22:39:04, edited 3 times in total.

Top
   
Reply with quote  
CONDOMchick
 Post subject:
PostPosted: 2006-12-13 22:31:28 
Offline
User avatar

Joined: 2005-04-23 20:18:57
Posts: 362
Ну скажи какая ошибка или что?

_________________
Dragon World. [since 2004]
Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-13 22:35:24 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
shas posmatri.
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-12-14 00:33:53 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Code:
DIM Item[3] 
...
Item[3]=0x09CE 
...
   for i = 1 to 3


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


Это как минимум.
Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-18 23:26:50 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
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:
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-12-19 07:29:02 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
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


Last edited by Savage on 2006-12-23 08:51:06, edited 1 time in total.

Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-23 01:23:10 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
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.
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-12-23 08:51:23 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Исправил.
Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-23 09:49:03 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
Nevigruzhaet!
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-12-23 13:16:40 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Типы проверяй тогда.
Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-23 21:49:10 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
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.
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-12-24 09:23:58 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Если типы правильно записал то почему они разные в обоих скриптах?
Top
   
Reply with quote  
Bangbuss
 Post subject:
PostPosted: 2006-12-24 12:54:31 
Offline
User avatar

Joined: 2005-07-06 18:17:24
Posts: 228
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:
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-12-24 15:25:59 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Все ясно. Ты вместо типов цвет указал.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 14 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 3 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited