помогите со скриптом !

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Unfogiven
Posts: 44
Joined: 2006-12-18 11:33:01

помогите со скриптом !

Post by Unfogiven »

надо чтобы просто скидавал камешки в контейнер )
пытался зделать сам не получается не скидавает

Code: Select all


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

   Item[0]='0x0F11'
   Item[1]='0x0F16'
   Item[2]='0x0F18'
   Item[3]='0x0F15'
   Item[4]='0x0F10'
   Item[5]='0x0F0F'
   Item[6]='0x0F26'
   
while true
For n = 1 To 6
   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




Code: Select all

Ore[4]=0x0F11 ; saphires
Ore[5]=0x0F16 ; amethysts
Ore[6]=0x0F18 ; tourmalines
Ore[7]=0x0F15 ; citrines
Ore[8]=0x0F10 ; emeralds
Ore[9]=0x0F0F ; star sapphires
Ore[10]=0x0F26 ; diamonds
:( :( :(
Top
MorbidAngel
Posts: 51
Joined: 2004-08-26 16:47:05

Re: помогите со скриптом !

Post by MorbidAngel »

Unfogiven wrote:надо чтобы просто скидавал камешки в контейнер )
пытался зделать сам не получается не скидавает

Code: Select all


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

   Item[0]='0x0F11'
   Item[1]='0x0F16'
   Item[2]='0x0F18'
   Item[3]='0x0F15'
   Item[4]='0x0F10'
   Item[5]='0x0F0F'
   Item[6]='0x0F26'
   
while true
For n = 1 To 6
   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




Code: Select all

Ore[4]=0x0F11 ; saphires
Ore[5]=0x0F16 ; amethysts
Ore[6]=0x0F18 ; tourmalines
Ore[7]=0x0F15 ; citrines
Ore[8]=0x0F10 ; emeralds
Ore[9]=0x0F0F ; star sapphires
Ore[10]=0x0F26 ; diamonds
:( :( :(

setcatchbag тебе в помощь...
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Re: помогите со скриптом !

Post by Rivory »

Code: Select all


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

Item[0]='0x0F11'
Item[1]='0x0F16'
Item[2]='0x0F18'
Item[3]='0x0F15'
Item[4]='0x0F10'
Item[5]='0x0F0F'
Item[6]='0x0F26'
   
For n = 0 To 6
   UO.UseObject(cont)
   UO.FindType(Item[i], -1, 'backpack')
   while UO.FindCount() Then
      UO.MoveItem('finditem',-1,cont)
      Wait(1000)         
   wend
next
end sub
Видно, что брали левый скрипт и переписывали под себя. Куча ошибок и прочих ненужностей. Читаем уроки скриптинга.
Top
Unfogiven
Posts: 44
Joined: 2006-12-18 11:33:01

Post by Unfogiven »

какая разница (Item[i] и (Item[n]
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Code: Select all


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

   Item[0]='0x0F11' 
   Item[1]='0x0F16' 
   Item[2]='0x0F18' 
   Item[3]='0x0F15' 
   Item[4]='0x0F10' 
   Item[5]='0x0F0F' 
   Item[6]='0x0F26' 
    

  UO.UseObject(cont) 
  for i=0 to 6
    UO.FindType(Item[i], '-1', 'backpack') 
    If UO.FindCount() Then 
      UO.MoveItem('finditem','-1',cont) 
      wait(750)
    Endif 
  next
end sub
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

Scripts Writer wrote:...
И чем это принципиально отличается от моего скрипта ?

Untorgiven wrote:Чем
уроки скриптинга читай.
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Rivory wrote:
Scripts Writer wrote:...
И чем это принципиально отличается от моего скрипта ?

Untorgiven wrote:Чем
уроки скриптинга читай.


Тем что я не смотрю твои посты
Top
Rivory
Posts: 205
Joined: 2005-01-06 11:49:28

Post by Rivory »

оке, в следующий раз не буду читать твои посты, после того, как ты напишешь решение - напишу его ещё пару раз.
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Re: помогите со скриптом !

Post by Grin »

Rivory wrote:

Code: Select all


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

Item[0]='0x0F11'
Item[1]='0x0F16'
Item[2]='0x0F18'
Item[3]='0x0F15'
Item[4]='0x0F10'
Item[5]='0x0F0F'
Item[6]='0x0F26'
   
For n = 0 To 6
   UO.UseObject(cont)
   UO.FindType(Item[i], -1, 'backpack')
   while UO.FindCount() Then
      UO.MoveItem('finditem',-1,cont)
      Wait(1000)         
   wend
next
end sub

А ты запусти свой скрипт;) и поймешь чем он отличается;)
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Re: помогите со скриптом !

Post by Scripts Writer »

Grin wrote:
Rivory wrote:

Code: Select all


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

Item[0]='0x0F11'
Item[1]='0x0F16'
Item[2]='0x0F18'
Item[3]='0x0F15'
Item[4]='0x0F10'
Item[5]='0x0F0F'
Item[6]='0x0F26'
   
For n = 0 To 6
   UO.UseObject(cont)
   UO.FindType(Item[i], -1, 'backpack')
   while UO.FindCount() Then
      UO.MoveItem('finditem',-1,cont)
      Wait(1000)         
   wend
next
end sub

А ты запусти свой скрипт;) и поймешь чем он отличается;)


:D
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

Code: Select all

sub UnLoad() 
   var cont = '0x40036DAC' ;ID sunduka 
   var i ; переменная i
   DIM Item[3] ; массив состоящий из трёх переменных

   Item[0]='0x0F11'  ;переменная "раз"
   Item[1]='0x0F16'  ;переменная "дваз"
   Item[2]='0x0F18'  ;переменная "триз"
   Item[3]='0x0F15'  ;а..?? ..эээ, так вродеж три переменных. 
;"Ашипка Аднако"
   Item[4]='0x0F10'  ;Ещё одна???
   Item[5]='0x0F0F'  ;кхм...
   Item[6]='0x0F26'  ; всё???
    
while true 
For n = 1 To 6 ;Цикл: -  для переменной n, задаем значение от 1 до 6.
;Хмм... А откуда взялась переменная n?
;Вроде зарезервировали только cont, i и несколько Item.
;Не-е, выдам "Ашипку"
   UO.UseObject(cont) ; "Юзаем" объект cont
   While TRUE ; О-о... бесконечное условие :)) ?
      UO.FindType(Item[i], -1, 'backpack') ; ищем объект по типу указанному в массиве
;Dim item[количество переменных в массиве, тоесть - 3]
;Так начинаем искать объект Item[i],
;так как для переменной i нет ни каких инструкций,
;то и ни чего, и не найдём... или какую-нибудь цифирку.
;Например - "раз". Тогда найдём объект, по типу '0x0F16'. 
      If UO.FindCount() Then ; Если нашли чего-то, тогда...
         UO.MoveItem('finditem',-1,cont) ;перемещаем найденое, ВсёНайденое, в cont
      Endif 
      Wait(1000)          
      If i==2 Then ; Если i=2, тогда... 
;А с каких оно будет равно "дваз"?
;Для этой зарезервированной переменной нет ни каких инструкций, значений, и т.д. и т.п.
         i=0 
      Endif 
   wend 
end sub


Я сочувствую инжекту. И хочу перед инжой извяницца, за все подобные скрипты, и за всех скриптеров. :mrgreen:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

ADEPT_ABP wrote:

Code: Select all

sub UnLoad() 
   var cont = '0x40036DAC' ;ID sunduka 
   var i ; переменная i
   DIM Item[3] ; массив состоящий из трёх переменных

   Item[0]='0x0F11'  ;переменная "раз"
   Item[1]='0x0F16'  ;переменная "дваз"
   Item[2]='0x0F18'  ;переменная "триз"
   Item[3]='0x0F15'  ;а..?? ..эээ, так вродеж три переменных. 
;"Ашипка Аднако"
   Item[4]='0x0F10'  ;Ещё одна???
   Item[5]='0x0F0F'  ;кхм...
   Item[6]='0x0F26'  ; всё???
    
while true 
For n = 1 To 6 ;Цикл: -  для переменной n, задаем значение от 1 до 6.
;Хмм... А откуда взялась переменная n?
;Вроде зарезервировали только cont, i и несколько Item.
;Не-е, выдам "Ашипку"
   UO.UseObject(cont) ; "Юзаем" объект cont
   While TRUE ; О-о... бесконечное условие :)) ?
      UO.FindType(Item[i], -1, 'backpack') ; ищем объект по типу указанному в массиве
