| 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.04.03/Hangman/ |
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
loadbmp "background", "assets\background.BMP"
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.StartGamebtn,"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
'Setup letter buttons
dim btnHandle(10)
button #main.A.btn,"A",LetterClick, UL, 350, 207, 20, 25
button #main.B.btn,"B",LetterClick, UL, 370, 207, 20, 25
button #main.C.btn,"C",LetterClick, UL, 390, 207, 20, 25
button #main.D.btn,"D",LetterClick, UL, 410, 207, 20, 25
button #main.E.btn,"E",LetterClick, UL, 430, 207, 20, 25
button #main.F.btn,"F",LetterClick, UL, 450, 207, 20, 25
button #main.G.btn,"G",LetterClick, UL, 470, 207, 20, 25
button #main.H.btn,"H",LetterClick, UL, 490, 207, 20, 25
button #main.I.btn,"I",LetterClick, UL, 510, 207, 20, 25
button #main.J.btn,"J",LetterClick, UL, 530, 207, 20, 25
button #main.K.btn,"K",LetterClick, UL, 550, 207, 20, 25
button #main.L.btn,"L",LetterClick, UL, 570, 207, 20, 25
button #main.M.btn,"M",LetterClick, UL, 590, 207, 20, 25
button #main.N.btn,"N",LetterClick, UL, 350, 232, 20, 25
button #main.O.btn,"O",LetterClick, UL, 370, 232, 20, 25
button #main.P.btn,"P",LetterClick, UL, 390, 232, 20, 25
button #main.Q.btn,"Q",LetterClick, UL, 410, 232, 20, 25
button #main.R.btn,"R",LetterClick, UL, 430, 232, 20, 25
button #main.S.btn,"S",LetterClick, UL, 450, 232, 20, 25
button #main.T.btn,"T",LetterClick, UL, 470, 232, 20, 25
button #main.U.btn,"U",LetterClick, UL, 490, 232, 20, 25
button #main.V.btn,"V",LetterClick, UL, 510, 232, 20, 25
button #main.W.btn,"W",LetterClick, UL, 530, 232, 20, 25
button #main.X.btn,"X",LetterClick, UL, 550, 232, 20, 25
button #main.Y.btn,"Y",LetterClick, UL, 570, 232, 20, 25
button #main.Z.btn,"Z",LetterClick, UL, 590, 232, 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
playwave "assets\music.wav", loop
' Clear HangmanGB
print #main.HangmanGB, "down; fill white; flush ;up"
'insert background image
print #main.HangmanGB, "drawbmp background -40 -70"
print #main.HangmanGB, "color lightgray; size 1; home; up; north; go 100; turn 270; go 50; up; flush"
print #main.HangmanGB, "posxy xVar yVar"
' Build gallow Top
print #main.HangmanGB, "goto "+str$(xVar)+" "+str$(yVar-25)+"; color brown; size 6; down; north; go 40; up; flush"
print #main.HangmanGB, "color darkred; size 14; down; turn 90; go 170; up; flush"
print #main.HangmanGB, "color lightgray; size 1; up; turn 180; go 80; up; flush"
print #main.HangmanGB, "color darkred; size 12; down; turn 225;go 113.137085; up; flush"
print #main.HangmanGB, "color lightgray; size 1; up; turn 225; go 80; up; flush"
print #main.HangmanGB, "color darkred; size 14; down; turn 180; go 280; up; flush"
' Build gallow Base
print #main.HangmanGB, "color darkred; size 14; down; turn 90; go 200; up; flush"
print #main.HangmanGB, "color lightgray; size 1; up; turn 180; go 30; up; flush"
print #main.HangmanGB, "color darkred; size 14; down; turn 90; go 50; up; flush"
print #main.HangmanGB, "color lightgray; size 1; up; turn 180; go 50; up; flush"
print #main.HangmanGB, "color lightgray; size 1; up; turn 90; go 140; up; flush"
print #main.HangmanGB, "color darkred; size 14; down; turn 90; go 50; up; flush"
print #main, "font arial 12"
print #main.statictext12, "!font arial 14 bold"
print #main, "trapclose [quit.main]"
gosub [button.hide]
[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 ";buttonhandle$;" Goodbye."
print #buttonhandle$, "!hide"
end sub
' 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 6; 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 6; 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 6; 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 6; 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 6; 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 6; down; north; turn 165; go 80; up; flush"
[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
unloadbmp ("background")
end
[button.hide]
for i = 1 to 26
buttonhandle$ = "#main."+chr$(i+64)+".btn"
'notice buttonHandle$
print #buttonhandle$, "!hide"
next i
return
print #main.A.btn, "!hide"
print #main.B.btn, "!hide"
print #main.C.btn, "!hide"
print #main.D.btn, "!hide"
print #main.E.btn, "!hide"
print #main.F.btn, "!hide"
print #main.G.btn, "!hide"
print #main.H.btn, "!hide"
print #main.I.btn, "!hide"
print #main.J.btn, "!hide"
print #main.K.btn, "!hide"
print #main.L.btn, "!hide"
print #main.M.btn, "!hide"
print #main.N.btn, "!hide"
print #main.O.btn, "!hide"
print #main.P.btn, "!hide"
print #main.Q.btn, "!hide"
print #main.R.btn, "!hide"
print #main.S.btn, "!hide"
print #main.T.btn, "!hide"
print #main.U.btn, "!hide"
print #main.V.btn, "!hide"
print #main.W.btn, "!hide"
print #main.X.btn, "!hide"
print #main.Y.btn, "!hide"
print #main.Z.btn, "!hide"
return
'print #main.combobox1, "setfocus"
print #main.StartGamebtn, "setfocus"