gosub ControlMenu
;----------------------------------------------
;------------ Control Panel -------------------
repeat
if #MENUBUTTON <> #false
gosub #menubutton
until #FALSE
sub ev
Event sysmessage Ev Sub
ev1:
onhotkey %evkey %2ndkey
goto ev1
if !ev = n
{
set !naturefury n
set !ev y
}
else
set !ev n
set #menubutton N/A
return
sub wither
Event sysmessage Wither Sub
wither1:
onhotkey %witherkey %2ndkey
goto wither1
if !wither = n
set !wither y
else
set !wither n
set #menubutton N/A
return
sub fury
Event sysmessage Fury Sub
naturesfury1:
onhotkey %naturefurykey %2ndkey
goto naturesfury1
if !naturefury = n
{
set !naturefury y
set !ev n
}
else
set !naturefury n
set #menubutton N/A
return
;-------------------------------------------------------------
;sub ContolMenu
;-------------------------------------------------------------
sub ControlMenu
set #lpc 500
menu Clear
menu Window title Hitech's Master Control
menu Window Color Black
menu Window Size 175 360 ;--175 360 ;360 360
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 9
menu Font Style
menu Font Color White
Menu font BGColor Blue
menu Button Expand 120 10 50 23 Expand
menu Button reset 15 10 50 23 Reset
menu Button pause 25 310 50 23 Pause
menu Button stop 95 310 50 23 Stop
;------------------------------------------
menu Button ev 15 45 40 23 EV
menu Button fury 60 45 50 23 FURY
menu Button wither 15 80 50 23 WITHER
menu Button wildfire 65 80 50 23 WILDFIRE
menu Button fireball 15 110 50 23 FIREBALL
menu Button lightning 65 110 50 23 LIGHTNING
menu Button wordofdeath 15 140 100 23 WORD OF DEATH
menu Button corpseskin 10 210 100 23 CORPSE SKIN
menu Button wisp 120 210 50 23 WISP
menu Button followmain 10 240 85 23 FOLLOW MAIN
menu Button loot 110 240 50 23 loot
menu Button flamestrike 15 170 85 23 FLAMESTRIKE
menu Button lichform 180 10 55 23 lichform
menu Button wraithform 240 10 55 23 wraithform
menu Button humanform 240 40 55 23 humanform
menu Button recallluna 180 40 55 23 recallluna
menu Button mount 180 70 55 23 mount
menu Button Voyage 180 100 55 23 Voyage
menu Button invis 180 130 55 23 invis
menu Button heal 240 70 55 23 heal
menu Button healpet 10 270 70 23 heal Pet
menu Button crossHeal 90 270 70 23 crossHeal
menu Button boss 120 170 30 23 boss
menu Button rez 120 80 30 23 rez
menu Button panic 120 40 30 23 panic
menu Button belfry 120 105 30 23 belfry
menu Button renew 120 130 30 23 renew
if !heal = y
{
menu delete heal
menu font BGcolor red
menu font color white
menu Button heal 240 70 55 23 heal
}
if !followmain = y
{
menu delete followmain
menu font BGcolor red
menu font color white
menu Button followmain 10 240 85 23 FOLLOW MAIN
}
if !crossHeal = y
{
menu delete crossHeal
menu font BGcolor red
menu font color white
menu Button crossHeal 90 270 70 23 crossHeal
}
Menu font BGColor 6113163
menu Font Color 74112139
menu Shape Shape1 287 5 1 270 3 7 1 82139139 7 82139139
menu Shape Shape2 174 5 114 1 3 7 1 82139139 7 82139139
menu Shape Shape3 174 33 114 1 3 7 1 82139139 7 82139139
menu Shape Shape4 174 147 114 1 3 7 1 82139139 7 82139139
menu Shape Shape5 174 274 114 1 3 7 1 82139139 7 82139139
menu Shape Shape6 174 5 1 350 3 7 1 82139139 7 82139139
menu Shape Shape7 5 40 164 3 3 7 1 Black 7 White
menu Shape Shape8 179 312 176 3 3 7 1 Black 7 White
menu Shape Shape9 20 63 93 1 3 7 1 white 7 White
menu Shape Shape10 20 63 1 50 3 7 1 white 7 white
menu Shape Shape11 112 63 1 50 3 7 1 white 7 white
menu Shape Shape12 20 112 93 1 3 7 1 white 7 white
;menu Shape Shape13 174 5 3 322 3 7 1 Black 7 82139139
;menu Shape Shape14 179 200 67 3 3 7 1 Black 7 White
;menu Shape Shape15 179 300 67 3 3 7 1 Black 7 White
menu Font Size 10
menu Font Color 6113163
menu Text Hitech 132 340 Script by Hitech
menu Font Size 9
menu Font Color red
menu Text var1 100 15 #SCNT ;--- time since reset
for %m 0 13
{
set %x 115 + ( %m * 2 )
set %y 45 + ( %m * 6 )
set %length 54 - ( %m * 4 )
menu Shape EUOShape2 %x %y %length 3 3 7 1 Black 7 82139139
}
for %m 0 14
{
set %x 141 - ( %m * 2 )
set %y 110 + ( %m * 6 )
set %length 2 + ( %m * 4 )
menu Shape EUOShape3 %x %y %length 3 3 7 1 Black 7 82139139
}
menu Shape EUOShape4 10 47 3 151 3 7 1 Black 7 82139139
menu Shape EUOShape5 5 200 164 3 3 7 1 Black 7 White
menu Shape EUOShape6 5 295 164 3 3 7 1 Black 7 White
for %m 0 4
{
set %1 200 + ( %m * 5 )
set %2 40 - ( %m * 10 )
menu shape Design 303 %1 40 %2 5 7 2 82139139 7 1
}
for %m 0 3
{
set %1 12 + ( %m * 5 )
set %2 40 - ( %m * 10 )
menu shape Design 297 %1 40 %2 1 7 2 82139139 7 1
}
for %m 0 2
{
set %1 40 + ( %m * 5 )
set %2 20 - ( %m * 10 )
menu shape Design 310 %1 40 %2 1 7 2 82139139 7 1
}
for %m 0 3
{
set %1 5 + ( %m * 5 )
set %2 30 - ( %m * 10 )
menu shape Design 320 %1 40 %2 1 7 2 82139139 7 1
}
for %m 0 3
{
set %1 225 + ( %m * 5 )
set %2 40 - ( %m * 10 )
menu shape Design 317 %1 40 %2 1 7 2 82139139 7 1
}
for %m 0 2
{
set %1 255 + ( %m * 5 )
set %2 20 - ( %m * 10 )
menu shape Design 294 %1 40 %2 1 7 2 82139139 7 1
}
set #lpc %lpc
if %menushow1 = #true
return
menu window transparent 0
menu show
for %i 1 65
{
menu window transparent %i
}
set %menushow1 #true
return
;------------------------------------