Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | daniel-mar | 1 | remstart |
| 2 | Sync Rate 0 |
||
| 3 | load music "music\darkness.mid", 1 |
||
| 4 | loop music 1 |
||
| 5 | load sound "sound\Type.wav", 1 |
||
| 6 | lcd("The Dark Night...", 1, 10, 1, 1, 0) |
||
| 7 | sleep 500 |
||
| 8 | lcd("Dies ist eine Beta. Das Spiel wird in den nächsten 5 Jahren", 1, 40, 0, 1, 0) |
||
| 9 | sleep 500 |
||
| 10 | lcd("fertig sein. Benutzen Sie die Maus, um sich umzuschauen", 1, 55, 0, 1, 0) |
||
| 11 | sleep 500 |
||
| 12 | lcd("und benutzen Sie die Pfeiltasten, um zu laufen. Mit der rechten", 1, 70, 0, 1, 0) |
||
| 13 | sleep 500 |
||
| 14 | lcd("Maustaste springen Sie.", 1, 85, 0, 1, 0) |
||
| 15 | sleep 500 |
||
| 16 | lcd("(C)Copyright 2001 - 2002 Daniel Marschall.", 1, 115, 1, 0, 0) |
||
| 17 | sleep 500 |
||
| 18 | lcd("Alle Rechte vorbehalten!", 1, 130, 1, 0, 0) |
||
| 19 | sleep 500 |
||
| 20 | lcd("Besuchen Sie meine Webseite!", 1, 160, 0, 0, 1) |
||
| 21 | sleep 500 |
||
| 22 | lcd("http://www.d-m-home.de", 1, 175, 0, 0, 1) |
||
| 23 | sleep 500 |
||
| 24 | lcd("Diese Version ist vom 6.9.2002.", 1, 205, 1, 1, 1) |
||
| 25 | sleep 5000 |
||
| 26 | delete sound 1 |
||
| 27 | delete music 1 |
||
| 28 | remend |
||
| 29 | |||
| 30 | function lcd(rich$, x, y, r, g, b) |
||
| 31 | a = len(rich$) + 1 |
||
| 32 | i = 0 |
||
| 33 | s = 16 |
||
| 34 | set text font "Courier" |
||
| 35 | repeat |
||
| 36 | sprite 1, s, y, 1 |
||
| 37 | set cursor x * 8, y |
||
| 38 | x$ = mid$(rich$, x) |
||
| 39 | repeat |
||
| 40 | if r = 1 then ink rgb(i, 0, 0), 0 |
||
| 41 | if g = 1 then ink rgb(0, i, 0), 0 |
||
| 42 | if b = 1 then ink rgb(0, 0, i), 0 |
||
| 43 | if r = 1 and g = 1 then ink rgb(i, i, 0), 0 |
||
| 44 | if r = 1 and b = 1 then ink rgb(i, 0, i), 0 |
||
| 45 | if g = 1 and b = 1 then ink rgb(0, i, i), 0 |
||
| 46 | if b = 1 and g = 1 and b = 1 then ink rgb(i, i, i), 0 |
||
| 47 | text x * 8, y, x$ |
||
| 48 | inc i, 35 |
||
| 49 | sync |
||
| 50 | until i => 255 |
||
| 51 | inc x |
||
| 52 | inc s, 8 |
||
| 53 | i = 0 |
||
| 54 | play sound 1 |
||
| 55 | until x = a |
||
| 56 | endfunction |
||
| 57 |