var charwindow :int := Window.Open ("graphics:350;300,position:center;center,nobuttonbar")
%%%character choice
%%colours
procedure blue1
col1 := 9
end blue1
procedure black1
col1 := 7
end black1
procedure orange1
col1 := 41
end orange1
procedure green1
col1 := 6
end green1
procedure red1
col1 := 12
end red1
var bluebutton : int := GUI.CreateButton (100,100,0,"Blue",blue1)
var orangebutton : int := GUI.CreateButton (100,200,0,"Orange",orange1)
var blackbutton :int := GUI.CreateButton (100,300,0,"Black",black1)
var greenbutton : int := GUI.CreateButton (125,150,0,"Green", green1)
var redbutton : int := GUI.CreateButton (150,275,0, "Red", red1)
%player 1
colourback (green)
cls
locate (1,15)
put "PLAYER 1"
locate (3,1)
put "Please type a name for your character"
get player1
cls
locate (1,15)
put "PLAYER 1"
locate (3,1)
put "Please select a colour for your character"
|