;Dim item[количество переменных в массиве, тоесть - 3]
;Так начинаем искать объект Item[i],
;так как для переменной i нет ни каких инструкций,
;то и ни чего, и не найдём... или какую-нибудь цифирку.
;Например - "раз". Тогда найдём объект, по типу '0x0F16'. 
      If UO.FindCount() Then ; Если нашли чего-то, тогда...
         UO.MoveItem('finditem',-1,cont) ;перемещаем найденое, ВсёНайденое, в cont
      Endif 
      Wait(1000)          
      If i==2 Then ; Если i=2, тогда... 
;А с каких оно будет равно "дваз"?
;Для этой зарезервированной переменной нет ни каких инструкций, значений, и т.д. и т.п.
         i=0 
      Endif 
   wend 
end sub


Я сочувствую инжекту. И хочу перед инжой извяницца, за все подобные скрипты, и за всех скриптеров. :mrgreen:


Ненадо разбирать неправильные скрипты. Надо либо разбирать правильные либо править самому ;)
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

Scripts Writer wrote:Ненадо разбирать неправильные скрипты. Надо либо разбирать правильные либо править самому ;)


Я хоть правильно разобрал? :D
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Удав сленг сложно читать, напиши с нуля и попробуй будет ли работать или нет. Если да, то урок усвоен :)
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

Scripts Writer wrote:Удав сленг сложно читать, напиши с нуля и попробуй будет ли работать или нет. Если да, то урок усвоен :)

Ты это кому??? Где Удав??? :shock:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

;"Ашипка Аднако"
...
Top
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:
Contact ADEPT_ABP

Post by ADEPT_ABP »

Scripts Writer wrote:
;"Ашипка Аднако"
...

Мда-а... Это:

Code: Select all

;"Ошибка, однако"

так иногда пишут школьники , те кто плохо знает русский язык, причём многие(я не исключение) и после школы. Кто прикола ради, а кто просто недоучился. Что впрочем неудивительно, ведь русский язык самый сложный язык, на нём даже русские плохо говорят. :mrgreen: (Очень дикая шутка, призванная скрыть прискорбный факт о малограммотности самих русскоговорящих).
К чему, я это говорю? Просто: назвать "Ашипка Аднако" - сленгом, признаться, что - русский язык для вас, не родной. :D
А Удав, откуда взялся? :mrgreen:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

НУ там не только ашипко ... Ладно, хорош флудить
Top
Post Reply

Return to “Scripting Ore”