auto heal

Unanswered topics | Active topics

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Moderators: Murderator+, Murderator

Post new topic Reply to topic

Page 1 of 1

[ 6 posts ]

Print view

Previous topic | Next topic

Author

Message

kaulins1122

Post subject: auto heal

PostPosted: 2006-04-12 22:38:36

Offline

Joined: 2006-04-11 18:59:44
Posts: 2

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub

vot etat script vso normalnoi TOKO KAK ZDELAT STOB >> stop aut_heal ?!?!?

Top

Profile

Reply with quote

Scripts Writer

Post subject:

PostPosted: 2006-04-12 23:29:03

Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область

Code:

sub healll () 
while NOT UO.Dead() 
wait(1500) 
If UO.Life<UO.Str Then 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
uo.print("Лечимся") 
Endif 
wend 
end sub

Code:

sub stop()
 uo.Say(',terminate healll')
end sub

Top

Profile

Reply with quote

BigMouseI

Post subject:

PostPosted: 2006-04-15 09:09:52

Offline

Joined: 2006-04-15 09:00:35
Posts: 93

Code:

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub

Code:

sub stop()
UO.Exec('terminate heal')
UO.Print('Вырубаем')
end sub

Top

Profile

Reply with quote

Scripts Writer

Post subject:

PostPosted: 2006-04-15 13:48:19

Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область

BigMouseI wrote:

Code:

sub heal ()
while NOT UO.Dead()
wait(1500)
If UO.Life<UO.Str Then
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
uo.print("Лечимся")
Endif
wend
end sub

Code:

sub stop()
UO.Exec('terminate heal')
UO.Print('Вырубаем')
end sub

Потрясающе

Top

Profile

Reply with quote

BigMouseI

Post subject:

PostPosted: 2006-04-15 20:43:58

Offline

Joined: 2006-04-15 09:00:35
Posts: 93

You Must Die wrote:

Потрясающе

Меня тоже радует...

Top

Profile

Reply with quote

flake

Post subject:

PostPosted: 2006-04-16 00:28:18

Offline

Expert!

Joined: 2004-08-11 23:56:17
Posts: 746
Location: The Citadel

Зачем же тратить 2 клавиши, когда хватает одной?

Code:

sub heal () 
  if uo.GetGlobal( 'heal' ) == '1' then
    uo.SetGlobal( 'heal', '0' )  
    return
  else
    uo.SetGlobal( 'heal', '1' )
  endif
while NOT UO.Dead() AND (uo.GetGlobal( 'heal' ) == '1')
wait(1500) 
If UO.Life<UO.Str Then 
UO.SetArm('CWeapon') 
UO.Exec("bandageself") 
wait(500) 
UO.Arm('CWeapon') 
uo.print("Лечимся") 
Endif 
wend 
end sub

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 6 posts ]

Home » Board index » Scripts » Scripting Ore

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum