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

Исправьте скрипт пожалуйста
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11769		 Page 1 of 1
Author:  simple [ 2007-04-16 08:05:16 ]
Post subject:  Исправьте скрипт пожалуйста
Скрипт на раскладку химии в паке но глючит тайп, пишет всё ок а сам нефига, заного запускаеш пишет что нет паке пока логаут не сделаеш!

sub SortItem()
var n_1, Wait_Time=500

Dim Items[8]
Items[0] = 7
Items[1] = '0x0E20' ; ????? ????
Items[2] = '0x0F0E' ; ?????? ???????
Items[3] = '0x0F3F' ; ??????
Items[4] = '0x1BFB' ; ?????
Items[5] = '0x09B0' ; ????? (??????????) 1
Items[6] = '0x0E79' ; ????? (??????????) 2
Items[7] = '0x0E76' ; ????? (???????)

UO.Set('grabdelay','250')
;===========================================================================
; ????????? ?????:
;===========================================================================
If UO.Count('0x0F0B') Then ; ???????
REPEAT
UO.FindType('0x0F0B','-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>142 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','142','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F09','0x0388') Then ; ????
REPEAT
UO.FindType('0x0F09','0x0388','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>44 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','44','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F09','0x0060') Then ; ?????
REPEAT
UO.FindType('0x0F09','0x0060','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>56 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','56','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F09','0x084D') Then ; ?????????
REPEAT
UO.FindType('0x0F09','0x084D','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>68 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','68','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F09') Then ; ????? ???
REPEAT
UO.FindType('0x0F09','-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>77 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','77','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F06') Then ; ?????
REPEAT
UO.FindType('0x0F06','-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>103 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','103','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
If UO.Count('0x0F0D') Then ; ????? ????
REPEAT
UO.FindType('0x0F0D','-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>114 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','114','65','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
;===========================================================================
; ????????? ????:
;===========================================================================
If UO.Count('0x0E21') Then ; ?????
REPEAT
UO.FindType('0x0E21','-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>97 or UO.GetY('finditem')<>65 Then
UO.MoveItem('finditem','all','-1','97','65','0')
Wait(Wait_Time)

Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
;===========================================================================
; ????????? ????: ?????? ?????? ????
;===========================================================================
For n_1 = 1 TO Items[0]
If UO.Count(Items[n_1]) Then
REPEAT
UO.FindType(Items[n_1],'-1','2')
If UO.FindCount() Then
If UO.GetX('finditem')<>137 or UO.GetY('finditem')<>127 Then
UO.MoveItem('finditem','all','-1','137','127','0')
Wait(Wait_Time)
UO.Ignore('finditem')
Else
UO.Ignore('finditem')
End If
End If
Until UO.FindCount()==0 or UO.Dead()
End If
Next
UO.IgnoreReset()
UO.Print("SortItem Done!")
end sub
Author:  $keR [ 2007-04-16 08:59:03 ]
Post subject: 
забеи на ОСКОМ, ОН НЕ ДЛЯ ТЕБЯ, ты хочешь все и сразу,а так не бывает, попробуи поис посмареть, попробуи подумать, все придет со временем.. тут есть рабочие скрипты, 100% ! на раскладку, я себе нашел, когда искал, так что вот тут смари :
search.php
Author:  simple [ 2007-04-17 07:37:07 ]
Post subject: 
А разве так сложно помочь и скинуть этот скрипт!? а не оскорблять!?
Author:  Scripts Writer [ 2007-04-17 08:12:45 ]
Post subject: 
Тебя никто не оскорблял. Прояви терпение или же сам его найди.
Author:  Nmy [ 2007-04-17 14:03:19 ]
Post subject: 
скрипт надо выкладывать в код и что именно тебе надо я так и непонел... какая разкладка?
Author:  simple [ 2007-04-17 20:02:20 ]
Post subject: 
Mr Nmy wrote:
скрипт надо выкладывать в код и что именно тебе надо я так и непонел... какая разкладка?



Ну вот выше скрипт он у меня чёто логает а вообще хотелось бы в идеале такой скриптик, что-бы когда бадаеш впаке бардак, запускаеш скрипт и манки к манкам, инвизки к инвизкам и т.д. реги в оду кучку
Author:  $keR [ 2007-04-17 20:31:04 ]
Post subject: 
блин разве сложно поискать? поищи все тут есть, ненашел тогда глянь тут
Author:  666Man666 [ 2007-05-14 10:57:29 ]
Post subject: 
То старый скрипт псц :) где ты его нашёл... хз )
может этот пригодится ?....

Code:
##################################
### СОРТИРУЕМ ВЕШИ В ПАКЕ ########

sub SortItem()
If UO.Dead() Then
   UO.Print("You are Dead")
   return
End If
var n_1
UO.Set('grabdelay','250')
UO.IgnoreReset()

;==============================================
; СОРТИРУЕМ ВЕЩИ: НИЖНИЙ ПРАВЫЙ УГОЛ
;==============================================
Dim Items[8]
Items[0] = 7
Items[1] = '0x0E20' ; БИНТЫ БЛУД
Items[2] = '0x0F0E' ; ПУСТЫЕ БУТЫЛКИ
Items[3] = '0x0F3F' ; СТРЕЛЫ
Items[4] = '0x1BFB' ; БОЛТЫ
Items[5] = '0x09B0' ; СУМКА (квадратная) 1
Items[6] = '0x0E79' ; СУМКА (квадратная) 2
Items[7] = '0x0E76' ; СУМКА (Круглая)
;==============================================
; СОРТИРУЕМ ХИМИЮ:
;==============================================
Sort('0x0F0B', '', 142, 65)       ; РЕФРЕХИ
Sort('0x0F09', '0x0388', 44, 65)  ; МАНА
Sort('0x0F09', '0x0060', 56, 65)  ; ИНВИЗ
Sort('0x0F09', '0x084D', 68, 65)  ; СТИЛСКИНЫ
Sort('0x0F0C', '', 77, 65)        ; ГРЕЙТ ХИЛ
;==============================================
; СОРТИРУЕМ ВЕЩИ:
;==============================================
Sort('0x0E21','' , 97, 65)        ; БИНТЫ

For n_1 = 1 TO Items[0]
   Sort(Items[n_1],'' , 137, 127) ; ВЕЩИ
Next
UO.IgnoreReset()
UO.FindType('0x0E75','-1','1') ; Анти КРАШ! :)
UO.Print("SortItem Done!")
end sub

Sub Sort(Type, Color, X, Y)
var Wait_Time=500
If Color=='' Then
   Color='-1'
End If
If UO.Count(Type) Then 
   REPEAT
      UO.FindType(Type,Color,'2')
         If UO.FindCount() Then
            If UO.GetX('finditem')<>X or UO.GetY('finditem')<>Y Then
               UO.MoveItem('finditem','all','-1',str(X),str(Y),'0')
               UO.Ignore('finditem','on')
               Wait(Wait_Time)
            Else
               UO.Ignore('finditem','on')
            End If
         End If
   Until UO.FindCount()==0 or UO.Dead()
End If
end sub
Author:  $keR [ 2007-05-14 14:54:10 ]
Post subject: 
666Man666
слух, а что там за АнтиКраш? =)
Code:
;UO.FindType('0x0E75','-1','1') ; Анти КРАШ! :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/