home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / anim / a234.dms / in.adf / autoexec.AMOS / autoexec.amosSourceCode next >
Encoding:
AMOS Source Code  |  1991-06-13  |  11.4 KB  |  509 lines
  1. '    LEMMINGS vs ROBOCOD 
  2. '
  3. '1992 by Sven Olav Sjeggestad     -     Grafic   
  4. '        Kim Jonassen             -     Coding   
  5. '        Arne Martin Barlund      -     Music  
  6. Copper Off 
  7. Led Off 
  8. Screen Open 1,320,256,32,Lowres
  9. Load Iff "df0:addictp",1
  10. Wait 1
  11. Copper On 
  12. Hide 
  13. Wait 300
  14. Fade 4 : Wait 15*4
  15. Copper Off 
  16. Screen Open 1,320,256,32,Lowres
  17. Load Iff "df0:robologo",1
  18. Screen Open 2,320,256,32,Lowres
  19. Load Iff "df0:lemlogocut",2
  20. Copper On 
  21. Hide 
  22. Wait 300
  23. Copper Off 
  24. WE=0
  25. Screen Open 1,320,256,32,Lowres
  26. Load "df0:lemrob.abk"
  27. Load "df0:music2.abk"
  28. Music 1
  29. Load Iff "df0:fjell fall 2",1
  30. Copper On 
  31. Double Buffer 
  32. Hide 
  33. Channel 8 To Bob 12
  34. Bob 12,300,51,1
  35. L$="A 12,(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(7,3)(8,3)(9,3)(10,3); loop"
  36. L$=L$+"Move -300,0,300"
  37. Amal 8,L$
  38. Amal On 8
  39. Wait 100
  40. Channel 9 To Bob 11
  41. Bob 11,300,48,31
  42. R$="A 11,(31,5)(32,5)(33,5)(34,5); loop"
  43. R$=R$+"Move -255,0,250"
  44. Amal 9,R$
  45. Amal On 9
  46. Wait 40
  47. Wait 210
  48. Amal Off 8 : Amal Off 9
  49. Y1=Y Bob(12) : Rem lemming y  
  50. X1=X Bob(12) : Rem lemming x
  51. Y2=Y Bob(11) : Rem robo y 
  52. X2=X Bob(11) : Rem robo x 
  53. Bob 12,X1+10,Y1-12,23
  54. Wait 50
  55. Bob 12,X1+10,Y1-12,24
  56. Wait 70
  57. Channel 8 To Bob 12
  58. Bob 12,X1+10,Y1-10,25
  59. Amal 8,"Move 0,300,100"
  60. Amal On 8
  61. Wait 100
  62. For W=0 To 1
  63. Wait 11
  64. Bob 11,X2+15,Y2+15,37
  65. Wait 11
  66. Bob 11,X2+15,Y2+15,35
  67. Wait 11
  68. Bob 11,X2+15,Y2+15,37
  69. Wait 11
  70. Bob 11,X2+15,Y2+15,36
  71. Next W
  72. Channel 9 To Bob 11
  73. Bob 11,X2+15,Y2,38
  74. Amal 9,"M 0,300,100"
  75. Amal On 9
  76. Wait 110
  77. Fade 5 : Wait 5*15
  78. Copper Off 
  79. Screen Close 1
  80. Screen Open 2,320,256,32,Lowres
  81. Load Iff "df0:fjell fall 1",2
  82. Copper On 
  83. Hide 
  84. Double Buffer 
  85. Channel 1 To Bob 1
  86. Bob 1,-5,-110,17
  87. Amal 1,"M 0,250,200"
  88. Amal On 1
  89. Channel 2 To Bob 2
  90. Bob 2,40,-77,38
  91. Amal 2,"M 0,250,110"
  92. Amal On 2
  93. A:
  94. X1=X Bob(1)
  95. Y1=Y Bob(1)
  96. X2=X Bob(2)
  97. Y2=Y Bob(2)
  98. If WE=2 Then Goto WEE
  99. If Y2=173 Then Bob 2,X2,Y2+40,39 : Wait 5 : Bob 2,X2,Y2+40,40 : WE=2
  100. WEE:
  101. If Y1>139 Then Goto D : 
  102. Goto A
  103. D:
  104. Channel 1 To Bob 1
  105. Bob 1,X1,Y1+40,18
  106. Amal 1,"A 1,(19,10)(20,10)(21,10)(22,20)(23,10)(24,10)(25,10)(26,10)"
  107. Amal On 1
  108. Wait 120
  109. Channel 8 To Bob 1
  110. Bob 1,X1-5,Y1+55,1
  111. L$="A 8,(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(7,3)(8,3)(9,3)(10,3); loop"
  112. L$=L$+"Move -50,0,50"
  113. Amal 8,L$
  114. Amal On 8
  115. Wait 100
  116. Bob 2,X2,Y2,41
  117. Wait 100
  118. Bob 4,18,-101,44
  119. Channel 4 To Bob 4
  120. Amal 4,"M 0,245,100"
  121. Amal On 4
  122. Wait 100
  123. X2=X Bob(4)
  124. Y2=Y Bob(4)
  125. Bob 4,X2,Y2-2,44
  126. Wait 4
  127. Bob 4,X2,Y2+2,44
  128. Wait 4
  129. Bob 4,X2,Y2-1,44
  130. Wait 4
  131. Bob 4,X2,Y2+1,44
  132. Wait 110
  133. E:
  134. Fade 5 : Wait 5*15
  135. Copper Off 
  136. Screen Close 2
  137. Screen Open 1,320,256,32,Lowres
  138. Load Iff "df0:fjell fall 3",1
  139. Copper On 
  140. Hide 
  141. Double Buffer 
  142. Channel 2 To Bob 2
  143. Bob 2,179,115,65
  144. Amal 2,"A 0,(65,3)(66,3)(67,3)" : Amal On 2
  145. Channel 3 To Bob 3
  146. Bob 3,205,115,65
  147. Amal 3,"A 0,(65,3)(66,3)(67,3)" : Amal On 3
  148. Channel 4 To Bob 4 : Rem flame
  149. Bob 4,54,202,77
  150. Amal 4,"A 0,(77,5)(78,5)" : Amal On 4
  151. Channel 5 To Bob 5
  152. Bob 5,49,193,79
  153. Amal 5,"A 0,(79,20)(80,20)" : Amal On 5
  154. Channel 6 To Bob 6
  155. Bob 6,242,218,48
  156. Amal 6,"A 0,(48,9)(49,9)(50,9)(51,15)(50,5)(49,5)(48,5)" : Amal On 6
  157. Channel 7 To Bob 7
  158. Bob 7,30,241,52
  159. Amal 7,"A 0,(52,2)(53,2)" : Amal On 7
  160. Channel 8 To Bob 8
  161. Bob 8,120,206,52
  162. Amal 8,"A 0,(52,2)(53,2)" : Amal On 8
  163. Channel 1 To Bob 1
  164. Bob 1,53,-77,38
  165. Amal 1,"M 0,113,70" : Amal On 1
  166. AL:
  167. X1=X Bob(1)
  168. Y1=Y Bob(1)
  169. If Y1=36 Then Goto CON
  170. Goto AL
  171. CON:
  172. Bob 1,35,60,34
  173. Wait 300
  174. Bob 1,50,76,35
  175. Wait 50
  176. Bob 1,50,76,37
  177. Wait 50
  178. Bob 1,50,76,36
  179. Wait 220
  180. Bob 1,33,60,31
  181. Channel 1 To Bob 1
  182. Amal 1,"M -100,0,100"
  183. Anim 1,"(31,10)(32,10)(33,10)(34,10)L"
  184. Amal On 
  185. Anim On 
  186. Wait 110
  187. Anim Off 1
  188. Amal Off 1
  189. Fade 5 : Wait 16*5
  190. Copper Off 
  191. Screen Close 1
  192. Screen Open 1,320,256,32,Lowres
  193. Load Iff "df0:fjell fall 4",1
  194. Copper On 
  195. Hide 
  196. Double Buffer 
  197. Channel 2 To Bob 2
  198. Bob 2,262,209,74
  199. Amal 2,"A 0,(74,7)(75,7)(76,7)" : Amal On 2
  200. Bob 3,128,187,68
  201. Channel 3 To Bob 3
  202. Anim 3,"(68,3)(69,3)(70,3)L"
  203. Bob 4,27,186,71
  204. Channel 4 To Bob 4
  205. Anim 4,"(71,3)(72,3)(73,3)L"
  206. Bob 5,5,203,81
  207. Channel 5 To Bob 5
  208. Anim 5,"(81,10)(82,10)L"
  209. Bob 6,40,220,81
  210. Channel 6 To Bob 6
  211.       Anim 6,"(82,10)(81,10)L"
  212. Bob 1,280,65,31
  213. Channel 1 To Bob 1
  214. Amal 1,"M -250,0,250"
  215. Anim 1,"(31,15)(32,15)(33,15)(34,15)L"
  216. Amal On : Anim On 
  217. R:
  218. X1=X Bob(1)
  219. If X1=30 Then Goto AA
  220. Goto R
  221. Wait 500
  222. AA:
  223. Amal Off 1
  224. Anim Off 1
  225. Bob 1,46,80,37
  226. Wait 300
  227. Bob 1,44,76,42
  228. Wait 10
  229. Bob 1,44,76,43
  230. Wait 30
  231. Bob 1,44,76,42
  232. Wait 10
  233. Bob 1,46,80,37
  234. Channel 1 To Bob 1
  235. Amal 1,"M 0,-200,20"
  236. Amal On 
  237. Wait 110
  238. Fade 5 : Wait 15*5
  239. Copper Off 
  240. Screen Close 1
  241. W:
  242. Screen Open 1,320,256,32,Lowres
  243. Load Iff "df0:fjell fall 5",1
  244. Copper On 
  245. Hide 
  246. Double Buffer 
  247. Bob 10,46,234,11
  248. Channel 8 To Bob 1
  249. Bob 1,300,193,1
  250. L$="A 5,(1,3)(2,3)(3,3)(4,3)(5,3)(6,3)(7,3)(8,3)(9,3)(10,3);loop"
  251. L$=L$+"Move -120,0,170"
  252. Amal 8,L$
  253. Amal On 8
  254. Y:
  255. X=X Bob(1)
  256. If X=180 Then Goto WE
  257. Goto Y
  258. WE:
  259. Bob 1,X,193,8
  260. Amal Off 12
  261. Bob 3,33,223,47
  262. Channel 3 To Bob 3
  263. Amal 3,"M 0,-28,20"
  264. Amal On 3
  265. YU:
  266. Y=Y Bob(3)
  267. If Y=195 Then Goto GER
  268. Goto YU
  269. GER:
  270. Bob 3,35,193,47 : Wait 1
  271. Bob 3,37,191,47 : Wait 1
  272. Bob 3,39,189,47 : Wait 1
  273. Bob 3,41,187,47 : Wait 1
  274. Bob 3,43,185,47 : Wait 1
  275. Bob 3,45,183,47 : Wait 1
  276. Bob 3,47,181,47 : Wait 1
  277. Bob 3,49,179,47 : Wait 1
  278. Bob 3,51,180,47 : Wait 1
  279. Bob 3,53,181,47 : Wait 1
  280. Bob 3,55,182,47 : Wait 1
  281. Bob 3,57,183,47 : Wait 1
  282. Bob 3,59,185,47 : Wait 1
  283. Bob 3,61,187,47 : Wait 1
  284. Bob 3,63,188,47 : Wait 1
  285. Bob 3,65,188,47 : Wait 1
  286. Bob 3,67,188,47 : Wait 1
  287. Wait 300
  288. Wait 10
  289. Bob 3,67,188,46
  290. Bob 1,180,193,54
  291. Wait 1
  292. Bob 3,67,188,45
  293. Wait 5
  294. Bob 3,67,188,46
  295. Bob 1,184,191,55
  296. Wait 1
  297. Bob 3,67,188,45
  298. Wait 5
  299. Bob 3,67,188,46
  300. Bob 1,190,189,56
  301. Wait 1
  302. Bob 3,67,188,45
  303. Wait 5
  304. Bob 3,67,188,46
  305. Bob 1,196,187,57
  306. Wait 1
  307. Bob 3,67,188,45
  308. Wait 5
  309. Bob 3,67,188,46
  310. Bob 1,202,185,58
  311. Wait 1
  312. Bob 3,67,188,45
  313. Wait 5
  314. Bob 3,67,188,46
  315. Bob 1,208,185,59
  316. Wait 1
  317. Bob 3,67,188,45
  318. Wait 5
  319. Bob 3,67,188,46
  320. Bob 1,214,187,60
  321. Wait 1
  322. Bob 3,67,188,45
  323. Wait 5
  324. Bob 3,67,188,46
  325. Bob 1,220,189,61
  326. Wait 1
  327. Bob 3,67,188,45
  328. Wait 5
  329. Bob 3,67,188,46
  330. Bob 1,226,191,62
  331. Wait 1
  332. Bob 3,67,188,45
  333. Wait 5
  334. Bob 3,67,188,46
  335. Bob 1,232,193,63
  336. Wait 1
  337. Bob 3,67,188,45
  338. Wait 5
  339. Bob 3,67,188,46
  340. Bob 1,238,193,64
  341. Wait 1
  342. Bob 3,67,188,45
  343. Wait 20
  344. Amal Off 3
  345. Bob 3,67,188,47
  346. Sam Loop Off 
  347. Wait 200
  348. Fade 5 : Wait 5*15
  349. Copper Off 
  350. SETUP:
  351. Screen Open 1,320,256,32,Lowres
  352. Load Iff "df0:addictmess",1
  353. Load "df0:lemrob2.abk"
  354. Flash Off 
  355. Double Buffer 
  356. Get Palette 1
  357. Copper On 
  358. Hide : Curs Off 
  359. Bob 1,350,36,1
  360. Bob 2,-50,110,11
  361. Channel 1 To Bob 1
  362. A$="A 0,(1,8)(2,8)(3,8)(4,8)(5,8)(6,8)(7,8)(8,8)(9,8)(10,8);"
  363. A$=A$+"E: M -400,0,300; Jump E"
  364. Amal 1,A$
  365. Amal On 1
  366. Channel 2 To Bob 2
  367. B$="A 0,(11,8)(12,8)(13,8)(14,8);"
  368. B$=B$+"E: M 400,0,300 Jump E"
  369. Amal 2,B$
  370. Amal On 2
  371. EE:
  372. AE=Rnd(240)
  373. AEE=Rnd(240)
  374. If X=330 Then Bob 2,-50,AE,11
  375. If XX=-58 Then Bob 1,350,AEE,1
  376. X=X Bob(2)
  377. XX=X Bob(1)
  378. If Mouse Key=(1) Then Goto SOS
  379. If Mouse Key=(2) Then Goto SOS
  380. Goto EE
  381. SOS:
  382. Fade 5 : Wait 5*15
  383. Copper Off 
  384. Timer=0
  385. Erase 1
  386. Led Off 
  387. Curs Off 
  388. Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
  389. SCNT=1
  390. CNT=31
  391. SC$="yepp! its a realy dead lemming!!!!! 1 - 0  to robocod, but will the lemmings strike back???  who knows.  but before i get the call from wwf i just plot on the credits for this demo:"
  392. SC$=SC$+"         coding   -   apollo                grafic  -    rage               music   -   lawbreaker         that was the credits!        this little beauty took over"
  393. SC$=SC$+" 80 bobs and overflow our memory 2000 times.            can you code, make music or artwork? send a letter and a disk containing your work to the address above. you dont have to "
  394. SC$=SC$+" be an expert. but no swapping.      (sorry lamers)        coming up is a list of the nembers   of *addict*:       *genious*       *nic*      *nuck head*       *bussi*    "
  395. SC$=SC$+"   *lawbreaker*        *cheek*        *maze*       *rif*      *apollo*       *plato*       *noise*      *rage*      *zink*     *arti*         that was the nember list!     "
  396. SC$=SC$+"   now it is time for a little  mezzage to the tech.level 1 group tna:   ya guys are real loosers. yo spotface (zappa) have you made some music in the last century.  we heard "
  397. SC$=SC$+"about a music that was 13 hour long.    yo dino byte have you decoded any demos lately!!!.     (dont take it personal mother fuckers!!!)     "
  398. SC$=SC$+"      and here they are......  all the children jokes....:         alle guttene sto og droen, utentatt kristian han sto og ristan.             alle barna hadde gode karakterer"
  399. SC$=SC$+" unntatt otto gi faen var hans motto.           alle barna lekte i gatene i tel aviv unntatt bud han kom i veien for en scud.    alle barna pusset tennene unntatt marius (genious) "
  400. SC$=SC$+"han var glad i karius.  (just kidding)     alle barna var pene og rene unntatt lise hun hadde klemt ut en kvise    (bekjente av deg zappa?)      alle barna hadde moro paa festen "
  401. SC$=SC$+"unntatt kitti hun drakk rein seksognitti.      "
  402. SC$=SC$+"   alle jentene var jomfru utenom bente hun kunne ikke vente.          alle barna reiste paa leirskole unntatt kjell han dro paa bordell        alle barna hopper i fallskjerm unntatt "
  403. SC$=SC$+"liile britta hun ligger paa sykehuset med flaggstang i fitta.         alle barna laa og sov unntatt merete hun laa og onanerte                     (cola pause)                  "
  404. SC$=SC$+"alle barna hoppet i fallskjerm unntatt nikken han fikk snora rundt pikken.         alle barna brukte kondom unntatt andre han spredde gondore.            alle barna var med mammaen paa"
  405. SC$=SC$+" jobb unntatt tore mammaen hans var hore.        alle guttene hadde leid pornofilm unntatt tore han hadde leid en hore.          alle barna lekte med dynamitt unntatt ole han laa spredd utover jordet."
  406. SC$=SC$+"             alle barna kom hjem fra zoo unntatt ella hun ble spist av en tarantella.         alle barna var kaate unntatt ulla hun var nyknulla.         lille jakob ned trappen falt, hjernemasse overalt."
  407. SC$=SC$+"          alle barna kom inn paa festen unntatt zappa han satt paa trappa.         alle guttene knulla jentene unntatt joey han gjorde det med david bowie.      "
  408. SC$=SC$+"                 bye,bye     see ya in the next production by the mother fucking best addict.......                                     "
  409. SC$=SC$+""
  410. Copper Off 
  411. Load Iff "df0:addict font.logo",0
  412. Screen Open 1,354,Screen Height,Screen Colour,Lowres
  413. Screen Display 1,134,43,319,256
  414. Def Scroll 1,1,223 To 353,255,-4,0
  415. Cls 0
  416. Flash Off 
  417. Screen Copy 0,0,160,230,250 To 1,40,10
  418. Screen Copy 0,230,175,330,225 To 1,115,120
  419. Get Palette 0
  420. Copper On 
  421. SCRL$="abcdefghijklmnopqrstuvwxyz0123456789.,:/?-!&()* "
  422. Gosub PIXD
  423. Wait Vbl 
  424. For R=16 To 31
  425.    Colour R,Colour(R-32)
  426. Next R
  427. Hide On 
  428. Get Bob 0,9,288,128 To 319,159
  429. Copper On 
  430. Hide 
  431. ROO:
  432. Gosub STEXT : 
  433. Wait Vbl 
  434. Goto ROO
  435. PIXD:
  436. For F=1 To 48
  437.    Read X$(F),X(F),Y(F)
  438. Next F
  439. Return 
  440. Data "a",0,0
  441. Data "b",32,0
  442. Data "c",64,0
  443. Data "d",96,0
  444. Data "e",128,0
  445. Data "f",160,0
  446. Data "g",192,0
  447. Data "h",224,0
  448. Data "i",256,0
  449. Data "j",288,0
  450. Data "k",0,32
  451. Data "l",32,32
  452. Data "m",64,32
  453. Data "n",96,32
  454. Data "o",128,32
  455. Data "p",160,32
  456. Data "q",192,32
  457. Data "r",224,32
  458. Data "s",256,32
  459. Data "t",288,32
  460. Data "u",0,64
  461. Data "v",32,64
  462. Data "w",64,64
  463. Data "x",96,64
  464. Data "y",128,64
  465. Data "z",160,64
  466. Data "0",192,64
  467. Data "1",224,64
  468. Data "2",256,64
  469. Data "3",288,64
  470. Data "4",0,96
  471. Data "5",32,96
  472. Data "6",64,96
  473. Data "7",96,96
  474. Data "8",128,96
  475. Data "9",160,96
  476. Data ".",192,96
  477. Data ",",224,96
  478. Data ":",256,96
  479. Data "/",288,96
  480. Data "?",0,128
  481. Data "-",32,128
  482. Data "!",64,128
  483. Data "&",96,128
  484. Data "(",128,128
  485. Data ")",160,128
  486. Data "*",192,128
  487. Data " ",224,128
  488. STEXT:
  489. Scroll 1
  490. Add CNT,4
  491. If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  492. Return 
  493. NCHAR:
  494. E$=Mid$(SC$,SCNT,1)
  495. E=Instr(SCRL$,E$)
  496. Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  497. Return 
  498. XW=1 : YW=1 : XS=134 : YS=43
  499. Amal Off 
  500. DDD:
  501. Screen Display 1,XS,YS,319-XW,256-YW
  502. Rem YS=YS+1
  503. Rem If XW<319 Then XW=XW+1 
  504. If YW<255 Then YW=YW+1
  505. If YW>=255 Then Goto FFF
  506. Goto DDD
  507. FFF:
  508. Music Off 
  509. End