API tools faq
paste
Guest User

Untitled

a guest
Jan 23rd, 2018
58
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.83 KB | None | 0 0
raw download clone embed print report
  1. var name : string
  2. var font1, font2 : int
  3. var answer : string
  4. var pic: int
  5. var wrongcounter : int
  6. var scorecounter : int
  7. var housename : string
  8.  
  9. wrongcounter := 0
  10. scorecounter := 0
  11.  
  12.  
  13. colorback (15)
  14. View.Set ("graphics:602;402,nobuttonbar")
  15. pic := Pic.FileNew ("harrypotter.jpg")
  16. Pic.Draw (pic, 0, 0, picCopy)
  17.  
  18. %delay(10000)
  19.  
  20. Pic.Free (pic)
  21.  
  22. cls
  23.  
  24. colourback (43)
  25. cls
  26.  
  27. font1 := Font.New ("Harrington:16:bold")
  28. assert font1 > 0
  29.  
  30. font2 := Font.New ("Harrington:13:bold")
  31. assert font2 > 0
  32.  
  33. Font.Draw ("Please enter you name", 10, maxy - 20, font1, black)
  34. locate (3, 3)
  35. get name
  36.  
  37. delay (1000)
  38.  
  39. cls
  40.  
  41. Font.Draw("Hello ,", 10, maxy - 20, font1, black)
  42. Font.Draw(name, 80,380, font1, black)
  43.  
  44. delay (1000)
  45.  
  46. cls
  47.  
  48. loop
  49.  
  50. Font.Draw("Welcome to my trivia game. Please type 'P' to", 10,375, font1, black)
  51. Font.Draw("play 'I' for instructions, or 'Q' to quit,", 10,350, font1, black)
  52. locate (5, 3)
  53. get answer
  54. if answer = "I" or answer = "i" then
  55. cls
  56. Font.Draw("In the words of McGonagall in the Philosopher's Stone, you will select a ", 10,375, font2, black)
  57. Font.Draw("House to play for. Every right answer will gain you ten points for your", 10,350, font2, black)
  58. Font.Draw("House. There is ten questions that this quiz is out of, and at the end", 10, 325, font2, black)
  59. Font.Draw("there is an additional four questions at the end four you to try and", 10, 300, font2, black)
  60. Font.Draw(" increase your score on.", 10, 275, font2, black)
  61. delay (10000)
  62. cls
  63. elsif answer = "Q" or answer = "q" then
  64. quit
  65. elsif answer = "P" or answer = "p" then
  66. exit when answer = "P" or answer = "p"
  67. end if
  68. end loop
  69.  
  70. cls
  71.  
  72. loop
  73. Font.Draw ("Please type the house which you belong to: ", 10, maxy - 20, font1, black)
  74. Font.Draw ("1. Slytherin", 40,350, font1, black)
  75. Font.Draw ("2. Griffindor", 40,325, font1, black)
  76. Font.Draw ("3. Hufflepuff", 40,300, font1, black)
  77. Font.Draw ("4. Ravenclaw", 40,275, font1, black)
  78. locate (10, 3)
  79. get housename
  80. if housename = "Griffindor" or housename = "griffindor" or housename = "Slytherin" or housename = "slytherin" or housename = "Hufflepuff" or housename = "huffleepuff" or housename = "Ravenclaw" or housename = "ravenclaw" then
  81. exit when housename = "Griffindor" or housename = "griffindor" or housename = "Slytherin" or housename = "slytherin" or housename = "Hufflepuff" or housename = "huffleepuff" or housename = "Ravenclaw" or housename = "ravenclaw"
  82. else
  83. Font.Draw ("Invalid. Please type the house which you belong to", 10, 200, font1, black)
  84. end if
  85. end loop
  86.  
  87. delay (1000)
  88.  
  89. cls
  90.  
  91. Font.Draw ("1. How many Harry Potter books are there?", 10, maxy - 20, font1, black)delay (1000)
  92. Font.Draw ("a) 4", 40, 350, font2, black)delay (500)
  93. Font.Draw ("b) 7", 40, 325, font2, black)delay (500)
  94. Font.Draw ("c) 36", 40, 300, font2, black)delay (500)
  95. Font.Draw ("d) Way too many", 40, 275, font2, black)delay (500)
  96. locate (10, 3)
  97. get answer
  98. put ""
  99. if answer = "b" or answer = "B" then
  100. Music.PlayFile ("")
  101. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  102. Font.Draw (housename, 260, 200, font1, black)
  103. scorecounter := scorecounter + 10
  104. elsif answer = "a" or answer = "A" or answer = "c" or answer = "C" then
  105. Music.PlayFile ("Wha-Wha.mp3")
  106. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  107. elsif answer = "d" or answer = "D" then
  108. Music.PlayFile ("Wha-Wha.mp3")
  109. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  110. wrongcounter := wrongcounter + 1
  111. else
  112. Font.Draw ("Invalid", 40, 200, font1, black)
  113. Music.PlayFile ("Wha-Wha.mp3")
  114. end if
  115.  
  116. delay (3000)
  117.  
  118. cls
  119.  
  120. pic := Pic.FileNew ("harry-potter-books-1-7111.jpg")
  121. Pic.Draw (pic, 150, 50, picCopy)
  122.  
  123. delay(3000)
  124.  
  125. Pic.Free (pic)
  126.  
  127. cls
  128.  
  129. Font.Draw ("2. Who are Harry's best friends (make up the golden trio)", 10, maxy - 20, font1, black)delay (1000)
  130. Font.Draw ("a) Rose and Hugo", 40, 350, font2, black)delay (500)
  131. Font.Draw ("b) Draco Malfoy and Voldemort", 40, 325, font2, black)delay (500)
  132. Font.Draw ("c) Ron Weasley and Hermione Granger", 40, 300, font2, black)delay (500)
  133. Font.Draw ("d) Remus Lupin and Sirius Black", 40, 275, font2, black)delay (500)
  134. locate (10, 3)
  135. get answer
  136. put ""
  137. if answer = "c" or answer = "C" then
  138. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  139. Font.Draw (housename, 260, 200, font1, black)
  140. scorecounter := scorecounter + 10
  141. elsif answer = "a" or answer = "A" or answer = "d" or answer = "D" then
  142. Music.PlayFile ("Wha-Wha.mp3")
  143. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  144. elsif answer = "b" or answer = "B" then
  145. Music.PlayFile ("Wha-Wha.mp3")
  146. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  147. wrongcounter := wrongcounter + 1
  148. else
  149. Music.PlayFile ("Wha-Wha.mp3")
  150. Font.Draw ("Invalid", 40, 200, font1, black)
  151. end if
  152.  
  153. delay (3000)
  154.  
  155. cls
  156.  
  157. pic := Pic.FileNew ("goldentrio.jpg")
  158. Pic.Draw (pic, 100, 20, picCopy)
  159.  
  160. delay(3000)
  161.  
  162. Pic.Free (pic)
  163.  
  164. cls
  165.  
  166. Font.Draw ("3. What are the three Deathly Hallows?", 10, maxy - 20, font1, black)delay (1000)
  167. Font.Draw ("a) The Lion, The Witch, and The Wardrobe", 40, 350, font2, black)delay (500)
  168. Font.Draw ("b) The Hand of Glory, The Deluminator, and The Mirror of Erised", 40, 325, font2, black)delay (500)
  169. Font.Draw ("c) The Cauldron, The Vanishing Cabinet, and The Time-Turners", 40, 300, font2, black)delay (500)
  170. Font.Draw ("d) The Elder Wand, The Resurrection Stone, and", 40, 275, font2, black)
  171. Font.Draw ("The Cloak of Invisibility", 60, 250, font2, black)delay (500)
  172. locate (11, 3)
  173. get answer
  174. put ""
  175. if answer = "d" or answer = "D" then
  176. Font.Draw ("Correct, ten points to", 40, 175, font1, black)
  177. Font.Draw (housename, 260, 175, font1, black)
  178. scorecounter := scorecounter + 10
  179. elsif answer = "b" or answer = "B" or answer = "c" or answer = "C" then
  180. Music.PlayFile ("Wha-Wha.mp3")
  181. Font.Draw ("Sorry, not the right answer", 40, 175, font1, black)
  182. elsif answer = "a" or answer = "A" then
  183. Music.PlayFile ("Wha-Wha.mp3")
  184. Font.Draw ("Sorry, not the right answer", 40, 175, font1, black)
  185. wrongcounter := wrongcounter + 1
  186. else
  187. Music.PlayFile ("Wha-Wha.mp3")
  188. Font.Draw ("Invalid", 40, 175, font1, black)
  189. end if
  190.  
  191. delay (3000)
  192.  
  193. cls
  194.  
  195. pic := Pic.FileNew ("deathly-hallows.jpg")
  196. Pic.Draw (pic, 150, 50, picCopy)
  197.  
  198. delay(3000)
  199.  
  200. Pic.Free (pic)
  201.  
  202. cls
  203.  
  204. Font.Draw ("4. In the game of Quidditch, what position did Harry play?", 10, maxy - 20, font1, black)delay (1000)
  205. Font.Draw ("a) Chaser", 40, 350, font2, black) delay (500)
  206. Font.Draw ("b) Keeper", 40, 325, font2, black) delay (500)
  207. Font.Draw ("c) Seeker", 40, 300, font2, black) delay (500)
  208. Font.Draw ("d) Line back", 40, 275, font2, black) delay (500)
  209. locate (10, 3)
  210. get answer
  211. put ""
  212. if answer = "c" or answer = "C" then
  213. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  214. Font.Draw (housename, 260, 200, font1, black)
  215. scorecounter := scorecounter + 10
  216. elsif answer = "a" or answer = "A" or answer = "b" or answer = "B" then
  217. Music.PlayFile ("Wha-Wha.mp3")
  218. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  219. elsif answer = "d" or answer = "D" then
  220. Music.PlayFile ("Wha-Wha.mp3")
  221. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  222. wrongcounter := wrongcounter + 1
  223. else
  224. Music.PlayFile ("Wha-Wha.mp3")
  225. Font.Draw ("Invalid", 40, 200, font1, black)
  226. end if
  227.  
  228. delay (3000)
  229.  
  230. cls
  231.  
  232. pic := Pic.FileNew ("seeker.jpg")
  233. Pic.Draw (pic, 150, 1, picCopy)
  234.  
  235. delay(3000)
  236.  
  237. Pic.Free (pic)
  238.  
  239. cls
  240.  
  241. Font.Draw ("5. Which Weasley twin died in the Deathly Hallows?", 10, maxy - 20, font1, black) delay (1000)
  242. Font.Draw ("a) Fred", 40, 350, font2, black) delay (500)
  243. Font.Draw ("b) Crabbe", 40, 325, font2, black) delay (500)
  244. Font.Draw ("c) Charlie", 40, 300, font2, black) delay (500)
  245. Font.Draw ("d) George", 40, 275, font2, black) delay (500)
  246. locate (10, 3)
  247. get answer
  248. put ""
  249. if answer = "a" or answer = "A" then
  250. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  251. Font.Draw (housename, 260, 200, font1, black)
  252. scorecounter := scorecounter + 10
  253. elsif answer = "b" or answer = "B" or answer = "d" or answer = "D" then
  254. Music.PlayFile ("Wha-Wha.mp3")
  255. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  256. elsif answer = "b" or answer = "B" then
  257. Music.PlayFile ("Wha-Wha.mp3")
  258. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  259. wrongcounter := wrongcounter + 1
  260. else
  261. Music.PlayFile ("Wha-Wha.mp3")
  262. Font.Draw ("Invalid", 40, 200, font1, black)
  263. end if
  264.  
  265. delay (3000)
  266.  
  267. cls
  268.  
  269. pic := Pic.FileNew ("Fred_Weasley.jpg")
  270. Pic.Draw (pic, 175, 50, picCopy)
  271.  
  272. delay(3000)
  273.  
  274. Pic.Free (pic)
  275.  
  276. cls
  277.  
  278. Font.Draw ("6. Which are the traits to be in Griffindor?", 10, maxy - 20, font1, black) delay (1000)
  279. Font.Draw ("a) Stupidity, Choosing the wrong side and Delusional", 40, 350, font2, black) delay (500)
  280. Font.Draw ("b) Knowelege and Wit", 40, 325, font2, black) delay (500)
  281. Font.Draw ("c) Cunning and Ambitious", 40, 300, font2, black) delay (500)
  282. Font.Draw ("d) Daring, Nerve, and Chivalry", 40, 275, font2, black) delay (500)
  283. locate (10, 3)
  284. get answer
  285. put ""
  286. if answer = "d" or answer = "D" then
  287. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  288. Font.Draw (housename, 260, 200, font1, black)
  289. scorecounter := scorecounter + 10
  290. elsif answer = "b" or answer = "B" or answer = "c" or answer = "C" then
  291. Music.PlayFile ("Wha-Wha.mp3")
  292. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  293. elsif answer = "a" or answer = "A" then
  294. Music.PlayFile ("Wha-Wha.mp3")
  295. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  296. wrongcounter := wrongcounter + 1
  297. else
  298. Music.PlayFile ("Wha-Wha.mp3")
  299. Font.Draw ("Invalid", 40, 200, font1, black)
  300. end if
  301.  
  302. delay (3000)
  303.  
  304. cls
  305.  
  306. pic := Pic.FileNew ("250px-Gryffindorcrest.jpg")
  307. Pic.Draw (pic, 150, 1, picCopy)
  308.  
  309. delay(3000)
  310.  
  311. Pic.Free (pic)
  312.  
  313. cls
  314.  
  315.  
  316. Font.Draw ("7. Who said this?", 10, maxy - 20, font1, black)
  317. Font.Draw ("'Make way for the heir of Slytherin, seriously evil wizard coming through...'", 10, 350, font2, black)delay (1000)
  318. Font.Draw ("a) Fred and George Weasley", 40, 325, font2, black)delay (500)
  319. Font.Draw ("b) Jacob Black", 40, 300, font2, black) delay (500)
  320. Font.Draw ("c) Draco Malfoy", 40, 275, font2, black) delay (500)
  321. Font.Draw ("d) Tom Riddle", 40, 250, font2, black) delay (500)
  322. locate (11, 3)
  323. get answer
  324. put ""
  325. if answer = "a" or answer = "A" then
  326. Font.Draw ("Correct, ten points to", 40, 175, font1, black)
  327. Font.Draw (housename, 260, 175, font1, black)
  328. scorecounter := scorecounter + 10
  329. elsif answer = "D" or answer = "d" or answer = "c" or answer = "C" then
  330. Music.PlayFile ("Wha-Wha.mp3")
  331. Font.Draw ("Sorry, not the right answer", 40, 175, font1, black)
  332. elsif answer = "b" or answer = "B" then
  333. Music.PlayFile ("Wha-Wha.mp3")
  334. Font.Draw ("Sorry, not the right answer", 40, 175, font1, black)
  335. wrongcounter := wrongcounter + 1
  336. else
  337. Music.PlayFile ("Wha-Wha.mp3")
  338. Font.Draw ("Invalid", 40, 175, font1, black)
  339. end if
  340.  
  341. delay (3000)
  342.  
  343. cls
  344.  
  345. pic := Pic.FileNew ("twins-gf.jpg")
  346. Pic.Draw (pic, 100, 50, picCopy)
  347.  
  348. delay(3000)
  349.  
  350. Pic.Free (pic)
  351.  
  352. cls
  353.  
  354. Font.Draw ("8. What destroyed the Diadem of Ravenclaw?", 10, maxy - 20, font1, black) delay (1000)
  355. Font.Draw ("a) The Sword of Griffindor", 40, 350, font2, black) delay (500)
  356. Font.Draw ("b) Riptide stabbed it when turned into it`s sword form", 40, 325, font2, black) delay (500)
  357. Font.Draw ("c) The spell 'Fiendfyre'", 40, 300, font2, black) delay (500)
  358. Font.Draw ("d) Basilisk Venom from the Chamber of Secrets", 40, 275, font2, black) delay (500)
  359. locate (10, 3)
  360. get answer
  361. put ""
  362. if answer = "c" or answer = "C" then
  363. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  364. Font.Draw (housename, 260, 200, font1, black)
  365. scorecounter := scorecounter + 10
  366. elsif answer = "D" or answer = "d" or answer = "a" or answer = "A" then
  367. Music.PlayFile ("Wha-Wha.mp3")
  368. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  369. elsif answer = "b" or answer = "B" then
  370. Music.PlayFile ("Wha-Wha.mp3")
  371. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  372. wrongcounter := wrongcounter + 1
  373. else
  374. Music.PlayFile ("Wha-Wha.mp3")
  375. Font.Draw ("Invalid", 40, 200, font1, black)
  376. end if
  377.  
  378. delay (3000)
  379.  
  380. cls
  381.  
  382. pic := Pic.FileNew ("normal_rescuef.jpg")
  383. Pic.Draw (pic, 175, 1, picCopy)
  384.  
  385. delay(3000)
  386.  
  387. Pic.Free (pic)
  388.  
  389. cls
  390.  
  391. Font.Draw ("9. What is Harry's wand made out of, and how long is it?", 10, maxy - 20, font1, black) delay (1000)
  392. Font.Draw ("a) Holly and phoenix feather, eleven inches", 40, 350, font2, black) delay (500)
  393. Font.Draw ("b) Thorn and unicorn hair, nine inches", 40, 325, font2, black) delay (500)
  394. Font.Draw ("c) Fairy Dust and sparkles, thirteen inches", 40, 300, font2, black) delay (500)
  395. Font.Draw ("d) Dragon heartstring and Veela hair, fourteen inches ", 40, 275, font2, black) delay (500)
  396. locate (10, 3)
  397. get answer
  398. put ""
  399. if answer = "a" or answer = "A" then
  400. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  401. Font.Draw (housename, 260, 200, font1, black)
  402. scorecounter := scorecounter + 10
  403. elsif answer = "b" or answer = "B" or answer = "D" or answer = "d" then
  404. Music.PlayFile ("Wha-Wha.mp3")
  405. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  406. elsif answer = "c" or answer = "C" then
  407. Music.PlayFile ("Wha-Wha.mp3")
  408. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  409. wrongcounter := wrongcounter + 1
  410. else
  411. Music.PlayFile ("Wha-Wha.mp3")
  412. Font.Draw ("Invalid", 40, 200, font1, black)
  413. end if
  414.  
  415. delay (3000)
  416.  
  417. cls
  418.  
  419. pic := Pic.FileNew ("wand.jpg")
  420. Pic.Draw (pic, 100, 50, picCopy)
  421.  
  422. delay(3000)
  423.  
  424. Pic.Free (pic)
  425.  
  426. cls
  427.  
  428. Font.Draw ("10. What was Dumbledore`s Bogart?", 10, maxy - 20, font1, black) delay (1000)
  429. Font.Draw ("a) Harry Potter failing to defeat Voldemort", 40, 350, font2, black) delay (500)
  430. Font.Draw ("b) The corpse of Ariana,", 40, 325, font2, black) delay (500)
  431. Font.Draw ("c) A pair of wooden socks, as said in the Philosopher's Stone", 40, 300, font2, black) delay (500)
  432. Font.Draw ("d) Gaining control of the Deathly Hallows", 40, 275, font2, black) delay (500)
  433. locate (10, 3)
  434. get answer
  435. put ""
  436. if answer = "b" or answer = "B" then
  437. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  438. Font.Draw (housename, 260, 200, font1, black)
  439. scorecounter := scorecounter + 10
  440. elsif answer = "a" or answer = "A" or answer = "d" or answer = "D" then
  441. Music.PlayFile ("Wha-Wha.mp3")
  442. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  443. elsif answer = "c" or answer = "C" then
  444. Music.PlayFile ("Wha-Wha.mp3")
  445. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  446. wrongcounter := wrongcounter + 1
  447. else
  448. Music.PlayFile ("Wha-Wha.mp3")
  449. Font.Draw ("Invalid", 40, 200, font1, black)
  450. end if
  451.  
  452. delay (3000)
  453.  
  454. cls
  455.  
  456. pic := Pic.FileNew ("ariana_dumbledore.jpg")
  457. Pic.Draw (pic, 175, 50, picCopy)
  458.  
  459. delay(3000)
  460.  
  461. Pic.Free (pic)
  462.  
  463. cls
  464.  
  465. Font.Draw ("Final Four!", 10, maxy - 20, font1, black) delay (1000)
  466. Font.Draw ("This is your last chance to make up for previous questions", 40, 350, font2, black)
  467.  
  468. delay (3000)
  469.  
  470. cls
  471.  
  472. Font.Draw ("Who did Draco Malfoy end up marrying?", 1, 375, font1, black)delay (1000)
  473. Font.Draw ("a) Astoria Greengrass", 40, 350, font2, black) delay (500)
  474. Font.Draw ("b) Hermione Granger", 40, 325, font2, black) delay (500)
  475. Font.Draw ("c) Pansy Parkinson", 40, 300, font2, black) delay (500)
  476. Font.Draw ("d) Ironically an unknown muggle", 40, 275, font2, black) delay (500)
  477. locate (11, 3)
  478. get answer
  479. if answer = "a" or answer = "A" then
  480. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  481. Font.Draw (housename, 260, 200, font1, black)
  482. scorecounter := scorecounter + 10
  483. elsif answer = "b" or answer = "B" or answer = "d" or answer = "D" or answer = "c" or answer = "C" then
  484. Music.PlayFile ("Wha-Wha.mp3")
  485. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  486. else
  487. Music.PlayFile ("Wha-Wha.mp3")
  488. Font.Draw ("Invalid", 40, 200, font1, black)
  489. end if
  490.  
  491. delay (3000)
  492.  
  493. cls
  494.  
  495. Font.Draw ("What did Hermione Granger do after the Deathly Hallows?", 1, 375, font1, black) delay (1000)
  496. Font.Draw ("a) Trained along side Harry and Ron to be and Aurour", 40, 350, font2, black) delay (500)
  497. Font.Draw ("b) Went back to school to complete her NEWTs", 40, 325, font2, black) delay (500)
  498. Font.Draw ("c) Became a housewife after marrying Harry", 40, 300, font2, black) delay (500)
  499. Font.Draw ("d) She died in the final battle trying to save Ron", 40, 275, font2, black) delay (500)
  500. locate (11, 3)
  501. get answer
  502. put ""
  503. if answer = "b" or answer = "B" then
  504. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  505. Font.Draw (housename, 260, 200, font1, black)
  506. scorecounter := scorecounter + 10
  507. elsif answer = "a" or answer = "A" or answer = "d" or answer = "D" or answer = "c" or answer = "C" then
  508. Music.PlayFile ("Wha-Wha.mp3")
  509. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  510. else
  511. Music.PlayFile ("Wha-Wha.mp3")
  512. Font.Draw ("Invalid", 40, 200, font1, black)
  513. end if
  514.  
  515. delay (3000)
  516.  
  517. cls
  518.  
  519. Font.Draw ("What team did Ginny play Quidditch for?", 1, 375, font1, black) delay (1000)
  520. Font.Draw ("a) Chudley Cannons", 40, 350, font2, black)delay(500)
  521. Font.Draw ("b) The Wigtown Wanderers", 40, 325, font2, black)delay (500)
  522. Font.Draw ("c) The Holyhead Harpies", 40, 300, font2, black) delay (500)
  523. Font.Draw ("d) The Applebee Arrows", 40, 275, font2, black) delay (500)
  524. locate (11, 3)
  525. get answer
  526. if answer = "c" or answer = "C" then
  527. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  528. Font.Draw (housename, 260, 200, font1, black)
  529. scorecounter := scorecounter + 10
  530. elsif answer = "a" or answer = "A" or answer = "d" or answer = "D" or answer = "b" or answer = "B" then
  531. Music.PlayFile ("Wha-Wha.mp3")
  532. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  533. else
  534. Music.PlayFile ("Wha-Wha.mp3")
  535. Font.Draw ("Invalid", 40, 200, font1, black)
  536. end if
  537.  
  538. delay (3000)
  539.  
  540. cls
  541.  
  542. Font.Draw ("What was Albus Dumbledore's desire when he was 17?", 1, 375, font1, black) delay (1000)
  543. Font.Draw ("a) To become theP Minister of Magic", 40, 350, font2, black) delay (500)
  544. Font.Draw ("b) To be the Headmaster of Hogwarts", 40, 325, font2, black) delay (500)
  545. Font.Draw ("c) We never found out", 40, 300, font2, black) delay (500)
  546. Font.Draw ("d) To work toward the 'Greater Good'", 40, 275, font2, black) delay (500)
  547. locate (11, 3)
  548. get answer
  549. if answer = "d" or answer = "D" then
  550. Font.Draw ("Correct, ten points to", 40, 200, font1, black)
  551. Font.Draw (housename, 260, 200, font1, black)
  552. scorecounter := scorecounter + 10
  553. elsif answer = "a" or answer = "A" or answer = "b" or answer = "B" or answer = "c" or answer = "C" then
  554. Music.PlayFile ("Wha-Wha.mp3")
  555. Font.Draw ("Sorry, not the right answer", 40, 200, font1, black)
  556. else
  557. Music.PlayFile ("Wha-Wha.mp3")
  558. Font.Draw ("Invalid", 40, 200, font1, black)
  559. end if
  560.  
  561. cls
  562.  
  563. Font.Draw ("You have finished the Harry Potter Trivia game.", 10, maxy - 20, font1, black)
  564. Font.Draw ("Your score out of ten, with the four last chance is ,", 40, 350, font2, black)
  565. Font.Draw (intstr (scorecounter), 450, 350, font2, black)
  566. if scorecounter >= 80 then
  567. Font.Draw ("Congratulations, you are a Harry Potter Fanatic!!!", 40, 325, font2, black)
  568. elsif wrongcounter >= 5 then
  569. Font.Draw ("You don't know anything about Harry Potter do you...", 40, 325, font2, black)
  570. end if
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!