fork download
copy 
  1. %NOTES
  2. %Possibly loop the spongebob graphic
  3. var start : string
  4. put "Welcome to Spongebob's Fry Off Game"
  5. put "Help Spongebob customize a special krabby patty to feed a hungry customers"
  6. put "Type 'y' to start the game, and 'n' to exit"
  7. get start
  8. loop
  9.     exit when start = "y"
  10. end loop
  11. cls
  12.  
  13. put "You have 10 seconds to memorize the following requirements. "
  14. put "Use your memory to help you make the order."
  15. put "Points will be given based on how many requirements you met."
  16. put "Getting a certain amount of points will allow you to move on." 
  17. put "If a requirement is not in a specific section, feel free to have fun with adding"
  18. put "and customizing the order."
  19. put ""
  20. put "Press 'y' to start reviewing your requirements, and 'n' to exit"
  21. get start
  22. cls
  23.  
  24. var background : int
  25. put "Gary wants a krabby patty with the following toppings:"
  26. put "-White buns"
  27. put "-Shredded lettuce"
  28. put "-Cheese"
  29. put "-Ketchup"
  30. put "-Plankton"
  31. put "Feel free to add any extra ingredients!"
  32. background := Pic.New (0,0,maxx, maxy) 
  33. for x : 0 .. 400 by 2
  34. %stops at 400
  35.  Pic.Draw (background, 0, 0, picCopy) 
  36.  
  37. drawfillbox (300+x, 110, 363, 115, 70)
  38.  
  39. drawfilloval (300+x, 170, 50, 60, 88)
  40. %horiz, vertical, width, height, colour
  41. drawfilloval (310+x, 115, 58, 5, 77)
  42. drawfilloval (307+x, 112, 63, 2, 70)
  43. drawfilloval (348+x, 120, 20, 5, 77)
  44. drawfillbox (345+x, 190, 350+x, 119, 77)
  45. drawfillbox (358+x, 190, 363+x, 119, 77)
  46.  
  47.  
  48.  
  49. drawfilloval (365+x, 193, 11, 11, 70)
  50. drawfilloval (345+x, 193, 11, 11, 70)
  51. drawfilloval (345+x, 193, 6, 6, 12)
  52. drawfilloval (365+x, 193, 6, 6, 12)
  53. drawfilloval (365+x, 193, 3, 3, 16)
  54. drawfilloval (345+x, 193, 3, 3, 16)
  55. drawfilloval (368+x, 195, 1, 1, 31)
  56. drawfilloval (348+x, 195, 1, 1, 31)
  57.  
  58. drawfilloval (329+x, 175, 4, 6, 57)
  59. drawfilloval (320+x, 195, 5, 6, 57)
  60. drawfilloval (280+x, 195, 5, 6, 57)
  61. drawfilloval (270+x, 175, 4, 6, 57)
  62. drawfilloval (300+x, 210, 9, 6, 57)
  63. delay (20)
  64.  
  65. end for
  66. cls
  67. for decreasing count : 3 .. 1
  68.     put count
  69.     delay (1000) 
  70. end for
  71. put "Begin!"
  72.  delay (1000) 
  73. cls
  74.  
  75. %ADD STOVE AND SURROUNDING
  76.  
  77.  
  78. %SPONGEBOB
  79. %hori coor, vert coor, width right ending coor, height top ending coor, color
  80.  
  81. %horiz start, vertical, width end, height colour
  82. %body
  83. drawbox (400, 100, 500, 200, 2)
  84. drawfillbox (400, 100, 510, 210, 14)
  85. drawfillbox (400, 115, 510, 110, 31)
  86. drawfillbox (400, 90, 510, 110, 137)
  87. drawfillbox (410, 95, 425, 100, 16)
  88. drawfillbox (450, 95, 435, 100, 16)
  89. drawfillbox (476, 95, 460, 100, 16)
  90. drawfillbox (500, 95, 485, 100, 16)
  91. %horiz, height cord, width, vert
  92.  
  93. %eyes
  94. drawfilloval (428, 170, 15, 15, 31)
  95. drawfilloval (480, 170, 15, 15, 31)
  96. %horiz, vertical, height, width, colour
  97. %pupils
  98. drawfilloval (480, 170, 10, 10, 54)
  99. drawfilloval (428, 170, 10, 10, 54)
  100. drawfilloval (428, 170, 5, 5, 16)
  101. drawfilloval (480, 170, 5, 5, 16)
  102. drawfilloval (477, 173, 3, 3, 31)
  103. drawfilloval (432, 173, 3, 3, 31)
  104.  
  105. %legs
  106. drawfillbox (420, 89, 430, 85, 31)
  107. drawfillbox (480, 89, 490, 85, 31)
  108. drawfillbox (482, 75, 488, 84, 14)
  109. drawfillbox (422, 75, 428, 84, 14)
  110.  
  111. %socks
  112. drawfillbox (422, 74, 428, 50, 31)
  113. drawfillbox (482, 74, 488, 50, 31)
  114. %stripes
  115. drawfillbox (482, 68, 488, 67, 12)
  116. drawfillbox (422, 68, 428, 67, 12)
  117. drawfillbox (422, 64, 428, 63, 55)
  118. drawfillbox (482, 64, 488, 63, 55)
  119.  
  120. %shoes
  121. drawfilloval (492, 50, 13, 5, 16)
  122. drawfilloval (420, 50, 13, 5, 16)
  123.  
  124. %mouth
  125. drawfillarc (453, 136, 25, 15, 190, 0, 135)
  126. %horizon, vertical, width, height, degree, slant, colour
  127. drawfillarc (460, 121, 12, 5, 400, 180, 63)
  128.  
  129. drawfillbox (447, 132, 453, 136, 31)
  130. drawfillbox (455, 132, 461, 136, 31)
  131. %horiz, height cord, width, vert
  132.  
  133. %spongeholes
  134. drawfilloval (411, 193, 7, 7, 116)
  135. %horiz, vertical, height, width, colour
  136. drawfilloval (500, 192, 6, 6, 116)
  137. drawfilloval (503, 176, 4, 4, 116)
  138. drawfilloval (413, 146, 5, 5, 116)
  139. drawfilloval (410, 125, 7, 7, 116)
  140. drawfilloval (498, 145, 7, 7, 116)
  141. drawfilloval (493, 125, 5, 5, 116)
  142. %table
  143. drawfillbox (300, 120, 610, 100, 19)
  144. drawfillbox (305, 40, 330, 120, 19)
  145. drawfillbox (605, 40, 580, 120, 19)
  146. %horiz start, vert start, width end, height end
  147.  
  148.  
  149. %-------------------------------------------------------------------------------
  150. %BURGER BUNS
  151. put "Do you want the buns to be wholewheat or white?"
  152. put "Enter 'a' for white buns, and 'b' for wholewheat buns"
  153. put "a. White buns"
  154. put "b. Wholewheat buns"
  155. put "I chose " ..
  156. var buns : string
  157. get buns
  158. var count : int := 1
  159. cls
  160. if buns = "a" then
  161. count := count + 1
  162. elsif buns = "b" then
  163. count := count + 0
  164. end if
  165. cls
  166. put "Point count: ", count
  167. %SPONGEBOB
  168. %hori coor, vert coor, width right ending coor, height top ending coor, color
  169.  
  170. %horiz start, vertical, width end, height colour
  171. %body
  172. drawbox (400, 100, 500, 200, 2)
  173. drawfillbox (400, 100, 510, 210, 14)
  174. drawfillbox (400, 115, 510, 110, 31)
  175. drawfillbox (400, 90, 510, 110, 137)
  176. drawfillbox (410, 95, 425, 100, 16)
  177. drawfillbox (450, 95, 435, 100, 16)
  178. drawfillbox (476, 95, 460, 100, 16)
  179. drawfillbox (500, 95, 485, 100, 16)
  180. %horiz, height cord, width, vert
  181.  
  182. %eyes
  183. drawfilloval (428, 170, 15, 15, 31)
  184. drawfilloval (480, 170, 15, 15, 31)
  185. %horiz, vertical, height, width, colour
  186. %pupils
  187. drawfilloval (480, 170, 10, 10, 54)
  188. drawfilloval (428, 170, 10, 10, 54)
  189. drawfilloval (428, 170, 5, 5, 16)
  190. drawfilloval (480, 170, 5, 5, 16)
  191. drawfilloval (477, 173, 3, 3, 31)
  192. drawfilloval (432, 173, 3, 3, 31)
  193.  
  194. %legs
  195. drawfillbox (420, 89, 430, 85, 31)
  196. drawfillbox (480, 89, 490, 85, 31)
  197. drawfillbox (482, 75, 488, 84, 14)
  198. drawfillbox (422, 75, 428, 84, 14)
  199.  
  200. %socks
  201. drawfillbox (422, 74, 428, 50, 31)
  202. drawfillbox (482, 74, 488, 50, 31)
  203. %stripes
  204. drawfillbox (482, 68, 488, 67, 12)
  205. drawfillbox (422, 68, 428, 67, 12)
  206. drawfillbox (422, 64, 428, 63, 55)
  207. drawfillbox (482, 64, 488, 63, 55)
  208.  
  209. %shoes
  210. drawfilloval (492, 50, 13, 5, 16)
  211. drawfilloval (420, 50, 13, 5, 16)
  212.  
  213. %mouth
  214. drawfillarc (453, 136, 25, 15, 190, 0, 135)
  215. %horizon, vertical, width, height, degree, slant, colour
  216. drawfillarc (460, 121, 12, 5, 400, 180, 63)
  217.  
  218. drawfillbox (447, 132, 453, 136, 31)
  219. drawfillbox (455, 132, 461, 136, 31)
  220. %horiz, height cord, width, vert
  221.  
  222. %spongeholes
  223. drawfilloval (411, 193, 7, 7, 116)
  224. %horiz, vertical, height, width, colour
  225. drawfilloval (500, 192, 6, 6, 116)
  226. drawfilloval (503, 176, 4, 4, 116)
  227. drawfilloval (413, 146, 5, 5, 116)
  228. drawfilloval (410, 125, 7, 7, 116)
  229. drawfilloval (498, 145, 7, 7, 116)
  230. drawfilloval (493, 125, 5, 5, 116)
  231. %table
  232. drawfillbox (300, 120, 610, 100, 19)
  233. drawfillbox (305, 40, 330, 120, 19)
  234. drawfillbox (605, 40, 580, 120, 19)
  235. %horiz start, vert start, width end, height end
  236.  
  237. case buns of
  238.     label "a" :
  239.  
  240.         put ""
  241.         drawfillarc (550, 130, 25, 15, 180, 360, 66)
  242.         %horizon, vertical, width, height, degree, slant, colour
  243.  
  244.  
  245.     label "b" :
  246.         put ""
  247.         drawfillarc (550, 130, 25, 15, 180, 360, 114) %EDIT
  248.  
  249. end case
  250.  
  251. %PATTY
  252.  
  253. var patty : string
  254.  
  255. put "How long do you want to fry the patty?"
  256. put "a. 75 minutes"
  257. put "b. 15 minutes"
  258. put "c. 1 minute"
  259. get patty
  260. count := count + 1
  261. if patty = "a" then
  262. count := count + 0
  263. elsif buns = "b" then
  264. count := count + 0
  265. elsif buns = "c" then
  266. count := count + 0
  267. end if
  268. cls
  269. %SPONGEBOB
  270. %hori coor, vert coor, width right ending coor, height top ending coor, color
  271. drawfillbox (400, 100, 510, 210, 14)
  272. %horiz start, vertical, width end, height colour
  273. %body
  274. drawbox (400, 100, 500, 200, 2)
  275. drawfillbox (400, 100, 510, 210, 14)
  276. drawfillbox (400, 115, 510, 110, 31)
  277. drawfillbox (400, 90, 510, 110, 137)
  278. drawfillbox (410, 95, 425, 100, 16)
  279. drawfillbox (450, 95, 435, 100, 16)
  280. drawfillbox (476, 95, 460, 100, 16)
  281. drawfillbox (500, 95, 485, 100, 16)
  282. %horiz, height cord, width, vert
  283.  
  284. %eyes
  285. drawfilloval (428, 170, 15, 15, 31)
  286. drawfilloval (480, 170, 15, 15, 31)
  287. %horiz, vertical, height, width, colour
  288. %pupils
  289. drawfilloval (480, 170, 10, 10, 54)
  290. drawfilloval (428, 170, 10, 10, 54)
  291. drawfilloval (428, 170, 5, 5, 16)
  292. drawfilloval (480, 170, 5, 5, 16)
  293. drawfilloval (477, 173, 3, 3, 31)
  294. drawfilloval (432, 173, 3, 3, 31)
  295.  
  296. %legs
  297. drawfillbox (420, 89, 430, 85, 31)
  298. drawfillbox (480, 89, 490, 85, 31)
  299. drawfillbox (482, 75, 488, 84, 14)
  300. drawfillbox (422, 75, 428, 84, 14)
  301.  
  302. %socks
  303. drawfillbox (422, 74, 428, 50, 31)
  304. drawfillbox (482, 74, 488, 50, 31)
  305. %stripes
  306. drawfillbox (482, 68, 488, 67, 12)
  307. drawfillbox (422, 68, 428, 67, 12)
  308. drawfillbox (422, 64, 428, 63, 55)
  309. drawfillbox (482, 64, 488, 63, 55)
  310.  
  311. %shoes
  312. drawfilloval (492, 50, 13, 5, 16)
  313. drawfilloval (420, 50, 13, 5, 16)
  314.  
  315. %mouth
  316. drawfillarc (453, 136, 25, 15, 190, 0, 135)
  317. %horizon, vertical, width, height, degree, slant, colour
  318. drawfillarc (460, 121, 12, 5, 400, 180, 63)
  319.  
  320. drawfillbox (447, 132, 453, 136, 31)
  321. drawfillbox (455, 132, 461, 136, 31)
  322. %horiz, height cord, width, vert
  323.  
  324. %spongeholes
  325. drawfilloval (411, 193, 7, 7, 116)
  326. %horiz, vertical, height, width, colour
  327. drawfilloval (500, 192, 6, 6, 116)
  328. drawfilloval (503, 176, 4, 4, 116)
  329. drawfilloval (413, 146, 5, 5, 116)
  330. drawfilloval (410, 125, 7, 7, 116)
  331. drawfilloval (498, 145, 7, 7, 116)
  332. drawfilloval (493, 125, 5, 5, 116)
  333. %table
  334. drawfillbox (300, 120, 610, 100, 19)
  335. drawfillbox (305, 40, 330, 120, 19)
  336. drawfillbox (605, 40, 580, 120, 19)
  337. %horiz start, vert start, width end, height end
  338.  
  339. if buns = "a" then
  340.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  341. elsif buns = "b" then
  342.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  343. end if
  344.  
  345. case patty of
  346.     label "a" :
  347.         put ""
  348.         drawfilloval (550, 129, 30, 5, 16)
  349.  
  350.     label "b" :
  351.         put ""
  352.         drawfilloval (550, 129, 30, 5, 113)
  353.  
  354.     label "c" :
  355.         put ""
  356.         drawfilloval (550, 129, 30, 5, 63)
  357.  
  358. end case
  359. put "Point count: ", count
  360. %LETTUCE
  361.  
  362. put "How would you like your lettuce?"
  363. put "a. Shredded"
  364. put "b. In big leaves"
  365. put "c. No lettuce"
  366.  
  367. var lettuce : string
  368. get lettuce
  369. count := count + 1
  370. if buns = "a" then
  371. count := count + 1
  372. elsif buns = "b" then
  373. count := count + 0
  374. end if
  375. cls
  376.  
  377. %SPONGEBOB
  378. %hori coor, vert coor, width right ending coor, height top ending coor, color
  379.  
  380. %horiz start, vertical, width end, height colour
  381. %body
  382. drawbox (400, 100, 500, 200, 2)
  383. drawfillbox (400, 100, 510, 210, 14)
  384. drawfillbox (400, 115, 510, 110, 31)
  385. drawfillbox (400, 90, 510, 110, 137)
  386. drawfillbox (410, 95, 425, 100, 16)
  387. drawfillbox (450, 95, 435, 100, 16)
  388. drawfillbox (476, 95, 460, 100, 16)
  389. drawfillbox (500, 95, 485, 100, 16)
  390. %horiz, height cord, width, vert
  391.  
  392. %eyes
  393. drawfilloval (428, 170, 15, 15, 31)
  394. drawfilloval (480, 170, 15, 15, 31)
  395. %horiz, vertical, height, width, colour
  396. %pupils
  397. drawfilloval (480, 170, 10, 10, 54)
  398. drawfilloval (428, 170, 10, 10, 54)
  399. drawfilloval (428, 170, 5, 5, 16)
  400. drawfilloval (480, 170, 5, 5, 16)
  401. drawfilloval (477, 173, 3, 3, 31)
  402. drawfilloval (432, 173, 3, 3, 31)
  403.  
  404. %legs
  405. drawfillbox (420, 89, 430, 85, 31)
  406. drawfillbox (480, 89, 490, 85, 31)
  407. drawfillbox (482, 75, 488, 84, 14)
  408. drawfillbox (422, 75, 428, 84, 14)
  409.  
  410. %socks
  411. drawfillbox (422, 74, 428, 50, 31)
  412. drawfillbox (482, 74, 488, 50, 31)
  413. %stripes
  414. drawfillbox (482, 68, 488, 67, 12)
  415. drawfillbox (422, 68, 428, 67, 12)
  416. drawfillbox (422, 64, 428, 63, 55)
  417. drawfillbox (482, 64, 488, 63, 55)
  418.  
  419. %shoes
  420. drawfilloval (492, 50, 13, 5, 16)
  421. drawfilloval (420, 50, 13, 5, 16)
  422.  
  423. %mouth
  424. drawfillarc (453, 136, 25, 15, 190, 0, 135)
  425. %horizon, vertical, width, height, degree, slant, colour
  426. drawfillarc (460, 121, 12, 5, 400, 180, 63)
  427.  
  428. drawfillbox (447, 132, 453, 136, 31)
  429. drawfillbox (455, 132, 461, 136, 31)
  430. %horiz, height cord, width, vert
  431.  
  432. %spongeholes
  433. drawfilloval (411, 193, 7, 7, 116)
  434. %horiz, vertical, height, width, colour
  435. drawfilloval (500, 192, 6, 6, 116)
  436. drawfilloval (503, 176, 4, 4, 116)
  437. drawfilloval (413, 146, 5, 5, 116)
  438. drawfilloval (410, 125, 7, 7, 116)
  439. drawfilloval (498, 145, 7, 7, 116)
  440. drawfilloval (493, 125, 5, 5, 116)
  441. %table
  442. drawfillbox (300, 120, 610, 100, 19)
  443. drawfillbox (305, 40, 330, 120, 19)
  444. drawfillbox (605, 40, 580, 120, 19)
  445. %horiz start, vert start, width end, height end
  446. put "Point count :", count
  447. if buns = "a" then
  448.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  449. elsif buns = "b" then
  450.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  451. end if
  452. if patty = "a" then
  453.     drawfilloval (550, 129, 30, 5, 16)
  454.  
  455. elsif patty = "b" then
  456.     drawfilloval (550, 129, 30, 5, 113)
  457.  
  458. elsif patty = "c" then
  459.     drawfilloval (550, 129, 30, 5, 63)
  460. end if
  461.  
  462. case lettuce of
  463.     label "a" :
  464.         put ""
  465.  
  466.         drawfillbox (520, 138, 530, 133, 45)
  467.         drawfillbox (530, 138, 540, 133, 71)
  468.         drawfillbox (540, 138, 550, 133, 48)
  469.         drawfillbox (550, 138, 560, 133, 120)
  470.         drawfillbox (560, 138, 570, 133, 73)
  471.         drawfillbox (570, 138, 580, 133, 118)
  472.         %EDIT
  473.  
  474.     label "b" :
  475.         put ""
  476.         drawfillbox (520, 138, 580, 133, 119)
  477.     label "c" :
  478.         put ""
  479.         %EDIT
  480. end case
  481.  
  482.  
  483. %VEGETABLES
  484. put "Choose a vegetable from the selection below"
  485. put "a. Tomatos"
  486. put "b. Pickles"
  487. put "c. Peppers"
  488. var vegetable : string
  489. get vegetable
  490. count := count + 1
  491. if buns = "a" then
  492. count := count + 0
  493. elsif buns = "b" then
  494. count := count + 0
  495. end if
  496. cls
  497.  
  498. %SPONGEBOB
  499. %hori coor, vert coor, width right ending coor, height top ending coor, color
  500.  
  501. %horiz start, vertical, width end, height colour
  502. %body
  503. drawbox (400, 100, 500, 200, 2)
  504. drawfillbox (400, 100, 510, 210, 14)
  505. drawfillbox (400, 115, 510, 110, 31)
  506. drawfillbox (400, 90, 510, 110, 137)
  507. drawfillbox (410, 95, 425, 100, 16)
  508. drawfillbox (450, 95, 435, 100, 16)
  509. drawfillbox (476, 95, 460, 100, 16)
  510. drawfillbox (500, 95, 485, 100, 16)
  511. %horiz, height cord, width, vert
  512.  
  513. %eyes
  514. drawfilloval (428, 170, 15, 15, 31)
  515. drawfilloval (480, 170, 15, 15, 31)
  516. %horiz, vertical, height, width, colour
  517. %pupils
  518. drawfilloval (480, 170, 10, 10, 54)
  519. drawfilloval (428, 170, 10, 10, 54)
  520. drawfilloval (428, 170, 5, 5, 16)
  521. drawfilloval (480, 170, 5, 5, 16)
  522. drawfilloval (477, 173, 3, 3, 31)
  523. drawfilloval (432, 173, 3, 3, 31)
  524.  
  525. %legs
  526. drawfillbox (420, 89, 430, 85, 31)
  527. drawfillbox (480, 89, 490, 85, 31)
  528. drawfillbox (482, 75, 488, 84, 14)
  529. drawfillbox (422, 75, 428, 84, 14)
  530.  
  531. %socks
  532. drawfillbox (422, 74, 428, 50, 31)
  533. drawfillbox (482, 74, 488, 50, 31)
  534. %stripes
  535. drawfillbox (482, 68, 488, 67, 12)
  536. drawfillbox (422, 68, 428, 67, 12)
  537. drawfillbox (422, 64, 428, 63, 55)
  538. drawfillbox (482, 64, 488, 63, 55)
  539.  
  540. %shoes
  541. drawfilloval (492, 50, 13, 5, 16)
  542. drawfilloval (420, 50, 13, 5, 16)
  543.  
  544. %mouth
  545. drawfillarc (453, 136, 25, 15, 190, 0, 135)
  546. %horizon, vertical, width, height, degree, slant, colour
  547. drawfillarc (460, 121, 12, 5, 400, 180, 63)
  548.  
  549. drawfillbox (447, 132, 453, 136, 31)
  550. drawfillbox (455, 132, 461, 136, 31)
  551. %horiz, height cord, width, vert
  552.  
  553. %spongeholes
  554. drawfilloval (411, 193, 7, 7, 116)
  555. %horiz, vertical, height, width, colour
  556. drawfilloval (500, 192, 6, 6, 116)
  557. drawfilloval (503, 176, 4, 4, 116)
  558. drawfilloval (413, 146, 5, 5, 116)
  559. drawfilloval (410, 125, 7, 7, 116)
  560. drawfilloval (498, 145, 7, 7, 116)
  561. drawfilloval (493, 125, 5, 5, 116)
  562. %table
  563. drawfillbox (300, 120, 610, 100, 19)
  564. drawfillbox (305, 40, 330, 120, 19)
  565. drawfillbox (605, 40, 580, 120, 19)
  566. %horiz start, vert start, width end, height end
  567. put "Point count: ", count
  568. if buns = "a" then
  569.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  570. elsif buns = "b" then
  571.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  572. end if
  573. if patty = "a" then
  574.     drawfilloval (550, 129, 30, 5, 16)
  575.  
  576. elsif patty = "b" then
  577.     drawfilloval (550, 129, 30, 5, 113)
  578.  
  579. elsif patty = "c" then
  580.     drawfilloval (550, 129, 30, 5, 63)
  581. end if
  582. if lettuce = "a" then
  583.     drawfillbox (520, 138, 530, 133, 45)
  584.     drawfillbox (530, 138, 540, 133, 71)
  585.     drawfillbox (540, 138, 550, 133, 48)
  586.     drawfillbox (550, 138, 560, 133, 120)
  587.     drawfillbox (560, 138, 570, 133, 73)
  588.     drawfillbox (570, 138, 580, 133, 118)
  589.  
  590. elsif lettuce = "b" then
  591.     drawfillbox (520, 138, 580, 133, 119)
  592.  
  593. elsif
  594.      lettuce = "c" then
  595.         put ""
  596.     end if
  597.  
  598.     case vegetable of
  599.         label "a" :
  600.             put ""
  601.             drawfilloval (550, 142, 30, 4, 40)
  602.             drawfilloval (550, 143, 20, 2, 64)
  603.  
  604.         label "b" :
  605.             put ""
  606.             drawfilloval (530, 140, 10, 2, 193)
  607.             drawfilloval (545, 140, 10, 2, 117)
  608.             drawfilloval (560, 140, 10, 2, 191)
  609.             drawfilloval (575, 140, 10, 2, 118)
  610.  
  611.         label "c" :
  612.             put ""
  613.             drawfilloval (530, 140, 10, 2, 44)
  614.             drawfilloval (545, 140, 10, 2, 42)
  615.             drawfilloval (560, 140, 10, 2, 43)
  616.             drawfilloval (575, 140, 10, 2, 40)
  617.     end case
  618.  
  619.     %CHEESE
  620.     put "Would you like to put cheese on the krabby patty?"
  621.     put "a. Yes"
  622.     put "b. No"
  623.     var cheese : string
  624.     get cheese
  625.     count := count + 1
  626.     if buns = "a" then
  627.     count := count + 1
  628.     elsif buns = "b" then
  629.     count := count + 0
  630.     end if
  631.     cls
  632.  
  633.     %SPONGEBOB
  634.     %hori coor, vert coor, width right ending coor, height top ending coor, color
  635.  
  636.     %horiz start, vertical, width end, height colour
  637.     %body
  638.     drawbox (400, 100, 500, 200, 2)
  639.     drawfillbox (400, 100, 510, 210, 14)
  640.     drawfillbox (400, 115, 510, 110, 31)
  641.     drawfillbox (400, 90, 510, 110, 137)
  642.     drawfillbox (410, 95, 425, 100, 16)
  643.     drawfillbox (450, 95, 435, 100, 16)
  644.     drawfillbox (476, 95, 460, 100, 16)
  645.     drawfillbox (500, 95, 485, 100, 16)
  646.     %horiz, height cord, width, vert
  647.  
  648.     %eyes
  649.     drawfilloval (428, 170, 15, 15, 31)
  650.     drawfilloval (480, 170, 15, 15, 31)
  651.     %horiz, vertical, height, width, colour
  652.     %pupils
  653.     drawfilloval (480, 170, 10, 10, 54)
  654.     drawfilloval (428, 170, 10, 10, 54)
  655.     drawfilloval (428, 170, 5, 5, 16)
  656.     drawfilloval (480, 170, 5, 5, 16)
  657.     drawfilloval (477, 173, 3, 3, 31)
  658.     drawfilloval (432, 173, 3, 3, 31)
  659.  
  660.     %legs
  661.     drawfillbox (420, 89, 430, 85, 31)
  662.     drawfillbox (480, 89, 490, 85, 31)
  663.     drawfillbox (482, 75, 488, 84, 14)
  664.     drawfillbox (422, 75, 428, 84, 14)
  665.  
  666.     %socks
  667.     drawfillbox (422, 74, 428, 50, 31)
  668.     drawfillbox (482, 74, 488, 50, 31)
  669.     %stripes
  670.     drawfillbox (482, 68, 488, 67, 12)
  671.     drawfillbox (422, 68, 428, 67, 12)
  672.     drawfillbox (422, 64, 428, 63, 55)
  673.     drawfillbox (482, 64, 488, 63, 55)
  674.  
  675.     %shoes
  676.     drawfilloval (492, 50, 13, 5, 16)
  677.     drawfilloval (420, 50, 13, 5, 16)
  678.  
  679.     %mouth
  680.     drawfillarc (453, 136, 25, 15, 190, 0, 135)
  681.     %horizon, vertical, width, height, degree, slant, colour
  682.     drawfillarc (460, 121, 12, 5, 400, 180, 63)
  683.  
  684.     drawfillbox (447, 132, 453, 136, 31)
  685.     drawfillbox (455, 132, 461, 136, 31)
  686.     %horiz, height cord, width, vert
  687.  
  688.     %spongeholes
  689.     drawfilloval (411, 193, 7, 7, 116)
  690.     %horiz, vertical, height, width, colour
  691.     drawfilloval (500, 192, 6, 6, 116)
  692.     drawfilloval (503, 176, 4, 4, 116)
  693.     drawfilloval (413, 146, 5, 5, 116)
  694.     drawfilloval (410, 125, 7, 7, 116)
  695.     drawfilloval (498, 145, 7, 7, 116)
  696.     drawfilloval (493, 125, 5, 5, 116)
  697.     %table
  698.     drawfillbox (300, 120, 610, 100, 19)
  699.     drawfillbox (305, 40, 330, 120, 19)
  700.     drawfillbox (605, 40, 580, 120, 19)
  701.     %horiz start, vert start, width end, height end
  702. put "Point count :", count
  703.     if buns = "a" then
  704.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  705. elsif buns = "b" then
  706.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  707. end if
  708. if patty = "a" then
  709.     drawfilloval (550, 129, 30, 5, 16)
  710.  
  711. elsif patty = "b" then
  712.     drawfilloval (550, 129, 30, 5, 113)
  713.  
  714. elsif patty = "c" then
  715.     drawfilloval (550, 129, 30, 5, 63)
  716. end if
  717. if lettuce = "a" then
  718.     drawfillbox (520, 138, 530, 133, 45)
  719.     drawfillbox (530, 138, 540, 133, 71)
  720.     drawfillbox (540, 138, 550, 133, 48)
  721.     drawfillbox (550, 138, 560, 133, 120)
  722.     drawfillbox (560, 138, 570, 133, 73)
  723.     drawfillbox (570, 138, 580, 133, 118)
  724.  
  725. elsif lettuce = "b" then
  726.     drawfillbox (520, 138, 580, 133, 119)
  727.  
  728. elsif
  729.      lettuce = "c" then
  730.         put ""
  731.     end if
  732.     if vegetable = "a" then
  733.         drawfilloval (550, 142, 30, 4, 40)
  734.         drawfilloval (550, 143, 20, 2, 64)
  735.     elsif vegetable = "b" then
  736.         drawfilloval (530, 140, 10, 2, 193)
  737.         drawfilloval (545, 140, 10, 2, 117)
  738.         drawfilloval (560, 140, 10, 2, 191)
  739.         drawfilloval (575, 140, 10, 2, 118)
  740.     elsif vegetable = "c" then
  741.         drawfilloval (530, 140, 10, 2, 44)
  742.         drawfilloval (545, 140, 10, 2, 42)
  743.         drawfilloval (560, 140, 10, 2, 43)
  744.         drawfilloval (575, 140, 10, 2, 40)
  745.     end if
  746.  
  747.     case cheese of
  748.         label "a" :
  749.             put ""
  750.             drawfillbox (520, 145, 580, 143, 67)
  751.  
  752.         label "b" :
  753.             put ""
  754.             %EDIT
  755.     end case
  756.  
  757.     %CONDIMENT
  758.     put "Choose a condiment or sauce from the selection below"
  759.     put "a. Ketchup"
  760.     put "b. Mustard"
  761.     put "c. Mayonaise"
  762.     put "d. None"
  763.     var condiment : string
  764.     get condiment
  765.    count := count + 1
  766. if buns = "a" then
  767. count := count + 1
  768. elsif buns = "b" then
  769. count := count + 0
  770. end if
  771.     cls
  772.  
  773.     %SPONGEBOB
  774.     %hori coor, vert coor, width right ending coor, height top ending coor, color
  775.  
  776.     %horiz start, vertical, width end, height colour
  777.     %body
  778.     drawbox (400, 100, 500, 200, 2)
  779.     drawfillbox (400, 100, 510, 210, 14)
  780.     drawfillbox (400, 115, 510, 110, 31)
  781.     drawfillbox (400, 90, 510, 110, 137)
  782.     drawfillbox (410, 95, 425, 100, 16)
  783.     drawfillbox (450, 95, 435, 100, 16)
  784.     drawfillbox (476, 95, 460, 100, 16)
  785.     drawfillbox (500, 95, 485, 100, 16)
  786.     %horiz, height cord, width, vert
  787.  
  788.     %eyes
  789.     drawfilloval (428, 170, 15, 15, 31)
  790.     drawfilloval (480, 170, 15, 15, 31)
  791.     %horiz, vertical, height, width, colour
  792.     %pupils
  793.     drawfilloval (480, 170, 10, 10, 54)
  794.     drawfilloval (428, 170, 10, 10, 54)
  795.     drawfilloval (428, 170, 5, 5, 16)
  796.     drawfilloval (480, 170, 5, 5, 16)
  797.     drawfilloval (477, 173, 3, 3, 31)
  798.     drawfilloval (432, 173, 3, 3, 31)
  799.  
  800.     %legs
  801.     drawfillbox (420, 89, 430, 85, 31)
  802.     drawfillbox (480, 89, 490, 85, 31)
  803.     drawfillbox (482, 75, 488, 84, 14)
  804.     drawfillbox (422, 75, 428, 84, 14)
  805.  
  806.     %socks
  807.     drawfillbox (422, 74, 428, 50, 31)
  808.     drawfillbox (482, 74, 488, 50, 31)
  809.     %stripes
  810.     drawfillbox (482, 68, 488, 67, 12)
  811.     drawfillbox (422, 68, 428, 67, 12)
  812.     drawfillbox (422, 64, 428, 63, 55)
  813.     drawfillbox (482, 64, 488, 63, 55)
  814.  
  815.     %shoes
  816.     drawfilloval (492, 50, 13, 5, 16)
  817.     drawfilloval (420, 50, 13, 5, 16)
  818.  
  819.     %mouth
  820.     drawfillarc (453, 136, 25, 15, 190, 0, 135)
  821.     %horizon, vertical, width, height, degree, slant, colour
  822.     drawfillarc (460, 121, 12, 5, 400, 180, 63)
  823.  
  824.     drawfillbox (447, 132, 453, 136, 31)
  825.     drawfillbox (455, 132, 461, 136, 31)
  826.     %horiz, height cord, width, vert
  827.  
  828.     %spongeholes
  829.     drawfilloval (411, 193, 7, 7, 116)
  830.     %horiz, vertical, height, width, colour
  831.     drawfilloval (500, 192, 6, 6, 116)
  832.     drawfilloval (503, 176, 4, 4, 116)
  833.     drawfilloval (413, 146, 5, 5, 116)
  834.     drawfilloval (410, 125, 7, 7, 116)
  835.     drawfilloval (498, 145, 7, 7, 116)
  836.     drawfilloval (493, 125, 5, 5, 116)
  837.     %table
  838.     drawfillbox (300, 120, 610, 100, 19)
  839.     drawfillbox (305, 40, 330, 120, 19)
  840.     drawfillbox (605, 40, 580, 120, 19)
  841.     %horiz start, vert start, width end, height end
  842. put "Point count :", count
  843.    if buns = "a" then
  844.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  845. elsif buns = "b" then
  846.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  847. end if
  848. if patty = "a" then
  849.     drawfilloval (550, 129, 30, 5, 16)
  850.  
  851. elsif patty = "b" then
  852.     drawfilloval (550, 129, 30, 5, 113)
  853.  
  854. elsif patty = "c" then
  855.     drawfilloval (550, 129, 30, 5, 63)
  856. end if
  857. if lettuce = "a" then
  858.     drawfillbox (520, 138, 530, 133, 45)
  859.     drawfillbox (530, 138, 540, 133, 71)
  860.     drawfillbox (540, 138, 550, 133, 48)
  861.     drawfillbox (550, 138, 560, 133, 120)
  862.     drawfillbox (560, 138, 570, 133, 73)
  863.     drawfillbox (570, 138, 580, 133, 118)
  864.  
  865. elsif lettuce = "b" then
  866.     drawfillbox (520, 138, 580, 133, 119)
  867.  
  868. elsif
  869.      lettuce = "c" then
  870.         put ""
  871.     end if
  872.     if vegetable = "a" then
  873.         drawfilloval (550, 142, 30, 4, 40)
  874.         drawfilloval (550, 143, 20, 2, 64)
  875.     elsif vegetable = "b" then
  876.         drawfilloval (530, 140, 10, 2, 193)
  877.         drawfilloval (545, 140, 10, 2, 117)
  878.         drawfilloval (560, 140, 10, 2, 191)
  879.         drawfilloval (575, 140, 10, 2, 118)
  880.     elsif vegetable = "c" then
  881.         drawfilloval (530, 140, 10, 2, 44)
  882.         drawfilloval (545, 140, 10, 2, 42)
  883.         drawfilloval (560, 140, 10, 2, 43)
  884.         drawfilloval (575, 140, 10, 2, 40)
  885.     end if
  886.     if cheese = "a" then
  887.         drawfillbox (520, 145, 580, 143, 67)
  888.     elsif cheese = "b" then
  889.         put ""
  890.     end if
  891.     case condiment of
  892.         label "a" :
  893.             put ""
  894.             drawfilloval (551, 147, 35, 2, 40)
  895.  
  896.         label "b" :
  897.             put ""
  898.             drawfilloval (551, 147, 35, 2, 14)
  899.         label "c" :
  900.             put ""
  901.             drawfilloval (551, 147, 35, 2, 31)
  902.         label "d" :
  903.             put ""
  904.             %EDIT
  905.     end case
  906.  
  907.  
  908.     %SECRET FORMULA
  909.  
  910.     put "Choose a krabby patty secret formula ingredient"
  911.     put "a. Special secret sauce"
  912.     put "b. Plankton"
  913.     put "c. Love"
  914.     put "d. Jellyfish jelly"
  915.     var formula : string
  916.     get formula
  917.    count := count + 1
  918. if buns = "a" then
  919. count := count + 0
  920. elsif buns = "b" then
  921. count := count + 1
  922. end if
  923.     cls
  924.  
  925.       if buns = "a" then
  926.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  927. elsif buns = "b" then
  928.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  929. end if
  930. if patty = "a" then
  931.     drawfilloval (550, 129, 30, 5, 16)
  932.  
  933. elsif patty = "b" then
  934.     drawfilloval (550, 129, 30, 5, 113)
  935.  
  936. elsif patty = "c" then
  937.     drawfilloval (550, 129, 30, 5, 63)
  938. end if
  939. if lettuce = "a" then
  940.     drawfillbox (520, 138, 530, 133, 45)
  941.     drawfillbox (530, 138, 540, 133, 71)
  942.     drawfillbox (540, 138, 550, 133, 48)
  943.     drawfillbox (550, 138, 560, 133, 120)
  944.     drawfillbox (560, 138, 570, 133, 73)
  945.     drawfillbox (570, 138, 580, 133, 118)
  946.  
  947. elsif lettuce = "b" then
  948.     drawfillbox (520, 138, 580, 133, 119)
  949.  
  950. elsif
  951.      lettuce = "c" then
  952.         put ""
  953.     end if
  954.     if vegetable = "a" then
  955.         drawfilloval (550, 142, 30, 4, 40)
  956.         drawfilloval (550, 143, 20, 2, 64)
  957.     elsif vegetable = "b" then
  958.         drawfilloval (530, 140, 10, 2, 193)
  959.         drawfilloval (545, 140, 10, 2, 117)
  960.         drawfilloval (560, 140, 10, 2, 191)
  961.         drawfilloval (575, 140, 10, 2, 118)
  962.     elsif vegetable = "c" then
  963.         drawfilloval (530, 140, 10, 2, 44)
  964.         drawfilloval (545, 140, 10, 2, 42)
  965.         drawfilloval (560, 140, 10, 2, 43)
  966.         drawfilloval (575, 140, 10, 2, 40)
  967.     end if
  968.     if cheese = "a" then
  969.         drawfillbox (520, 145, 580, 143, 67)
  970.     elsif cheese = "b" then
  971.         put ""
  972.     end if
  973.     if condiment = "a" then
  974.         drawfilloval (551, 147, 35, 2, 40)
  975.     elsif condiment = "b"  then
  976.         drawfilloval (551, 147, 35, 2, 14)
  977.     elsif condiment = "c" then
  978.         drawfilloval (551, 147, 35, 2, 31)
  979.     elsif condiment = "d" then
  980.         put ""
  981.     end if
  982.  
  983.     %SPONGEBOB
  984.     %hori coor, vert coor, width right ending coor, height top ending coor, color
  985.  
  986.     %horiz start, vertical, width end, height colour
  987.     %body
  988.     drawbox (400, 100, 500, 200, 2)
  989.     drawfillbox (400, 100, 510, 210, 14)
  990.     drawfillbox (400, 115, 510, 110, 31)
  991.     drawfillbox (400, 90, 510, 110, 137)
  992.     drawfillbox (410, 95, 425, 100, 16)
  993.     drawfillbox (450, 95, 435, 100, 16)
  994.     drawfillbox (476, 95, 460, 100, 16)
  995.     drawfillbox (500, 95, 485, 100, 16)
  996.     %horiz, height cord, width, vert
  997.  
  998.     %eyes
  999.     drawfilloval (428, 170, 15, 15, 31)
  1000.     drawfilloval (480, 170, 15, 15, 31)
  1001.     %horiz, vertical, height, width, colour
  1002.     %pupils
  1003.     drawfilloval (480, 170, 10, 10, 54)
  1004.     drawfilloval (428, 170, 10, 10, 54)
  1005.     drawfilloval (428, 170, 5, 5, 16)
  1006.     drawfilloval (480, 170, 5, 5, 16)
  1007.     drawfilloval (477, 173, 3, 3, 31)
  1008.     drawfilloval (432, 173, 3, 3, 31)
  1009.  
  1010.     %legs
  1011.     drawfillbox (420, 89, 430, 85, 31)
  1012.     drawfillbox (480, 89, 490, 85, 31)
  1013.     drawfillbox (482, 75, 488, 84, 14)
  1014.     drawfillbox (422, 75, 428, 84, 14)
  1015.  
  1016.     %socks
  1017.     drawfillbox (422, 74, 428, 50, 31)
  1018.     drawfillbox (482, 74, 488, 50, 31)
  1019.     %stripes
  1020.     drawfillbox (482, 68, 488, 67, 12)
  1021.     drawfillbox (422, 68, 428, 67, 12)
  1022.     drawfillbox (422, 64, 428, 63, 55)
  1023.     drawfillbox (482, 64, 488, 63, 55)
  1024.  
  1025.     %shoes
  1026.     drawfilloval (492, 50, 13, 5, 16)
  1027.     drawfilloval (420, 50, 13, 5, 16)
  1028.  
  1029.     %mouth
  1030.     drawfillarc (453, 136, 25, 15, 190, 0, 135)
  1031.     %horizon, vertical, width, height, degree, slant, colour
  1032.     drawfillarc (460, 121, 12, 5, 400, 180, 63)
  1033.  
  1034.     drawfillbox (447, 132, 453, 136, 31)
  1035.     drawfillbox (455, 132, 461, 136, 31)
  1036.     %horiz, height cord, width, vert
  1037.  
  1038.     %spongeholes
  1039.     drawfilloval (411, 193, 7, 7, 116)
  1040.     %horiz, vertical, height, width, colour
  1041.     drawfilloval (500, 192, 6, 6, 116)
  1042.     drawfilloval (503, 176, 4, 4, 116)
  1043.     drawfilloval (413, 146, 5, 5, 116)
  1044.     drawfilloval (410, 125, 7, 7, 116)
  1045.     drawfilloval (498, 145, 7, 7, 116)
  1046.     drawfilloval (493, 125, 5, 5, 116)
  1047.     %table
  1048.     drawfillbox (300, 120, 610, 100, 19)
  1049.     drawfillbox (305, 40, 330, 120, 19)
  1050.     drawfillbox (605, 40, 580, 120, 19)
  1051.     %horiz start, vert start, width end, height end
  1052.  
  1053. put "Point count :", count
  1054.     case formula of
  1055.         label "a" :
  1056.             put ""
  1057.             drawfilloval (551, 153, 35, 3, 94)
  1058.  
  1059.         label "b" :
  1060.             put ""
  1061.             drawfilloval (551, 155, 35, 7, 123)
  1062.             drawfilloval (538, 155, 7, 5, 68)
  1063.             drawfilloval (538, 155, 5, 3, 12)
  1064.             drawfilloval (538, 155, 2, 1, 16)
  1065.             drawfilloval (536, 157, 1, 1, 31)
  1066.             drawfillbox (555, 153, 556, 157, 16)
  1067.             drawfilloval (585, 157, 7, 1, 123)
  1068.             drawfilloval (585, 151, 7, 1, 123)
  1069.             drawfillarc (508, 152, 13, 1, 30, 180, 193)
  1070.             drawfillarc (508, 157, 13, 1, 30, 180, 193)
  1071.  
  1072.         label "c" :
  1073.             drawfillbox (56, 200, 240, 400, 60) %EDIT(animation)
  1074.         label "d" :
  1075.             drawfilloval (551, 151, 35, 3, 57)
  1076.             drawfilloval (551, 154, 35, 1, 53)
  1077.  
  1078.     end case
  1079.  
  1080. put "yay ur done"
  1081.   if buns = "a" then
  1082.     drawfillarc (550, 130, 25, 15, 180, 360, 66)
  1083.      drawfillarc (550, 156, 25, 15, 360, 180, 66)
  1084. elsif buns = "b" then
  1085.     drawfillarc (550, 130, 25, 15, 180, 360, 114)
  1086.      drawfillarc (550, 156, 25, 15, 360, 180, 114)
  1087. end if
  1088. if patty = "a" then
  1089.     drawfilloval (550, 129, 30, 5, 16)
  1090.  
  1091. elsif patty = "b" then
  1092.     drawfilloval (550, 129, 30, 5, 113)
  1093.  
  1094. elsif patty = "c" then
  1095.     drawfilloval (550, 129, 30, 5, 63)
  1096. end if
  1097. if lettuce = "a" then
  1098.     drawfillbox (520, 138, 530, 133, 45)
  1099.     drawfillbox (530, 138, 540, 133, 71)
  1100.     drawfillbox (540, 138, 550, 133, 48)
  1101.     drawfillbox (550, 138, 560, 133, 120)
  1102.     drawfillbox (560, 138, 570, 133, 73)
  1103.     drawfillbox (570, 138, 580, 133, 118)
  1104.  
  1105. elsif lettuce = "b" then
  1106.     drawfillbox (520, 138, 580, 133, 119)
  1107.  
  1108. elsif
  1109.      lettuce = "c" then
  1110.         put ""
  1111.     end if
  1112.     if vegetable = "a" then
  1113.         drawfilloval (550, 142, 30, 4, 40)
  1114.         drawfilloval (550, 143, 20, 2, 64)
  1115.     elsif vegetable = "b" then
  1116.         drawfilloval (530, 140, 10, 2, 193)
  1117.         drawfilloval (545, 140, 10, 2, 117)
  1118.         drawfilloval (560, 140, 10, 2, 191)
  1119.         drawfilloval (575, 140, 10, 2, 118)
  1120.     elsif vegetable = "c" then
  1121.         drawfilloval (530, 140, 10, 2, 44)
  1122.         drawfilloval (545, 140, 10, 2, 42)
  1123.         drawfilloval (560, 140, 10, 2, 43)
  1124.         drawfilloval (575, 140, 10, 2, 40)
  1125.     end if
  1126.     if cheese = "a" then
  1127.         drawfillbox (520, 145, 580, 143, 67)
  1128.     elsif cheese = "b" then
  1129.         put ""
  1130.     end if
  1131.     if condiment = "a" then
  1132.         drawfilloval (551, 147, 35, 2, 40)
  1133.     elsif condiment = "b"  then
  1134.         drawfilloval (551, 147, 35, 2, 14)
  1135.     elsif condiment = "c" then
  1136.         drawfilloval (551, 147, 35, 2, 31)
  1137.     elsif condiment = "d" then
  1138.  
  1139.         put ""
  1140.         end if
  1141.     if formula = "a" then
  1142.         drawfilloval (551, 153, 35, 3, 94)
  1143.  
  1144.     elsif formula = "b" then
  1145.         drawfilloval (551, 155, 35, 7, 123)
  1146.         drawfilloval (538, 155, 7, 5, 68)
  1147.         drawfilloval (538, 155, 5, 3, 12)
  1148.         drawfilloval (538, 155, 2, 1, 16)
  1149.         drawfilloval (536, 157, 1, 1, 31)
  1150.         drawfillbox (555, 153, 556, 157, 16)
  1151.         drawfilloval (585, 157, 7, 1, 123)
  1152.         drawfilloval (585, 151, 7, 1, 123)
  1153.         drawfillarc (508, 152, 13, 1, 30, 180, 193)
  1154.         drawfillarc (508, 157, 13, 1, 30, 180, 193)
  1155.     elsif formula = "c" then
  1156.         drawfillbox (56, 200, 240, 400, 60) %EDIT(animation)
  1157.     elsif formula = "d" then
  1158.         drawfilloval (551, 151, 35, 3, 57)
  1159.         drawfilloval (551, 154, 35, 1, 53)
  1160.     end if
  1161.  
  1162.       %SPONGEBOB
  1163.     %hori coor, vert coor, width right ending coor, height top ending coor, color
  1164.  
  1165.     %horiz start, vertical, width end, height colour
  1166.     %body
  1167.     drawbox (400, 100, 500, 200, 2)
  1168.     drawfillbox (400, 100, 510, 210, 14)
  1169.     drawfillbox (400, 115, 510, 110, 31)
  1170.     drawfillbox (400, 90, 510, 110, 137)
  1171.     drawfillbox (410, 95, 425, 100, 16)
  1172.     drawfillbox (450, 95, 435, 100, 16)
  1173.     drawfillbox (476, 95, 460, 100, 16)
  1174.     drawfillbox (500, 95, 485, 100, 16)
  1175.     %horiz, height cord, width, vert
  1176.  
  1177.     %eyes
  1178.     drawfilloval (428, 170, 15, 15, 31)
  1179.     drawfilloval (480, 170, 15, 15, 31)
  1180.     %horiz, vertical, height, width, colour
  1181.     %pupils
  1182.     drawfilloval (480, 170, 10, 10, 54)
  1183.     drawfilloval (428, 170, 10, 10, 54)
  1184.     drawfilloval (428, 170, 5, 5, 16)
  1185.     drawfilloval (480, 170, 5, 5, 16)
  1186.     drawfilloval (477, 173, 3, 3, 31)
  1187.     drawfilloval (432, 173, 3, 3, 31)
  1188.  
  1189.     %legs
  1190.     drawfillbox (420, 89, 430, 85, 31)
  1191.     drawfillbox (480, 89, 490, 85, 31)
  1192.     drawfillbox (482, 75, 488, 84, 14)
  1193.     drawfillbox (422, 75, 428, 84, 14)
  1194.  
  1195.     %socks
  1196.     drawfillbox (422, 74, 428, 50, 31)
  1197.     drawfillbox (482, 74, 488, 50, 31)
  1198.     %stripes
  1199.     drawfillbox (482, 68, 488, 67, 12)
  1200.     drawfillbox (422, 68, 428, 67, 12)
  1201.     drawfillbox (422, 64, 428, 63, 55)
  1202.     drawfillbox (482, 64, 488, 63, 55)
  1203.  
  1204.     %shoes
  1205.     drawfilloval (492, 50, 13, 5, 16)
  1206.     drawfilloval (420, 50, 13, 5, 16)
  1207.  
  1208.     %mouth
  1209.     drawfillarc (453, 136, 25, 15, 190, 0, 135)
  1210.     %horizon, vertical, width, height, degree, slant, colour
  1211.     drawfillarc (460, 121, 12, 5, 400, 180, 63)
  1212.  
  1213.     drawfillbox (447, 132, 453, 136, 31)
  1214.     drawfillbox (455, 132, 461, 136, 31)
  1215.     %horiz, height cord, width, vert
  1216.  
  1217.     %spongeholes
  1218.     drawfilloval (411, 193, 7, 7, 116)
  1219.     %horiz, vertical, height, width, colour
  1220.     drawfilloval (500, 192, 6, 6, 116)
  1221.     drawfilloval (503, 176, 4, 4, 116)
  1222.     drawfilloval (413, 146, 5, 5, 116)
  1223.     drawfilloval (410, 125, 7, 7, 116)
  1224.     drawfilloval (498, 145, 7, 7, 116)
  1225.     drawfilloval (493, 125, 5, 5, 116)
  1226.     %table
  1227.     drawfillbox (300, 120, 610, 100, 19)
  1228.     drawfillbox (305, 40, 330, 120, 19)
  1229.     drawfillbox (605, 40, 580, 120, 19)
  1230.     %horiz start, vert start, width end, height end
  1231.  
  1232.  
  1233.     %-------------------------------------------------------------------------------
  1234.     %idea, change setting, and take business elsewhere when moving up
  1235.     put "We have another customer, would you like to make its order?"
  1236.     %ANIMATION WITH SPEECH BUBBLE
  1237.     put "Type 'y' to get started on the side dish, or 'n' to stop"
  1238.     get start
  1239.     loop
  1240.         exit when start = "y"
  1241.     end loop
  1242.     cls
  1243.     %SPONGEBOB
  1244.     %hori coor, vert coor, width right ending coor, height top ending coor, color
  1245.  
  1246.     %horiz start, vertical, width end, height colour
  1247.     %body
  1248.     drawbox (400, 100, 500, 200, 2)
  1249.     drawfillbox (400, 100, 510, 210, 14)
  1250.     drawfillbox (400, 115, 510, 110, 31)
  1251.     drawfillbox (400, 90, 510, 110, 137)
  1252.     drawfillbox (410, 95, 425, 100, 16)
  1253.     drawfillbox (450, 95, 435, 100, 16)
  1254.     drawfillbox (476, 95, 460, 100, 16)
  1255.     drawfillbox (500, 95, 485, 100, 16)
  1256.     %horiz, height cord, width, vert
  1257.  
  1258.     %eyes
  1259.     drawfilloval (428, 170, 15, 15, 31)
  1260.     drawfilloval (480, 170, 15, 15, 31)
  1261.     %horiz, vertical, height, width, colour
  1262.     %pupils
  1263.     drawfilloval (480, 170, 10, 10, 54)
  1264.     drawfilloval (428, 170, 10, 10, 54)
  1265.     drawfilloval (428, 170, 5, 5, 16)
  1266.     drawfilloval (480, 170, 5, 5, 16)
  1267.     drawfilloval (477, 173, 3, 3, 31)
  1268.     drawfilloval (432, 173, 3, 3, 31)
  1269.  
  1270.     %legs
  1271.     drawfillbox (420, 89, 430, 85, 31)
  1272.     drawfillbox (480, 89, 490, 85, 31)
  1273.     drawfillbox (482, 75, 488, 84, 14)
  1274.     drawfillbox (422, 75, 428, 84, 14)
  1275.  
  1276.     %socks
  1277.     drawfillbox (422, 74, 428, 50, 31)
  1278.     drawfillbox (482, 74, 488, 50, 31)
  1279.     %stripes
  1280.     drawfillbox (482, 68, 488, 67, 12)
  1281.     drawfillbox (422, 68, 428, 67, 12)
  1282.     drawfillbox (422, 64, 428, 63, 55)
  1283.     drawfillbox (482, 64, 488, 63, 55)
  1284.  
  1285.     %shoes
  1286.     drawfilloval (492, 50, 13, 5, 16)
  1287.     drawfilloval (420, 50, 13, 5, 16)
  1288.  
  1289.     %mouth
  1290.     drawfillarc (453, 136, 25, 15, 190, 0, 135)
  1291.     %horizon, vertical, width, height, degree, slant, colour
  1292.     drawfillarc (460, 121, 12, 5, 400, 180, 63)
  1293.  
  1294.     drawfillbox (447, 132, 453, 136, 31)
  1295.     drawfillbox (455, 132, 461, 136, 31)
  1296.     %horiz, height cord, width, vert
  1297.  
  1298.     %spongeholes
  1299.     drawfilloval (411, 193, 7, 7, 116)
  1300.     %horiz, vertical, height, width, colour
  1301.     drawfilloval (500, 192, 6, 6, 116)
  1302.     drawfilloval (503, 176, 4, 4, 116)
  1303.     drawfilloval (413, 146, 5, 5, 116)
  1304.     drawfilloval (410, 125, 7, 7, 116)
  1305.     drawfilloval (498, 145, 7, 7, 116)
  1306.     drawfilloval (493, 125, 5, 5, 116)
  1307.     %table
  1308.     drawfillbox (300, 120, 610, 100, 19)
  1309.     drawfillbox (305, 40, 330, 120, 19)
  1310.     drawfillbox (605, 40, 580, 120, 19)
  1311.     %horiz start, vert start, width end, height end
  1312.  
Success #stdin #stdout #stderr 0.02s 6944KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: /home/9xbvwa/prog:1311:51: Syntax error: Unexpected end of file
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/kAK5io
language:
Prolog (swi 7.6.4)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!