home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / micro5 / source / bas / beispiel.bas < prev    next >
BASIC Source File  |  1995-07-04  |  3KB  |  83 lines
  1. SCREEN 12
  2. fuck = 2
  3. fick = 10
  4. cc = 2
  5. ON TIMER(.18) GOSUB 4
  6. lauftext$ = SPACE$(20) + "Dies ist ein Beispielprogramm für die bewegten Grafiken (siehe Basic-Kurs Teil II)."
  7. lauftext$ = lauftext$ + "  Das Listing ist frei verwendbar, bis auf die Variablen bild$(1-4)."
  8. lauftext$ = lauftext$ + " in diesen Variablen stehen nähmlich die Grafikinformationen für die Bilder." + SPACE$(10)
  9. lauftexte$ = SPACE$(20) + "░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█░▒▓█      <<<<<<<< dies war einmal das Intro von: TALK TIME 3-95>>>>>programmed by: Dark Crusher & Speedy     *****"
  10. lauftexte$ = lauftexte$ + " GREETINX TO: Diskstuffer (+family), RatMan (+family), Sherlok  Homes (oder so ähnlich) + Verlobte & families and to my family!"+space$(20)
  11. TIMER ON
  12. bild$(4) = "s2 r60 d39 e39 f39 u37 r10 d4 l1 d2 l1 d2 l1 d2 l1 d29 f5 r40 e5 u39 r10 d4 l1 d4 l1 d3 l1 d2 l1 d10"
  13. bild$(4) = bild$(4) + "e17 u5 r15 g21 d10 f21"
  14. bild$(4) = bild$(4) + "d20 u1 l2 u1 l2 u1 l2 u1 l2 u1 l2 u1 l20 g5 d10 f5 r15 d10 l15 g5 d10 f5 r20 u1 r2 u1 r2 u1 r2 u1 r2 u1 r2 u1"
  15. bild$(4) = bild$(4) + "d15 l55 e10 u45 g20 h20 d45 f10 l20 u80 l10 g30 d40 f10 l30 e10 u40 h30"
  16. bild$(4) = bild$(4) + "d30 h10 l10 d50 f10 l40 e10 u50 l10 g10 u20 r8 e15 u30 l10 g10 u30 r9"
  17. bild$(5) = "s16 f5 h3 g5 br9 bd3 e5 f4 g2 h4 f4 g3 br4 bd1 e5 g5 f3 br5 bd1 e5 g3 r5 bl5 d5"
  18. bild$(5) = bild$(5) + "bl3 l6 d6 r6 bh2 bu1 l4 bl3 bu3 l5 g1 br1 bd4 e5 bl5 h3 g5 bd bl3 u8 bu bl4 g7 e4 f5"
  19. bild$(1) = "s24 d12 r3 e3 u6 h3 l3 br14 l4 g d10 f r4"
  20. bild$(2) = "s16 r6 d6 bl6 u6 bd3 r6 br4 bd4 u6 f6 u6 bd2 br4 d6 r2 e u4 h l2"
  21. bild$(3) = "s24 bd9 r6 e u3 h l5 h u3 e r6  br4 bd11 u10 e r4 f d3 g l5 br14 bu4 l5 d9 r5 br bh3 bu l3"
  22. bild$(3) = bild$(3) + "br9 r3 bd3 r2 l5 u6 r5 br4 d6 r3 e u4 h l3  bd2 br9 f2 e2 g4"
  23. 3 FOR xt = 1 TO 5
  24. 1 x = 700
  25. f = 0
  26. y = 40
  27. DO UNTIL x = 0
  28. x = x - 1
  29. IF x = 300 AND f < 90 THEN f = f + 1: x = x + 1
  30. DRAW "bm " + STR$(x) + ",40 c" + STR$(cc)
  31. DRAW bild$(xt)
  32. FOR t = 1 TO 200
  33. IF INKEY$ = " " THEN GOTO 2
  34. NEXT t
  35. DRAW "bm " + STR$(x) + ",40 c0"
  36. DRAW bild$(xt)
  37. LOOP
  38. DO UNTIL y = 450
  39. y = y + 1
  40. DRAW "bm 0," + STR$(y) + "c" + STR$(cc)
  41. DRAW bild$(xt)
  42. FOR t = 1 TO 220
  43. IF INKEY$ = " " THEN GOTO 2
  44. NEXT t
  45. DRAW "bm 0," + STR$(y) + "c0"
  46. DRAW bild$(xt)
  47. LOOP
  48. cc = cc + 1
  49. IF cc = 16 THEN cc = 1
  50. NEXT xt
  51. GOTO 3
  52.  
  53. 2
  54. END
  55. 4
  56. IF bums = 0 THEN fuck = fuck + fick: fick = fick - 5.07
  57. IF bums = 1 THEN fuck = fuck - fick: fick = fick - 5.02
  58. IF fick < 0 THEN fick = 1
  59. IF fuck > 28 THEN bums = 1: fuck = 28: fick = 10
  60. IF fuck < 10 THEN bums = 0: fuck = 10: fick = 10
  61. stellen=stellen+1
  62. if stellen>len(lauftexte$) then stellen=1
  63. stelle = stelle + 1
  64. IF stelle / 3 = INT(stelle / 3) THEN c = c + 1
  65. IF c = 4 THEN c = 1
  66. IF c = 1 THEN COLOR 12
  67. IF c = 2 THEN COLOR 5
  68. IF c = 3 THEN COLOR 4
  69. IF stelle = LEN(lauftext$) THEN stelle = 1
  70. LOCATE 10, fuck
  71. PRINT SPACE$(20); MID$(lauftext$, stelle, 25); SPACE$(10)
  72. LOCATE 26, fuck
  73. PRINT SPACE$(20); MID$(lauftext$, stelle, 25); SPACE$(10)
  74. IF c = 1 THEN COLOR 15
  75. IF c = 2 THEN COLOR 8
  76. IF c = 3 THEN COLOR 7
  77. FOR i = 9 TO 29
  78. LOCATE i / 2 + 10, 33 - INT((i - 19))
  79. PRINT MID$(lauftexte$, stellen + 10 - (i - 19), 10)
  80. LOCATE i / 2 + 10, 33 + INT((i - 19))
  81. PRINT MID$(lauftexte$, stellen + 10 + (i - 19), 10)
  82. NEXT i
  83. return