помогите плизззз

[durDom]

нужна помощь в написание скрипта на интимади
принцеп таков чтоб брал из кучки один бинт клал его напол индифицыровал и уберал в другой бек пак
за рание спасибо....

[durDom]

ребятки ну помогите уж очень нужен скрипт
просто по одной веши не канает )=
вот по этому и прошу...

[$!@m]

Напишешь без ошибок оба поста - помогу

[durDom]

интересует скрипт на Item ID
смысл скрипта таков:
1 чар берёт один бинт из кучки
2 индефицирует его
3 убирает в другую кучу

(вроде нет ошибок)

[Blood Slayer]

интересует скрипт на Item ID
смысл скрипта таков:
1 чар берёт один бинт из кучки
2 индефицирует его
3 убирает в другую кучу

(вроде нет ошибок)

Береш кидаеш напол бинт ищих его на полу записываеш айди кладеш в мешок

[$!@m]

Code: Select all

UO.UseObject(<ИД сумки, в которой есть свежие бинты>);
UO.UseObject(<ИД сумки для поюзанных бинтов>);
UO.FindType('0x1183',-1,'<ИД сумки, в которой есть свежие бинты>);
while UO.FindCount()
  UO.MoveItem('finditem',1);
  CheckLag()
  UO.FindType('0x1183');
  repeat
    UO.DeleteJournal()
    UO.UseSkill('ItemIdentification','finditem');
    repeat
      wait(100)
    until UO.InJournal('***'); <- Сюда вставить ВСЕ сообщения, которые бывают после юзания ИтемИД
  until UO.InJournal('***'); <- Сюда встаивть то сообщение, которое появляется после удачной идентификации
  UO.MoveItem('finditem',0,'<ИД сумки для поюзанных бинтов>');
  CheckLag();
  UO.FindType('0x1183',-1,'<ИД сумки, в которой есть свежие бинты>);
wend

писано на коленке, проверяй. Особенно с кавычками в FindType

[durDom]

Code: Select all

sub Item()
UO.UseObject('0x7E0091E9')
VAR Sunduk = '0x7ECC0F4C'
VAR bint = '0x0E21'
VAR Kolvo = 1
UO.FindType( bint, -1, 1 )
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
If UO.FindCount() == 0 Then
UO.Print("нет бынтов )=")
return
Endif
uo.waittargettype('0x0E21')
uo.UseSkill('Item Identification')
wait (4000)
  UO.MoveItem('finditem',0,'0x7E0091E9')
wend
end sub 

всё вроде работает в этом скрипте но в конце выдаёт ошибку
Unhandled exception in parser

[$!@m]

Неудивительно, учитывая что логическая структура скрипта пониманию не поддается
Если не совсем понимаешь в программировании, то возьми за правило любой скрипт сначала совать в выравнивалку, вроде

http://ultimasoft.ru/tools/codesweeper.php

.
И сразу станет понятно, может ли оно вообще работать.

[Mirage]

Code: Select all

sub Item()
UO.UseObject('0x7E0091E9')
VAR Sunduk = '0x7ECC0F4C'
VAR bint = '0x0E21'
VAR Kolvo = 1
UO.FindType( bint, -1, 1 )
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
If UO.FindCount() == 0 Then
UO.Print("нет бынтов )=")
return
Endif
uo.waittargettype('0x0E21')
uo.UseSkill('Item Identification')
wait (4000)
  UO.MoveItem('finditem',0,'0x7E0091E9')
wend
end sub 

всё вроде работает в этом скрипте но в конце выдаёт ошибку
Unhandled exception in parser

сломал глаза ища while