Stealth Client Forum

Code: Select all

program Say; 
 const 
  Hello = 'Привет,'; 
 var 
   World : String; 
 Begin 
     World := ‘Ультима!’; 
     UOSay(Hello + ‘ ‘ + World); 
 End.

Code: Select all

/ ========================== Arms Lore
sub arms()  
while not uo.dead()  
uo.useskill('Arms Lore')  
uo.waittargetlast()  
wait(2000)  
wend  
end sub


/ ========================== Hiding
sub hide()  
while not uo.dead()  
uo.useskill('Hiding')  
wait(3000)  
wend  
end sub


/ ========================== Animal Lore
sub an()  
while not uo.dead()  
uo.waittargetself()  
uo.useskill('Animal Lore')  
wait(1500)  
wend  
end sub


/ ========================== Item Identification
sub id()  
while not uo.dead()  
uo.useskill('Item Identification')  
uo.waittargetlast()  
wait(1500)  
wend  
end sub


/ ========================== Detect Hidden
sub detect()  
while not uo.dead()  
uo.useskill('Detect Hidden')  
wait(1200)  
wend  
end sub


/ ========================== Evaluating Intelligence
sub eval()  
while not uo.dead()  
uo.useskill('Evaluating Intelligence')  
uo.waittargetself()  
wait(1500)  
wend  
end sub


/ ========================== Musicanship
sub music()  
while not uo.dead()  
uo.usetype('0x0EB3')  
wait(1500)  
wend  
end sub

Code: Select all

set $anm An mani
set $ane An Ex Por
set $por Por Ort Grav
set $inpor In Vas Por
set $inpr In Por Ylem
set $u you see
set $inhur In Hur Jux Ylem
set $vas Vas Corp Por
set $iep In Ex Grav 

set #basex 923
set #basey 2346
if ( charposx = #basex ) or ( charposy = #basey )
start_script 0
start_script 2
end_if
:lol
if ( charposx <> #basex ) or ( charposy <> #basey )
    if (lastmsg = $ignor1)
        goto lol
    end_if 
    if ( lastmsg = $iep ) or( lastmsg = $inpr ) or ( lastmsg = $inpor ) or ( lastmsg = $anm ) or ( lastmsg = $por ) or ( lastmsg = $ane ) or ( hits < str ) or ( lastmsg = $u ) or ( lastmsg = $inhur ) or ( lastmsg = $vas )
        pause_script 0
        pause_script 2
        wait 500
        send f10 2000
        if ( charposx = #basex ) or ( charposy = #basey )
        send f10 2000
        END_IF

    end_if
    if lastmsg fizzle
        send f10 2000
    end_if
    if hits < 100
        send f7 3000
    end_if
end_if

Code: Select all

/ ========================== Arms Lore 
sub arms()  
while not uo.dead()  
uo.useskill('Arms Lore')  
uo.waittargetlast()  
wait(2000)  
wend  
end sub

Code: Select all

// ========================== Arms Lore 
procedure arms;
  while not Dead do begin
    UseSkill('Arms Lore');
    WaitTargetLast;
    Wait(2000);
  end;
end;