Code:
include, plotscr.hsd
include, Alliance.hsi
define constant (0, timer:mouse)
global variable (0, mouse cursor)
plotscript, new-game, begin
menu1
end
script, menu1, begin
variable (menu1 slice collection, menu1 slices)
init mouse
mouse region (-1, -1, -1, -1)
mouse cursor := load walkabout sprite (0)
menu1 slice collection:= load slice collection (0)
menu1 slices := lookup slice (sli:Menu1 Slice Holder, menu1 slice collection)
end
script, menu1 buttons, begin
set slice x(mouse cursor, mouse pixel x)
set slice y(mouse cursor, mouse pixel y)
if (slice contains (sli:Menu1 Button Load, mouse cursor))
then (set slice visible (sli:Menu1 Button LL, sli:Menu1 Button LR))
if (slice contains (sli:Menu1 Button New, mouse cursor))
then (main menu)
if (slice contains (sli:Menu1 Button Options, mouse cursor))
then (main menu)
if (slice contains (sli:Menu1 Button Quit, mouse cursor))
then (game over)
set timer (timer:mouse, 0, 1, @menu1 Buttons)
end
include, Alliance.hsi
define constant (0, timer:mouse)
global variable (0, mouse cursor)
plotscript, new-game, begin
menu1
end
script, menu1, begin
variable (menu1 slice collection, menu1 slices)
init mouse
mouse region (-1, -1, -1, -1)
mouse cursor := load walkabout sprite (0)
menu1 slice collection:= load slice collection (0)
menu1 slices := lookup slice (sli:Menu1 Slice Holder, menu1 slice collection)
end
script, menu1 buttons, begin
set slice x(mouse cursor, mouse pixel x)
set slice y(mouse cursor, mouse pixel y)
if (slice contains (sli:Menu1 Button Load, mouse cursor))
then (set slice visible (sli:Menu1 Button LL, sli:Menu1 Button LR))
if (slice contains (sli:Menu1 Button New, mouse cursor))
then (main menu)
if (slice contains (sli:Menu1 Button Options, mouse cursor))
then (main menu)
if (slice contains (sli:Menu1 Button Quit, mouse cursor))
then (game over)
set timer (timer:mouse, 0, 1, @menu1 Buttons)
end



