Bearbeiten von „Heal-Script“

[[category:Scripts]]<pre>

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 

</pre>