| Off Topic > Off Topic |
| Blitz 3D Demo Scripts |
| << < (8/8) |
| Healbadbad:
--- Quote from: A.R.C. on October 10, 2009, 09:40:17 PM ---I'd still rather have the Rock machine. --- End quote --- wait... is that photoshopped then, or is that someone else being hit? |
| Dapizzanator:
Any more useless-but-fun, or even useful to a point scripts, Tingalz? |
| Dapizzanator:
Bump(top) |
| WhatevaGuy:
This is a test I'm making. DON'T STEAL MAH CODE, FOOS. --- Code: ---;begin setup AppTitle "Test!" ;names the program Graphics 600,600 ;sets the dialog box size wrong% = 0 ;sets the variable 'wrong' to 0 ;end setup ;begin instructions Print "This test is multiple choice. There are ten questions." ;test description Delay(1000) ;delays for one second Print "To answer one question, simply say 1, 2, 3, or 4." ;gives instructions Delay(1000) ;delays for one second Print "The test will begin in..." ;begins countdown Delay(1000) ;delays for one second Write "5... " ;5 Delay(1000) ;delays for one second Write "4... " ;4 Delay(1000) ;delays for one second Write "3... " ;3 Delay(1000) ;delays for one second Write "2... " ;2 Delay(1000) ;delays for one second Print "1!" ;1 - ends countdown Delay(1000) ;delays for one second ;end instructions ;begin test ;------------------------------- ;begin question 1 .ques1 ;sets up goto label for later reference Print "Who was the second (2nd) President of the United States?" ;asks question 1 Print "Was it... 1) Benjamin Franklin; 2) Abraham Lincoln;" ;states possible answers Print "3) John Adams; or 4) George Washington?" ;states possible answers ques1 = Input$("") ;asks for user input Select ques1 ;selects te variable 'ques1' Case 1 ;if user answered 1... Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly wrong% = wrong% + 1 ;adds one to the variable 'wrong' Goto ques2 ;jumps to question 2 Case 2 ;if user answered 2... Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly wrong% = wrong% + 1 ;adds one to the variable 'wrong' Goto ques2 ;jumps to question 2 Case 3 ;if user ansered 3... Print "Correct!" ;states user is correct Goto ques2 ;jumps to question 2 Case 4 ;if user answered 4... Print "I'm sorry, this is incorrect." ;tells client they answered incorrectly wrong% = wrong% + 1 ;adds one to the variable 'wrong' Goto ques2 ;jumps to question 2 Default ;if the user answered neither 1, 2, 3, or 4... Print "Please, 1 2 3 or 4 only." ;tells user to only have 1 2 3 or 4 answers Goto ques1 ;goes back to question one End Select ;ends the select ;end question 1 Delay(1000) ;begin question 2 .ques2 Print "What is the square root of 169?" Print "Is it... 1) 17; 2) 12; 3) 14; or 4) 13?" ques2 = Input$("") Select ques2 Case 1 Print "I'm sorry, this is incorrect." wrong% = wrong% + 1 Goto ques3 Case 2 Print "I'm sorry, this is incorrect." wrong% = wrong% + 1 Goto ques3 Case 3 Print "I'm sorry, this is incorrect." wrong% = wrong% + 1 Goto ques3 Case 4 Print "Correct!" Goto ques3 Default Print "Please, 1 2 3 or 4 only. This is your last warning." Goto ques2 End Select ;end question 2 Delay(1000) ;begin question 3 .ques3 Print "What is the capital of Germany?" Print "Is it... 1) Augusta; 2) Berlin; 3) Nokia; Print "Or 4) Belgium? --- End code --- |
| Dapizzanator:
Had some free time on our hands, huh? Looks cool, I'll try it (assuming I have permission from you) when I get on my 'pooter. |
| Navigation |
| Message Index |
| Previous page |