Heal-Script
Aus UO-Sigena Wiki
set #lpc 511
gosub MenuInit1
goto waitforgo
sub MenuInit1
menu Clear
menu Window Title Script Konfiguration
menu Window Color BtnFace
menu Window Size 266 115
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 4 8 Bei wieviel Hp soll geheilt werden?
menu Font BGColor Window
menu Combo Create injection 4 60 77
menu Combo Add injection mit Injection
set %inj_1 inject
menu Combo Add injection ohne Injection
set %inj_2 standard
menu Combo Create delay 4 32 77
menu Combo Add delay 10 seks
set %del_1 10
menu Combo Add delay 12 seks
set %del_2 12
menu Edit damage 176 4 89
menu Font BGColor BtnFace
menu Check rearm 116 48 121 13 #false Rearm Timer
menu Button go 4 85 85 25 Los geht's
menu Button cancel 160 85 100 25 Kannst knicken
menu Show 276 270
return
waitforgo:
if #menubutton = go
{
goto start
}
if #menubutton = cancel
{
menu Clear
halt
}
if #menubutton = N/A
{
goto waitforgo
}
goto waitforgo
start:
menu GetNum damage 0
set %damage #menures
wait 1
menu Get rearm
set %rearm #menures
wait 1
menu Get injection
str left #menures 4
set %injection #strres
wait 1
menu Get delay
str left #menures
set %delay #strres
wait 1
if %injection = 1
{
event macro 1 0 ,setarm train
set %arm ,arm , #spc , train
set %disarm ,disarm
}
else
{
event macro 1 0 .setarm 1
set %arm .arm , #spc , 1
set %disarm .disarm
}
if %rearm = -1
{
set %delay1 80
}
else
{
set %delay1 0
}
if %delay = 2
{
set %delay 13 * 20
}
else
{
set %delay 12 * 20
}
goto Monitorinit
Monitorinit:
menu Clear
menu Window Title Trainings Monitor
menu Window Color BtnFace
menu Window Size 220 432
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 6
menu Font Style b
menu Font Color WindowText
menu Font Transparent #false
menu Font Align Left
menu Text EUOLabel1 6 4 Anatomy
menu Shape EUOShape1 8 30 1 20 3 7 1 Black 7 White
menu Shape EUOShape2 8 50 200 1 3 7 1 Black 7 White
menu Shape EUOShape3 206 30 1 20 3 7 1 Black 7 White
menu Shape EUOShape4 108 30 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel2 102 21 50
menu Text EUOLabel3 5 21 0
menu Text EUOLabel4 197 21 100
menu Font Size 6
menu Font Style b
menu Text EUOLabel5 6 55 Arms Lore
menu Shape EUOShape5 8 81 1 20 3 7 1 Black 7 White
menu Shape EUOShape6 8 101 200 1 3 7 1 Black 7 White
menu Shape EUOShape7 206 81 1 20 3 7 1 Black 7 White
menu Shape EUOShape8 108 81 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel6 102 72 50
menu Text EUOLabel7 5 72 0
menu Text EUOLabel8 197 72 100
menu Shape Anashape 8 40 52 10 3 7 1 Black 7 White
menu Shape Armsshape 8 91 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel9 6 106 Healing
menu Shape EUOShape11 8 132 1 20 3 7 1 Black 7 White
menu Shape EUOShape12 8 152 200 1 3 7 1 Black 7 White
menu Shape EUOShape13 206 132 1 20 3 7 1 Black 7 White
menu Shape EUOShape14 108 132 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel10 102 123 50
menu Text EUOLabel11 5 123 0
menu Text EUOLabel12 197 123 100
menu Shape Healshape 8 142 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel13 6 157 Macefighting
menu Shape EUOShape16 8 183 1 20 3 7 1 Black 7 White
menu Shape EUOShape17 8 203 200 1 3 7 1 Black 7 White
menu Shape EUOShape18 206 183 1 20 3 7 1 Black 7 White
menu Shape EUOShape19 108 183 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel14 102 174 50
menu Text EUOLabel15 5 174 0
menu Text EUOLabel16 197 174 100
menu Shape Maceshape 8 193 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel17 6 208 Parrying
menu Shape EUOShape21 8 234 1 20 3 7 1 Black 7 White
menu Shape EUOShape22 8 254 200 1 3 7 1 Black 7 White
menu Shape EUOShape23 206 234 1 20 3 7 1 Black 7 White
menu Shape EUOShape24 108 234 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel18 102 225 50
menu Text EUOLabel19 5 225 0
menu Text EUOLabel20 197 225 100
menu Shape Parryshape 8 244 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel21 6 259 Swordmanship
menu Shape EUOShape26 8 285 1 20 3 7 1 Black 7 White
menu Shape EUOShape27 8 305 200 1 3 7 1 Black 7 White
menu Shape EUOShape28 206 285 1 20 3 7 1 Black 7 White
menu Shape EUOShape29 108 285 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel22 102 276 50
menu Text EUOLabel23 5 276 0
menu Text EUOLabel24 197 276 100
menu Shape Swordshape 8 295 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel25 6 310 Tactics
menu Shape EUOShape31 8 336 1 20 3 7 1 Black 7 White
menu Shape EUOShape32 8 356 200 1 3 7 1 Black 7 White
menu Shape EUOShape33 206 336 1 20 3 7 1 Black 7 White
menu Shape EUOShape34 108 336 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel26 102 327 50
menu Text EUOLabel27 5 327 0
menu Text EUOLabel28 197 327 100
menu Shape Tacsshape 8 346 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Text EUOLabel29 6 361 Wrestling
menu Shape EUOShape36 8 387 1 20 3 7 1 Black 7 White
menu Shape EUOShape37 8 407 200 1 3 7 1 Black 7 White
menu Shape EUOShape38 206 387 1 20 3 7 1 Black 7 White
menu Shape EUOShape39 108 387 1 10 3 7 1 Black 7 White
menu Font Size 8
menu Font Style
menu Text EUOLabel30 102 378 50
menu Text EUOLabel31 5 378 0
menu Text EUOLabel32 197 378 100
menu Shape Wrestshape 8 397 52 10 3 7 1 Black 7 White
menu Font Size 6
menu Font Style b
menu Font Color Navy
menu Text StrLabel 8 414 Strength:
menu Font Color WindowText
menu Text StrDisp 65 414 100
menu Font Color Green
menu Text DexLabel 125 414 Dexterity:
menu Font Color WindowText
menu Text DexDisp 185 414 100
menu Font Size 8
menu Font Style
menu Text DispAna 137 4 100.0
menu Text DispArms 137 55 100.0
menu Text DispHeal 137 106 100.0
menu Text DispMace 137 157 100.0
menu Text DispParry 137 208 100.0
menu Text DispSword 137 259 100.0
menu Text DispTacs 137 310 100.0
menu Text DispWrest 137 361 100.0
menu Show 421 270
goto Monitorinit2
Monitorinit2:
chooseSkill anat
set %anatomy #skill
chooseSkill arms
set %armslore #skill
chooseSkill heal
set %healing #skill
chooseSkill mace
set %mace #skill
chooseSkill parr
set %parrying #skill
chooseSkill swor
set %sword #skill
chooseSkill tact
set %tactics #skill
chooseSkill wres
set %wrestling #skill
set %anatomy2 %anatomy
set %armslore2 %armslore
set %healing2 %healing
set %mace2 %mace
set %parrying2 %parrying
set %sword2 %sword
set %tactics2 %tactics
set %wrestling2 %wrestling
set %str #str
set %dex #dex
set %str2 %str
set %dex2 %dex
set %drawana %anatomy * 2 / 10
set %drawarms %armslore * 2 / 10
set %drawheal %healing * 2 / 10
set %drawmace %mace * 2 / 10
set %drawparry %parrying * 2 / 10
set %drawsword %sword * 2 / 10
set %drawtacs %tactics * 2 / 10
set %drawwrest %wrestling * 2 / 10
menu Delete Anashape
menu Shape Anashape 8 40 %drawana 10 3 7 1 Black 7 Red
menu Delete DispAna
set %skillana1 %anatomy / 10
set %skillana2 %anatomy % 10
set %outputana %skillana1 , . . %skillana2
menu Text DispAna 137 4 %outputana
menu Delete Armsshape
menu Shape Armsshape 8 91 %drawarms 10 3 7 1 Black 7 Red
menu Delete DispArms
set %skillarms1 %armslore / 10
set %skillarms2 %armslore % 10
set %outputarms %skillarms1 , . . %skillarms2
menu Text DispArms 137 55 %outputarms
menu Delete Healshape
menu Shape Healshape 8 142 %drawheal 10 3 7 1 Black 7 Red
menu Delete DispHeal
set %skillheal1 %healing / 10
set %skillheal2 %healing % 10
set %outputheal %skillheal1 , . . %skillheal2
menu Text DispHeal 137 106 %outputheal
menu Delete Maceshape
menu Shape Maceshape 8 193 %drawmace 10 3 7 1 Black 7 Red
menu Delete DispMace
set %skillmace1 %mace / 10
set %skillmace2 %mace % 10
set %outputmace %skillmace1 , . . %skillmace2
menu Text DispMace 137 157 %outputmace
menu Delete Parryshape
menu Shape Parryshape 8 244 %drawparry 10 3 7 1 Black 7 Red
menu Delete DispParry
set %skillparry1 %parrying / 10
set %skillparry2 %parrying % 10
set %outputparry %skillparry1 , . . %skillparry2
menu Text DispParry 137 208 %outputparry
menu Delete Swordshape
menu Shape Swordshape 8 295 %drawsword 10 3 7 1 Black 7 Red
menu Delete DispSword
set %skillsword1 %sword / 10
set %skillsword2 %sword % 10
set %outputsword %skillsword1 , . . %skillsword2
menu Text DispSword 137 259 %outputsword
menu Delete Tacsshape
menu Shape Tacsshape 8 346 %drawtacs 10 3 7 1 Black 7 Red
menu Delete DispTacs
set %skilltacs1 %tactics / 10
set %skilltacs2 %tactics % 10
set %outputtacs %skilltacs1 , . . %skilltacs2
menu Text DispTacs 137 310 %outputtacs
menu Delete Wrestshape
menu Shape Wrestshape 8 397 %drawwrest 10 3 7 1 Black 7 Red
menu Delete DispWrest
set %skillwrest1 %wrestling / 10
set %skillwrest2 %wrestling % 10
set %outputwrest %skillwrest1 , . . %skillwrest2
menu Text DispWrest 137 361 %outputwrest
menu Delete StrDisp
menu Text StrDisp 65 414 %str
menu Delete DexDisp
menu Text DexDisp 185 414 %dex
goto heal
heal:
findItem ZLF C ;
set %bandagen #findid
if #hits <= %damage
{
set #lobjectid %bandagen
event macro 1 0 %disarm
wait 10
event Macro 17 0
target
event Macro 23 0
wait %delay1
event macro 1 0 %arm
wait %delay - delay1
}
goto update
update:
chooseSkill anat
set %anatomy #skill
chooseSkill arms
set %armslore #skill
chooseSkill heal
set %healing #skill
chooseSkill mace
set %mace #skill
chooseSkill parr
set %parrying #skill
chooseSkill swor
set %sword #skill
chooseSkill tact
set %tactics #skill
chooseSkill wres
set %wrestling #skill
set %str #str
set %dex #dex
if %anatomy2 <> %anatomy
{
set %drawana %anatomy * 2 / 10
menu Delete Anashape
menu Shape Anashape 8 40 %drawana 10 3 7 1 Black 7 Red
menu Delete DispAna
set %skillana1 %anatomy / 10
set %skillana2 %anatomy % 10
set %outputana %skillana1 , . . %skillana2
menu Text DispAna 137 4 %outputana
set %anatomy2 %anatomy
}
if %armslore2 <> %armslore
{
set %drawarms %armslore * 2 / 10
menu Delete Armsshape
menu Shape Armsshape 8 91 %drawarms 10 3 7 1 Black 7 Red
menu Delete DispArms
set %skillarms1 %armslore / 10
set %skillarms2 %armslore % 10
set %outputarms %skillarms1 , . . %skillarms2
menu Text DispArms 137 55 %outputarms
set %armslore2 %armslore
}
if %healing2 <> %healing
{
set %drawheal %healing * 2 / 10
menu Delete Healshape
menu Shape Healshape 8 142 %drawheal 10 3 7 1 Black 7 Red
menu Delete DispHeal
set %skillheal1 %healing / 10
set %skillheal2 %healing % 10
set %outputheal %skillheal1 , . . %skillheal2
menu Text DispHeal 137 106 %outputheal
set %healing2 %healing
}
if %mace2 <> %mace
{
set %drawmace %mace * 2 / 10
menu Delete Maceshape
menu Shape Maceshape 8 195 %drawmace 10 3 7 1 Black 7 Red
menu Delete DispMace
set %skillmace1 %mace / 10
set %skillmace2 %mace % 10
set %outputmace %skillmace1 , . . %skillmace2
menu Text DispMace 137 157 %outputmace
set %mace2 %mace
}
if %parrying2 <> %parrying
{
set %drawparry %parrying * 2 / 10
menu Delete Parryshape
menu Shape Parryshape 8 244 %drawparry 10 3 7 1 Black 7 Red
menu Delete DispParry
set %skillparry1 %parrying / 10
set %skillparry2 %parrying % 10
set %outputparry %skillparry1 , . . %skillparry2
menu Text DispParry 137 208 %outputparry
set %parrying2 %parrying
}
if %sword2 <> %sword
{
set %drawsword %sword * 2 / 10
menu Delete Swordshape
menu Shape Swordshape 8 295 %drawsword 10 3 7 1 Black 7 Red
menu Delete DispSword
set %skillsword1 %sword / 10
set %skillsword2 %sword % 10
set %outputsword %skillsword1 , . . %skillsword2
menu Text DispSword 137 259 %outputsword
set %sword2 %sword
}
if %tactics2 <> %tactics
{
set %drawtacs %tactics * 2 / 10
menu Delete Tacsshape
menu Shape Tacsshape 8 346 %drawtacs 10 3 7 1 Black 7 Red
menu Delete DispTacs
set %skilltacs1 %tactics / 10
set %skilltacs2 %tactics % 10
set %outputtacs %skilltacs1 , . . %skilltacs2
menu Text DispTacs 137 310 %outputtacs
set %tactics2 %tactics
}
if %wrestling2 <> %wrestling
{
set %drawwrest %wrestling * 2 / 10
menu Delete Wrestshape
menu Shape Wrestshape 8 397 %drawwrest 10 3 7 1 Black 7 Red
menu Delete DispWrest
set %skillwrest1 %wrestling / 10
set %skillwrest2 %wrestling % 10
set %outputwrest %skillwrest1 , . . %skillwrest2
menu Text DispWrest 137 361 %outputwrest
set %wrestling2 %wrestling
}
if %dex2 <> %dex
{
menu Delete DexDisp
menu Text DexDisp 185 414 %dex
set %dex2 %dex
}
if %str2 <> %str
{
menu Delete StrDisp
menu Text StrDisp 65 414 %str
set %str2 %str
}
goto heal
