CREATE LORDPID,OVERLORD CREATE COLPID,COLLISIONS CREATE PCPID,PIECES CREATE ICONPID,SEND_ICON MOVK 1,A8 ;INDICATE PLAYER 1 CLR A9 ;INDICATE START ME BEHIND PODIUM ;FOR DEMO MODE SCREENS CREATE PLY1PID,DRAW_PLYR_TORSO ;START ALL GAME PROCESSES CALLA BTOF MOVE @WAVE,A8 CALLA HEXTOASC CLR A0 MOVI 03F3FH,A6 ;COLOR CYCLE MOVI [080H,0C4H],A9 ;Y,X POSITION MOVE @WAVE,A8 DEC A8 ;CIRCUIT 1 ONLY MOVI NAMEBASE,A10 SLL 5,A8 ADD A8,A10 MOVE *A10,A8,L MOVI [0,2],A10 ;Y,X SPACING BETWEEN CHARCTERS MOVI RD15FONT,A11 ;FONT TABLE JSRP STRCNRMO CALLA DRAWLIVES ;DRAW PLAYERS LIVES IN P BOX SLEEP 54*2 ;ALLOW ENOUGH TIME TO SEE WAVE NO. CALLA ERASE_TXT MOVK 2,A0 ;TAKE OUT AND PUT IN TURMELL FILE MOVE A0,@EHALT MOVE @PLYRPRCS,A7,L ;ADJUST PLYR 1 BNDRYS CALLA DO_BND ;EVEN THOUGH DEMO ONLY SHOWS PLAYER 1 RIGHT NOW! ; MOVE @PLYRPRCS+32,A7,L ;ADJUST PLYR 2 BNDRYS ; CALLA DO_BND ;TURN ON RING AROUND PLAYER 1 MOVK 1,A9 MOVI 06D0H,A10 ;TIME RINGS ARE ON CREATE RNGPID,RINGS ;PLACE RING AROUND PLAYER X DIE WVFADE .LONG 0,PAL5TAB,P5TAB,P6TAB,0,0,0,0,0,0,P5TAB PAL5TAB: .LONG AUTOPAL,PRPLARN,NUARENAP,0 P5TAB: .LONG AUTOPAL,NUARENAP,0 P6TAB: .LONG NUARENAP,RBTP5,0