Got bored this week, so I thought I'd make this just for fun.
rem the usual stuff, hiding the mouse, setting sync rate
hide mouse
sync on
sync rate 60
rem set the display mode 640 x 480, 16-bit (needed)
set display mode 640,480,16
rem make 2 arrays to hold the text
dim screen$(30)
dim tline(1) : tline(0) = 0 : tline(1) = 0
restore introscreen
for a = 0 to 29
read screen$(a)
next a
rem bring the screen in line-by-line and wait until LMB
do
cls
tline(1) = tline(1) + 1
if tline(1) > 30 then tline(1) = 30
draw_txt(tline(0),tline(1))
if mouseclick()=1 then goto Quit
sync
loop
Quit:
rem the screen will now disappear line-by-line up the screen and exit.
do
cls
tline(0) = tline(0) + 1
draw_txt(tline(0),tline(1))
sync
if tline(0) = 30 then end
loop
end
rem this function draws everything on the array to screen
function draw_txt(b,c)
for a = b to c
print screen$(a)
next a
endfunction
rem the main screen. Maximum 80 characters by 30 lines
introscreen:
rem 00000000011111111112222222222333333333344444444445555555555666666666677777777778
rem 12345678901234567890123456789012345678901234567890123456789012345678901234567890
rem ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
data "/------------------\ _____ __ __ /------------------\" `-1
data "|____RaNDoM_CRaP___| / _ / __ / / / / |____RaNDoM_CRaP___|" `-2
data " (O==O) (O==O) / // /__/_/____/ /__/ /______________ (O==O) (O==O) " `-3
data " | |Knowing | | / ___/ / / _ / ___/ / __ / ___/ ___/ | | I | | " `-4
data " | | about | | / / / / / / // / /__/ / ___/__ /__ / | | have | | " `-5
data " | | Edgar | | /_/ /___/_/_//_/____/_/____/____/____/ | | faith | | " `-6
data " | | Allen| | **************************************** | | in | | " `-7
data " | | Poe | | ** MR. POINTLESS ** | | Retro | | " `-8
data " | | doesn't| | ****************Presents**************** | |Gamer | | " `-9
data " | | make | | | | again.| | " `-10
data " | | me a | | A working text screen, just like the | | AMIGA | | " `-11
data " | | GOTH!| | Assassins disks on the Commodore | |FOREVER!| | " `-12
data "/------------------\ Amiga! (Well, almost!) /------------------\" `-13
data "|__________________| |__________________|" `-14
data "//////////////////////////////////////HINT//////////////////////////////////////" `-15
data "//Try putting it at the start of your game. Makes for a great loading screen //" `-16
data "//for your Amiga remakes or just for fun! //" `-17
data "////////////////////////////////////////////////////////////////////////////////" `-18
data "//////////////////////////////////RANDOM STUFF//////////////////////////////////" `-19
data "//I like DB. Sorry, couldn't think of much else... //" `-20
data "////////////////////////////////////////////////////////////////////////////////" `-21
data " " `-22
data "(((((((((((((((((((((((((((((((((((That's all)))))))))))))))))))))))))))))))))))" `-23
data " Actually, no it isn't... " `-24
data " ///////////////////////////////////COMMENTS?\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ " `-25
data "// Post them in the forum! \\" `-26
data "||No 'Pointless' jokes, please. I put up with plenty of that at Retro Remakes||" `-27
data "\\ and now I consider it discrimination, so DON'T EVEN THINK ABOUT IT! //" `-28
data " \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\xx////////////////////////////////////// " `-29
data "**************************CLICK LEFT MOUSE TO CONTINUE**************************" `-30Iwata: "YOU'RE NOT HIM! YOU'RE NOT SUMIYOSHI! EEEEYAAAAAA!"
Sumiyoshi: "Who am I then?
