| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2008.05.01/ |
Upload File : |
[setup.main.Window]
'-----Begin code for #main
nomainwin
WindowWidth = 640
WindowHeight = 480
UpperLeftX=int((DisplayWidth-WindowWidth)/2)
UpperLeftY=int((DisplayHeight-WindowHeight)/2)
'-----Begin GUI objects code
graphicbox #main.HangmanGB, 5, 17, 300, 380
ComboboxColor$ = "white"
combobox #main.combobox1, array$(, [combobox1DoubleClick], 520, 47, 45, 100
statictext #main.statictext3, "Select a difficulty level", 350, 52, 128, 20
statictext #main.statictext5, "The word displays here", 70, 412, 160, 20
button #main.StartGame_btn,"Start game",[StartGame_btn_click], UL, 375, 97, 87, 25
button #main.button8,"Exit",[button8Click], UL, 495, 97, 36, 25
statictext #main.statictext9, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", 330, 417, 277, 20
button #main.A_btn,"A",LetterClick, UL, 350, 207, 20, 25
button #main.B_btn,"B",LetterClick, UL, 370, 207, 20, 25
statictext #main.statictext11, "Guesses left:", 360, 282, 103, 20
statictext #main.statictext12, "7", 460, 282, 9, 20
'-----End GUI objects code
open "Hangman" for window as #main
' Clear HangmanGB
print #main.HangmanGB, "down; fill white; flush ;up"
' Draw head
print #main.HangmanGB, "color lightgray; size 1; home; up; north; go 100; turn 270; go 50; up; flush"
print #main.HangmanGB, "posxy xVar yVar"
notice "X:"+str$(xVar)+" Y:"+str$(yVar)
print #main.HangmanGB, "color black; size 3; down; circle 25; up; flush"
' Draw torso
print #main.HangmanGB, "color lightgray; size 1; turn 270; up; go 25; up; flush"
print #main.HangmanGB, "color black; size 3; down; go 80; up; flush"
' Draw left arm
print #main.HangmanGB, "color lightgray; size 1; turn 180; up; go 60; up; flush"
print #main.HangmanGB, "color black; size 3; down; turn 300; go 60; up; flush"
' Draw right arm
print #main.HangmanGB, "color lightgray; size 1; turn 180; up; go 60; up; flush"
print #main.HangmanGB, "color black; size 3; down; north; turn 60; go 60; up; flush"
' Draw left leg
print #main.HangmanGB, "color lightgray; size 1; turn 180; up; go 60; up; flush"
print #main.HangmanGB, "color lightgray; size 1; north; turn 180; up; go 60; up; flush"
print #main.HangmanGB, "color black; size 3; down; north; turn 195; go 80; up; flush"
' Draw left leg
print #main.HangmanGB, "color lightgray; size 1; turn 180; up; go 80; up; flush"
print #main.HangmanGB, "color black; size 3; down; north; turn 165; go 80; up; flush"
' Build gallows
print #main.HangmanGB, "goto "+str$(xVar)+" "+str$(yVar-25)+"; color red; size 3; down; north; go 30; up; flush"
print #main.HangmanGB, "goto "+str$(xVar)+" "+str$(yVar-55)+";color red; size 3; turn 90; down; go 80; up; flush"
print #main.HangmanGB, "goto "+str$(xVar+80)+" "+str$(yVar-55)+"; color red; size 3; down; north; turn 180; go 270; up; flush"
print #main.HangmanGB, "goto "+str$(xVar+80)+" "+str$(yVar+216)+"; color red; size 3; turn 90; down; go 75; up; flush"
print #main.HangmanGB, "goto "+str$(xVar+80)+" "+str$(yVar+216)+"; color red; size 3; turn 180; down; go 75; up; flush"
print #main, "font arial 12"
print #main.statictext12, "!font arial 14 bold"
print #main, "trapclose [quit.main]"
[main.inputLoop] 'wait here for input event
wait
[combobox1DoubleClick] 'Perform action for the combobox named 'combobox1'
'Insert your own code here
wait
[StartGame_btn_click] 'Perform action for the button named 'btn_StartGame'
'Insert your own code here
wait
[button8Click] 'Perform action for the button named 'button8'
goto [quit.main]
'Insert your own code here
wait
sub LetterClick buttonhandle$
'#main.A_btn
buttonLetter$ = mid$(buttonhandle$,7,1)
notice "The button handle is ";buttonLetter$;" Goodbye."
end sub
[XXX_Letter_btn_click] 'Perform action for the button named 'button10'
'notice "
'Insert your own code here
wait
[quit.main] 'End the program
close #main
end