home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
demos
/
scrolly.amos
/
scrolly.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1991-01-01
|
5KB
|
155 lines
Screen Open 0,320,200,32,Lowres
Paper 0 : Hide On : Curs Off : Cls
Break Off
SETUP:
Led Off
Close Editor
Curs Off
Dim X$(51),X(51),Y(51),XX(20),YY(20),O(4)
SCNT=1
CNT=31
SC$=" YO DUDES }}}}}} THIS IS ROB OF CYBERNETICS RAPPING TO YOU VIA THIS "
SC$=SC$+"SCROLLY......@WHAT DO YOU THINK OF OUR FIRST CYBER-DEMO OF THIS YEAR?@ "
SC$=SC$+"........NOT BAD FOR A BUNCH OF OLD TIPEX CODERS EH? "
SC$=SC$+" OK SO I LIED. I NICKED IT OF THE AMOS EXTRAS DISK AND ALTERED IT SLIGHTLY. "
SC$=SC$+" SOME OF YOU MAY HAVE NEVER HEARD OF US BECAUSE WE ARE QUITE A NEW GROUP, "
SC$=SC$+"BUT DON#T WORRY YOU WILL BE HEARING A LOT FROM US IN THE FUTURE!!! "
SC$=SC$+"IN CASE YOU WERE WONDERING WHO WE ARE I WILL TELL YOU.... "
SC$=SC$+"ALL OF YOU MUST REMEMBER THE GROUP CALLED TIPEX WHICH WENT DOWN A FEW MONTHES AGO, "
SC$=SC$+"WELL WERE BACK AND UNDER A NEW NAME }}}}}}}}} @CYBERNETICS INC.@ "
SC$=SC$+"WE ALSO HAVE A NEW MEMBER OF OUR GROUP CALLED DARK DOUG THE DEMON DESTROYER OF DENMARK "
SC$=SC$+"(WITCHFORD ACTUALLY) AND HE IS A HOT CODER IN FACT HE DONE THE CODE FOR A NEW "
SC$=SC$+"COMMERCIALLY AVAILABLE GAME CALLED @NUKE #EM@ AND HE IS CURRENTLY WORKING ON ONE BUT HE "
SC$=SC$+"WONT TELL US WHAT IT IS!!! AS FOR ME I#VE BEEN INVOLVED WITH SEVERAL DEMOS ON THE "
SC$=SC$+"SCENE AT THE MOMENT,AND I DONE THIS ONE....THE OTHER MEMBER OF CYBERNETICS IS MATT "
SC$=SC$+"AND ALL HE DOES IS TELL US WHAT TO WRITE IN THE SCROLLY { DO STUPID SAMPLES, "
SC$=SC$+"LIKE THE THEME FROM NEIGHBOURS { SOME CLIPS FROM DIRTY HARRY (NEVER MIND). "
SC$=SC$+" HERE ARE THE CREDITS FOR THIS DEMO OF OURS:- GFX - ROB { MATT. "
SC$=SC$+" MUSIC - STEWART SIBLEY HE#S MY BRO.. CODE - ROB { DOUG { A BIT OF HELP FROM MATT. "
SC$=SC$+" THE FOLLOWING IS A LIST OF SOFTWARE AND HARDWARE WE USED TO BRING YOU THIS MASTERPIECE:- "
SC$=SC$+" SOFTWARE: DPAINT II,MASTERSOUND,GAMES MUSIC CREATOR,AMOS THE CREATOR,AMOS SPRITE DESIGNER { LOADS OF "
SC$=SC$+"GAMES TO HELP US RELAX. HARDWARE: 2 1MEG AMIGAS,1 EXTERNAL DRIVE,3 TV#S,2 MICE,3 JOYSTICKS,"
SC$=SC$+"MASTERSOUND { 1 STERO SYSTEM.. NOW HERE ARE SOME GREETS AND THANKYOU MESSAGES:-"
SC$=SC$+"FIRST OF ALL TO OUR MUM#S FOR THE NEVER ENDING SUPPLY OF FOOD { DRINK,THANKS TO STEW FOR THE FONT "
SC$=SC$+"(PORTED OVER FROM AN ST.),THANKS TO EVERYONE ELSE WE KNOW AND A BIG YO DUDE TO OUR DOGS. "
SC$=SC$+" WE ARE NOW APPROACHING THE END OF THE SCROLLY BECAUSE I HAVE RUN OUT OF THINGS TO SAY "
SC$=SC$+"AND ALSO I HAVE GOT TO GO FOR MY DINNER,SO NOW THE END IS NEAR I CANSTART TOMESSUP "
SC$=SC$+"MY TXT LIKEY MISINN G OUT WORDS AND LE AVING UNW ANTED SPACES SPACES SPACES WHERERE THEY ARE NOT WANTED "
SC$=SC$+"ALSO I HAVE A TENDANCY TO REPEAT MYSELF AND SAY WHAT I HAVE JUST SAID AGAIN AND THEN I REPEAT MYSELF AND ALSO BEGIN "
SC$=SC$+"TO SAY THINGS TWICE AND REPEAT REPEAT REPEAT REPEAT REPEAT MYSELF."
SC$=SC$+" OK THATS ENOUGH OF THAT ,I AM GOING NOW BYE BYE}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} "
Unpack 6 To 0
Music 1
Tempo 17
Sprite 10,70,230,29
A$="A 0, (29,3)(30,3)(31,3)(32,3)(33,3)(32,3)(31,3)(30,3)(29,3) ; "
A$=A$+"L: M 7,0,2 ;J L"
Amal 10,A$
Amal On
Screen Open 1,354,Screen Height,Screen Colour,Lowres
Screen Display 1,134,43,319,256
Def Scroll 1,1,223 To 353,255,-4,0
Curs Off
Cls 0
Flash Off
Screen Copy 0,0,160,256,275 To 1,25,30
Screen Copy 0,257,160,320,275 To 1,55,100
Screen Copy 0,257,160,320,275 To 1,125,100
Screen Copy 0,257,160,320,275 To 1,195,100
Get Palette 0
SCRL$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@,!.:?/+-()#{} "
Gosub PIXD
Wait Vbl
For R=16 To 31
Colour R,Colour(R-16)
Next R
Hide On
Curs Off
ROO:
Gosub STEXT :
Wait Vbl
Goto ROO
PIXD:
For F=1 To 51
Read X$(F),X(F),Y(F)
Next F
Return
Data "0",0,0
Data "1",32,0
Data "2",64,0
Data "3",96,0
Data "4",128,0
Data "5",160,0
Data "6",192,0
Data "7",224,0
Data "8",256,0
Data "9",288,0
Data "A",0,32
Data "B",32,32
Data "C",64,32
Data "D",96,32
Data "E",128,32
Data "F",160,32
Data "G",192,32
Data "H",224,32
Data "I",256,32
Data "J",288,32
Data "K",0,64
Data "L",32,64
Data "M",64,64
Data "N",96,64
Data "O",128,64
Data "P",160,64
Data "Q",192,64
Data "R",224,64
Data "S",256,64
Data "T",288,64
Data "U",0,96
Data "V",32,96
Data "W",64,96
Data "X",96,96
Data "Y",128,96
Data "Z",160,96
Data "@",192,96
Data ",",224,96
Data "!",256,96
Data ".",288,96
Data ":",0,128
Data "?",32,128
Data "/",64,128
Data "+",96,128
Data "-",128,128
Data "(",160,128
Data ")",192,128
Data "#",224,128
Data "{",256,128
Data "}",288,128
Data " ",288,223
Rem
Rem ********* SCROLL TEXT ROUTINE **********
STEXT:
Scroll 1
Add CNT,4
If CNT>31 Then Gosub NCHAR : CNT=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
If Mouse Key=1 Then Goto EXIDEMO
Return
NCHAR:
E$=Mid$(SC$,SCNT,1)
E=Instr(SCRL$,E$)
Screen Copy 0,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
Return
EXIDEMO:
Screen Hide 0
XW=1 : YW=1 : XS=134 : YS=43
Amal Off
DDD:
Screen Display 1,XS,YS,319-XW,256-YW
Rem YS=YS+1
Rem If XW<319 Then XW=XW+1
If YW<255 Then YW=YW+1
If YW>=255 Then Goto FFF
Goto DDD
FFF:
Cls 0
Music Off
End