API tools faq
paste
Advertisement
FortNiteGodLite

Untitled

FortNiteGodLite
Jan 23rd, 2018
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.24 KB | None | 0 0
raw download clone embed print report
  1. var font1, font2, font3, font4, font5 : int
  2. var x, y, button, btnNumber, btnUpDown, buttonnumber, buttonupdown, buttons : int
  3. var winID : int
  4. var slimechance, getoutchance : int
  5. var ch : string (1)
  6. winID := Window.Open ("graphics:1550;750")
  7.  
  8.  
  9. % process DoMusic
  10. % loop
  11. % Music.PlayFile ("traveller.mp3")
  12. % end loop
  13. % end DoMusic
  14. % fork DoMusic
  15.  
  16. %Fonts
  17. font1 := Font.New ("forte:20")
  18. assert font1 > 0
  19. font2 := Font.New ("sans serif:30:bold")
  20. assert font2 > 0
  21. font3 := Font.New ("forte:120:underline,italic")
  22. assert font3 > 0
  23. font4 := Font.New ("forte:60:underline")
  24. assert font4 > 0
  25. font5 := Font.New ("Impact:40")
  26. assert font5 > 0
  27.  
  28.  
  29. colourback (11)
  30. cls
  31.  
  32. %Loading Screen
  33. Font.Draw ("MA", 670, 375, font3, 12)
  34. delay (500)
  35. cls
  36. Font.Draw ("KEN", 660, 375, font3, 12)
  37. delay (500)
  38. cls
  39. Font.Draw ("KEPLAR", 570, 375, font3, 12)
  40. delay (700)
  41. cls
  42.  
  43. colourback (11)
  44. cls
  45.  
  46.  
  47. %Drawbox behind menu selections
  48. drawfillbox (30, 80, 195, 145, 10)
  49. drawfillbox (330, 80, 495, 145, 68)
  50. drawfillbox (630, 80, 795, 145, 43)
  51. drawfillbox (930, 80, 1095, 145, 68)
  52. drawfillbox (1230, 80, 1395, 145, 10)
  53. drawbox (25, 75, 200, 150, 12)
  54. drawbox (325, 75, 500, 150, 12)
  55. drawbox (625, 75, 800, 150, 12)
  56. drawbox (925, 75, 1100, 150, 12)
  57. drawbox (1225, 75, 1400, 150, 12)
  58.  
  59. %Menu selection options
  60. Font.Draw ("PLAY", 75, 100, font1, red)
  61. Font.Draw ("SETTINGS", 350, 100, font1, red)
  62. Font.Draw ("LOBBY", 650, 100, font1, red)
  63. Font.Draw ("ABOUT", 965, 100, font1, red)
  64. Font.Draw ("QUIT", 1275, 100, font1, red)
  65. Font.Draw ("Ma-ken Keplar", 500, 500, font4, 12)
  66.  
  67. %Main Program
  68.  
  69. loop
  70. %Mouse
  71. mousewhere (x, y, button)
  72. locate (1, 1)
  73.  
  74.  
  75. randint (slimechance, 1, 1)
  76. randint (getoutchance, 1, 10)
  77.  
  78. %This is the Play Button
  79. if x >= 30 and x <= 195 and y >= 80 and y <= 145 and button = 1 then
  80. cls
  81. View.Update
  82.  
  83. drawfillbox (30, 80, 195, 145, 10)
  84. drawfillbox (330, 80, 495, 145, 68)
  85. drawfillbox (630, 80, 795, 145, 43)
  86. drawfillbox (930, 80, 1095, 145, 68)
  87. drawfillbox (1230, 80, 1395, 145, 10)
  88. drawbox (25, 75, 200, 150, 12)
  89. drawbox (325, 75, 500, 150, 12)
  90. drawbox (625, 75, 800, 150, 12)
  91. drawbox (925, 75, 1100, 150, 12)
  92. drawbox (1225, 75, 1400, 150, 12)
  93. Font.Draw ("PLAY", 75, 100, font1, red)
  94. Font.Draw ("SETTINGS", 350, 100, font1, red)
  95. Font.Draw ("LOBBY", 650, 100, font1, red)
  96. Font.Draw ("ABOUT", 965, 100, font1, red)
  97. Font.Draw ("QUIT", 1275, 100, font1, red)
  98. Font.Draw ("Long long ago, there lived a Man that could slay all Demons,", 120, 600, font5, blue)
  99. Font.Draw ("Mythical Creatures, Dragons, but there was one Man/Women", 100, 500, font5, blue)
  100. Font.Draw ("could not slay.", 600, 400, font5, blue)
  101. delay (6000)
  102. cls
  103. Font.Draw ("That Man/Women is you!", 530, 600, font5, blue)
  104. delay (2000)
  105. cls
  106. drawfillbox (450, 500, 560, 435, blue)
  107. drawfillbox (1000, 500, 1100, 435, red)
  108. drawfillbox (30, 80, 195, 145, 10)
  109. drawfillbox (330, 80, 495, 145, 68)
  110. drawfillbox (630, 80, 795, 145, 43)
  111. drawfillbox (930, 80, 1095, 145, 68)
  112. drawfillbox (1230, 80, 1395, 145, 10)
  113. drawbox (25, 75, 200, 150, 12)
  114. drawbox (325, 75, 500, 150, 12)
  115. drawbox (625, 75, 800, 150, 12)
  116. drawbox (925, 75, 1100, 150, 12)
  117. drawbox (1225, 75, 1400, 150, 12)
  118. Font.Draw ("PLAY", 75, 100, font1, red)
  119. Font.Draw ("SETTINGS", 350, 100, font1, red)
  120. Font.Draw ("LOBBY", 650, 100, font1, red)
  121. Font.Draw ("ABOUT", 965, 100, font1, red)
  122. Font.Draw ("QUIT", 1275, 100, font1, red)
  123. Font.Draw ("Press 'b' if you are a MAN or 'g' if you are a WOMEN", 350, 700, font2, red)
  124. getch (ch)
  125. if ch = "g" then
  126. Font.Draw ("You are a WOMEN!", 720, 600, font5, red)
  127. delay (2000)
  128. cls
  129. Font.Draw ("Heyo Female Traveller! my names David Elrious Vinchen Ischen Locken ", 200, 500, font2, 43)
  130. Font.Draw ("you can call me David, I need the Slime", 200, 400, font2, 43)
  131. Font.Draw ("they are in Madouls Forest can you get it for me?", 200, 300, font2, 43)
  132. Font.Draw ("Press 'y' to accept the quest or Press 'n' to decline", 200, 200, font2, 43)
  133. elsif ch = "b" then
  134. Font.Draw ("You are a MAN!", 450, 600, font5, blue)
  135. delay (2000)
  136. cls
  137. Font.Draw ("Heyo Male Traveller! my names David Elrious Vinchen Ischen Locken ", 200, 500, font2, 43)
  138. Font.Draw ("you can call me David, I need the Slime", 200, 400, font2, 43)
  139. Font.Draw ("they are in Madouls Forest can you get it for me?", 200, 300, font2, 43)
  140. Font.Draw ("Press 'y' to accept the quest or Press 'n' to decline", 200, 200, font2, 43)
  141. end if
  142. getch (ch)
  143. if ch = "y" then
  144. cls
  145. delay (200)
  146. Font.Draw ("Loading", 200, 600, font2, 43)
  147. delay (200)
  148. Font.Draw ("Loading.", 200, 600, font2, 43)
  149. delay (200)
  150. Font.Draw ("Loading..", 200, 600, font2, 43)
  151. delay (200)
  152. Font.Draw ("Loading...", 200, 600, font2, 43)
  153. cls
  154. elsif ch = "n" then
  155. Window.Close (winID)
  156. end if
  157. Font.Draw ("A Slime appears in front of you", 200, 600, font2, 43)
  158. Font.Draw ("Press 'g' to fight or 'f' to flee from the battle", 200, 500, font2, 43)
  159. getch (ch)
  160. if ch = "g" and slimechance = 1 then
  161. Font.Draw ("You won this battle and got a piece of ... Slime?", 200, 400, font2, 43)
  162. delay (3000)
  163. cls
  164. elsif ch = "f" then
  165. Font.Draw ("Traveller, you flee'd... from a Slime think about it...", 200, 300, font2, 43)
  166. delay (5000)
  167. Window.Close (winID)
  168. end if
  169. Font.Draw ("Traveller, Thank you for bringing me this useless slime", 200, 600, font2, 43)
  170. Font.Draw ("bought me a little more time to capture you", 200, 500, font2, 43)
  171. Font.Draw ("You are being sucked into David's miniture dungeon", 200, 400, font2, 43)
  172. Font.Draw ("You have a 2/10 chance of getting out will you take this chance?", 200, 300, font2, 43)
  173. Font.Draw ("Press 'f' to try and flee from David Press 'g' to give in", 200, 200, font2, 43)
  174. getch (ch)
  175. if ch = "f" and getoutchance >= 8 then
  176. cls
  177. Font.Draw ("You successfully got out of this 'sucky' situation", 200, 300, font2, 43)
  178. elsif ch = "f" and getoutchance <= 8 then
  179. colourback (black)
  180. cls
  181. Font.Draw ("You died.", 300, 400, font3, white)
  182. delay (3000)
  183. cls
  184. Font.Draw ("Game Over", 300, 400, font3, white)
  185. delay (3000)
  186. Window.Close (winID)
  187. elsif ch = "g" then
  188. delay (2000)
  189. colourback (black)
  190. cls
  191. Font.Draw ("All you see is black, you are now one of David's", 200, 400, font2, white)
  192. Font.Draw ("or D.E.V.I.L's power source", 200, 300, font2, 43)
  193. delay (3000)
  194. cls
  195. Font.Draw ("Game Over", 300, 400, font3, white)
  196. delay (3000)
  197. Window.Close (winID)
  198. end if
  199. drawfillbox (30, 80, 195, 145, 10)
  200. drawfillbox (330, 80, 495, 145, 68)
  201. drawfillbox (630, 80, 795, 145, 43)
  202. drawfillbox (930, 80, 1095, 145, 68)
  203. drawfillbox (1230, 80, 1395, 145, 10)
  204. drawbox (25, 75, 200, 150, 12)
  205. drawbox (325, 75, 500, 150, 12)
  206. drawbox (625, 75, 800, 150, 12)
  207. drawbox (925, 75, 1100, 150, 12)
  208. drawbox (1225, 75, 1400, 150, 12)
  209. Font.Draw ("PLAY", 75, 100, font1, red)
  210. Font.Draw ("SETTINGS", 350, 100, font1, red)
  211. Font.Draw ("LOBBY", 650, 100, font1, red)
  212. Font.Draw ("ABOUT", 965, 100, font1, red)
  213. Font.Draw ("QUIT", 1275, 100, font1, red)
  214. end if
  215.  
  216. %This is the Settings Button
  217. if x >= 330 and x <= 495 and y >= 80 and y <= 145 and button = 1 then
  218. cls
  219. View.Update
  220. Font.Draw ("Graphics <| 1920 x 1080 |>", 100, 600, font5, red)
  221. Font.Draw ("Brightness <| 50 |>", 100, 500, font5, red)
  222. Font.Draw ("Motion Blur <| ON |>", 100, 400, font5, red)
  223. Font.Draw ("Quality <| Ultra |>", 100, 300, font5, red)
  224. Font.Draw ("VSync <| OFF |>", 100, 200, font5, red)
  225. Font.Draw ("Shadows <| Ultra |>", 1000, 600, font5, red)
  226. drawfillbox (30, 80, 195, 145, 10)
  227. drawfillbox (330, 80, 495, 145, 68)
  228. drawfillbox (630, 80, 795, 145, 43)
  229. drawfillbox (930, 80, 1095, 145, 68)
  230. drawfillbox (1230, 80, 1395, 145, 10)
  231. drawbox (25, 75, 200, 150, 12)
  232. drawbox (325, 75, 500, 150, 12)
  233. drawbox (625, 75, 800, 150, 12)
  234. drawbox (925, 75, 1100, 150, 12)
  235. drawbox (1225, 75, 1400, 150, 12)
  236. Font.Draw ("PLAY", 75, 100, font1, red)
  237. Font.Draw ("SETTINGS", 350, 100, font1, red)
  238. Font.Draw ("LOBBY", 650, 100, font1, red)
  239. Font.Draw ("ABOUT", 965, 100, font1, red)
  240. Font.Draw ("QUIT", 1275, 100, font1, red)
  241. end if
  242.  
  243.  
  244. %This is the Lobby/Main Menu Button
  245. if x >= 630 and x <= 795 and y >= 80 and y <= 145 and button = 1 then
  246. cls
  247. View.Update
  248. drawfillbox (30, 80, 195, 145, 10)
  249. drawfillbox (330, 80, 495, 145, 68)
  250. drawfillbox (630, 80, 795, 145, 43)
  251. drawfillbox (930, 80, 1095, 145, 68)
  252. drawfillbox (1230, 80, 1395, 145, 10)
  253. drawbox (25, 75, 200, 150, 12)
  254. drawbox (325, 75, 500, 150, 12)
  255. drawbox (625, 75, 800, 150, 12)
  256. drawbox (925, 75, 1100, 150, 12)
  257. drawbox (1225, 75, 1400, 150, 12)
  258. Font.Draw ("PLAY", 75, 100, font1, red)
  259. Font.Draw ("SETTINGS", 350, 100, font1, red)
  260. Font.Draw ("LOBBY", 650, 100, font1, red)
  261. Font.Draw ("ABOUT", 965, 100, font1, red)
  262. Font.Draw ("QUIT", 1275, 100, font1, red)
  263. Font.Draw ("Ma-ken Keplar", 500, 500, font4, 12)
  264. end if
  265.  
  266.  
  267. %This is the About Button
  268. if x >= 930 and x <= 1095 and y >= 80 and y <= 145 and button = 1 then
  269. cls
  270. View.Update
  271. drawfillbox (30, 80, 195, 145, 10)
  272. drawfillbox (330, 80, 495, 145, 68)
  273. drawfillbox (630, 80, 795, 145, 43)
  274. drawfillbox (930, 80, 1095, 145, 68)
  275. drawfillbox (1230, 80, 1395, 145, 10)
  276. drawbox (25, 75, 200, 150, 12)
  277. drawbox (325, 75, 500, 150, 12)
  278. drawbox (625, 75, 800, 150, 12)
  279. drawbox (925, 75, 1100, 150, 12)
  280. drawbox (1225, 75, 1400, 150, 12)
  281. Font.Draw ("PLAY", 75, 100, font1, red)
  282. Font.Draw ("SETTINGS", 350, 100, font1, red)
  283. Font.Draw ("LOBBY", 650, 100, font1, red)
  284. Font.Draw ("ABOUT", 965, 100, font1, red)
  285. Font.Draw ("QUIT", 1275, 100, font1, red)
  286. Font.Draw ("Well, I see you've come to seek knowledge of this 'Game'", 200, 600, font2, red)
  287. end if
  288. %This is the Quit Button
  289. if x >= 1230 and x <= 1395 and y >= 80 and y <= 145 and button = 1 then
  290. Window.Close (winID)
  291. end if
  292. end loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!