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

помогите плизззз
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14879		 Page 1 of 1
Author:  durDom [ 2009-06-20 15:40:30 ]
Post subject:  помогите плизззз
нужна помощь в написание скрипта на интимади
принцеп таков чтоб брал из кучки один бинт клал его напол индифицыровал и уберал в другой бек пак
за рание спасибо....
Author:  durDom [ 2009-06-21 20:02:11 ]
Post subject: 
ребятки ну помогите уж очень нужен скрипт
просто по одной веши не канает )=
вот по этому и прошу...
Author:  $!@m [ 2009-06-22 21:26:15 ]
Post subject: 
Напишешь без ошибок оба поста - помогу :lol:
Author:  durDom [ 2009-06-24 05:33:29 ]
Post subject: 
интересует скрипт на Item ID
смысл скрипта таков:
1 чар берёт один бинт из кучки
2 индефицирует его
3 убирает в другую кучу

(вроде нет ошибок)
:wink:
Author:  Blood Slayer [ 2009-06-24 10:55:39 ]
Post subject: 
durDom wrote:
интересует скрипт на Item ID
смысл скрипта таков:
1 чар берёт один бинт из кучки
2 индефицирует его
3 убирает в другую кучу

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


Береш кидаеш напол бинт ищих его на полу записываеш айди кладеш в мешок
Author:  $!@m [ 2009-06-24 13:39:04 ]
Post subject: 
Code:
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 :)
Author:  durDom [ 2009-06-24 15:43:25 ]
Post subject: 
Code:
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
Author:  $!@m [ 2009-06-25 11:52:17 ]
Post subject: 
Неудивительно, учитывая что логическая структура скрипта пониманию не поддается :)
Если не совсем понимаешь в программировании, то возьми за правило любой скрипт сначала совать в выравнивалку, вроде
Quote:
http://ultimasoft.ru/tools/codesweeper.php
.
И сразу станет понятно, может ли оно вообще работать.
Author:  Mirage [ 2009-06-25 13:36:21 ]
Post subject: 
durDom wrote:
Code:
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 :shock:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/