healing dvou( a vic)

Vaše problémy, rady a skripty týkající se tohoto prográmku
Schonny
Elder Letter
Elder Letter
Příspěvky: 213
Registrován: 02.10.2006 00:24:26
Kontaktovat uživatele:

Příspěvek od Schonny »

Patejl píše:

Kód: Vybrat vše

sub healx()
var HP,MHP,DMG,MIN,OBJ,TIME

var n=2 ; napiste cislo kolik lidi chcete lecit
for var X=1 to n
    UO.AddObject("OBJ"+str(X))
    While UO.Targeting()
        Wait(300)
    Wend
next

Repeat
    DMG=0
    for X=1 to n
        If UO.GetDistance("OBJ"+str(X))<=6 Then
            MHP=UO.GetMaxHP("OBJ"+str(X))
            HP=UO.GetHP("OBJ"+str(X))
            If HP<MHP and (HP<MIN>UO.Count("0x0e21") or (UO.Timer()-Time)>40
        If (UO.Timer()-Time) < 5 Then
            UO.WarMode(0)
            Wait(500)
            UO.WarMode(1)
            Wait(500)
        Endif        
    Endif
    Wait(500)
Until UO.Dead() or UO.Count("0x0e21")<2

If NOT UO.Dead() THEN
    for X=1 to 3
        UO.Msg("Od sebe, dosly bandy!!")
        Wait(3250)
    next
Endif

end sub
nedelal sem to ja, ale je docela funkcni, jestli je v necem spatnej, tak se predem omlouvam
Kdyz tenhle skript budete mit v samostatnym souboru, nebo na konci radku, tak teoreticky nemusi shazovat Yoko, ale je v nem celkem dost bot.

1. Za ifem chybi then

Kód: Vybrat vše

            If HP<MHP and (HP<MIN>UO.Count("0x0e21") or (UO.Timer()-Time)>40
2. Tenhle FOR nema next

Kód: Vybrat vše

    for X=1 to n 
Logiku skriptu jsem nezkoumal, ale kdyz se na to jen tak kouknu, tak nikde nevidim inicializaci promenne TIME.
Ultima nebyla jen hra, byl to styl zivota...
_________________
Kal Vas Flame War
Odpovědět