Исправьте скрипт пожалуйста

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
simple
Posts: 44
Joined: 2007-01-12 11:20:33
Location: I see You

Исправьте скрипт пожалуйста

Post by simple »

Скрипт на раскладку химии в паке но глючит тайп, пишет всё ок а сам нефига, заного запускаеш пишет что нет паке пока логаут не сделаеш!

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
Top
$keR
Posts: 185
Joined: 2006-05-25 23:02:02
Location: Uoo

Post by $keR »

забеи на ОСКОМ, ОН НЕ ДЛЯ ТЕБЯ, ты хочешь все и сразу,а так не бывает, попробуи поис посмареть, попробуи подумать, все придет со временем.. тут есть рабочие скрипты, 100% ! на раскладку, я себе нашел, когда искал, так что вот тут смари :
search.php
Top
simple
Posts: 44
Joined: 2007-01-12 11:20:33
Location: I see You

Post by simple »

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

Post by Scripts Writer »

Тебя никто не оскорблял. Прояви терпение или же сам его найди.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

скрипт надо выкладывать в код и что именно тебе надо я так и непонел... какая разкладка?
Top
simple
Posts: 44
Joined: 2007-01-12 11:20:33
Location: I see You

Post by simple »

Mr Nmy wrote:скрипт надо выкладывать в код и что именно тебе надо я так и непонел... какая разкладка?



Ну вот выше скрипт он у меня чёто логает а вообще хотелось бы в идеале такой скриптик, что-бы когда бадаеш впаке бардак, запускаеш скрипт и манки к манкам, инвизки к инвизкам и т.д. реги в оду кучку
Top
$keR
Posts: 185
Joined: 2006-05-25 23:02:02
Location: Uoo

Post by $keR »

блин разве сложно поискать? поищи все тут есть, ненашел тогда глянь тут
kak to tak
Top
666Man666
Junior Expert
Posts: 474
Joined: 2004-11-13 00:43:55
Location: Киберзадроцк
Contact:
Contact 666Man666

Post by 666Man666 »

То старый скрипт псц :) где ты его нашёл... хз )
может этот пригодится ?....

Code: Select all

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

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
Last edited by 666Man666 on 2007-05-17 12:18:57, edited 3 times in total.
Top
$keR
Posts: 185
Joined: 2006-05-25 23:02:02
Location: Uoo

Post by $keR »

666Man666
слух, а что там за АнтиКраш? =)

Code: Select all

;UO.FindType('0x0E75','-1','1') ; Анти КРАШ! :)
kak to tak
Top
Post Reply

Return to “I need script!”