помогите доработать

[rusa]

достали уже эти перекупы..............................
собрал из 2 1 и немного измен под себя

1) проверку на хайд, а если выходит из хайда то не ждать окончания времени и начать заново (сам пытался вставить не получилось)
2) 3 предмета переложить в рядом стоящий сундук

sub blank()
while true
UO.Exec('buy reg Halima')
wait(3000)
UO.Exec('buy reg Neron')
wait(3000)

UO.Say('Kal Ort Por')
uo.useskill('Hiding')
wait(54000)
wend
end sub

[ZeroDX]

Накатал в окне ответа, работоспособность не гарантируется

Code: Select all

sub Blank()
  var Time = UO.Timer()
  While true
    If Time + 540 <= UO.Timer() then
      Time = UO.Timer()
      UO.Buy('reg', 'Halima')
      Wait(3000)
      UO.Buy('reg', 'Neron')
      Wait(3000)
     else
      Wait(100)
    Endif
    Stealth()
  Wend
Endsub

Sub Stealth()
  var msg = 'have hidden|seem to hide', Time, Delay = 10
  While not UO.Hidden()
    DelJournal(msg)
    Time = UO.Timer()
    UO.UseSkill('Hiding')
    Repeat
      Wait(100)
    Until UO.InJournal(msg) or UO.Hidden() or Time + Delay * 10 <= UO.Timer()
  Wend
Endsub

Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, '')
  Wend
Endsub

[Mirage]

Code: Select all

var item1 = 'тип первого предмета'
var item2 = 'тип второго предмета'
var item3 = 'тип третьего предмета'
var Sund = 'ID контейнера куда складывать'
var itemM, timemove
sub Blank()
   //////////
   //////////
   Stealth()
   PUT(item1 , Sund)
   PUT(item2 , Sund)
   PUT(item3 , Sund)
  Wend
Endsub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      itemM=UO.GetSerial('finditem')
      timemove=UO.Timer()
      UO.MoveItem( 'finditem', 0, cont )
      while UO.ContainerOf(itemM)=='my' && timemove+20>UO.Timer()
         wait(300)
      wend
   wend
end sub

[ZeroDX]

Это чё?

[Mirage]

Это 2)

2) 3 предмета переложить в рядом стоящий сундук

[ZeroDX]

а ну да

[rusa]

спасиб....
только есть один минус
кто та увидел этот скрипт и залутал мя, точнее 3 чаров

[Mirage]

А ты хотел в 40 строках прописать искусственный интелект? Чтобы он палил по IP комп противника и форматировал ему хард попутно гипнотизируя на подчинение тебе?

Такими занятиями надо заниматься в пределах ГЗ, в противном случае надо либо руками либо прописывать нормальный боевой бот и то это как правило нереально.

[rusa]

А ты хотел в 40 строках прописать искусственный интелект? Чтобы он палил по IP комп противника и форматировал ему хард попутно гипнотизируя на подчинение тебе?

Такими занятиями надо заниматься в пределах ГЗ, в противном случае надо либо руками либо прописывать нормальный боевой бот и то это как правило нереально.

я и занимался этим в ГЗ залутали в рядом стоящих сундуках

[ZeroDX]

Ого! Вот мерзавцы!

[rusa]

а между чем и чем можно вставить вот эту строчку в первый скрипт

Code: Select all

if uo.life < uo.str - 30 then 
Uo.Say("GUARDS"); 
endif 

если я правильно понимаю она отвечает за то что если хп падает то кричит гвардов
и ещё - если меня кто та ударил не уходит в хайд тобишь включается вар

[Mirage]

Code: Select all

  While not UO.Hidden()
    if uo.life < uo.str then 
        Uo.Say("GUARDS"); 
    endif
    DelJournal(msg)
    Time = UO.Timer()
    UO.UseSkill('Hiding')
 

можно сюда. А зачем - 30? Если опустилось меньше силы значит пусть орет. Только при ударе у тебя скрипт умрет от такого if-а. Лечилки то нет - надо регенерацию продумывать а то кинут в джайл за спам

[rusa]

а если сделать так - хп падает кричал или кричать на атаку?
что лучше?

[Mirage]

Лучше будет сделать:

хп падает кричал или кричать на атаку

[ZeroDX]

Кричал лучше. Хотя кричать на атаку тоже ни чё, и в некоторых случаях даже лучше будет