Помогите исправить ошибку.

Zermalak · Post by **Zermalak** » 2006-12-14 08:31:17

Нашел скрипт на перекручивание хлопка, вписал все тайпы и ид. При запуске скрипта пишет, что что то не так с 8 строкой. Будте добры помогите исправить. Играю на Оскоме.

Code: Select all

sub Spool()
   VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x416C436E', Stanok='0x4024CF1F',i, Ammount=80

   While NOT UO.Dead()
      UO.FindType(Hlopok,-1,Cont)
      UO.Grab(STR(Ammount),'finditem')
      For i=1 to Ammount
         Checklag()
         UO.WaitTargetObject(Stanok)
         UO.UseType(Hlopok)
         wait(3000)
      Next
      UO.SetReceivingContainer(Cont)
      UO.FindType(Spool,-1,'backpack')
      UO.Grab('all','finditem')
      UO.UnSetReceivingContainer(Cont)
   Wend

end sub

Зарание благодарен

Code: Select all

Используй теги и все будут благодарны тебе by I'm

Savage · Post by **Savage** » 2006-12-14 10:55:20

Убери вызов функции CheckLag() или добавь код функции в твой скрипт.

Zermalak · Post by **Zermalak** » 2006-12-14 11:08:25

пробывал убрать чеклаг, но тогда он просто берет хлопок и ничего не делает. Если можно по подробней, а то в написании скрипта полный 0

Savage · Post by **Savage** » 2006-12-14 12:05:29

Вот посмотри, может поможет, каждый комент относится к предыдущей строке.

Code: Select all

sub Spool() 
VAR Spool='0x0FA0', Hlopok='0x0DF9', Cont='0x416C436E', Stanok='0x4024CF1F',i, Ammount=80 

While NOT UO.Dead() 
; Выполнять пока не сдохнет.
UO.FindType(Hlopok,-1,Cont) 
; найти тип хлопка в сундуке
UO.Grab(STR(Ammount),'finditem') 
;поднять 80 хлопка и кинуть в пак
For i=1 to Ammount 
; выполнять пока не кончится хлопок
;Checklag() 
; проверка на лаг
UO.WaitTargetObject(Stanok) 
; приготовить ловушку прицела и направить ее на станок
UO.UseType(Hlopok) 
; двойной тырк в хлопок чтоб появился прицел
wait(3000) 
;ждем 3 секунды
Next 
; повторить, кидает опять на for...
UO.SetReceivingContainer(Cont) 
; настроить конт как приемник для поднятых вещей
UO.FindType(Spool,-1,'backpack') 
; найти в паке нитки
UO.Grab('all','finditem') 
; кинуть нитки в конт
UO.UnSetReceivingContainer(Cont) 
; отключить конт как приемник поднятых вещей
Wend 
; повторить, кидает на while...
end sub

Zermalak · Post by **Zermalak** » 2006-12-14 12:32:23

вроде все то

, а вот выражу более точную проблему! Он пишет что функция чеклаг не найдена, смею предположить что с ней что то не то

Может там чего то не хватает?
П.С спасибо что рассписал подробно

Zermalak · Post by **Zermalak** » 2006-12-14 12:44:18

Я стер чеглаг, т.к неработает, еще раз прописал все типы, и ид, кое как работает. Теперь другая проблема, он берет 80 штук хлопка, потом еще 80 и получается что хлопок падает в ноги

Zermalak · Post by **Zermalak** » 2006-12-14 12:49:12

Исправил, я просто поставил wait после функции граб. Вроде теперь работает. Пасибо что помог разобраться.

Destruction · Post by **Destruction** » 2006-12-14 14:23:57

В разделе "Scripting Ore" прибит очень интересный топик..

Edred · Post by **Edred** » 2006-12-14 14:34:01

Destruction wrote:В разделе "Scripting Ore" прибит очень интересный топик..

Да даже это не надо, достаточно просто в поиске набрать 'checklag()'. Эта функция используется в каждом втором скрипте.

Zermalak · Post by **Zermalak** » 2006-12-14 18:50:34

ребят, разобрался я потом с чек лаг

но теперь проблема не в нем

пишет invalid object, item not found, я со 100% уверен что прописал все типы правельно! а он не работает.
Вот еще раз скрипт :

Code: Select all

sub Spool()
VAR Spool='0x0FA0', Cotton='0x0DF9', Cont='0x4048E256', Stanok='0x401E4AA2',i, Ammount=80

While NOT UO.Dead()
UO.FindType(Cotton,-1,Cont)
UO.Grab(STR(Ammount),'finditem')
For i=1 to Ammount
Checklag()
UO.WaitTargetObject(Stanok)
UO.UseType(Cotton)
wait(3000)
Next
UO.SetReceivingContainer(Cont)
UO.FindType(Spool,-1,'backpack')
UO.Grab('all','finditem')
UO.UnSetReceivingContainer(Cont)
Wend

end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub


#############
#RECONNECTOR#
sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
;UO.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub

Code: Select all

Люди! Юзайте теги. by I'm

Savage · Post by **Savage** » 2006-12-14 19:52:09

Перед юзом скрипта полезно открыть конт. Надеюсь айдишники вещей ты указал липовые? Для гма не составит труда тебя пропалить

Zermalak · Post by **Zermalak** » 2006-12-14 21:05:06

Пробывал с открытым контейнером, все равно пишет что я выше написал

Savage · Post by **Savage** » 2006-12-14 23:36:16

Скрипту много лет, годков так 4-5 так что может что и поменялось у вас с тех пор

SEGA · Post by **SEGA** » 2007-08-20 19:24:59

а как сделать так чтоб он после того как использовал весь хлопок из пака докладывал его заново и тд....