home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / MSRULES.ZIP / MAIN5.BAS < prev    next >
BASIC Source File  |  1995-06-26  |  8KB  |  386 lines
  1. DECLARE SUB prslow (b$)
  2. DECLARE SUB colchange (c!, r!, g!, b!)
  3. DECLARE SUB waitvbl (n%)
  4.  
  5. REM MicroSoft Rules pilademo
  6. REM (C.) Brainwash Inc. Aug 1994
  7. REM Shitty code by The Eye
  8. REM We didn't finish this in time for Assembly'94 PC demo competition.
  9. REM Thanx to Microsoft and bad mod players! :-(
  10.  
  11. SCREEN 13
  12. RANDOMIZE TIMER
  13. REM GOTO shit
  14.  
  15. REM Hardware requirements
  16.  
  17. PRINT "This demo requires a fast 486,"
  18. PRINT "1 megabyte memory and 1.5"
  19. PRINT "megabytes free HD space"
  20. PRINT "and a Gravis Ultrasound"
  21. PRINT "soundcard."
  22. PRINT
  23. PRINT "This demo fully utilizes your"
  24. PRINT "hardware and even more!"
  25. SLEEP 3
  26.  
  27. REM Disclaimer
  28.  
  29. CLS
  30. LOCATE 8, 16
  31. PRINT "Warning!"
  32. PRINT
  33. PRINT "This demo contains material which might"
  34. PRINT "offend some watchers or cause serious"
  35. PRINT "mental damage. Watch at your own risk!"
  36. PRINT
  37. PRINT "Press any key to exit or ESC to see the demo."
  38. vast:
  39. a$ = INKEY$
  40. IF a$ = "" THEN GOTO vast
  41. IF a$ <> CHR$(27) THEN STOP
  42.  
  43.  
  44. REM Title
  45. CLS
  46. SHELL "load_np.exe windo.np"
  47. SLEEP 6
  48. REM SLEEP 10
  49.  
  50. REM New OS
  51.  
  52. PALETTE 0, 0
  53. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  54. PALETTE 2, 63
  55. CLS
  56. COLOR 1
  57. LOCATE 10, 2
  58. PRINT "Powerful multitasking with Windows 4.0"
  59. COLOR 2
  60. LOCATE 12, 16
  61. PRINT "Chicago"
  62. COLOR 1
  63. SLEEP 6
  64. SHELL "load_np.exe 1bill.np"
  65. PAINT (0, 0), 1, 0
  66. FOR i% = 1 TO 8000
  67.  CALL colchange(255, RND * 63, RND * 63, RND * 63)
  68.  CALL colchange(7, RND * 63, RND * 63, RND * 63)
  69. NEXT i%
  70.  
  71.  
  72. REM Professional Quality Graphics
  73. CLS
  74. SHELL "load_np.exe bill11.np"
  75. COLOR 255
  76. LOCATE 3, 4
  77. PRINT "Bill Gates says:"
  78. LOCATE 4, 4
  79. PRINT "'Professional quality"
  80. LOCATE 5, 4
  81. PRINT "graphics for everyone'"
  82. SLEEP 8
  83.  
  84. CLS
  85. PALETTE 0, 1
  86. PALETTE 1, &H3F3F3F
  87. PALETTE 2, &H3F
  88. PALETTE 3, &H3F00
  89. PALETTE 4, &H3F3F
  90. PALETTE 5, &H3F3F00
  91. COLOR 1
  92. LINE (10, 180)-(300, 180)
  93. LINE (300, 180)-(294, 174)
  94. LINE (300, 180)-(294, 186)
  95. LINE (10, 20)-(10, 180)
  96. LINE (10, 20)-(4, 26)
  97. LINE (10, 20)-(16, 26)
  98. FOR i = 0 TO 60 STEP .1
  99.  PSET (i + 10, 190 - EXP(i / 20) * 10), 2
  100. NEXT i
  101. LOCATE 2, 11
  102. PRINT "Microsoft sales"
  103. LOCATE 2, 2
  104. PRINT "$"
  105. LOCATE 24, 30
  106. PRINT "time";
  107. COLOR 8
  108. CIRCLE (160, 100), 60
  109. LINE (160, 100)-(160, 50)
  110. LINE (160, 100)-(160 + 60 * COS(1), 100 + 50 * SIN(1))
  111. LINE (160, 100)-(160 + 60 * COS(4), 100 + 50 * SIN(4))
  112. PAINT (163, 95), 3, 8
  113. PAINT (150, 105), 4, 8
  114. PAINT (158, 53), 5, 8
  115. COLOR 1
  116. LOCATE 14, 12
  117. PRINT "Promise"
  118. LOCATE 15, 12
  119. PRINT "ware 81%"
  120. LOCATE 6, 14
  121. PRINT "Shit 17%"
  122. LOCATE 13, 22
  123. PRINT "Crap 23%"
  124. SLEEP 8
  125.  
  126. REM multimedia part
  127. PALETTE 0, 0
  128. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  129. CLS
  130. LOCATE 10, 10
  131. PRINT "Microsoft multimedia:"
  132. LOCATE 12, 7
  133. PRINT "Light years ahead of others!"
  134. SLEEP 7
  135. CLS
  136. y2% = 0
  137. FOR x% = 317 TO -2 STEP -1
  138.  y% = 100 - 30 * SIN((x% MOD 50) / 16)
  139.  LINE (x%, y%)-(x% + 2, y% + 2), 15, BF
  140.  LINE (x% + 1, y2%)-(x% + 3, y2% + 2), 0, BF
  141.  y2% = y%
  142.  CALL waitvbl(5)
  143. NEXT x%
  144.  
  145. REM Games for kids
  146.  
  147. PALETTE 0, 0
  148. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  149. CLS
  150. LOCATE 13, 7
  151. PRINT "Exciting new games for kids"
  152. SLEEP 6
  153. SHELL "load_np.exe hilu.np"
  154. SLEEP 10
  155.  
  156. REM Easy to use
  157.  
  158. PALETTE 0, 0
  159. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  160. CLS
  161. LOCATE 13, 1
  162. PRINT "Microsoft offers state of the art"
  163. PRINT "easy to use graphical user"
  164. PRINT "interfaces."
  165. SLEEP 6
  166. SHELL "load_np.exe 1bill2.np"
  167. LOCATE 7, 5
  168. COLOR 7
  169. prslow (">HELP")
  170. SLEEP 3
  171. LOCATE 8, 5
  172. PRINT "User error."
  173. LOCATE 9, 5
  174. PRINT "Invalid user on the console."
  175. LOCATE 10, 5
  176. PRINT "Please Abort, Replace or"
  177. LOCATE 11, 5
  178. PRINT "Fail the user?"
  179. SLEEP 6
  180.  
  181. REM Advanced 3D
  182.  
  183. PALETTE 0, 0
  184. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  185. CLS
  186. COLOR 1
  187. LOCATE 13, 14
  188. PRINT "Advanced 3D"
  189. SLEEP 6
  190. SHELL "play -l 12 -r 3 -p boxit.anm"
  191. CLS
  192.  
  193. REM Double your mind
  194.  
  195. PALETTE 0, 0
  196. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  197. CLS
  198. LOCATE 13, 10
  199. PRINT "Double the space:"
  200. LOCATE 15, 8
  201. PRINT "Handy space expander"
  202. SLEEP 6
  203. SCREEN 7
  204. CLS
  205. COLOR 2
  206. PRINT "c:\>";
  207. PRINT "d"; : SLEEP 1
  208. PRINT "i"; : SLEEP 1
  209. PRINT "r": SLEEP 1
  210. PRINT "Volume in drive C is TEMP150M    Serial number is 666:FC"
  211. PRINT "Directory of  c:\demo\*.*"
  212. PRINT
  213. PRINT ".            <DIR>      6.08.94  9.24a"
  214. PRINT "..           <DIR>      6.08.94  9.24a"
  215. PRINT "my_works.zip 157286122  6.08.94  4.11a"
  216. PRINT
  217. PRINT "157 286 122 bytes in 3 file(s)       157 286 122 bytes allocated"
  218. PRINT "278 bytes free"
  219. PRINT "c:\>";
  220. PRINT "d"; : SLEEP 1
  221. PRINT "o"; : SLEEP 1
  222. PRINT "u"; : SLEEP 1
  223. PRINT "b"; : SLEEP 1
  224. PRINT "l"; : SLEEP 1
  225. PRINT "e": SLEEP 3
  226. PRINT "Double the space activated."
  227.  
  228. PRINT "c:\>";
  229. PRINT "d"; : SLEEP 1
  230. PRINT "i"; : SLEEP 1
  231. PRINT "r": SLEEP 1
  232. PRINT "Volume in drive C is TEMP150M    Serial number is 666:FC"
  233. PRINT "Directory of  c:\demo\*.*"
  234. PRINT
  235. PRINT ".            <DIR>      6.08.94  9.24a"
  236. PRINT "..           <DIR>      6.08.94  9.24a"
  237. PRINT "my_works.zip 78643061   6.08.94  4.16a"
  238. PRINT
  239. PRINT "78 643 061 bytes in 3 file(s)       78 643 061 bytes allocated"
  240. PRINT "78 643 339 bytes free"
  241. SLEEP 3
  242. PRINT "System halted. Press reset."
  243. SLEEP 5
  244. SCREEN 13
  245.  
  246. REM Sex part
  247.  
  248. PALETTE 0, 0
  249. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  250. CLS
  251. LOCATE 13, 10
  252. PRINT "Lets see how Bill and Melinda Gates"
  253. PRINT "are doing on their wedding night..."
  254. SLEEP 5
  255. CLS
  256. SHELL "load_np.exe tiima.np"
  257. PALETTE 1, 63 + 16 * 256 + 16 * 65536
  258. COLOR 1
  259.  
  260. LOCATE 13, 1
  261. PRINT "Gawd, Bill its so"
  262. PRINT "small!";
  263. SLEEP 5
  264. REM LOCATE 13, 1
  265. REM PRINT "                 "
  266. REM PRINT "      ";
  267. LOCATE 12, 23
  268. PRINT "What else do you"
  269. LOCATE 13, 23
  270. PRINT "expect from micro"
  271. LOCATE 14, 23
  272. PRINT "soft."
  273. SLEEP 5
  274.  
  275. REM Happy Customers
  276.  
  277. PALETTE 0, 0
  278. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  279. CLS
  280. LOCATE 12, 1
  281. PRINT "Bill Gates is a great boss. If every"
  282. PRINT "firm would have such a great leader,"
  283. PRINT "all customers would be as happy as"
  284. PRINT "Mr. Gates!"
  285. SLEEP 7
  286. CLS
  287. SHELL "play.exe -l 12 -r 3 -p hekoheko.anm"
  288.  
  289. shit:
  290. REM End part
  291.  
  292. PALETTE 0, 0
  293. PALETTE 1, 63 + 63 * 256 + 63 * 65536
  294. CLS
  295. COLOR 1
  296.  
  297. LOCATE 2, 6
  298. PRINT
  299. CALL prslow("Credits for this demo:")
  300. PRINT
  301. CALL prslow("Advanced coding by:")
  302. PRINT
  303. CALL prslow("PISSI & TRUKKI & VILTTIVAIRI")
  304. PRINT
  305. CALL prslow("Amazing graphics by:")
  306. PRINT
  307. CALL prslow("PIKSELI & MANKELI")
  308. PRINT
  309. CALL prslow("Even more amazing music by:")
  310. PRINT
  311. CALL prslow("PURPPIS & SKEIDAN")
  312. PRINT
  313. CALL prslow("Cool design and PR propaganda by:")
  314. PRINT
  315. CALL prslow("PORE")
  316. SLEEP 3
  317. CLS
  318.  
  319. PALETTE 1, 63
  320. LOCATE 4, 1
  321. CALL prslow("This great demo was entirely made using the best programming tools")
  322. CALL prslow("available from Microsoft, like")
  323. CALL prslow("QBasic.")
  324. PRINT
  325. CALL prslow("10 000 000 men hours were spent making")
  326. CALL prslow("this demo.")
  327. CALL prslow("15000 happy testers have fully tested")
  328. CALL prslow("this great product.")
  329. CALL prslow("17654 coke bottles were consumed during")
  330. CALL prslow("the making of this demo.")
  331. PRINT
  332. PRINT
  333. CALL prslow("Next demo coming up soon:")
  334. PRINT
  335. CALL prslow("FC rules!")
  336. SLEEP 3
  337.  
  338. PALETTE 1, &H3F00
  339. CLS
  340. prslow ("Believe or not we spent many hours")
  341. prslow ("designing this demo and we didn't")
  342. prslow ("use any alcohol while making this.")
  343. PRINT
  344. prslow ("We think that design and ideas are")
  345. prslow ("are more important than a good and")
  346. prslow ("boring implementation.")
  347. PRINT
  348. prslow ("If you agree and want to see more")
  349. prslow ("crazy demos from us, GREET US!")
  350.  
  351. SLEEP 3
  352. CLS
  353. LOCATE 12, 10
  354. PRINT "You may trust in god."
  355. LOCATE 13, 10
  356. PRINT "We trust in Microsoft."
  357.  
  358. WHILE (INKEY$ = "")
  359. WEND
  360.  
  361. SUB colchange (c, r, g, b)
  362. OUT &H3C8, c
  363. OUT &H3C9, r
  364. OUT &H3C9, g
  365. OUT &H3C9, b
  366. END SUB
  367.  
  368. SUB prslow (b$)
  369.  FOR i% = 1 TO LEN(b$)
  370.   PRINT MID$(b$, i%, 1); : waitvbl (6 + RND * 3)
  371.  NEXT i%
  372.  PRINT
  373. END SUB
  374.  
  375. SUB waitvbl (n%)
  376.  FOR i% = 1 TO n%
  377.  DO
  378.   x% = INP(&H3DA)
  379.  LOOP UNTIL ((x% AND 9) = 9)
  380.  DO
  381.   x% = INP(&H3DA)
  382.  LOOP UNTIL ((x% AND 9) = 0)
  383.  NEXT i%
  384. END SUB
  385.  
  386.