Тинкеринг , помогите

[GrandMaster Ranger]

вот нашел на сайте скрипт на тинкеринг, но взял его только за основу, переделал уже кординально.
вот что мне нужно сделать:
1. чар берет с пола сундук
2. чар проверяет кол-во железа в паке, если мало то берет
3. тоже самое что и пункт2 , только с болтами.
4. чар запускает ловушку в сундук
5. чар дропает сундук на пол и оорет фразу ( чтобы вор после обработкиэтой фразы в журнале обезвредил её , и тоже крикнул фразу )
6. после того как вор крикнул фразу, цикл возобновляется...

выдается ошибка в скрипте
Attempt to jump inside for/while/repeat
я так понял это из за криво поставленого goto...
знаю что скрипт дырявый... я не проффесионал.. помогите

Code: Select all

sub tinker() 
VAR Ingi = '0x1BF2' ; Òèï èíãîâ 
VAR Instrum = '0x1EBC' ; Òèï èíñòðóìåíòà òèíêåðà 
VAR Bottle = '0x0E43' ; Òèï áóòûëêè 
VAR BOLT = '0x1BFB'
VAR k = 0 
UO.exec('set distance 2')
UO.exec('set finddistance 2')
UO.Set('norbcheck','1') 
UO.Set('norbcalc','1') 
While TRUE 
haha:
uo.grab('1' , '0x67ECF589')
UO.FindType(Ingi, -1, 'backpack')
wait(300)
If UO.FindCount() < 100 Then 
UO.FindType(Ingi, -1, 'ground')
UO.Grab('100','finditem')
wait( 1000 ) 
end if
UO.FindType(BOLT, -1, 'backpack')
If UO.FindCount() < 100 Then 
UO.FindType(BOLT, -1, 'ground')
UO.Grab('100','finditem')
wait( 2000 ) 
end if

UO.Exec("usetype 0x1EB9")
UO.Recall('self','4402')
uo.exec("waittargettype 0x1BF2")
wait(500) 
   UO.WaitTargetType('0x0E43')
   While UO.Waiting()
         Wait(50)
   WEnd
   wait(500)
UO.FindType( Bottle, -1, -1 ) 
UO.drophere('finditem') 
wait( 1000 ) 
UO.msg( 'Yeah' ) 
repeat
wait(1500)
k = k + 1
until uo.InJournal("Vasya")
goto haha
end if 
Wend 
Wend 
end sub 

[slonopotam]

Че за гон??
Что этим скриптом качается и скольки чарам??

[GrandMaster Ranger]

Че за гон??
Что этим скриптом качается и скольки чарам??

делается ловушка с болтом.
тинкеринг качается до 150 (я на ПОЛЕ 095 играю )
и вобще не флуди, я попросил помочь а не задавать вопросы.

[slonopotam]

Я не играл на шарде с ловушками


Что это?

Code: Select all

haha:
...
...
goto haha 

[GrandMaster Ranger]

Я не играл на шарде с ловушками


Что это?

Code: Select all

haha:
...
...
goto haha 

сам не знаю! я просто не знаю как в конце скрипта вернуться в начало... то есть из точки гото хаха вернуться в хаха;

[slonopotam]

Code: Select all

If ....... Then
......
Else
.....
Endif

Еще как вариант, кусок скрипта с крафтом вынести в отдельный скрипт.

[Scripts Writer]

Ошибка в том, что ты выходишь из цикла безусловным переходом:

Code: Select all

goto "метка".

Это не есть правильно,- либо зацикли чтобы такого не было, либо после выполнения цикла выходи.

slonopotam -что за чушь ты несёшь? Уж лучше молчи чем и вовсе что-то говори. Какая тебе разница что этим скриптом качается и уж тем более- спрашивать у автора-что такое готу ... ?!

[GrandMaster Ranger]

Ошибка в том, что ты выходишь из цикла безусловным переходом:

Code: Select all

goto "метка".

Это не есть правильно,- либо зацикли чтобы такого не было, либо после выполнения цикла выходи.

slonopotam -что за чушь ты несёшь? Уж лучше молчи чем и вовсе что-то говори. Какая тебе разница что этим скриптом качается и уж тем более- спрашивать у автора-что такое готу ... ?!

как выйти после выполнения цикла? уж не end sub ли?

[Scripts Writer]

Само слово цикл.

Что такое цикл? Выполнение операции, пока не будет выполнено условие. (примерно)
Исходи из этого:
Чтобы зделать постоянный цикл-надо задать не выполнимое условие:

Code: Select all

while 1; while not uo.Dead(); ... 

к примеру. пока не умер конечно выполнимое условие, но если ты на крафте в безопастном месте-то сойдёт.

Проблема в том, что ты выходишь из цикла. зачем? Ты как я понял возвращаешься назад как только скрипт зделает все действия- зачем? Разумнее будет зделать так, чтобы завершался один цикл твоих действий-проверялось условие какое то и выполнив его-ты выходил из внутреннего цикла. А внешний цикл зделать не выполнимым-так ты будешь по кругу делать одно и тоже действие. Например:

Code: Select all

while not uo.Dead()
  uo.DeleteJOurnal()
  while not uo.InJournal(msg) and not uo.InJournal(msg2)
    ...
  wend
  # Здесь проверяем -выполнилось ли условие : Умер. Если нет, тогда автоматом возвращаемся в самое начало и входим во внутренний цикл, который проверяет наличие сообщений.
wend

Грубый пример, но думаю он понятен.
Можно зделать без внутреннего цикла:

Code: Select all

while not uo.Dead()
  # Твои действия 
wend

Вот здесь скрипт будет делать построчно все твои действия, и как выполнит и ты не будешь мертв-вернется к первому и начнёт повторение, пока не выполнится условие : You are dead.

[GrandMaster Ranger]

Само слово цикл.

Что такое цикл? Выполнение операции, пока не будет выполнено условие. (примерно)
Исходи из этого:
Чтобы зделать постоянный цикл-надо задать не выполнимое условие:

Code: Select all

while 1; while not uo.Dead(); ... 

к примеру. пока не умер конечно выполнимое условие, но если ты на крафте в безопастном месте-то сойдёт.

Проблема в том, что ты выходишь из цикла. зачем? Ты как я понял возвращаешься назад как только скрипт зделает все действия- зачем? Разумнее будет зделать так, чтобы завершался один цикл твоих действий-проверялось условие какое то и выполнив его-ты выходил из внутреннего цикла. А внешний цикл зделать не выполнимым-так ты будешь по кругу делать одно и тоже действие. Например:

Code: Select all

while not uo.Dead()
  uo.DeleteJOurnal()
  while not uo.InJournal(msg) and not uo.InJournal(msg2)
    ...
  wend
  # Здесь проверяем -выполнилось ли условие : Умер. Если нет, тогда автоматом возвращаемся в самое начало и входим во внутренний цикл, который проверяет наличие сообщений.
wend

Грубый пример, но думаю он понятен.
Можно зделать без внутреннего цикла:

Code: Select all

while not uo.Dead()
  # Твои действия 
wend

Вот здесь скрипт будет делать построчно все твои действия, и как выполнит и ты не будешь мертв-вернется к первому и начнёт повторение, пока не выполнится условие : You are dead.

спасибо блин так долго мучался ради друга, и он послевсего нашел подобие этого скрипта на Стелс ))