Yoko

totus

If UO.Count('0x1034')==15 then 
recall_to_carp() 
else
goto Gra 
endif

вот так должно

totus

Code: Select all

UO.TextPrint(STR(UO.SkillVal('Tinkering')/10)+'%')

Пробуй

Соответственно, ясно, что и как...

totus

Of course...
Cuz UO.GetHP() doesn't return exact information about Hit Points of the object...

If u wanna heal urself, use UO.Life instead of UO.GetHP()...

U may use UO.GetHP() with UO.GetMaxHP() and in that case it's gonna be fine...

totus

Try this...

Life(0x000040ea)

sub Life(Friend)
While (UO.Life > 0)
if (UO.GetHP(Friend) < 20) then #it doesn't work fine, cuz UO.GetHP() doesn't give EXACT information about HP
While (UO.GetHP(Friend) < UO.GetMaxHP(Friend))
UO.WarMode(0)
UO.WaitTargetObject(Friend)
UO.UseType('bandage ...

totus

Тогда уж типа того:
sub Alarm()
repeat
if UO.InJournal("is attacking you") Then
UO.DeleteJournal()
UO.Cast('Recall','^0x1F14')
endif
Wait(1000)
until false
end sub

А насчёт убегания...
Я в данный момент работаю над модулем хождения. Как только - так сразу, звыняй :(

Искренне Ваш ...

totus

Нужно ли, чтобы он бежал в произвольную сторону или непосредственно ОТ своего атакующего?
Ему в это время ничего не надо делать, а только лишь делать Save() (подозреваю, что реколл по рунабуке)?

Подробно алгоритм давай, напишу

totus

Не вопрос :)

sub Alarm()
var Enemy = 0x00000000
repeat
if UO.InJournal("is attacking you") Then
Enemy = UO.JournalSerial(UO.InJournal("is attacking you")-1)
UO.Cast('Magic Arrow',Enemy)
Wait(500)
UO.DeleteJournal()
Save()
endif
Wait(1000)
until false
end sub

Пробуй :)

totus

Да.
Что и реализовано в моём скрипте на таминг.

Можешь проверить

totus

Use UO.ServerPrint. And NO UO.Say...

totus

Чтобы висел постоянно в памяти сделаешь
UO.Exec('exec Alarm')
А ниже - код этого саба:
sub Alarm()
repeat
if UO.InJournal("is attacking you") Then
UO.DeleteJournal()
Save()
endif
Wait(1000)
until false
end sub

Искренне Ваш, Тотус Маньяковски.

totus

to set the CatchBag or ReceivingContainer (by default - ur backpack)

Sincerely Yours...

totus

if u wanna empty ur backpack, use this:

Code: Select all

While UO.count('0x1BF2')>0 #0x1BF2 = ID LINGOTTI 
    UO.EmptyContainer(1,UO.ObjAtLayer('Bpack)) 
    wait(5000)
WEND

totus

totus

maybe this could help
sub AntiBleed()
var LastBangaged = 0
var CurrentBandage = 0
repeat
if UO.InJournal('bleeding') then
UO.DeleteJournal()
CurrentBandage = UO.Timer()
If (CurrentBandage - LastBandaged) >= 100) then
LastBandage = CurrentBandage
UO.BandageSelf()
else
Wait((CurrentBandage ...

totus

Содержимое *.reg файла.

Code: Select all

REGEDIT4

[HKEY_CURRENT_USER\Software\EasyUO]
"Variables.Show"=dword:00000001
"Variables.Standard"=dword:00000001
"Variables.User"=dword:00000000
"Variables.Defined"=""

Искренне Ваш, Тотус Маньяковски.

totus

http://yoko.netroof.net/help/help.php?l ... =GetEasyUO

totus

Попробуй сделать следующее: открой рунабуку.
Среколься по руне. Потом напиши в клиенте ,infogump, то, что появится в текстовом окошечке отошли мне личным сообщением.
Постараюсь помочь.

totus

[c] totus

This is the reconnector code:
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 ...

totus

UO.Set('norbcheck','1')
UO.Set('norbcalc','1')
UO.Recall('0x400C1673','602')

пробуй.

totus

UO.Attack('lastattack')

Yoko

Search found 48 matches

Конечно!

Просто

Don't forget...

Simple

maybe this could help

Пробуй так:

RTFM

Но всё же...

I've seen the one'n'only reconnector written in injection.

Будь проще.

-||-