historicalsource
/
pinballfantasies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
pinballfantasies/PLAND.ASM

6101 lines
123 KiB
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters!

This file contains invisible Unicode characters that may be processed differently from what appears below. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to reveal hidden characters.

;******************************************************************************
;** **
;** P I N B A L L F A N T A S I E S **
;** TABLE1: PARTY LAND **
;** **
;******************************************************************************
;REACHED THE SKY SKALL F™LJAS AV N<>N TEXT
INCLUDELIB PLAND
flipgfxfilesize=1748
FIRSTMASK_GFXADR=BPL*(SPLH+BANH)
GFXADR_FOR_FLIP_ANIM_DATA=FIRSTMASK_GFXADR+BPL*40
springsourceadr=GFXADR_FOR_FLIP_ANIM_DATA-3*23 ;3*23 ŽR F™R FJŽDERNS GFX
springdestadr=(splh+556)*bpl+304/4
DATAFLIP SEGMENT PARA PUBLIC 'DATA'
MAXDIFS1=114+5
MAXDIFS2=114+5
MAXDIFS3=137+5
maxdifs=137
if create_flip_data
LEFTFLIPTAB DW 42*(2*MAXDIFS1) DUP (1)
RIGHTFLIPTAB DW 42*(2*MAXDIFS2) DUP (1)
LEFTFLIP2TAB DW 28*(2*MAXDIFS3) DUP (1)
TEMPTAB DW 2*MAXDIFS DUP (1)
else
extrn leftfliptab,rightfliptab,leftflip2tab
endif
DATAFLIP ENDS
DATA SEGMENT PARA PUBLIC 'DATA'
ASSUME CS:CODE,DS:DATA
MODUL DB 'TABLE1.MOD',0,'$'
if create_flip_data
flipdatafil_L DB 'flipdata.1L',0
flipdatafil_R DB 'flipdata.1R',0
flipdatafil_L2 DB 'flipdata.1L2',0
flipgfxfil DB 'flipgfx.1',0
flipSTRUCfil DB 'flipSTRU.1',0
endif
hi_score_file db 'table1.hi',0
hi_score_list db 0,0,0, 0,5,0, 0,0,0, 0,0,0,'TSP',0
db 0,0,0, 0,2,5, 0,0,0, 0,0,0,'ICE',0
db 0,0,0, 0,1,0, 0,0,0, 0,0,0,'ANY',0
db 0,0,0, 0,0,5, 0,0,0, 0,0,0,'J L',0
;******************************************************************************
;******************************** DEFINES *************************************
;******************************************************************************
INHIBIT_REVERSE_TIME=120
TOTCENT=16
;******************** SYSTEM **********************
MAX_NO_OF_LIGHTS_FLASHING=15
MAX_NO_OF_WAIT_SYNCS=50
NOOFTASKS=50
RGB_BUFFER_LEN=1000
;******************** FLIPPER & BALL **********************
BALLH=16
BANH=576
STARTX=310-BALLH/2
STARTY=543-BALLH/2
LEFTFLIPX=80-1
LEFTFLIPY=509+1
LEFTFLIP2X=16
LEFTFLIP2Y=227
RIGHTFLIPX=80+80+1
RIGHTFLIPY=509+1
F3TOP=144+80
F3HEIGHT=58 ;CP! GISSAT VŽRDE!!!
;******************** FLASHING **********************
MATRIXCOLS=60F2H
matrixhi=60h
matrixlo=0F2h
BIT2COL DB 0,0,0,0,9,2,42,0 ;flipper f„rgerna
DROPSPEED=7
HITSPEED=3
SNACKSPEED=8
ARROWSPEED=12
QUICK_ARROWSPEED=2 ;?
PUKESPEED=2 ;?
WHOLEPUKESPEED=2 ;?
ROCKETSPEED=2 ;?
TRAINSPEED=14 ;!
TRAINSPEEDFAST=2 ;?
EYESPEED=7 ;?
TUNNELSPEED=8 ;?
BALOONSPEED=9 ;?
BALOONSPEEDFAST=2 ;?
MADSPEED=2 ;?
MADONSPEED=2 ;?
WHEELSPEED=8 ;?
QUICKFLASH_TIME=2*60 ;?
PARTY_ON_SPEED=3 ;?
SHOOT_AGAIN_SPEED=3 ;?
;******************** GAME TIMING ********************
_5X_TIME=10*60 ;!
DB_TIME=10*60 ;!
TUNNEL_TIME=12*60 ;10!
SKILL_SHOT_TIME=5*60 ;?
PARTY_P_TIME=5*60 ;?
PARTY_R_TIME=5*60 ;?
PARTY_T_TIME=10*60 ;!
MEGA_LAUGH_TIME=30*60 ;!
;HAPPY_HOUR_TIME=30*60 ;!
;******************** HOLES **********************
SNACKX=10-7 ;!
SNACKY=260-7 ;!
SNACKXS=0*TT/NN ;!
SNACKYS=-3000*TT/NN ;!
DRAGONX=264-7 ;!
DRAGONY=317-7 ;!
DRAGONXS=-690*TT/NN ;!
DRAGONYS=+1890*TT/NN ;!
DROPX=22-7 ;!
DROPY=54-7 ;!
DROPXS=0*TT/NN ;!
DROPYS=0*TT/NN ;!
;******************************************************************************
;****************************** GENERAL VARS **********************************
;******************************************************************************
if create_flip_Data
FlipLInfo DB FlipperL,222
DW 80,510,4,53,0,142,400,576,95,536,0,(53*8*3)
DW 0,0,0,20,20*ADJUST,-7*tt/nn,4*tt/nn,-68*tt/nn,48*tt/nn
DW ?,?,?,?,LEFTFLIPTAB,LEFTFLIPTAB,maxdifs1*4
DW FLIPLEFT
DB FlipperR,222
DW 160,510,4,53,143,320,400,576,204,536,0,(53*8*3)
DW 0,0,0,20,20*ADJUST,-7*tt/nn,4*tt/nn,-68*tt/nn,48*tt/nn
DW ?,?,?,?,RIGHTFLIPTAB,RIGHTFLIPTAB,maxdifs2*4
DW FLIPRIGHT
DB FlipperL,222
DW 16,227,3,51,0,160,0,399,27,234,-1,(51*6*3)
DW 0,0,0,13,13*ADJUST,-8*tt/nn,4*tt/nn,-68*tt/nn,48*tt/nn
DW ?,?,?,?,LEFTFLIP2TAB,LEFTFLIP2TAB,maxdifs3*4
DW FLIPLEFT2
DB 0,0
else
extrn fliplinfo:flipstruc
endif
NO_OF_RAMPS EQU 4
RAMPTABLE DW 0,10*tt/nn
DW 2,14*tt/nn
DW -2,14*tt/nn
DW -4,16*tt/nn
DW 0,0
RAMPTABLe_hi DW 0,10
DW 2,14
DW -2,14
DW -4,16
DW 0,0
SNACKSYNCER DB ? ;SYNC ICE,SODA,POP LIGHTS
SNACKFLASHERS LABEL BYTE ;STATUS OF LIGHTS
ICEFLASHING DB ?
SODAFLASHING DB ?
POPFLASHING DB ?
SNACKCOUNTER DB ? ;WHICH IS NEXT SNACK?
D1DISABLED DB ? ;UNDVIK MEGAHIT+HIT & DUBBELHIT
D2DISABLED DB ? ;UNDVIK MEGAHIT+HIT & DUBBELHIT
D3DISABLED DB ? ;UNDVIK MEGAHIT+HIT & DUBBELHIT
ARCADEON DB ?
SYNCS_BEFORE_XRUT DW ?
XRUT_OFFSET DW ?
SLUMPCOUNTER DB ? ;USED BY ARCADE
TOUCHERDISABLED DB ?
SNACKDISABLED DB ?
POPCOUNTER DB ?
MBFLASHING DB ?
HBFLASHING DB ?
DBFLASHING DB ?
_5XFLASHING DB ?
ARROWSYNCER DB ? ;SYNC MB,HB,DB LIGHTS
SKYRIDECOUNTER DW ?
PUKECOUNTER DW ?
_5MFLASHING DB ?
BALLFLASHING DB ?
JPFLASHING_NORMAL DB ?
JPFLASHING_TIME DB ?
PUKESYNCER DB ?
TRAINSYNCER DB ?
DRAGONWAITER DW ?
TUNNELDOWNCOUNTER DW ?
SKILLSHOTDOWNCOUNTER DW ?
TUNNELWAITER DW ?
CYCLONECOUNTER DW ? ;HEXADECIMAL
cyclonecounterBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,? ;BCD CODED
CYCLONESCOREBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,? ;BCD CODED
BALOONCOUNTER DB ?
INH_REV DB ?
INH_LOOP DB ?
HAPPY_PENDING DB ?
MEGA_PENDING DB ?
XXBALLE DB ?
XBALLS DB ?
PUKEFORBIDDEN DB ?
PARTYFLASH DB FALSE
MUSICOK DB ?
SNURR_READY DB ?
DRAGON DB ?
HANGSAVER DW ?
OKEJHEJ DB ?
HANGSAVER2 DW ?
CRAL DB ?
CPVARIABEL DB FALSE
SKILL_SCORE DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
SKILL_SCORE2 DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
HAPPY_HOUR_TOTAL DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
MEGA_LAUGH_TOTAL DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
JACKVALUE DB ?,?,?, ?,?,?, ?,?,?, ?,?,? ;JACKPOT CURRENT
JACKRAISE DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;JACKPOT STEP
JACKINIT DB 0,0,0, 0,1,0, 0,0,0, 0,0,0 ;JACKPOT START
ETTA DB 0,0,0, 0,0,0, 0,0,0, 0,0,1 ;1
FEMMA DB 0,0,0, 0,0,0, 0,0,0, 0,0,5 ;5
TREA DB 0,0,0, 0,0,0, 0,0,0, 0,0,3 ;3
FEMHUNDRATUSEN DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
HUNDRATUSEN DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
BCDMILLION DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
BCD5MILLION DB 0,0,0, 0,0,5, 0,0,0, 0,0,0 ;5,000,000
BCD7510 DB 0,0,0, 0,0,0, 0,0,7, 5,1,0 ;7,510
BCD750 DB 0,0,0, 0,0,0, 0,0,0, 7,5,0 ;750
BCD20070 DB 0,0,0, 0,0,0, 0,2,0, 0,7,0 ;20,070
BCD1000 DB 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
BCD50030 DB 0,0,0, 0,0,0, 0,5,0, 0,3,0 ;50,030
BCD50000 DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
BCD5000 DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
BCD250000 DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
BCD500000 DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
BCD750000 DB 0,0,0, 0,0,0, 7,5,0, 0,0,0 ;750,000
BONUS_X DB ?
TEMPBONUSBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
PLAYER_STRUC STRUC
P_PUKE DB 4 DUP(?) ;I ORDNINGEN SOM DE KOMMER I
P_MAD DB 3 DUP(?) ; LIGHTSTATUSLISTAN!!!!!!!
P_CRAZY DB 5 DUP(?)
P_PARTY DB 5 DUP(?)
P_SIFFRORNA DB 12 DUP(?)
P_BONUSSIFFRORNA DB 12 DUP(?)
P_SKILL_SCORE DB 12 DUP(?)
P_SKILL_SCORE2 DB 12 DUP(?)
P_HAPPY_HOUR_TOTAL DB 12 DUP(?)
P_MEGA_LAUGH_TOTAL DB 12 DUP(?)
P_CYCLONECOUNTERBCD DB 12 DUP(?)
P_CYCLONESCOREBCD DB 12 DUP(?)
P_CYCLONECOUNTER DW ?
ENDS
PLAYER_AREA DB SIZE PLAYER_STRUC * NO_OF_PLAYERS DUP(?)
INHIBIT_REVERSE_COUNTER DW ?
REVERSE_DOWN_COUNTER DW ?
ANY_LOOP_DOWN_COUNTER DW ?
DROP_TIME DW ?
HAPPY_HOUR DB ?
MEGA_LAUGH DB ?
HOLDBONUSFLAG DB ?
ARCADESLUMP LABEL BYTE
DB 10 DUP(0*2) ;XB
DB 10 DUP(1*2) ;CRAZY LETTER
DB 11 DUP(2*2) ;5M
DB 11 DUP(3*2) ;1M
DB 11 DUP(4*2) ;500K
DB 11 DUP(5*2) ;NO SCORE
DB 10 DUP(0*2) ;XB
DB 10 DUP(1*2) ;CRAZY LETTER
DB 11 DUP(2*2) ;5M
DB 11 DUP(3*2) ;1M
DB 11 DUP(4*2) ;500K
DB 11 DUP(5*2) ;NO SCORE
ARCADEEFFECTS LABEL WORD
DW SPINXB_RUT
DW SPINCL_RUT
DW SPIN5M_RUT
DW SPIN1M_RUT
DW SPIN500K_RUT
DW SPINNS_RUT
SPINXB DW 0
DB 100 ;CP? (FLERA)
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW sidelaneTS
XBALL_TIME=160 ;CPW!
SPIN5M DW SJINGLE15B
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0 ;5,000,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW fivemillionTS
SPIN1M DW SJINGLE13B
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW millionTS
SPIN500K DW SJINGLE22
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW femhundraTS
SPINNS DW 0
DB 100
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DW nothingTS
NOSCORE_TIME=45 ;CPW!
CRAZY_ADVANCE_LIST DB ?,41,38,34,31,28,-1
;******************************************************************************
;********************************* EFFECTS ************************************
;******************************************************************************
EFFECT_STRUC STRUC
THEJINGLE DW ?
TSCORE DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;12 ST!!
TBONUS DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;12 ST!!
DOTMATRIX DW ?
ENDS
LOSTBALL DW S_LOSTBALL
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW ball_lostTS
if demover
MINUTE5 DW S_GAMEOVER2
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW minute5TS
endif
MYSTERY DW S_MYSTERY ;ARCADE HALL
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW mysteryTS
MYSTERY_TIME=260 ;CPW!
PARTYSCORE1 DW SJINGLE26B ;PARTY P
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW party_pTS
PARTYSCORE2 DW SJINGLE26 ;PARTY A
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW party_aTS
PARTYSCORE3 DW SJINGLE26B ;PARTY R
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW party_rTS
PARTYSCORE4 DW SJINGLE26B ;PARTY T
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW party_tTS
PARTYSCORE5 DW SJINGLE26 ;PARTY Y
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW party_yTS
TSCORE1 DW SJINGLE13 ;TUNNEL 1ST TIME
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW millionTS
TSCORE1_TIME=130 ;CPW!
TSCORE2 DW SJINGLE14 ;TUNNEL 2ND TIME
DB 0,0,0, 0,0,3, 0,0,0, 0,0,0 ;3,000,000
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DW THREEmillionTS ;CP!
TSCORE2_TIME=130 ;CPW!
TSCORE3 DW SJINGLE15 ;TUNNEL 3RD TIME
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0 ;5,000,000
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DW fivemillionTS
TSCORE3_TIME=130 ;CPW!
DSCORE DW SJINGLE22 ;DRAGON'S HEAD
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,1,0, 0,3,0 ;10,030
DW DSCORETS
HSCORE DW SJINGLE29 ;NO DUCKS
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
DB 0,0,0, 0,0,0, 0,0,0, 0,4,0 ;40 ;CP?
DW noducksTS
RSCORE1 DW SJINGLE22 ;REVERSE 1ST TIME
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW RSCORE1TS
RSCORE2 DW SJINGLE22 ;REVERSE 2ND TIME
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW RSCORE2TS
RSCORE3 DW SJINGLE22 ;REVERSE 3RD TIME
DB 0,0,0, 0,0,0, 7,5,0, 0,0,0 ;750,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW RSCORE3TS
MILLION5 DW SJINGLE15 ;DRAGON'S HEAD ONLY
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0 ;5,000,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW fivemillionTS
MILLION5_TIME=160 ;CPW!
ALLDUCKS DW SJINGLE1 ;ALL DUCKS ARE DOWN
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW snackTS
SCORE1 DW SJINGLE19 ;ICE
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW iceTS
SCORE2 DW SJINGLE20 ;SODA
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
DW sodaTS
SCORE3 DW SJINGLE21 ;POP
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
DW popTS
MILLION DW SJINGLE13 ;LATE SKYRIDE ONLY
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW millionTS
GETBONUS DW 0 ;GET BONUS MULTIPLYER
DB 30
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW 0
M2 DW SJINGLE3 ;MULTIPEL BONUS X2
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW bonusx2TS
M4 DW SJINGLE3 ;MULTIPEL BONUS X4
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW bonusx4TS
M6 DW SJINGLE3 ;MULTIPEL BONUS X6
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW bonusx6TS
M8 DW SJINGLE3 ;MULTIPEL BONUS X8
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW bonusx8TS
HOLDBONUS DW SJINGLE5 ;REVERSE: HOLD BONUS
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW bonusheldTS
DOUBLEBONUS DW SJINGLE6 ;REVERSE: DOUBLE BONUS
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DW DOUBLEBTS
EXTRABALL1 DW SJINGLE17 ;DRAGON'S HEAD: BALL
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW extraballTS
EXTRABALL1_TIME=320 ;CPW! ;GNU
EXTRABALL2 DW SJINGLE17 ;SL XB UTF™R DENNA!
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DB 0,0,0, 0,0,0, 0,0,5, 0,0,0 ;5,000
DW extraball2TS
ADVANCE3 DW SJINGLE7 ;CRAZY LETTER SPOTTED
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW crazyletterTS
ADVANCE3B DW SJINGLE7B ;CRAZY LETTER SPOTTED
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW crazyletterTS
THELOOP1 DW SJINGLE2 ;LOOP 1ST TIME
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW loopTS
THELOOP2 DW SJINGLE2 ;LOOP 2ND TIME
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW loop2TS
THELOOP3 DW 0 ;LOOP 3RD TIME
DB 0
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
DW loopTS
RIDE1 DW SJINGLE25 ;SKYRIDE 1ST TIME
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
DB 0,0,0, 0,0,0, 0,1,0, 0,0,0 ;10,000
DW ride1TS
RIDE2 DW SJINGLE25 ;SKYRIDE 2ND TIME
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0 ;250,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW ride2TS
RIDE3 DW SJINGLE25 ;SKYRIDE 3RD TIME
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
DW ride3TS
CYCLCOUNT DW SJINGLE16 ;CYCLONEN OM EJ 5X
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;100,000
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0 ;25,000
DW cycloneTS
CYCLCOUNT2 DW SJINGLE16 ;CYCLONEN OM 5X
DB 0,0,0, 0,0,2, 5,0,0, 0,0,0 ;2,500,000
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0 ;500,000
DW cycloneTS ;CP?
HIDDEN DW 0 ;HIDDEN ENTRANCE
DB 20
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0 ;50,000
DB 0,0,0, 0,0,0, 0,2,0, 0,0,0 ;20,000
DW hiddenTS
SKILLCYCLONE DW SJINGLE26 ;SKILL EFFECT ;CP? PRIO=15?
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DW skillcycloneTS
SKILLTUNNEL DW SJINGLE26B ;SKILL EFFECT
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DW skilltunnelTS
BYGELSETB DW 0 ;RŽNNA SLUT
DB 1
DB 0,0,0, 0,0,0, 0,1,0, 0,4,0 ;10,040
DB 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
DW 0
HAPPYHOUR DW SJINGLE12 ;HAPPY HOUR! (PARTY)
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW happyhourTS
EOHAPPYHOUR DW SJINGLE27 ;END OF HAPPY HOUR ("HAPPY")
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0 ;1,000,000
DW 0
CRAZYSCORE DW SJINGLE11 ;MEGA LAUGH! (CRAZY)
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
DW megalaughTS
EOMEGALAUGH DW SJINGLE28 ;END OF MEGA LAUGH ("CRAZY")
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;0
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0 ;5,000,000
DW 0
;******************************************************************************
;**************************** SOUND STRUCTURES ********************************
;******************************************************************************
;SAMPLE,PERIOD,EFFECT,CHANNEL
SBASE EQU 14H+2
SBRICKNER DB (SBASE+0),18,0,3
SBRICKUPP DB 17H,23,0,3
SBUMPER1 DB (SBASE+2),25,0,3
SBUMPER2 DB (SBASE+2),23,0,3
SBUMPER3 DB (SBASE+2),21,0,3
SFLIPPUPP DB (SBASE+3),22,0,3
SRINNER DB (SBASE+4+2),18,0,3
SNEWBALL DB (SBASE+4+2),18,0,3
SKICKER DB (SBASE+5+2),18,0,3
SFJADER DB 1eh,18,0,3 ;(sbase+6)
SGROP DB (SBASE+1),23,0,3
EBASE EQU 7H
SBYGEL1 DB (EBASE+0),10,0,3
SBYGEL2 DB (EBASE+0),12,0,3
SBYGEL3 DB (EBASE+0),8,0,3
SBYGEL4 DB (EBASE+0),17,0,3
SBYGEL5 DB (EBASE+0),8,0,3
S_TOUCH1 DB (EBASE+0),14,0,3
S_TOUCH2 DB (EBASE+0),10,0,3
S_SCORELJUD DB (EBASE+0),18,0,3
S_ADDPLAYER2 DB (EBASE+0),18,0,3
;***********************************************************************
;JINGLE,NOOFPTNS (0=4EVER),PRIORITY
emptyjingle equ 62
springjingle equ 0
mainjingle equ 1
lastmainpos equ 5
S_MULTILJUD DB 39,1,255 ;255?
S_Empty DB 62,0,1
S_Spring DB 0,0,1
S_Main DB 1,0,1
S_NoHigh DB 8,0,1
S_Danger DB 49,1,255
S_Tilt DB 48,1,255
S_GameOver DB 7,0,255 ; ? 1
IF DEMOVER
S_GameOver2 DB 13,0,255
ELSE
S_GameOver2 DB 13,0,1
ENDIF
S_LostBall DB 6,1,255 ;200
S_AddPlayer DB 55,0,1
S_Lock DB 0,1,90 ;Bonus Locked
S_Mystery DB 30,1,100
S_EndFig DB 60,1,255 ;60,0,1
S_Knacket DB 58,1,255 ;230
S_BEATEN DB 58,1,200
;***********************************************************************
SJingle1 DB 50,1,20 ;Ducks
SJingle2 DB 42,1,30 ;Loop
SJingle3 DB 34,1,32 ;X2X4X6X8
SJingle4 DB 24,3,200 ;Jackpot
SJingle5 DB 20,1,31 ;Hold Bonus
SJingle6 DB 21,1,33 ;Double Bonus
SJingle7 DB 22,1,131 ;MAD
SJingle7B DB 22,1,90 ;MAD (ARCADE)
SJingle8 DB 23,1,31 ;PUKE1
SJingle9 DB 38,1,32 ;PUKE2
SJingle10 DB 57,1,33 ;PUKE3
SJingle11 DB 25,0,151 ;Mega Laugh (150)
SJingle12 DB 43,0,151 ;Happy Hour (150)
SJingle13 DB 35,1,100 ;1 Million
SJingle13B DB 35,1,90 ;1 Million (ARCADE)
SJingle14 DB 36,1,140 ;3 Million
SJingle15 DB 47,1,150 ;5 Million
SJingle15B DB 47,1,90 ;5 Million (ARCADE)
SJingle16 DB 37,1,20 ;Cyclone
SJingle17 DB 31,1,190 ;Extra Ball
SJingle19 DB 51,1,33 ;ICE
SJingle20 DB 53,1,32 ;Soda
SJingle21 DB 52,1,31 ;POP
SJingle22 DB 41,1,30 ;Ballonger/250/500/750
SJingle25 DB 61,1,20 ;Skyride
SJingle26 DB 56,1,35 ;Spell PARTY
SJingle26B DB 56,1,150 ;Spell PARTY
SJingle27 DB 40,1,152 ;70 ;Happy Hour End
SJingle28 DB 29,1,152 ;70 ;Mega Laugh End
SJingle29 DB 49,1,5 ;Nothing
;******************************************************************************
;***************************** DETECTION AREAS ********************************
;******************************************************************************
BumperLista_L LABEL WORD
DW 211,252,235,276
DW Bumper1
DW 268,263,292,287
DW Bumper2
DW 185,283,209,307
DW Bumper3
DW -1,-1,-1,-1
DW -1
Bumper2Lista_L LABEL WORD
DW 50,415,80,470
DW Kicker
DW 219,415,249,470
DW Kicker
DW -1,-1,-1,-1
DW -1
bumper1 dw sbumper1
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
bumper2 dw sbumper2
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
bumper3 dw sbumper3
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
kicker dw skicker
db 0,0,0, 0,0,0, 0,0,0, 5,0,0 ;500
ZonLista_L LABEL WORD
DW 130,196,146,204
DW TOUCHER
; DW 145,274,170,330
; DW DropSetA
DW 147,277,156,293
DW DROPA1
DW 152,293,163,311
DW DROPA2
DW 158,311,168,329
DW DROPA3
DW 0
AreaLista_L LABEL WORD
DW 90,15,130,40
DW Bygel11
DW 200,15,240,40
DW Bygel9
DW 160,35,182,55
DW GropC ;HIDDEN ENTRANCE
DW 47,122,67,146
DW GropD ;THE TUNNEL
DW 120,165,150,185
DW GropB ;ARCADE HALL
DW 220,280,260,300
DW Bygel14
DW 280,300,320,345 ;Game On
DW Close1
DW 260,312,268,321
DW GropE
DW 25,435,35,445
DW Bygel3
DW 263,435,273,445
DW Bygel4
DW 5,455,15,465
DW Bygel1
DW 284,455,294,465
DW Bygel2
DW 305,455,320,512+28
DW Bygel12
DW 305+3,512+28,320,576 ;Spring Valid
DW Bygel28
DW 0
AreaLista_U LABEL WORD
DW 132,40,238,51 ;SKY
DW Close2
DW 167,6,201,40 ;SKY
DW Close2
DW 132,5,160,50 ;STŽNG SKYRIDE-GATEN
DW Close2
DW 40,40,75,100
DW Bygel10
DW 132,58,148,63
DW Bygel5
DW 222,58,238,63
DW Bygel8
DW 162,64,178,69
DW Bygel6
DW 192,64,208,69
DW Bygel7
DW 40,80,75,120
DW Open2
DW 175,100,200,130
DW Bygel4b
DW 260,130,280,150
DW Bygel13
DW 3,245,22,270
DW GropA
DW 0
AREALISTA_L_T LABEL WORD
DW 120,165,150,185
DW GropB ;ARCADE HALL
DW 160,35,182,55
DW GropC_T ;HIDDEN ENTRANCE (TILT)
DW 47,122,67,146
DW GropD_T ;THE TUNNEL (TILT)
DW 0
AREALISTA_U_T LABEL WORD
DW 0
LEVEL1LISTA LABEL WORD ;AREOR SOM ANGER HOPP TILL LEVEL 1 FR<46>N LEVEL 2
DW 10,100,40,200
DW 300,140,320,160
DW 275,165,300,220
DW 60,185,100,220
DW 195,175,215,200
DW 300,240,320,340 ;AFTER SPRING
DW 20,240,50,400 ;CP?
DW 300,400,320,500 ;SPRING LANE LOW
DW 260,450,277,470
DW 0,450,50,470
DW -1
LEVEL2LISTA LABEL WORD ;AREOR SOM ANGER HOPP TILL LEVEL 2 FR<46>N LEVEL 1
; DW 10,40,30,70 ;DR<44>P SON
DW 215,160,235,190
DW 50,165,85,185
DW 300,210,320,240
DW 3,245,22,270 ;SNACK-H<>LET
DW 300,360,320,400 ;SPRING LANE HIGH
DW -1
;******************************************************************************
;************************ DEMO MODE LIGHT FLASHING ****************************
;******************************************************************************
FLASHLIST LABEL WORD
T1=10 ;PARTY
T2=T1*6
DW 0,T1*0,T2,T2,42
DW 0,T1*1,T2,T2,43
DW 0,T1*2,T2,T2,44
DW 0,T1*3,T2,T2,45
DW 0,T1*4,T2,T2,46
T1=9 ;CRAZY
T2=T1*6-T1/2
DW 0,T1*0,T2,T2,41
DW 0,T1*1,T2,T2,38
DW 0,T1*2,T2,T2,34
DW 0,T1*3,T2,T2,31
DW 0,T1*4,T2,T2,28
T2=11 ;X2,X4,X6,X8
DW 0,0,T2,T2,47
DW 0,0,T2,T2,49
DW 0,T2,T2,T2,48
DW 0,T2,T2,T2,50
T2=17 ;XB
DW 0,0,T2,T2,39
DW 0,0,T2,T2,40
T2=8 ;250K
DW 0,0,T2,T2,26
T2=10 ;HIT
DW 0,0,T2,T2,16
DW 0,0,T2,T2,24
DW 0,T2,T2,T2,18
T1=5 ;1ST,2ND,3RD
T2=26
DW 0,T1*0,T2,T2,22
DW 0,T1*1,T2,T2,13
DW 0,T1*2,T2,T2,15
T2=8 ;1M
DW 0,T2/2,T2,T2,14
T2=10 ;MAD
DW 0,0,T2,T2,6
DW 0,0,T2,T2,9
DW 0,T2,T2,T2,8
T2=7 ;PUKE
DW 0,0,T2,T2,1
DW 0,0,T2,T2,5
DW 0,T2,T2,T2,2
DW 0,T2,T2,T2,4
DW -1
;******************************************************************************
;**************************** LIGHT PALETTE DATA ******************************
;******************************************************************************
NOOFLIGHTS=56
LON1 DB 128
DB 2
DB 95,0,0
DB 64,0,0
LON2 DB 130
DB 2
DB 95,0,0
DB 64,0,0
LON3 DB 132
DB 1
DB 95,0,0
LON4 DB 133
DB 2
DB 95,0,0
DB 64,0,0
LON5 DB 135
DB 2
DB 95,0,0
DB 64,0,0
LON6 DB 137
DB 3
DB 0,83,70
DB 45,64,8
DB 33,45,14
LON7 DB 140
DB 2
DB 95,64,64
DB 85,45,45
LON8 DB 142
DB 3
DB 27,64,95
DB 20,52,77
DB 8,33,64
LON9 DB 145
DB 3
DB 0,83,70
DB 45,64,8
DB 33,45,64
LON10 DB 148
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON11 DB 153
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON12 DB 158
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON13 DB 156
DB 2
DB 95,70,27
DB 77,52,8
LON14 DB 161
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON15 DB 164
DB 3
DB 0,95,14
DB 46,64,8
DB 33,45,14
LON16 DB 167
DB 2
DB 95,0,83
DB 64,0,0
LON17 DB 169
DB 5
DB 95,64,64
DB 95,0,0
DB 64,0,0
DB 95,95,95
DB 64,64,64
LON18 DB 174
DB 2
DB 95,0,83
DB 64,0,0
LON19 DB 176
DB 2
DB 27,64,95
DB 8,39,70
LON20 DB 178
DB 7
DB 95,95,95
DB 64,64,64
DB 27,64,95
DB 8,39,70
DB 95,70,27
DB 77,52,8
DB 64,39,0
LON21 DB 185
DB 5
DB 95,95,95
DB 95,70,27
DB 77,52,8
DB 64,39,0
DB 52,14,14
LON22 DB 151
DB 2
DB 95,0,0
DB 64,0,0
LON23 DB 195
DB 9
DB 8,39,70
DB 83,45,45
DB 95,64,64
DB 45,64,8
DB 33,45,14
DB 95,95,95
DB 95,70,27
DB 77,52,8
DB 64,39,0
LON24 DB 204
DB 2
DB 95,0,83
DB 64,0,0
LON25 DB 206
DB 3
DB 0,95,14
DB 45,64,8
DB 33,45,14
LON26 DB 209
DB 2
DB 95,0,0
DB 64,0,0
LON27 DB 211
DB 2
DB 95,0,0
DB 64,0,0
LON28 DB 213
DB 2
DB 95,0,83
DB 64,0,0
LON29 DB 215
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON30 DB 218
DB 2
DB 95,0,0
DB 64,0,0
LON31 DB 220
DB 2
DB 95,0,0
DB 64,0,0
LON32 DB 222
DB 3
DB 0,95,14
DB 45,64,8
DB 33,45,14
LON33 DB 225
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON34 DB 228
DB 2
DB 95,70,27
DB 77,52,8
LON35 DB 230
DB 2
DB 95,0,0
DB 64,0,0
LON36 DB 232
DB 3
DB 95,95,95
DB 77,77,77
DB 64,64,64
LON37 DB 235
DB 2
DB 27,64,95
DB 8,39,70
LON38 DB 237
DB 3
DB 0,95,14
DB 45,64,8
DB 33,45,14
LON39 DB 240
DB 2
DB 95,0,0
DB 64,0,0
LON40 DB 240
DB 2
DB 95,0,0
DB 64,0,0
LON41 DB 244
DB 2
DB 27,64,95
DB 8,39,70
LON42 DB 246
DB 2
DB 27,64,95
DB 8,39,70
LON43 DB 248
DB 2
DB 95,0,83
DB 64,0,0
LON44 DB 250
DB 3
DB 0,95,14
DB 45,64,8
DB 33,45,14
LON45 DB 253
DB 2
DB 95,0,83
DB 64,0,0
LON46 DB 112
DB 2
DB 27,64,95
DB 8,39,70
LON47 DB 114
DB 2
DB 27,64,95
DB 8,39,70
LON48 DB 116
DB 2
DB 27,64,95
DB 8,39,70
LON49 DB 118
DB 2
DB 27,64,95
DB 8,39,70
LON50 DB 120
DB 2
DB 27,64,95
DB 8,39,70
LON51 DB 190
DB 5
DB 95,0,0
DB 95,95,95
DB 64,0,0
DB 64,64,64
DB 89,55,55
LON52 DB 122
DB 5
DB 95,95,95
DB 83,45,45
DB 95,0,0
DB 64,0,0
DB 39,14,14
LON53 DB 107
DB 5
DB 95,95,95
DB 83,45,45
DB 95,0,0
DB 64,0,0
DB 39,14,14
LON54 DB 102
DB 5
DB 95,95,95
DB 83,45,45
DB 95,0,0
DB 64,0,0
DB 39,14,14
LON55 DB 255
DB 1
DB 58,20,20
LON56 DB 111
DB 1
DB 58,20,20
MATRIXON DB MATRIXLO ;(MATRIXCOL LOW BYTE)
DB 1
DB 95,70,27
LONEND DB 0
LONINDEX LABEL WORD
DW OFFSET LON1
DW OFFSET LON2
DW OFFSET LON3
DW OFFSET LON4
DW OFFSET LON5
DW OFFSET LON6
DW OFFSET LON7
DW OFFSET LON8
DW OFFSET LON9
DW OFFSET LON10
DW OFFSET LON11
DW OFFSET LON12
DW OFFSET LON13
DW OFFSET LON14
DW OFFSET LON15
DW OFFSET LON16
DW OFFSET LON17
DW OFFSET LON18
DW OFFSET LON19
DW OFFSET LON20
DW OFFSET LON21
DW OFFSET LON22
DW OFFSET LON23
DW OFFSET LON24
DW OFFSET LON25
DW OFFSET LON26
DW OFFSET LON27
DW OFFSET LON28
DW OFFSET LON29
DW OFFSET LON30
DW OFFSET LON31
DW OFFSET LON32
DW OFFSET LON33
DW OFFSET LON34
DW OFFSET LON35
DW OFFSET LON36
DW OFFSET LON37
DW OFFSET LON38
DW OFFSET LON39
DW OFFSET LON39 ;INTE CP. „ndrad till lon39
DW OFFSET LON41
DW OFFSET LON42
DW OFFSET LON43
DW OFFSET LON44
DW OFFSET LON45
DW OFFSET LON46
DW OFFSET LON47
DW OFFSET LON48
DW OFFSET LON49
DW OFFSET LON50
DW OFFSET LON51
DW OFFSET LON52
DW OFFSET LON53
DW OFFSET LON54
DW OFFSET LON55
DW OFFSET LON56
MATRIXOFF DB MATRIXLO
DB 3
DB 3 DUP(33*64/100)
;******************************************************************************
;************************* GATES & BYGLARS DATA AREOR *************************
;******************************************************************************
GATE1OPEN_DATA DB 18*2 DUP (0)
GATE1CLOSED_DATA DB 18*2 DUP (?)
EXTRN D1UP_DATA:BYTE
EXTRN D1DOWN_DATA:BYTE
EXTRN D2UP_DATA:BYTE
EXTRN D2DOWN_DATA:BYTE
EXTRN D3UP_DATA:BYTE
EXTRN D3DOWN_DATA:BYTE
;******************************************************************************
;****************************** DOT MATRIX ************************************
;******************************************************************************
CLEARIT MACRO
ASSUME DS:DATA
DW _CLEAR4
ENDM
CLEARIT2 MACRO
ASSUME DS:DATA
DW _CLEAR2
ENDM
CLEARIT3 MACRO
ASSUME DS:DATA
DW _CLEAR3
ENDM
CLEARIT4 MACRO
ASSUME DS:DATA
DW _CLEAR4
ENDM
;************************************ TSAR ************************************
;*********************************************************
;******* OBS!!! KOM IH<49>G ATT ASSUMERA ANIMATIONER TILL DATA2 OCH
;******* SCROLLAR TILL DATA !!!!!
ASSUME DS:DATA2
BEATENSCROLL DB 21 DUP (1),'YOU HAVE BEATEN THE HIGHSCORE',21 DUP(1),255
EXTRABALLTEXT DB 'EXTRA BALL',0
Beaten_bh_TS LABEL WORD ;I BALL LOST SEKVENSEN
DW _DOBEATEN,?
CLEARIT
DW _JINGLE,S_BEATEN
DW _LASTJINGLE,EMPTYJINGLE
DW _SCROLL,BEATENSCROLL
DW _FLASHON,10
DW _PRINT13,EXTRABALLTEXT,SW*4/4+TOTCENT+4
DW _WAITJINGLE,?
CLEARIT
DW _FLASHOFF,?
DW _JMP,No_Bonus2TS
BeatenTS LABEL WORD ;I SPELET
DW _DOBEATEN,?
CLEARIT
DW _JINGLE,S_BEATEN
DW _LASTJINGLE,3
DW _SCROLL,BEATENSCROLL
DW _FLASHON,10
DW _PRINT13,EXTRABALLTEXT,SW*4/4+TOTCENT+4
DW _WAITJINGLE,?
CLEARIT
DW _FLASHOFF,?
DW 0
extraballTS DW _CLEAR4
dw _animation,_extraball
DW _CLEAR4
dw 0
extraball2TS DW _CLEAR4
dw _animation,_extraball
dw _CLEAR4
DW _FLASHON,10
DW _PRINT13,EXTRABALLTEXT,SW*4/4+TOTCENT+4
DW _WAITJINGLE,?
DW _CLEAR4
DW _FLASHOFF,?
DW 0
millionTS LABEL WORD
DW _CLEAR4
assume ds:data
DW _FLASHON,1
dw _number,offset ETTA
assume ds:data2
dw _wait,40
DW _FLASHOFF,?
DW _CLEAR4
dw _animation,_million
DW _WAIT,10
DW _CLEAR4
DW 0
;*****************************************
ThreeMillionTS LABEL WORD
DW _CLEAR4
assume ds:data
DW _FLASHON,1
dw _number,offset TREA
assume ds:data2
dw _wait,90
DW _FLASHOFF,?
DW _CLEAR4
dw _animation,_millionFAST
DW _WAIT,45
DW _CLEAR4
DW 0
;*****************************************
party_onTS LABEL BYTE ;Turn on party on . . .
CLEARIT
DW _FLASHON,PARTY_ON_SPEED
DW _PARTYONN,1
DW _PRINT13,PARTY_ON_TEXT,SW*4/4 ;+16*3/4 ;CP!
DW _PARTYON,1
DW 0
party_offTS LABEL WORD ;Turn it off
CLEARIT
DW _PARTYOFF,1
DW _FLASHOFF,1
DW 0
;*****************************************
ASSUME DS:DATA2
fivemillionTS DW _CLEAR4
assume ds:data
DW _FLASHON,1
dw _number,offset FEMMA
assume ds:data2
dw _wait,55
DW _FLASHOFF,?
DW _CLEAR4
dw _animation,_millionFAST
DW _WAIT,35
DW _CLEAR4
DW 0
;*****************************************
clearTS DW _CLEAR4
dw 0
tomTS DW _CLEAR4
dw _wait,32767
dw 0
cycloneTS DW _CLEAR4
assume ds:data
DW _FLASHON,1
dw _number,offset cyclonecounterBCD
assume ds:data2
dw _wait,40
DW _FLASHOFF,?
DW _CLEAR4
dw _animation,_cyclone
DW _CLEAR4
dw 0
happyhourTS LABEL WORD
DW _EOSNURR,?
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,_HAPPY
DW _CLEAR4
ASSUME DS:DATA
DW _SCROLL,ALL_TARGA_
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
DW _COUNTDOWN,2,5,HAPPY_HOUR_TOTAL ;(THE FINAL?)
CLEARIT
happy_endingTS LABEL WORD
ASSUME DS:DATA
DW _JBCDZ,HAPPY_HOUR_TOTAL,no_happyTS
DW _RULLGARDIN_UPP,HHTOTAL_text,1
DW _WAIT,60 ;cpw!
CLEARIT
DW _FLASHON,1
DW _PRINT13_NUMBER,happy_hour_total,SW*4/4+16*2/4 ;CP! RUTCENT
DW _WAIT,80 ;cpw!
DW _FLASHOFF,1
DW _TSEND,?
CLEARIT
DW 0
no_happyTS LABEL WORD
ASSUME DS:DATA
DW _PRINT13,NO_HAPPY_TEXT,SW*4/4
DW _WAIT,80 ;CPW!
DW _TSEND,?
CLEARIT
DW 0
megalaughTS LABEL WORD
DW _EOSNURR,?
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,MEGAL
DW _CLEAR4
ASSUME DS:DATA
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
DW _COUNTDOWN,2,5,MEGA_LAUGH_TOTAL ;(THE FINAL?)
CLEARIT
mega_endingTS LABEL WORD
ASSUME DS:DATA
DW _JBCDZ,MEGA_LAUGH_TOTAL,no_megaTS
dw _scroll,MLtotal_TEXT
DW _WAIT,60 ;CPW!
CLEARIT
DW _FLASHON,1
DW _PRINT13_NUMBER,mega_laugh_total,SW*4/4+16*2/4 ;CP! RUTCENT
DW _WAIT,80 ;CPW!
DW _FLASHOFF,1
DW _TSEND,?
CLEARIT
DW 0
no_megaTS LABEL WORD
ASSUME DS:DATA
DW _PRINT13,NO_MEGA_TEXT,SW*4/4
DW _WAIT,80 ;CPW!
DW _TSEND,?
CLEARIT
DW 0
assume ds:data2
party_pTS DW _CLEAR4
dw _animation,_party_p
DW _CLEAR4
dw 0
party_aTS DW _CLEAR4
dw _animation,_party_a
DW _CLEAR4
dw 0
party_rTS DW _CLEAR4
dw _animation,_party_r
DW _CLEAR4
dw 0
party_tTS DW _CLEAR4
dw _animation,_party_t
DW _CLEAR4
dw 0
party_yTS DW _CLEAR4
dw _animation,_party_y
DW _CLEAR4
dw 0
mysteryTS LABEL WORD ;NOTE:DECCOR MUST BE SET. (WAITJINGLE2)
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,_MYSTERY
DW _WAITJINGLE2,?
DW _EOSNURR,?
DW _CLEAR4
DW 0 ;DOTRUT,OFFSET CS:NODOT
LMSPEED=7
loop2TS LABEL WORD
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,_LOOP
DW _WAIT,20
DW _CLEAR4
ASSUME DS:DATA
DW _FLASHON,LMSPEED
DW _PRINT8,_ONEMOREFORMAD,SW*2*5/4+16*3/4
ASSUME DS:DATA2
DW _WAIT,LMSPEED*4*2-LMSPEED
DW _CLEAR4
DW _FLASHOFF,?
DW 0
loopTS LABEL WORD
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,_LOOP
DW _WAIT,20
DW _CLEAR4
ASSUME DS:DATA
DW _FLASHON,LMSPEED
DW _PRINT5,_TWOMOREFORMAD,SW*2*6/4+16*3/4
DW _WAIT,LMSPEED*4*2-LMSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
bonusx2TS LABEL WORD
ASSUME DS:DATA2
DW _CLEAR4
DW _ANIMATION,_BONUSX2
DW _CLEAR4
DW 0
bonusx4TS DW _CLEAR4
DW _ANIMATION,_BONUSX4
DW _CLEAR4
DW 0
bonusx6TS DW _CLEAR4
DW _ANIMATION,_BONUSX6
DW _CLEAR4
DW 0
bonusx8TS DW _CLEAR4
DW _ANIMATION,_BONUSX8
DW _CLEAR4
DW 0
jackpotTS DW _CLEAR4
DW _ANIMATION,_JACKPOT
DW _CLEAR4
DW 0
jackpot_special_hh_TS LABEL WORD
DW _CLEAR4
dw _animation,_jackpot
DW _CLEAR4
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
dw _countdown2,2,5,happy_hour_total ;(the final?)
DW _CLEAR4
dw _jmp,happy_endingTS
dw 0
jackpot_special_ml_TS LABEL WORD
DW _CLEAR4
dw _animation,_jackpot
DW _CLEAR4
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
dw _countdown2,2,5,MEGA_LAUGH_TOTAL ;(the final?)
DW _CLEAR4
dw _jmp,mega_endingTS
dw 0
ball_lostTS LABEL WORD
CLEARIT
DW _PRINT13,GETTING_SICK_TEXT,SW*2/4*2+8
DW _WAIT,80 ;CPW!
CLEARIT
DW _JBCDZ,BONUSSIFFRORNA,no_bonusTS
DW _PRINT5,show_bonus_TEXT,SW*1*2/4+16*7/4
DW _PRINT8_NUMBER_CENT,BONUSSIFFRORNA,7*2*SW/4+TOTCENT
DW _WAIT,60 ;CPW!
DW _JINGLE,S_MULTILJUD
DW _JBONUSX1,NoBonusXTS
CLEARIT ;CP! CLEARIT ŽR ON™DIGT BRUTAL! TUFFT!!! (reds. anm.)
DW _BONUS_X_CALCS,?
DW _PRINT5,BONUS_X_TEXT,SW*1*2/4+16*7/4-4*2
DW _PRINT8_NUMBER_CENT,BONUSSIFFRORNA,7*2*SW/4+TOTCENT
DW _WAIT,60 ;CPW!
DW _JINGLE,S_MULTILJUD
NoBonusXTS LABEL WORD
no_bonusTS LABEL WORD
DW _JBCDZ,CYCLONECOUNTERBCD,no_cyclonesTS
CLEARIT
DW _CALC_CYCLO ;CYCLONESCOREBCD & SIFFRORNA UPPDATERAS!
DW _PRINT5_NUMBER,CYCLONECOUNTERBCD,SW*1*2/4-16*10/4
DW _PRINT5_number,HUNDRATUSEN,SW*1*2/4+16*8/4
DW _PRINT5,show_CYCLONES_TEXT,SW*1*2/4-16*1/4
DW _PRINT8_NUMBER_CENT,CYCLONESCOREBCD,SW*2*7/4+TOTCENT
DW _WAIT,120 ;CPW!
DW _JINGLE,S_MULTILJUD
CLEARIT
no_cyclonesTS LABEL WORD
DW _JBCDZ,HAPPY_HOUR_TOTAL,no_happy_stewartTS
CLEARIT
DW _CALC_HAPPY ;CYCLONESCOREBCD & SIFFRORNA UPPDATERAS!
DW _PRINT5,show_HAPPY_TEXT,SW*1*2/4
DW _PRINT8_NUMBER_CENT,HAPPY_HOUR_TOTAL,SW*2*7/4+TOTCENT
DW _WAIT,120 ;CPW!
DW _JINGLE,S_MULTILJUD
CLEARIT
no_happy_stewartTS LABEL WORD
DW _JBCDZ,MEGA_LAUGH_TOTAL,no_MEGA_LAUGHTS
CLEARIT
DW _CALC_MEGA ;CYCLONESCOREBCD & SIFFRORNA UPPDATERAS!
DW _PRINT5,show_MEGA_TEXT,SW*1*2/4
DW _PRINT8_NUMBER_CENT,MEGA_LAUGH_TOTAL,SW*2*7/4+TOTCENT
DW _WAIT,120 ;CPW!
DW _JINGLE,S_MULTILJUD
CLEARIT
no_MEGA_LAUGHTS LABEL WORD
DW _JBCDZ,BONUSSIFFRORNA,no_bonus2TS
DW _PRINT5,show_totalbonus_TEXT,SW*1*2/4+16*4/4
DW _PRINT8_NUMBER_CENT,BONUSSIFFRORNA,7*2*SW/4+TOTCENT
DW _WAIT,60 ;CPW!
CLEARIT
DW _PRINT8_NUMBER,BONUSSIFFRORNA,7*2*SW/4-16*4/4
DW _FLORPA
DW _WAIT,25 ;CPW!
dw _beaten_matrix
no_bonus2TS LABEL WORD
DW _KOLLA_XXBALL
if demover
DW _DEMOVER_CHANGE_PLAYER
else
dw _waitifmulti,2*60 ;cpgnu? (visa score lite l„ngre)
DW _MATRIXLGT,0
clearit
DW _CHANGE_PLAYER
endif
CLEARIT
dw _wait,32000
DW 0
SORRYNOBONUSTEXT DB ' SORRY ',94,' NO BONUS ',0
shoot_again_onTS LABEL BYTE ;Turn on shoot again . . .
CLEARIT
DW _FLASHON,SHOOT_AGAIN_SPEED
DW _SHOOT_AGAIN_ONN,1
DW _PRINT13,SHOOT_AGAIN_TEXT,SW*2/4*2 ;+16*3/4 ;CP!
DW _NEW_BALL2
DW _PARTYON,1 ;CP?
DW 0
out_of_ballsTS LABEL WORD ;Žr Stewarts fortfarande borta kanske?
CLEARIT
dw _matrixlgt,1
dw _knacket,?
dw _wait,120
check_xxballTS LABEL WORD
DW _check_xxballs ;utf”r ev xxballs, hoppar sedan till after_xxballs!
after_xxballTS LABEL WORD
clearit
dw _check_high,?
DW _MATRIXLGT,0
DW _2_DEMO_MODE
AfterDemoModeTS Label Word
DW _MATRIXLGT,0
dw _wait,20
dw _setloop,2,?
DW _INIT_SCORE,?
DW _JMP,UrbanOverTS
Once_MoreTS LABEL WORD
DW _INIT_SCORE,?
GameOverTS LABEL WORD
SHOWTIME=80
DW _WAIT,SHOWTIME
UrbanOverTS LABEL WORD
CLEARIT
DW _FLASHON,1
DW _PRINT13,GAME_OVER_TEXT,SW*2*2/4
DW _WAIT,30
DW _FLASHOFF,?
CLEARIT
DW _SHOW_SCORE,OFFSET GAMEOVERTS
dw _loop_,2,offset once_morets
DW _WAIT,SHOWTIME
CLEARIT
DW _WAIT,20
DW _JMP,ShowHighsTS
DW 0
GAME_OVER_TEXT DB ' GAME OVER',0
;TUBORG!
DRSPEED=13
DSCORETS LABEL WORD
CLEARIT
DW _FLASHON,DRSPEED
DW _PRINT13_NUMBER_CENT,BCD250000,2*2*SW/4+TOTCENT
DW _WAIT,DRSPEED*2*3-DRSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
RSCORE1TS LABEL WORD
CLEARIT
DW _FLASHON,DRSPEED
DW _PRINT13_NUMBER_CENT,BCD250000,2*2*SW/4+TOTCENT
DW _WAIT,DRSPEED*2*3-DRSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
RSCORE2TS LABEL WORD
CLEARIT
DW _FLASHON,DRSPEED
DW _PRINT13_NUMBER_CENT,BCD500000,2*2*SW/4+TOTCENT
DW _WAIT,DRSPEED*2*3-DRSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
RSCORE3TS LABEL WORD
CLEARIT
DW _FLASHON,DRSPEED
DW _PRINT13_NUMBER_CENT,BCD750000,2*2*SW/4+TOTCENT
DW _WAIT,DRSPEED*2*3-DRSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
snackTS LABEL WORD
ASSUME DS:DATA
dw _scroll,snacktext
clearit
dw 0
iceTS LABEL WORD
clearit
DW _FLASHON,1
dw _print13,icetext,sw*2*2/4+16*3/4+2
DW _WAIT,140
clearit
DW _FLASHOFF,?
dw 0
sodaTS LABEL WORD
clearit
DW _FLASHON,1
dw _print13,sodatext,sw*2*2/4+16*3/4+2
DW _WAIT,140
clearit
DW _FLASHOFF,?
dw 0
popTS LABEL WORD
clearit
DW _FLASHON,1
dw _print13,poptext,sw*2*2/4+16*2/4-2
DW _WAIT,140
clearit
DW _FLASHOFF,?
dw 0
noducksTS LABEL WORD
clearit
DW _FLASHON,6
dw _print13,nosnacktext,sw*2*2/4
DW _WAIT,100-6*2
clearit
DW _FLASHOFF,?
dw 0
showithi macro
DW _PRINT13,ALLTIME_TEXT,SW*2/4*2+16/4/2
dw _wait,40
CLEARIT
DW _FLASHOFF,1
DW _MATRIXLGT,0
DW _PRINT13,hi_1,SW*2/4*2
DW _PRINT13_NUMBER,(offset hi_score_list+(12+3+1)*0),4*SW/4+8*16/4
DW _PRINT13,(offset hi_score_list+(12+3+1)*0+12),SW*2/4*2+2*16/4
DW _FLASHON,1
dw _wait,140
clearit
DW _FLASHOFF,1
DW _MATRIXLGT,0
DW _PRINT13,hi_2,SW*2/4*2
DW _PRINT13_NUMBER,(offset hi_score_list+(12+3+1)*1),4*SW/4+8*16/4
DW _PRINT13,(offset hi_score_list+(12+3+1)*1+12),SW*2/4*2+2*16/4
DW _FLASHON,1
dw _wait,140
clearit
DW _FLASHOFF,1
DW _MATRIXLGT,0
DW _PRINT13,hi_3,SW*2/4*2
DW _PRINT13_NUMBER,(offset hi_score_list+(12+3+1)*2),4*SW/4+8*16/4
DW _PRINT13,(offset hi_score_list+(12+3+1)*2+12),SW*2/4*2+2*16/4
DW _FLASHON,1
dw _wait,140
clearit
DW _FLASHOFF,1
DW _MATRIXLGT,0
DW _PRINT13,hi_4,SW*2/4*2
DW _PRINT13_NUMBER,(offset hi_score_list+(12+3+1)*3),4*SW/4+8*16/4
DW _PRINT13,(offset hi_score_list+(12+3+1)*3+12),SW*2/4*2+2*16/4
DW _FLASHON,1
dw _wait,140
clearit
DW _FLASHOFF,1
endm
ShowInfoTS LABEL WORD
CLEARIT
clearit
DW _rullgardin_ned,PLAY_TEXT,1
dw _wait,40*3
DW _MATRIXLGT,0
CLEARIT
DW _PRINT13,JACK_TEXT,SW*4/4
dw _print13_number,jackvalue,SW*4/4+8*16/4
DW _FLASHON,1
dw _wait,40*3
DW _FLASHOFF,1
CLEARIT
dw _rullgardin_upp,BONUS_TEXT,1
dw _wait,40*3
CLEARIT
showithi
CLEARIT
dw _print5,playerstext,sw*2*2/4+16*1/4
dw _print5,ballstext,sw*2*10/4+16*1/4
DW 0
ShowHighsTS LABEL WORD
;TEXTER
CLEARIT
DW _FLASHON,1
DW _PRINT13,PF_TEXT,SW*2/4*2-2
dw _wait,120
DW _CLEAR2
DW _FLASHOFF,1
dw _rullgardin_upp,TRS_TEXT,1
dw _wait,90
CLEARIT
DW _FLASHON,1
DW _PRINT13,PL_TEXT,SW*2/4*2
dw _wait,90
DW _CLEAR3
DW _FLASHOFF,1
;SCROLLA
DW _SCROLL,SCROLL_TEXT1
;VISA HIGHSCORE
showithi
;DI UPP <20> NED!
CLEARIT
; dw _rullgardin_NED,DIGITAL_TEXT,16
; dw _rullgardin_upp,DIGITAL_TEXT,-13
; dw _wait,40
; CLEARIT
dw _rullgardin_NED,fld_TEXT,16
dw _rullgardin_upp,fld_TEXT,-13
dw _wait,40
;SCROLLA SISTA
DW _SCROLL,SCROLL_TEXT2
CLEARIT
DW _JMP,ShowHighsTS
dw 0
ShowPlayersTS label word
clearit
dw _print5,playerstext,sw*2*2/4+16*1/4
dw _print5,ballstext,sw*2*10/4+16*1/4
dw 0
first_no_of_playersTS LABEL WORD
clearit
dw _print5,playerstext,sw*2*2/4+16*1/4
DW _PRINT13,NOLLA,SW*2*2/4+16*19/4
no_of_playersTS label word
dw _print5,no_of_players_text,sw*2*10/4+16*1/4
DW _WAIT_GAME_ON,?
dw 0
hiddenTS LABEL WORD
DW _SCROLL,HIDDENTEXT
DW _TSEND,?
DW _WAIT,1
DW 0
ride1TS dw _scroll,ride1text
dw 0
ride2TS dw _scroll,ride2text
dw 0
ride3TS dw _scroll,ride3text
dw 0
skillcycloneTS LABEL WORD
clearit
DW _FLASHON,1
dw _print13,skillcycloneTEXT,sw*2*2/4
dw _wait,40
CLEARIT
DW _FLASHOFF,?
DW _FLASHON,10
DW _PRINT13_NUMBER_CENT,SKILL_SCORE2,2*2*SW/4+TOTCENT
DW _WAIT,10*2*3-10
CLEARIT
DW _FLASHOFF,?
DW 0
skilltunnelTS LABEL WORD
clearit
DW _FLASHON,1
dw _print13,skilltunnelTEXT,sw*2*2/4
dw _wait,40
CLEARIT
DW _FLASHOFF,?
DW _FLASHON,10
DW _PRINT13_NUMBER_CENT,SKILL_SCORE,2*2*SW/4+TOTCENT
DW _WAIT,10*2*3-10
CLEARIT
DW _FLASHOFF,?
dw 0
sidelaneTS dw _scroll,SIDELANETEXT
dw 0
crazyletterTS LABEL WORD
CLEARIT
DW _FLASHON,1
DW _PRINT13,CRAZYLETTERTEXT,SW*2*2/4
DW _WAIT,50
DW _WAITJINGLE,?
CLEARIT
DW _FLASHOFF,?
DW 0
nothingTS LABEL WORD
CLEARIT
DW _FLASHON,15
dw _print13,nothingtext,sw*2*2/4+16*6/4
DW _WAIT,15*3
CLEARIT
DW _FLASHOFF,?
DW 0
femhundraTS LABEL WORD
CLEARIT
DW _FLASHON,DRSPEED
DW _PRINT13_NUMBER,OFFSET FEMHUNDRATUSEN,SW*2/4*2+16*1/4
DW _WAIT,DRSPEED*2*3-DRSPEED
CLEARIT
DW _FLASHOFF,?
DW 0
bonusheldTS LABEL WORD
CLEARIT
DW _FLASHON,1
DW _PRINT13,BONUSHELDTEXT,SW*2/4*2+2
DW _WAIT,110
CLEARIT
DW _FLASHOFF,?
DW 0
DoubleBTS LABEL WORD
CLEARIT
DW _FLASHON,1
dw _print13,DOUBLEBONUSTEXT,sw*2/4*2+2+2
DW _WAIT,100
CLEARIT
DW _FLASHOFF,?
DW 0
tiltTS LABEL WORD
DW _EOSNURR,?
CLEARIT
DW _PRINT13,TILT_TEXT,sw*2/4*2+16*0/4
DW _WAIT,32767
DW 0
TILT_TEXT DB ' TILT TILT TILT',0
last_text db ' ',0
flashlast db ' ',0
slutsiffra db '0',0
startext db '*',0
last_pos dw 0
NO_MEGA_TEXT LABEL BYTE
NO_HAPPY_TEXT DB 'TIME OUT ',94,' NO BONUS',0
if demover
MINUTE5TS LABEL WORD
CLEARIT
dw _scroll,MINUTE5TEXT
DW _FLASHON,1
dw _print13_number,offset SIFFRORNA,SW*4/4+16*2/4
DW _WAIT,100
DW _FLASHOFF,1
dw _scroll,MINUTE5TEXTB
DW _FADE,256
DW _WAIT,100
DW QUIT,?
dw 0
MINUTE5TEXT DB 21 DUP (1)
DB "WELL DONE PLAYER 1 - YOU HAVE ACHEIVED THE MEGA SCORE OF"
DB 21 DUP (1),255
MINUTE5TEXTB DB 21 DUP (1)
DB "LOOK OUT FOR PINBALL FANTASIES PC - FULL GAME AVAILABLE SOON"
DB 21 DUP (1),255
endif
;***********************************************************
SNACKTEXT DB 21 DUP (1)
DB 'GO GET A SNACK DUDE'
DB 21 DUP (1),255
ICETEXT DB 'COLD ICECREAM',0
SODATEXT DB 'SODA WITH ICE',0
POPTEXT DB 'EAT SOME POPCORNS',0
NOSNACKTEXT dB 'HIT SOME DUCKS FIRST',0
GETTING_SICK_TEXT DB 'GETTING SICK HUH',0
PARTY_ON_TEXT DB ' PARTY ON PLAYER ',0
all_targa_ db 21 DUP (1),'ALL TARGETS SCORE 1000000',21 DUP(1),255 ;CP!
hhtotal_text db ' HAPPY HOUR TOTAL',0
ZEROQ DB '0'+7,0
mltotal_text db 21 DUP (1),' MEGA LAUGH TOTAL ',255
SHOOT_AGAIN_TEXT DB 'SHOOT AGAIN PLAYER ',0
NO_OF_PLAYERS_TEXT DB 'PLAYERS X',0
NOLLA DB '7',0
show_bonus_TEXT DB 'BONUS',0
show_totalbonus_TEXT DB 'TOTAL*BONUS',0
BONUS_X_TEXT DB 'BONUS*X*?',0
show_CYCLONES_TEXT DB ' CYCLONES X',0
SHOW_HAPPY_TEXT DB ' HAPPY HOUR TOTAL',0
SHOW_MEGA_TEXT DB ' MEGA LAUGH TOTAL',0
HIDDENTEXT DB 21 DUP (1)
DB 'YOU FOUND THE HIDDEN ENTRANCE ',94,' GO FOR THE CYCLONE' ;CP?
DB 21 DUP (1),255
RIDE1TEXT DB 21 DUP (1)
DB 'DO THE SKYRIDE MAN '
DB 21 DUP (1),255
RIDE2TEXT DB 21 DUP (1)
DB 'GO FOR IT AGAIN FELLOW'
DB 21 DUP (1),255
RIDE3TEXT DB 21 DUP (1)
DB 'REACHED THE SKY'
DB 21 DUP (1),255
SKILLCYCLONETEXT DB ' CYCLONE SKILL SHOT',0
SKILLTUNNELTEXT db ' TUNNEL SKILL SHOT',0
CRAZYLETTERTEXT DB 'CRAZY LETTER SPOTTED',0
SIDELANETEXT DB 21 DUP (1)
DB 'SIDE LANE EXTRA BALL IS LIT'
DB 21 DUP (1),255
nothingtext DB 'NO SCORE',0
femhundratext DB 21 DUP (1)
db 'FEMHUNDRATUSEN'
DB 21 DUP (1),255
bonusheldtext db 'B O N U S H E L D',0
DOUBLEBONUStext db 'X9 DOUBLE BONUS X9',0 ;9=2
fivetext DB 21 DUP (1)
db '5'
DB 21 DUP (1),255
_onemoreformad db 1+65-10,' MORE FOR MAD',0
_twomoreformad db 2+65-10,' MORE FOR MAD',0
PF_TEXT DB ' PINBALL FANTASIES',0
TRS_TEXT DB ' THE REAL SIMULATOR',0
PL_TEXT DB ' PARTY LAND',0
SCROLL_TEXT1 DB 21 DUP (' '),'ADD PLAYERS WITH F1 TO F8 OR ENTER ',21 DUP (' ')
DB 'WINNERS DO NOT USE DRUGS',21 DUP (' '),255
ALLTIME_TEXT DB 'ALL TIME HIGHSCORES',0
fld_TEXT DB ' FRONTLINE DESIGN',0
SCROLL_TEXT2 DB 21 DUP (' '),'FLIP WITH LEFT AND RIGHT ALT SHIFT OR CTRL KEYS',21 DUP (' ')
DB 'PUSH TABLE WITH SPACE',21 DUP (' ')
DB 'CONTROL SPRING WITH DOWN ARROW KEY',' ESC EXITS',21 DUP (' ')
DB 'WINNERS DO NOT USE DRUGS ',21 DUP (' ')
DB 255
COMMENT\
PF_TEXT DB ' PINBALL FANTASIES',0
TRS_TEXT DB ' THE REAL SIMULATOR',0
PL_TEXT DB ' PARTY LAND',0
SCROLL_TEXT1 DB 21 DUP (' '),'ADD PLAYERS WITH F1 TO F8 OR ENTER',21 DUP (' ')
DB 'WINNERS DO NOT USE DRUGS',21 DUP (' '),255
ALLTIME_TEXT DB ' ALL TIMES HIGHSCORE',0
SCROLL_TEXT2 DB 21 DUP (' '),'FLIP WITH LEFT AND RIGHT ALT SHIFT OR CTRL KEYS',21 DUP (' ')
DB 'PUSH TABLE WITH SPACE',21 DUP (' ')
DB 'CONTROL SPRING WITH DOWN ARROW KEY OR MOUSE',21 DUP (' ')
DB 'WINNERS DO NOT USE DRUGS',21 DUP (' ')
DB 'P PAUSES GAME AND M TOGGLES INGAME MUSIC ON AND OFF',21 DUP (' ')
DB 'ESC EXITS AND SAVES NEW HIGHSCORES',21 DUP (' '),255
\
DIGITAL_TEXT DB ' DIGITAL ILLUSIONS',0
JACK_TEXT DB 'JACKPOT IS',0
BONUS_TEXT DB ' YOU HAVE XX BONUS',0 ;10
PLAY_TEXT DB ' PLAYER 8 BALL 8 ',0 ;8,18
INFO_TEXT DB 21 DUP (' ')
db ''
DB 21 DUP (1),255
IF DEMOVER
playerstext db 5+'7',' MIN DEMO',0 ;8=1 (L™S EKVATIONEN!)
ELSE
playerstext db 'PLAYER 8',0 ;8=1 (L™S EKVATIONEN!)
ENDIF
BALLSTEXT DB 'BALL 8',0 ;8=1
hajjskar db 'HIGHSCORE PL X ',92,' ',93,0
stjaernor db '********************',0
;******************************************************************************
DATA ENDS
;*************************** Animations **************************************
DATA2 SEGMENT PARA PUBLIC 'DATA'
;*********************ANIMATIONS MALL*************************
dw 1*4 ;loop pos
dw 15 ;number of loops
dw 5*4-4 ;length of anim (5 frames * 4 bytes!)
_happy dw happy_1,1;<---start!
dw happy_2,2;<-, loop!
dw happy_3,2; I
dw happy_4,2; I
dw happy_5,2;__I
;**************************************************************
dw 1*2 ;loop pos
dw 1 ;number of loops
dw 19*4 ;length of anim (5 frames * 4 bytes!)
_cyclone dw cyclo00,speed
dw cyclo01,speed
dw cyclo02, speed
dw cyclo03, speed
dw cyclo04, speed
dw cyclo05 ,speed
dw cyclo06 ,speed
dw cyclo07 ,speed
dw cyclo08 ,speed
dw cyclo09 ,speed
dw cyclo10 ,speed
dw cyclo11 ,speed
dw cyclo12 ,speed
dw cyclo13 ,speed
dw cyclo14 ,speed
dw cyclo15 ,speed
dw cyclo16 ,speed
dw cyclo17 ,speed
dw cyclo18 ,40
dw 0
dw 20
dw 4*3-4
_party_party dw party_1,1
dw party_2,1
dw party_3,2
dw 0
dw 20
dw 4*3-4
_party_p dw party_1,1
dw party_4,1
dw party_5,2
dw 0
dw 20
dw 4*3-4
_party_a dw party_1,1
dw party_6,1
dw party_7,2
dw 0
dw 20
dw 4*3-4
_party_r dw party_1,1
dw party_8,1
dw party_9,2
dw 0
dw 20
dw 4*3-4
_party_t dw party_1,1
dw party_10,1
dw party_11,2
dw 0
dw 20
dw 4*3-4
_party_y dw party_1,1
dw party_12,1
dw party_13,2
dw 0
dw 1
megallen dw 4*28
megal DW MEGAL00,4
dw megal01,4
dw megal02,4
dw megal03 ,4
dw megal04 ,4
dw megal05 ,4
dw megal06 ,4
dw megal07 ,4
dw megal08 ,4
dw megal09 ,4
dw megal10 ,4
dw megal11 ,4
dw megal12 ,4
dw megal13 ,4
dw megal14 ,4
dw megal15 ,4
dw megal16 ,4
dw megal17 ,4
dw megal18 ,4
dw megal19 ,4
dw megal20 ,4
dw megal21 ,4
dw megal22 ,4
dw megal23 ,4
dw megal24 ,4
dw megal25 ,4
dw megal26 ,4
dw megal27,50
;*****************************
dw 1
dw 32*4
speed=7
_mystery dw a_12_00,speed
dw a_12_01,speed
dw a_12_02,speed
dw a_12_03 ,speed
dw a_12_04 ,speed
dw a_12_05 ,speed
dw a_12_06 ,speed
dw a_12_07 ,speed
dw a_12_08 ,speed
dw a_12_09 ,speed
dw a_12_10 ,speed
dw a_12_11 ,speed
dw a_12_12 ,speed
dw a_12_13 ,speed
dw a_12_14 ,speed
dw a_12_15 ,speed
dw a_12_16 ,speed
dw a_12_17 ,speed
dw a_12_18 ,speed
dw a_12_19 ,speed
dw a_12_20 ,speed
dw a_12_21 ,speed
dw a_12_22 ,speed
dw a_12_23 ,speed
dw a_12_24 ,speed
dw a_12_25 ,speed
dw a_12_26 ,speed
dw a_12_27 ,speed
dw a_12_28 ,speed
dw a_12_29 ,speed
dw a_12_30 ,speed
dw a_12_31 ,speed
;*************************
;*****************************
dw 1
dw 16*4
speed=3
_million dw a_09_00,speed
dw a_09_01,speed
dw a_09_02,speed
dw a_09_03 ,speed
dw a_09_04 ,speed
dw a_09_05 ,speed
dw a_09_06 ,speed
dw a_09_07 ,speed
dw a_09_08 ,speed
dw a_09_09 ,speed
dw a_09_10 ,speed
dw a_09_11 ,speed
dw a_09_12 ,speed
dw a_09_13 ,speed
dw a_09_14 ,speed
dw a_09_15 ,40
;*************************
dw 1
dw 16*4
speed=1
_millionFAST dw a_09_00,speed
dw a_09_01,speed
dw a_09_02,speed
dw a_09_03 ,speed
dw a_09_04 ,speed
dw a_09_05 ,speed
dw a_09_06 ,speed
dw a_09_07 ,speed
dw a_09_08 ,speed
dw a_09_09 ,speed
dw a_09_10 ,speed
dw a_09_11 ,speed
dw a_09_12 ,speed
dw a_09_13 ,speed
dw a_09_14 ,speed
dw a_09_15 ,40
;*************************
;*****************************
dw 2*4 ;loop pos (word)
dw 5 ;nof loops
dw 18*4 ;length
speed=4
_jackpot dw a_15_00,speed
dw a_15_01,speed
dw a_15_02,speed
dw a_15_03 ,speed
dw a_15_04 ,speed
dw a_15_05 ,speed
dw a_15_06 ,speed
dw a_15_07 ,speed
dw a_15_08 ,speed
dw a_15_09 ,speed
dw a_15_10 ,speed
dw a_15_11 ,speed
dw a_15_12 ,speed
dw a_15_13 ,speed
dw a_15_14 ,speed
dw a_15_15 ,speed
dw a_15_16 ,speed
dw a_15_17 ,speed
dw a_15_18 ,speed
;*************************
;*****************************
dw 1
dw 8*4
speed=2
_bonusx2 dw a_03_00,speed
dw a_03_01,speed
dw a_03_02,speed
dw a_03_03 ,speed
dw a_03_04 ,speed
dw a_03_05 ,speed
dw a_03_06 ,speed
dw a_03_07 ,40
;*************************
;*****************************
dw 1
dw 8*4
speed=2
_bonusx4 dw a_04_00,speed
dw a_04_01,speed
dw a_04_02,speed
dw a_04_03 ,speed
dw a_04_04 ,speed
dw a_04_05 ,speed
dw a_04_06 ,speed
dw a_04_07 ,40
;*************************
;*****************************
dw 1
dw 8*4
speed=2
_bonusx6 dw a_05_00,speed
dw a_05_01,speed
dw a_05_02,speed
dw a_05_03 ,speed
dw a_05_04 ,speed
dw a_05_05 ,speed
dw a_05_06 ,speed
dw a_05_07 ,40
;*************************
;*****************************
dw 1
dw 8*4
speed=2
_bonusx8 dw a_06_00,speed
dw a_06_01,speed
dw a_06_02,speed
dw a_06_03 ,speed
dw a_06_04 ,speed
dw a_06_05 ,speed
dw a_06_06 ,speed
dw a_06_07 ,40
;*************************
;*****************************
dw 1
dw 22*4
speed=4
_extraball dw a_01_00,speed
dw a_01_01,speed
dw a_01_02,speed
dw a_01_03 ,speed
dw a_01_04 ,speed
dw a_01_05 ,speed
dw a_01_06 ,speed
dw a_01_07 ,speed
dw a_01_08 ,speed
dw a_01_09 ,speed
dw a_01_10 ,speed
dw a_01_11 ,speed
dw a_01_12 ,speed
dw a_01_13 ,speed
dw a_01_14 ,speed
dw a_01_15 ,speed
dw a_01_16 ,speed
dw a_01_17 ,speed
dw a_01_18 ,speed
dw a_01_19 ,speed
dw a_01_20 ,speed
dw a_01_21 ,170
;*************************
;*****************************
dw 1
dw 35*4
_loop dw a_08_00,3
dw a_08_01,3
dw a_08_02,3
dw a_08_03 ,3
dw a_08_04 ,3
dw a_08_05 ,3
dw a_08_06 ,3
dw a_08_07 ,3
dw a_08_08 ,3
dw a_08_09 ,3
dw a_08_10 ,3
dw a_08_11 ,3
dw a_08_12 ,3
dw a_08_13 ,3
dw a_08_14 ,3
dw a_08_15 ,3
dw a_08_16 ,3
dw a_08_17 ,3
dw a_08_18 ,3
dw a_08_19 ,3
dw a_08_20 ,3
dw a_08_21 ,3
dw a_08_22 ,3
dw a_08_23 ,3
dw a_08_24 ,3
dw a_08_25 ,3
dw a_08_26 ,3
dw a_08_27 ,3
dw a_08_28 ,3
dw a_08_29 ,3
dw a_08_30 ,3
dw a_08_31 ,3
dw a_08_32 ,3
dw a_08_33 ,3
dw a_08_34 ,30
;*************************
extrn MEGAL00,megal01,megal02 ,megal03 ,megal04 ,megal05 ,megal06 ,megal07 ,megal08 ,megal09 ,megal10,megal11 ,megal12 ,megal13 ,megal14 ,megal15 ,megal16 ,megal17 ,megal18 ,megal19 ,megal20 ,megal21 ,megal22 ,megal23 ,megal24 ,megal25 ,megal26 ,megal27:byte
extrn a_09_00,a_09_01,a_09_02 ,a_09_03 ,a_09_04 ,a_09_05 ,a_09_06 ,a_09_07 ,a_09_08 ,a_09_09 ,a_09_10,a_09_11 ,a_09_12 ,a_09_13 ,a_09_14 ,a_09_15
extrn a_03_00,a_03_01,a_03_02 ,a_03_03 ,a_03_04 ,a_03_05 ,a_03_06 ,a_03_07
extrn a_04_00,a_04_01,a_04_02 ,a_04_03 ,a_04_04 ,a_04_05 ,a_04_06 ,a_04_07
extrn a_05_00,a_05_01,a_05_02 ,a_05_03 ,a_05_04 ,a_05_05 ,a_05_06 ,a_05_07
extrn a_06_00,a_06_01,a_06_02 ,a_06_03 ,a_06_04 ,a_06_05 ,a_06_06 ,a_06_07
extrn party_1,party_2 ,party_3 ,party_4 ,party_5 ,party_6 ,party_7 ,party_8 ,party_9 ,party_10,party_11 ,party_12 ,party_13 ,party_14
extrn cyclo00,cyclo01,cyclo02 ,cyclo03 ,cyclo04 ,cyclo05 ,cyclo06 ,cyclo07 ,cyclo08 ,cyclo09 ,cyclo10,cyclo11 ,cyclo12 ,cyclo13 ,cyclo14 ,cyclo15 ,cyclo16,cyclo17,cyclo18,cyclo19,cyclo20
extrn a_12_00,a_12_01,a_12_02,a_12_03 ,a_12_04 ,a_12_05 ,a_12_06 ,a_12_07 ,a_12_08 ,a_12_09 ,a_12_10 ,a_12_11 ,a_12_12 ,a_12_13 ,a_12_14 ,a_12_15 ,a_12_16 ,a_12_17 ,a_12_18 ,a_12_19 ,a_12_20 ,a_12_21 ,a_12_22 ,a_12_23 ,a_12_24 ,a_12_25 ,a_12_26 ,a_12_27 ,a_12_28 ,a_12_29 ,a_12_30 ,a_12_31 ,a_12_32 ,a_12_33 ,a_12_34 ,a_12_35
extrn a_08_00,a_08_01,a_08_02,a_08_03 ,a_08_04 ,a_08_05 ,a_08_06 ,a_08_07 ,a_08_08 ,a_08_09 ,a_08_10 ,a_08_11 ,a_08_12 ,a_08_13 ,a_08_14 ,a_08_15 ,a_08_16 ,a_08_17 ,a_08_18 ,a_08_19 ,a_08_20 ,a_08_21 ,a_08_22 ,a_08_23 ,a_08_24 ,a_08_25 ,a_08_26 ,a_08_27 ,a_08_28 ,a_08_29 ,a_08_30 ,a_08_31 ,a_08_32 ,a_08_33 ,a_08_34
extrn a_01_00,a_01_01,a_01_02,a_01_03 ,a_01_04 ,a_01_05 ,a_01_06 ,a_01_07 ,a_01_08 ,a_01_09 ,a_01_10 ,a_01_11 ,a_01_12 ,a_01_13 ,a_01_14 ,a_01_15 ,a_01_16 ,a_01_17 ,a_01_18 ,a_01_19 ,a_01_20 ,a_01_21 ,a_01_22
extrn a_15_00,a_15_01,a_15_02,a_15_03 ,a_15_04 ,a_15_05 ,a_15_06 ,a_15_07 ,a_15_08 ,a_15_09 ,a_15_10 ,a_15_11 ,a_15_12 ,a_15_13 ,a_15_14 ,a_15_15 ,a_15_16 ,a_15_17 ,a_15_18
extrn happy_1,happy_2 ,happy_3 ,happy_4 ,happy_5
;megal11?
DATA2 ENDS
;******************************************************************************
;******************************************************************************
;** **
;** C O D E **
;** **
;******************************************************************************
CODE SEGMENT PARA PUBLIC 'CODE'
ASSUME CS:CODE,DS:DATA
;*********************************** INITS ************************************
JUST_ONE_TIME_RESET_TABLE:
CALL CREATEGATE1
CALL SLACK_LIGHTS
RETN
WHEN_NEW_GAME_RESET_TABLE:
CALL SLACK_LIGHTS
CALL RESETFLASHLIST
MOVEBCD JACKVALUE,JACKINIT
CALL RESET_VARS2
CALL RESET_VARS
CALL UPDATE_P_STRUC_4_ALL_PLAYERS
MOV XBALLS,0
MOV XxballE,FALSE
MOV MUSICOK,FALSE
;cleara slutsiffrorna (di alla!) (F”r knacket allts†!!!)
push es
move es,ds
MOV di,offset last_text
mov al,' '
mov cx,8*2
rep stosb
MOV di,offset flashlast
mov al,' '
mov cx,8*2
rep stosb
pop es
RETN
; CALL INIT_JACK
RESET_VARS2:
NIL AX
MOVE ES,DS
MOV DI,OFFSET SIFFRORNA
MOV CX,6
REP STOSW
MOV DI,OFFSET BONUSSIFFRORNA
MOV CX,6
REP STOSW
MOV CYCLONECOUNTER,0
MOV DI,OFFSET CYCLONECOUNTERBCD
MOV CX,6
REP STOSW
MOV DI,OFFSET CYCLONESCOREBCD
MOV CX,6
REP STOSW
MOV DI,OFFSET SKILL_SCORE
MOV CX,6
REP STOSW
MOV DI,OFFSET SKILL_SCORE2
MOV CX,6
REP STOSW
;cleara slutsiffrorna (di alla!) (F”r knacket allts†!!!)
push es
move es,ds
MOV di,offset last_text
mov al,' '
mov cx,8*2
rep stosb
pop es
; MOV XXBALLE,FALSE
RETN
WHEN_NEW_BALL_RESET_TABLE:
CALL SLACK_LIGHTS
CALL RESETFLASHLIST
CALL RESET_VARS
CALL P_STRUC_2_VARS
RETN
RESET_VARS:
MOVE ES,DS
NIL AX
MOV BONUS_TEXT[11],'8'
; MOV play_TEXT[18],'8' ;cpp
; MOV play_TEXT[8],'8' ;cpp
MOV DI,OFFSET HAPPY_HOUR_TOTAL
MOV CX,6
REP STOSW
MOV DI,OFFSET MEGA_LAUGH_TOTAL
MOV CX,6
REP STOSW
MOV BALLHIGH,FALSE
MOV SNACKSYNCER,0 ;SYNCER VARS
MOV ARROWSYNCER,0
MOV PUKESYNCER,0
MOV TRAINSYNCER,0
MOV SNACKCOUNTER,0
MOV ICEFLASHING,FALSE ;FLASHING VARS
MOV SODAFLASHING,FALSE
MOV POPFLASHING,FALSE
MOV ARCADEON,FALSE
MOV MBFLASHING,FALSE
MOV BONUSMULTIPEL,1
MOV HBFLASHING,FALSE
MOV DBFLASHING,FALSE
MOV _5XFLASHING,FALSE
MOV _5MFLASHING,FALSE
MOV BALLFLASHING,FALSE
MOV JPFLASHING_NORMAL,FALSE
MOV JPFLASHING_TIME,FALSE
MOV D1DISABLED,FALSE ;DISABLE VARS
MOV D2DISABLED,FALSE
MOV D3DISABLED,FALSE
MOV TOUCHERDISABLED,FALSE
MOV SNACKDISABLED,FALSE
MOV INH_REV,FALSE
MOV INH_LOOP,FALSE
MOV INHIBIT_REVERSE_COUNTER,0
MOV PUKEFORBIDDEN,FALSE
MOV DRAGON,FALSE
MOV TUNNELDOWNCOUNTER,0 ;SYNC COUNTERS
MOV ANY_LOOP_DOWN_COUNTER,0
MOV REVERSE_DOWN_COUNTER,0
MOV POPCOUNTER,0 ;FEATURE COUNTERS
MOV SKYRIDECOUNTER,0
MOV PUKECOUNTER,0
MOV BALOONCOUNTER,0
MOV HAPPY_HOUR,FALSE ;MODE FLAGS
MOV MEGA_LAUGH,FALSE
MOV HOLDBONUSFLAG,FALSE
MOV EOTS,TRUE
MOV CRAZY_ADVANCE_LIST[0],0
CALL RESETFLASHLIST
CALL SLACK_LIGHTS
LIGHTON 52
LIGHTON 53
LIGHTON 54
LIGHTFLASH 14,TUNNELSPEED ;1M (TUNNEL)
LIGHTFLASH 26,BALOONSPEED ;250K (REVERSE)
CALL DOLIGHTS ;FLUSH THE BUFFERT
CALL RESTORED1 ;RESTORE DUCK TARGETS
CALL RESTORED2
CALL RESTORED3
MOV BONUS_X,1
;HŽR VAR DEN! ; mov paRTYFLASh,false
RETN
;******************************************************************************
DEMO_MUSIC PROC NEAR
CMP no_demomusic,TRUE
JE OOPS_HIGH ;CP!
CMP HIGHSCORE,TRUE
JE OOPS_HIGH ;CP!
PLAYJINGLE S_NOHIGH
MOV AL,S_NOHIGH[2]
MOV LASTPRIORITY,AL
MOV LASTJINGLE,9 ;9=NOHIGH ;SVEN
MOV JINGLEJUMPCNT,1
OOPS_HIGH:
mov no_demomusic,false
RETN
DEMO_MUSIC ENDP
GAME_MUSIC PROC NEAR
; ADDTASK TYSTAVOICE
PLAYJINGLE S_ADDPLAYER ;S_SPRING
MOV AL,S_SPRING+2
MOV LASTPRIORITY,AL
MOV LASTJINGLE,0
RETN
TYSTAVOICE:
; WAITSYNCS 10 ;CPW!
; SOUNDEFFECT 1eH,1 ;TYSTA STŽMMA 4
; SUICIDE
GAME_MUSIC ENDP
;******************************** LOOSE BALL **********************************
LOOSE_BALL PROC NEAR
MOV LOOSING,TRUE
MOV SCREENFORCE2,576-SH_LO+SPLH ;CP?
CMP HI_RES,TRUE
JNE NOTHIRES14
MOV SCREENFORCE2,576-SH_HI+SPLH ;CP?
NOTHIRES14:
SETBALLPOS DROPX,DROPY,DROPXS,DROPYS,FALSE ;INTE CP.
MOV ALLOWFLIP,FALSE ;KILL FLIPPERS!
MOV SPECIALMODE,FALSE
MOV HAPPY_HOUR,FALSE
MOV MEGA_LAUGH,FALSE
CMP SCORECHANGED,FALSE
JNE NOT_ITS_PARTY_ON
MOV CURRENT_PRIORITY,0
MOV BX,OFFSET party_onTS
CALL DO_MATRIX
PLAYJINGLE S_SPRING ;FIAT DUO
MOV MUSICOK,TRUE
ADDTASK PARTY_ON_TASK1
RETN
PARTY_ON_TASK1: ;WAIT FOR PARTY ON
WAITSYNCS 30
MOV PARTYFLASH,TRUE
CALL NEW_BALL
RETN ;PGA NEWBALL
NOT_ITS_PARTY_ON:
if demover
cmp fiveminutes,true
je endofsession
endif
MOV CURRENT_PRIORITY,0
EFFECT LOSTBALL
MOV CURRENT_PRIORITY,0
MOV LASTJINGLE,62
; MOV LASTLOOPVAL,0
ADDTASK SOUNDRINNER
RETN
SOUNDRINNER:
WAITSYNCS 5
SOUNDEFFECT SRINNER,0
SUICIDE
if demover
endofsession:
effect minute5
retn
endif
_FLORPA:
MOV CS:LB6CNT,0 ;RESET F™RDR™JNINGS-RŽKNAREN
MOV ADDORPEK,OFFSET ADDOR ;STARTA MED SISTA NUFFRAN
MOV BONUSPEK,OFFSET BONUSSIFFRORNA+11
MOV SI,OFFSET BONUSSIFFRORNA ;SPARA BONUSSIFFRORNA
MOV DI,OFFSET TEMPSIFFRORNA
MOVE ES,DS
MOV CX,6
REP MOVSW
MOV DOTRUT,OFFSET DO_FLORPA
ADD BX,2
CMP WORD PTR [BX],0
JNE _NEXTp_5
MOV BX,0
_NEXTp_5:
MOV NEXT_A,BX
RETN
PLIPPA_SCORE:
mov si,offset siffrorna
mov bx,336*2/4+(320-12*16)/4 ;h”ger justerad!
MOVE ES,CS
CALL DWORD PTR ES:PEKOR
MOV SI,0
RETN
LB6CNT DW ?
DO_FLORPA:
INC CS:LB6CNT
CMP CS:LB6CNT,4 ;CPW!
JE LB6CNTOK
MOV SI,75
RETN
LB6CNTOK:
MOV CS:LB6CNT,0
DO_IT_AGAIN_AND_DO_IT_NOW:
MOV BX,BONUSPEK
MOV AL,[BX]
OR AL,AL ;IS DIGIT ZERO?
JZ DIGIT_IS_ZERO
DEC BYTE PTR [BX] ;RŽKNA NED BONUSEN
JNZ NO_WAITS_TODAY
IFZEROBCD BONUSSIFFRORNA
JNC NO_WAITS_TODAY
MOV CS:LB6CNT,-10 ;CPW!
NO_WAITS_TODAY:
MOV SI,ADDORPEK ;RŽKNA UPP POŽNGEN
MOV DI,OFFSET SIFFRORNA
CALL ADDSCOREBCD
SOUNDEFFECT S_SCORELJUD,0
JMP STEP_DONE
DIGIT_IS_ZERO:
;FLER SIFFROR?
INC ADDORPEK ;NEXT DIGIT IN POŽNGEN
CMP ADDORPEK,OFFSET ADDOR+12
JE NO_MORE_NUFFROR
DEC BONUSPEK ;NEXT DIGIT IN BONUS
JMP DO_IT_AGAIN_AND_DO_IT_NOW
STEP_DONE:
;SHOW BONUSSIFFRORNA & SIFFRORNA
MOV SI_siffror,OFFSET BONUSSIFFRORNA
MOV DI_siffror,7*2*SW/4-16*4/4 ;10 RADER NED, 8 (12-4) TECKEN IN P<> RADEN!!
MOV TABORT_DIOVRE_FNT,0
MOV PRINTTASK,OFFSET PRINT8_task
CALL PLIPPA_SCORE
MOV SI,75 ;AVINSTALLERA EJ!
RETN
NO_MORE_NUFFROR:
mov clear_box_start,7*2*SW/4
mov clear_box_bredd,16*(12-1)/4-16*4/4
mov clear_box_hojd,10
CALL clear_box2
MOV SI,0 ;AVINSTALLERA!
RETN
;*******************************
_DEMOVER_CHANGE_PLAYER:
PUSH BX
CMP HOLDBONUSFLAG,TRUE
JNE NOT_HB_TRUEDV
MOV SI,OFFSET TEMPSIFFRORNA ;HOLD THE BONUS!
MOV DI,OFFSET BONUSSIFFRORNA
MOVE ES,DS
MOV CX,6
REP MOVSW
NOT_HB_TRUEDV:
; MOV AL,1
; ADD AL,'7' ;SEPEKOMPENSERING
; MOV BALLSTEXT[5],AL
INC BALLSTEXT[5] ;CP! DEMOVER
CMP BALLSTEXT[5],'7'+10
JB NOIH
MOV BALLSTEXT[5],'7'
CMP BALLSTEXT[4],'7'+1
JNE DOMOV
INC BALLSTEXT[4]
JMP NOIH
DOMOV: MOV BALLSTEXT[4],'7'+1 ;CP! DEMOVER
NOIH:
CALL VARS_2_P_STRUC ;STORE TABLE AND SCORE!
; CALL NEW_BALL
ADDTASK NEW_BALL_TASK ;TO GAME FROM GAME
POP BX
JMP HU_
;*******************************
disa dw ?
playerQ db ?
hi_pos dw ?
_check_high:
MOV SISA,1
mov al,players
mov cs:playerQ,0
MOV CS:DISA,0
MOV DOTRUT,offset SPINTSEL_IN_HIGH
JMP NORMAL_END
spintsel_in_high:
LEA SI,PLAYER_AREA.P_SIFFRORNA
MOV CX,4
add si,cs:disa
add cs:disa,size player_struc
mov di,offset hi_score_list
inc cs:playerQ
mov al,cs:playerQ
cmp al,players
jna check_list
mov first_high,false
cmp highscore,true
je no_sad_jingle
mov current_priority,0
mov jinglejumpcnt,1
PLAYJINGLE S_GameOver
mov current_priority,0
mov no_demomusic,true
no_sad_jingle:
mov highscore,false
mov si,0
retn ;f„rdig!
check_list:
push cx
mov cx,12
mov bx,0
check_num:
mov al,[di+bx]
cmp [si+bx],al
jb not_beaten
ja beaten
inc bx
loop check_num
not_beaten:
mov bp,false
jmp poppera
beaten:
pop cx
mov cs:hi_pos,cx
;play the happy highscore jingle . . .
;But only the first time!!
cmp first_high,true
je noplay_of_this
mov first_high,true
mov current_priority,0
mov jinglejumpcnt,1
mov highscore,true
playjingle_PENETRATE S_GameOver2 ;(HiScore jingle)
noplay_of_this:
mov sisa,1
mov bp,true
jmp done_hi_check
poppera:
pop cx
add di,12+3+1 ;12 nuffror, 3 bokst„ver
loop check_list
done_hi_check:
mov si,1
cmp bp,true
jne dont_getit
;*****************
;Print 'highscore pl x ( )' and install key-reader TS
mov al,cs:playerQ
mov hajjskar[13],al
add hajjskar[13],'7'
mov dotrut,offset get_it_from_keyboard
mov hojd_1,13
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*13*2/4
mov font_adr,offset font13
MOV AX,offset hajjskar
MOVE DI,sw*2*2/4
call PRINT_TEXT
;*****************
mov si,1
retn
dont_getit:
retn
get_it_from_keyboard:
;************ insert in list
push es
move es,ds
mov cx,cs:hi_pos
mov si,offset hi_score_list+(12+3+1)*3-1
mov di,offset hi_score_list+(12+3+1)*4-1
dec cx
jcxz pos4
mov ax,12+3+1
mul cx
mov cx,ax
std
rep movsb
pos4: sub di,(12+3+1)-1
cld
lea si,player_area.p_siffrorna
MOV CX,SIZE PLAYER_STRUC
MOV AL,CS:PLAYERQ
dec al
NIL AH
MUL CX
ADD SI,AX
mov cx,12
rep movsb ;mov in new hiscore
pop es
;di pekar d„r namnet ska petas in!!
mov cs:nof_chars_to_read,3
mov cs:place_hi,di
mov scan_code,-1 ;l„s ev. tidigare tangenttryck!
mov dotrut,offset read_keyboardet
mov si,1
retn
;*****************
place_hi dw ?
nof_chars_to_read dw ?
read_keyboardet:
push es
mov al,scan_code
cmp al,-1
je kvar_svar ;ej tryckt!
mov scan_code,-1
mov bx,offset alfa_keys
xlat
cmp al,0
je kvar_svar ;felaktigt tecken!
move es,ds
mov di,cs:place_hi
stosb
push ax
mov cs:place_hi,di
mov ax,3
sub ax,cs:nof_chars_to_read
mov di,offset hajjskar+16
add di,ax
pop ax
stosb ;skriv te sk„rm texten . .
dec cs:nof_chars_to_read
jnz kvar_svar
mov sisa,60 ;cpw!
mov dotrut,offset wait_a_little
pop es
mov hojd_1,13
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*13*2/4
mov font_adr,offset font13
MOV AX,offset hajjskar
MOVE DI,sw*2*2/4
call PRINT_TEXT
;cleara namnet!
push es
move es,ds
mov al,' '
mov cx,3
mov di,offset hajjskar+16
rep stosb ;skriv te sk„rm texten . .
pop es
jmp dont_write_play
kvar_svar:
pop es
mov hojd_1,13
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*13*2/4
mov font_adr,offset font13
MOV AX,offset hajjskar
MOVE DI,sw*2*2/4
call PRINT_TEXT
dont_write_play:
mov si,sisa
retn
wait_a_little:
dec si
cmp si,30 ;cpw!
jne dont_blame_me
push si
mov hojd_1,13
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*13*2/4
mov font_adr,offset font13
MOV AX,offset stjaernor
MOVE DI,sw*2*2/4
call PRINT_TEXT
pop si
dont_blame_me:
cmp si,2
jnbe retta_oooo
mov dotrut,offset spintsel_in_high
mov si,1
retta_oooo:
retn
_loop_:
dec cs:looper
JZ NOJUMPER_tomorrow
add bx,4
mov bx,[bx]
MOV NEXT_A,BX
jmp [bx]
looper dw ?
_setloop:
NOJUMPER_tomorrow:
;reinstall loop val
mov ax,[bx+2]
mov cs:looper,ax
MOV SISA,1
mov dotrut,offset WAITRUT
jmp print_end
SHOWER DB ?
player_adr dw ?
_INIT_SCORE:
mov cs:player_adr,0
sub cs:player_adr,size player_struc
if demover
else
MOV PLAYERSTEXT[7],0+'7'
endif
;cpp MOV PLAY_TEXT[8],0+'7'
MOV AL,PLAYERS
MOV CS:SHOWER,AL
inc CS:SHOWER
MOV SISA,1
mov dotrut,offset WAITRUT
jmp normal_end
_SHOW_SCORE:
IF DEMOVER
ELSE
INC PLAYERSTEXT[7]
ENDIF
;cpp INC PLAY_TEXT[8]
add cs:player_adr,size player_struc
DEC CS:SHOWER
JZ NOJUMPER
MOV SISA,1
mov dotrut,offset ShowIt
cmp CS:SHOWER,1
je normal_end
add bx,2
mov bx,[bx]
MOV NEXT_A,BX
RETN
NOJUMPER:
MOV SISA,1
mov dotrut,offset WAITRUT
jmp normal_end
ShowIt:
mov hojd_1,5
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*5*2/4
mov font_adr,offset font5
MOV AX,offset PLAYERSTEXT
MOVE DI,sw*2*2/4
call PRINT_TEXT
; mov si,offset siffrorna
mov bx,cs:player_adr
LEA SI,PLAYER_AREA[BX].P_SIFFRORNA
mov bx,336*2/4+(320-12*16)/4 ;h”ger justerad!
MOVE ES,CS
CALL DWORD PTR ES:PEKOR
MOV SI,0
RETN
_knacket:
mov dotrut,offset knackrut1
mov sisa,1
MOV PLAYER,1 ;F™R CHECK_XXBALL
jmp normal_end
;tid mellan knack samt antal knack . . .
knacktid_HI=11 ;CPW!
nof_banks_HI=22 ;CPW!
knacktid_LO=9 ;CPW!
nof_banks_LO=23 ;CPW!
knackrut1:
PLAYJINGLE_PENETRATE S_endfig
MOV LASTJINGLE,62 ;TYST EFTER FULLGJORD PENETRERING
mov dotrut,offset knackrut2
;g”r text me sista nuffrerna!!
mov cl,players
nil ch
mov di,offset last_text
mov ah,' '
mov bx,10 ;n„st sista!
LEA SI,PLAYER_AREA[BX].P_SIFFRORNA
push es
move es,data
mov bx,0
make_last:
mov al,ds:[si]
add si,size player_struc
add al,'7'
stosw
mov word ptr offset [flashlast+bx],ax ;kopiera texten f”r senare blink
add bx,2
loop make_last
pop es
mov hojd_1,5
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*5*2/4
mov font_adr,offset font5
MOV AX,offset last_text
MOVE DI,sw*2/4
call PRINT_TEXT
MOV SI,NOF_BANKS_LO
MOV SISA,NOF_BANKS_LO
CMP HI_RES,TRUE
JNE NOTHIRES32
MOV SI,NOF_BANKS_HI
MOV SISA,NOF_BANKS_HI
NOTHIRES32:
MOV CS:TIMGLAS,KNACKTID_LO
CMP HI_RES,TRUE
JNE NOTHIRES30
MOV CS:TIMGLAS,KNACKTID_HI
NOTHIRES30:
retn
timglas dw ?
knackrut2:
dec cs:timglas
jz no_ret
ret
no_ret:
push si
MOV CS:TIMGLAS,KNACKTID_LO
CMP HI_RES,TRUE
JNE NOTHIRES31
MOV CS:TIMGLAS,KNACKTID_HI
NOTHIRES31:
mov ax,last_pos
;ax=linje adress, ett steg=32 pixel=> 1 steg= 8 adr.(mcgab)
;(1 char=8*2 pix, 1 steg=2 char)
shl ax,3
mov hojd_1,5
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*5*2/4
mov font_adr,offset font5
MOVE DI,sw*2*8/4
add di,ax
MOV AX,offset startext
call PRINT_TEXT
mov si,1
;knacka(????) fram en ny slutsiffra!
mov ax,slump_countern
mov dx,0
mov cx,10
div cx
;resten i de„ks e mellan n†ll † NIO!!!
CMP LAST_POS,DX
JNE NOT_THE_SAME
INC DX
CMP DX,10
JB NOW_ITS_OK
MOV DX,0
NOW_ITS_OK:
NOT_THE_SAME:
mov last_pos,dx
; inc last_pos
; cmp last_pos,10
; jnae over_iii
; mov last_pos,0
over_iii:
mov ax,last_pos
add ax,'7'
mov slutsiffra[0],al
sub ax,'7'
shl ax,3
mov hojd_1,5
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*5*2/4
mov font_adr,offset font5
MOV AX_PRINT,offset slutsiffra
MOVE DI_PRINT,sw*2*8/4
add di_print,ax
MOV PRINTTASK,OFFSET PRINT_TEXT
pop si
dec si
cmp si,0
jne retta_nuda
;kolla om siffrorna st„mmer f”r n†en . . .
mov cl,players
nil ch
mov si,offset last_text
mov bx,last_pos
add bx,'7'
mov di,offset flashlast
move es,data
mov cs:alla_glada,false
READ_NUFFROR:
lodsw
cmp al,bl
jne gladgnu_tu
mov cs:alla_glada,true
add di,2
loop READ_NUFFROR
jmp ture_sventton_kravdes_har
gladgnu_tu:
mov ax,'**'
stosw
loop READ_NUFFROR
ture_sventton_kravdes_har:
cmp cs:alla_glada,true
je gladgnu
mov si,0
jmp retta_nuda ;-( ingen glad )-:
alla_glada db ?
;Om javisst, spela glad gnu † flasha!
gladgnu:
MOV MATRIX_SPEED,3
MOV MATRIX_CNT,3
MOV MATRIX_ONOFF,TRUE
MOV MATRIX_IS_FLASHING,TRUE
mov hojd_1,5
mov tabort_diovre,0
mov tabort_diovre_fnt,0
mov hojd_add,bredd_1/4-sw*5*2/4
mov font_adr,offset font5
MOV AX,offset flashlast
MOVE DI,sw*2/4
call PRINT_TEXT
;URBAN WAS HERE MAY 68
mov current_priority,0
PLAYJINGLE S_Knacket
MOV JINGLEJUMPCNT,1
mov current_priority,0
mov lastjingle,55
mov si,0
retta_nuda:
retn
_CHECK_XXBALLS: ;OBS! TV<54> ING<4E>NGAR TILL DENNA RUTIN
;INPUT: LAST_TEXT, LAST_POS, PLAYER, PLAYERS
;OUTPUT: FT_PEKARE, PLAYER
TESTNEXTPL:
PUSH BX
MOV BL,PLAYER
NIL BH
SHL BX,1
ADD BX,OFFSET LAST_TEXT-2 ;bx pekar p† spelare n's slutsiffra
MOV AL,[BX]
MOV WORD PTR [BX],'XX' ;DESTROY HIM MY ROBOTS!
SUB AL,'7'
NIL AH
POP BX
CMP LAST_POS,AX
JE THIS_ONE ;HAN SKA F<> XXBALL!!!
INC PLAYER ;INGEN XXBALL F™R HONOM!
MOV AL,PLAYER
CMP AL,PLAYERS
JNA TESTNEXTPL
MOV BX,OFFSET after_xxballTS
MOV NEXT_A,BX
JMP [BX]
THIS_ONE:
MOV AL,PLAYER
ADD AL,'7' ;SEPEKOMPENSERING
IF DEMOVER
ELSE
MOV PLAYERSTEXT[7],AL
ENDIF
MOV XXBALLE,TRUE
MOV MUSICOK,TRUE
MOV BX,OFFSET shoOt_AGAIN_Onts
MOV NEXT_A,BX
JMP [BX]
;*********************************
_KOLLA_XXBALL:
CMP XXBALLE,FALSE
JE HU_
PUSH BX
CALL VARS_2_P_STRUC ;STORE TABLE AND SCORE!
POP BX
CMP LIGHTSTATUS[51],TRUE ;LAUGH AGAIN?
JE LET_HIM_SHOOT_AGAIN2 ;MEGA-HOPP
MOV AL,PLAYER ;IS HE THE HIGHEST PLAYER?
CMP AL,PLAYERS
JE HIGHEST_PLAYER2
INC PLAYER ;CHANGE TO THE NEXT PLAYER!
JMP PLAYER_CHANGED2
HIGHEST_PLAYER2:
MOV BX,OFFSET AFTER_XXBALLTS
MOV NEXT_A,BX
JMP [BX]
PLAYER_CHANGED2:
MOV AL,PLAYER
ADD AL,'7' ;SEPEKOMPENSERING
IF DEMOVER
ELSE
MOV PLAYERSTEXT[7],AL
ENDIF
;cpp MOV PLAY_TEXT[8],AL
MOV BX,OFFSET CHECK_XXBALLTS
MOV NEXT_A,BX
JMP [BX]
;**********
_CHANGE_PLAYER:
PUSH BX
CMP HOLDBONUSFLAG,TRUE
JNE NOT_HB_TRUE
MOV SI,OFFSET TEMPSIFFRORNA ;HOLD THE BONUS!
MOV DI,OFFSET BONUSSIFFRORNA
MOVE ES,DS
MOV CX,6
REP MOVSW
NOT_HB_TRUE:
CALL VARS_2_P_STRUC ;STORE TABLE AND SCORE!
POP BX
CMP LIGHTSTATUS[51],TRUE ;LAUGH AGAIN?
JE LET_HIM_SHOOT_AGAIN
PUSH BX
MOV AL,PLAYER ;IS HE THE HIGHEST PLAYER?
CMP AL,PLAYERS
JE HIGHEST_PLAYER
INC PLAYER ;CHANGE TO THE NEXT PLAYER!
JMP PLAYER_CHANGED
HIGHEST_PLAYER:
INC BALLS[11]
MOV AL,NO_OF_BALLS
CMP BALLS[11],AL
JA NO_MORE_BALLS
MOV PLAYER,1 ;NEXT PLAYER IS FIRST PLAYER!
MOV AL,BALLS[11]
ADD AL,'7' ;SEPEKOMPENSERING
MOV BALLSTEXT[5],AL
;cpp MOV play_TEXT[18],AL
PLAYER_CHANGED:
MOV AL,PLAYER
ADD AL,'7' ;SEPEKOMPENSERING
IF DEMOVER
ELSE
MOV PLAYERSTEXT[7],AL
ENDIF
;cpp MOV play_TEXT[8],AL
CALL P_STRUC_2_VARS ;NEXT PLAYER!
ADDTASK NEW_BALL_TASK ;TO GAME FROM GAME
POP BX
HU_: ADD BX,2 ;TASKSYTEM, HOPPA TILL NŽSTA/AVSLUT
CMP WORD PTR [BX],0
JNE _NEXTp_7
MOV BX,0
MOV NEXT_A,BX
RETN
_NEXTp_7:
MOV NEXT_A,BX
JMP [BX]
LET_HIM_SHOOT_AGAIN2: ;2 ING<4E>NGAR!
LET_HIM_SHOOT_AGAIN: ;2 ING<4E>NGAR!
DEC XBALLS
MOV BX,OFFSET shoot_again_onTS
MOV NEXT_A,BX
JMP [BX]
_NEW_BALL2:
PUSH BX
ADDTASK NEW_BALL_TASK ;TO GAME FROM GAME
POP BX
JMP HU_
NO_MORE_BALLS:
CALL VARS_2_P_STRUC ;STORE LAST PLAYER'S SCORE TOO!
POP BX
MOV BX,OFFSET out_of_ballsTS
MOV NEXT_A,BX
JMP [BX]
RETN
_2_DEMO_MODE:
ADDTASK TO_DEMO_FROM_GAME
JMP HU_
zeroscore:
push es
move es,ds
mov cx,12/2
mov ax,0
mov di,offset siffrorna
rep stosw
pop es
retn
TO_DEMO_FROM_GAME:
MOV PLAYERS_CP,TRUE
CALL GO_DEMO_MODE ;TO DEMO FROM GAME
MOV SCREENFORCE,BANH-(SH_LO-SPLH)
CMP HI_RES,TRUE
JNE NOTHIRES15
MOV SCREENFORCE,BANH-(SH_HI-SPLH)
NOTHIRES15:
MOV CARMEN,-1
call zeroscore
CALL SLACK_LIGHTS
MOV ADDPLAYERS,TRUE
LIGHTON 52
LIGHTON 53
LIGHTON 54
SUICIDE
LOOSE_BALL ENDP
;******************************** NEW_BALL ************************************
NEW_BALL_TASK:
WAITSYNCS 30
CALL NEW_BALL
RETN ;PGA NEWBALL
NEW_BALL PROC NEAR ;ENDA SŽTTET ATT F<> UT EN BOLL P<> BANAN!
MOV LOOSING,FALSE
MOV BALL_DOWN,FALSE
MOV I_UTSKJUT,TRUE
CALL WHEN_NEW_BALL_RESET
CALL WHEN_NEW_BALL_RESET_TABLE
CMP XBALLS,0
JZ NOLAUGHAGAINAGAIN
LIGHTON 51
NOLAUGHAGAINAGAIN:
MOV HOLDSTILL,TRUE
SETBALLPOS STARTX-5-15,STARTY-5,0,0,FALSE
MOV SCREENFORCE2,-1 ;500
CMP ADDPLAYERS,TRUE
JE NOSP
CMP MUSICOK,TRUE
JE MUSIC_ALREADY_OK
PLAYJINGLE S_SPRING
MOV MUSICOK,FALSE
MUSIC_ALREADY_OK:
NOSP:
MOV LASTJINGLE,0
MOV SCORECHANGED,FALSE
CMP ADDPLAYERS,TRUE
JE ITS_FROM_DEMO
CALL NEW_BALL_PART_TWO
RETN
ITS_FROM_DEMO:
ADDTASK SNART_NEW_BALL
RETN
NEW_BALL_PART_TWO:
ADDTASK SOUNDNEWBALL
ADDTASK SETBALL
ADDTASK SOUNDBRICKUPP
MOV ALLOWFLIP,TRUE
MOV TILTFLAG,FALSE
MOV TILTCOUNTER,0
MOV SCORECHANGED,FALSE
RETN
SOUNDBRICKUPP:
WAITSYNCS 5
SOUNDEFFECT SBRICKUPP,0
SUICIDE
SOUNDNEWBALL:
WAITSYNCS 50
SOUNDEFFECT SNEWBALL,0
SUICIDE
SETBALL:
WAITSYNCS 80
SETBALLPOS STARTX-5,STARTY-5,10,0,FALSE
MOV HOLDSTILL,FALSE
MOV SCREENFORCE2,-1
SUICIDE
;FIAT UNO
NEW_BALL ENDP
P_STRUC_2_VARS PROC NEAR ;INPUT:PLAYER
MOV BL,PLAYER
DEC BL
NIL BH
MOV AX,SIZE PLAYER_STRUC
MUL BX
MOV BX,AX ;BX=INDEX TO CORRECT PLAYER DATA IN PLAYER_AREA
UPDATE_LIGHT 1,PLAYER_AREA[BX+0].P_PUKE ;P
UPDATE_LIGHT 2,PLAYER_AREA[BX+1].P_PUKE ;E
UPDATE_LIGHT 4,PLAYER_AREA[BX+2].P_PUKE ;U
UPDATE_LIGHT 5,PLAYER_AREA[BX+3].P_PUKE ;K
UPDATE_LIGHT 6,PLAYER_AREA[BX+0].P_MAD ;M
UPDATE_LIGHT 8,PLAYER_AREA[BX+1].P_MAD ;A
UPDATE_LIGHT 9,PLAYER_AREA[BX+2].P_MAD ;D
UPDATE_LIGHT 41,PLAYER_AREA[BX+0].P_CRAZY ;Y
UPDATE_LIGHT 38,PLAYER_AREA[BX+1].P_CRAZY ;Z
UPDATE_LIGHT 34,PLAYER_AREA[BX+2].P_CRAZY ;A
UPDATE_LIGHT 31,PLAYER_AREA[BX+3].P_CRAZY ;R
UPDATE_LIGHT 28,PLAYER_AREA[BX+4].P_CRAZY ;C
UPDATE_LIGHT 42,PLAYER_AREA[BX+0].P_PARTY ;P
UPDATE_LIGHT 43,PLAYER_AREA[BX+1].P_PARTY ;A
UPDATE_LIGHT 44,PLAYER_AREA[BX+2].P_PARTY ;R
UPDATE_LIGHT 45,PLAYER_AREA[BX+3].P_PARTY ;T
UPDATE_LIGHT 46,PLAYER_AREA[BX+4].P_PARTY ;Y
CALL DOLIGHTS ;FLUSH THE BUFFERT
MOVE CYCLONECOUNTER,PLAYER_AREA[BX].P_CYCLONECOUNTER
MOV CX,12/2
MOVE ES,DS
LEA SI,PLAYER_AREA[BX].P_SIFFRORNA
MOV DI,OFFSET SIFFRORNA
MOV CX,12/2
REP MOVSW
LEA SI,PLAYER_AREA[BX].P_BONUSSIFFRORNA
MOV DI,OFFSET BONUSSIFFRORNA
MOV CX,12/2
REP MOVSW
LEA SI,PLAYER_AREA[BX].P_SKILL_SCORE
MOV DI,OFFSET SKILL_SCORE
MOV CX,12/2
REP MOVSW
LEA SI,PLAYER_AREA[BX].P_SKILL_SCORE2
MOV DI,OFFSET SKILL_SCORE2
MOV CX,12/2
REP MOVSW
LEA SI,PLAYER_AREA[BX].P_CYCLONECOUNTERBCD
MOV DI,OFFSET CYCLONECOUNTERBCD
MOV CX,12/2
REP MOVSW
LEA SI,PLAYER_AREA[BX].P_CYCLONESCOREBCD
MOV DI,OFFSET CYCLONESCOREBCD
MOV CX,12/2
REP MOVSW
RETN
P_STRUC_2_VARS ENDP
VARS_2_P_STRUC PROC NEAR
MOV BL,PLAYER
DEC BL
NIL BH
MOV AX,SIZE PLAYER_STRUC
MUL BX
MOV BX,AX ;BX=INDEX TO CORRECT PLAYER DATA IN PLAYER_AREA
VARS_2_P_STRUC_2: ;USED BY WHEN_NEW_GAME_RESET!
UPDATE_PSTRUC PLAYER_AREA[BX+0].P_PUKE,1 ;P
UPDATE_PSTRUC PLAYER_AREA[BX+1].P_PUKE,2 ;E
UPDATE_PSTRUC PLAYER_AREA[BX+2].P_PUKE,4 ;U
UPDATE_PSTRUC PLAYER_AREA[BX+3].P_PUKE,5 ;K
UPDATE_PSTRUC PLAYER_AREA[BX+0].P_MAD,6 ;M
UPDATE_PSTRUC PLAYER_AREA[BX+1].P_MAD,8 ;A
UPDATE_PSTRUC PLAYER_AREA[BX+2].P_MAD,9 ;D
UPDATE_PSTRUC PLAYER_AREA[BX+0].P_CRAZY,41 ;Y
UPDATE_PSTRUC PLAYER_AREA[BX+1].P_CRAZY,38 ;Z
UPDATE_PSTRUC PLAYER_AREA[BX+2].P_CRAZY,34 ;A
UPDATE_PSTRUC PLAYER_AREA[BX+3].P_CRAZY,31 ;R
UPDATE_PSTRUC PLAYER_AREA[BX+4].P_CRAZY,28 ;C
UPDATE_PSTRUC PLAYER_AREA[BX+0].P_PARTY,42 ;P
UPDATE_PSTRUC PLAYER_AREA[BX+1].P_PARTY,43 ;A
UPDATE_PSTRUC PLAYER_AREA[BX+2].P_PARTY,44 ;R
UPDATE_PSTRUC PLAYER_AREA[BX+3].P_PARTY,45 ;T
UPDATE_PSTRUC PLAYER_AREA[BX+4].P_PARTY,46 ;Y
CALL DOLIGHTS ;FLUSH THE BUFFERT
MOVE PLAYER_AREA[BX].P_CYCLONECOUNTER,CYCLONECOUNTER
MOV CX,12/2
MOVE ES,DS
LEA DI,PLAYER_AREA[BX].P_SIFFRORNA
MOV SI,OFFSET SIFFRORNA
MOV CX,12/2
REP MOVSW
LEA DI,PLAYER_AREA[BX].P_BONUSSIFFRORNA
MOV SI,OFFSET BONUSSIFFRORNA
MOV CX,12/2
REP MOVSW
LEA DI,PLAYER_AREA[BX].P_SKILL_SCORE
MOV SI,OFFSET SKILL_SCORE
MOV CX,12/2
REP MOVSW
LEA DI,PLAYER_AREA[BX].P_SKILL_SCORE2
MOV SI,OFFSET SKILL_SCORE2
MOV CX,12/2
REP MOVSW
LEA DI,PLAYER_AREA[BX].P_CYCLONECOUNTERBCD
MOV SI,OFFSET CYCLONECOUNTERBCD
MOV CX,12/2
REP MOVSW
LEA DI,PLAYER_AREA[BX].P_CYCLONESCOREBCD
MOV SI,OFFSET CYCLONESCOREBCD
MOV CX,12/2
REP MOVSW
RETN
VARS_2_P_STRUC ENDP
;******************************** TILT TILT TILT ******************************
HE_TILTED PROC NEAR
MOV ALLOWFLIP,FALSE
PLAYJINGLE S_TILT
MOV LASTJINGLE,62
MOV BX,OFFSET tiltTS
CALL DO_MATRIX
CALL RESETFLASHLIST
CALL SLACK_LIGHTS
MOV EOTS,TRUE
RETN
HE_TILTED ENDP
HE_ALMOST_TILTED PROC NEAR
PLAYJINGLE S_DANGER
RETN
ENDP
;********************************* CHECK SHIFTKEYS ****************************
CHECK_SHIFTKEYS PROC NEAR
CMP PUKEFORBIDDEN,TRUE
JE NOPUKING
CMP SHIFTPRESSED,TRUE
JNE NO_SHIFT
MOV SHIFTPRESSED,FALSE
MOV DL,LIGHTSTATUS[5] ;K
CMP LIGHTSTATUS[2],TRUE ;E ;E -> K
JNE KILL_K
LIGHTON 5 ;K
JMP K_READY
KILL_K: LIGHTOFF 5 ;K
K_READY:
CMP LIGHTSTATUS[1],TRUE ;P ;P -> E
JNE KILL_E
LIGHTON 2 ;E
JMP E_READY
KILL_E: LIGHTOFF 2 ;E
E_READY:
CMP LIGHTSTATUS[4],TRUE ;U ;U -> P
JNE KILL_P
LIGHTON 1 ;P
JMP P_READY
KILL_P: LIGHTOFF 1 ;P
P_READY:
CMP DL,TRUE ;K ;K -> U
JNE KILL_U
LIGHTON 4 ;U
JMP U_READY
KILL_U: LIGHTOFF 4 ;U
U_READY:
NOPUKING:
NO_SHIFT:
RETN
CHECK_SHIFTKEYS ENDP
;******************************** GATES ROUTINES ******************************
CREATE_MASK_DATA PROC NEAR ;FN: OPENS OR CLOSES GATES
;INPUT: DS:SI=SOURCE, ES:DI=DEST
; DX=WIDTH, CX=HEIGHT
NEXTLINE2:
PUSH CX
MOV CX,DX
PUSH SI
REP MOVSB
POP SI
ADD SI,40
POP CX
LOOP NEXTLINE2
RETN
CREATE_MASK_DATA ENDP
CREATEGATE1:
ASSUME DS:MASK2_2
MOV SI,OFFSET MASK22+15*40+112/8 ;DI
MOVE DS,MASK2_2
ASSUME DS:DATA
MOV DI,OFFSET GATE1CLOSED_DATA ;SI
MOVE ES,DATA
MOV DX,2 ;DX=WIDTH
MOV CX,18 ;CX=HEIGHT
CALL CREATE_MASK_DATA
MOVE DS,DATA
RETN
KRG1_SPARAMINNE:
ASSUME DS:MASK2_2
MOV DI,OFFSET MASK22+15*40+112/8 ;DI
MOVE ES,MASK2_2
ASSUME DS:DATA
MOV DX,2 ;DX=WIDTH
MOV CX,18 ;CX=HEIGHT
CALL MOVE_MASK_DATA
MOVE DS,DATA
RETN
KILLGATE1:
MOV SI,OFFSET GATE1OPEN_DATA ;SI
CALL KRG1_SPARAMINNE
RETN
RESTOREGATE1:
MOV SI,OFFSET GATE1CLOSED_DATA ;SI
CALL KRG1_SPARAMINNE
RETN
KRD1_SPARAMINNE:
ASSUME DS:MASK1_2
MOV DI,OFFSET MASK12+277*40+144/8 ;DI
MOVE ES,MASK1_2
ASSUME DS:DATA
MOV DX,2 ;DX=WIDTH
MOV CX,15 ;CX=HEIGHT
CALL MOVE_MASK_DATA
MOVE DS,DATA
RETN
KILLD1:
MOV SI,OFFSET D1DOWN_DATA ;SI
CALL KRD1_SPARAMINNE
RETN
RESTORED1:
MOV SI,OFFSET D1UP_DATA ;SI
CALL KRD1_SPARAMINNE
RETN
KRD2_SPARAMINNE:
ASSUME DS:MASK1_2
MOV DI,OFFSET MASK12+295*40+152/8 ;DI
MOVE ES,MASK1_2
ASSUME DS:DATA
MOV DX,2 ;DX=WIDTH
MOV CX,15 ;CX=HEIGHT
CALL MOVE_MASK_DATA
MOVE DS,DATA
RETN
KILLD2:
MOV SI,OFFSET D2DOWN_DATA ;SI
CALL KRD2_SPARAMINNE
RETN
RESTORED2:
MOV SI,OFFSET D2UP_DATA ;SI
CALL KRD2_SPARAMINNE
RETN
KRD3_SPARAMINNE:
ASSUME DS:MASK1_2
MOV DI,OFFSET MASK12+313*40+160/8 ;DI
MOVE ES,MASK1_2
ASSUME DS:DATA
MOV DX,1 ;DX=WIDTH
MOV CX,15 ;CX=HEIGHT
CALL MOVE_MASK_DATA
MOVE DS,DATA
RETN
KILLD3:
MOV SI,OFFSET D3DOWN_DATA ;SI
CALL KRD3_SPARAMINNE
RETN
RESTORED3:
MOV SI,OFFSET D3UP_DATA ;SI
CALL KRD3_SPARAMINNE
RETN
;****************************** DROP ZONE TASK ********************************
START_DROP_TIMED: ;THIS IS A TASK!
CMP SPECIALMODE,TRUE
JE SNABBHOPP
MOV AX,DROP_TIME
WAITSYNCS AX
SNABBHOPP:
CALL START_DROP
SUICIDE
START_DROP PROC NEAR ;THIS IS A PROC!
SETBALLPOS DROPX,DROPY,0,0,FALSE
ADDTASK RULLGARDIN
ADDTASK DROPTASK1
MOVE SCROLLPOS,START_RASTER
RETN
START_DROP ENDP
SCROLLSPEED=5
SCROLLEND=0
DROPTASK1:
WAITSYNCS 30 ;30 -> MAX 1.5 SKŽRM RULLGARDIN
LIGHTFLASH 3,DROPSPEED
LIGHTFLASH 56,DROPSPEED
ADDTASK DROPTASK2
SUICIDE
DROPTASK2:
WAITSYNCS DROPSPEED*4-1
MOV SCREENFORCE,-1
MOV BP,SLUMP_COUNTERN
AND BP,127 ;GE DROPPET ETT SLUMPARTAT UTSKJUT
ADD BP,DROPYS
SETBALLPOS DROPX,DROPY,DROPXS,BP,TRUE
SOUNDEFFECT SNEWBALL,0
ENDFLASH 3
ENDFLASH 56
SUICIDE
RULLGARDIN: ;DETTA ŽR EN TASK-RUTIN!
ADDTASK RULLGARDINSLAV
MOVE SCROLLPOS,START_RASTER
SUICIDE
RULLGARDINSLAV:
SUB SCROLLPOS,SCROLLSPEED
CMP SCROLLPOS,SCROLLEND
JNL SPNOK2
MOVE SCREENFORCE,SCROLLEND
SUICIDE
SPNOK2: MOVE SCREENFORCE,SCROLLPOS
RETN
;************************* SUPER MODES CHECKS *********************************
CHECK_PARTY_COMPLETE PROC NEAR ;FN: CHECK PARTY LIGHTS.
;OUTPUT: -C- IF TIME FOR HAPPY HOUR
CMP WORD PTR [OFFSET LIGHTSTATUS+42],0FFFFH
JNE NHAPPY
CMP WORD PTR [OFFSET LIGHTSTATUS+44],0FFFFH
JNE NHAPPY
CMP LIGHTSTATUS[46],TRUE
JNE NHAPPY
STC
RETN
NHAPPY: CLC
RETN
CHECK_PARTY_COMPLETE ENDP
CHECK_PARTY PROC NEAR
CALL CHECK_PARTY_COMPLETE
JNC NO_HAPPY_HOUR
CMP SPECIALMODE,TRUE
JNE OK_2_BE_HAPPY
MOV HAPPY_PENDING,TRUE
JMP NO_HAPPY_HOUR
OK_2_BE_HAPPY: ;NOTE: CALL TO THIS POINT!
;* * * H A P P Y H O U R * * *
EFFECT HAPPYHOUR
MOV LASTJINGLE,43 ;SJINGLE12
LIGHTOFF 42 ;P
LIGHTOFF 43 ;A
LIGHTOFF 44 ;R
LIGHTOFF 45 ;T
LIGHTOFF 46 ;Y
CMP JPFLASHING_NORMAL,TRUE
JE DNSTART_FLASH
CMP JPFLASHING_TIME,TRUE
JE DNSTART_FLASH
SYNCEDFLASH 35,TRAINSPEED,TRAINSYNCER ;JP
DNSTART_FLASH:
MOV JPFLASHING_TIME,TRUE
MOV HAPPY_HOUR,TRUE
LIGHTFLASH 32,WHEELSPEED
MOV SPECIALMODE,TRUE
MOV SUPER_INIT,TRUE
NO_HAPPY_HOUR:
RETN
CHECK_PARTY ENDP
CHECK_CRAZY PROC NEAR ;INPUT -C- IF CRAZY COMPLETED
JNC NOT_CRAZY_TODAY
CMP SPECIALMODE,TRUE
JNE OK_2_LAUGH
MOV MEGA_PENDING,TRUE
JMP NOT_CRAZY_TODAY
OK_2_LAUGH: ;NOTE: CALL TO THIS POINT
; * * * M E G A L A U G H * * *
EFFECT CRAZYSCORE
MOV LASTJINGLE,25 ;SJINGLE11
CMP JPFLASHING_NORMAL,TRUE
JE DNSTART_FLASH2
CMP JPFLASHING_TIME,TRUE
JE DNSTART_FLASH2
SYNCEDFLASH 35,TRAINSPEED,TRAINSYNCER ;JP
DNSTART_FLASH2:
MOV JPFLASHING_TIME,TRUE
MOV MEGA_LAUGH,TRUE
LIGHTFLASH 37,WHEELSPEED
MOV SPECIALMODE,TRUE
MOV SUPER_INIT,TRUE
NOT_CRAZY_TODAY:
RETN
CHECK_CRAZY ENDP
;******************************************************************************
;***************************** BRICKOR & KNAPPAR ******************************
;******************************************************************************
;************************* ARCADE TOUCHER **********************
TOUCHER: ;TURNS ARCADE ON
CMP TOUCHERDISABLED,TRUE
JE TDIS
SOUNDEFFECT S_TOUCH2,0
MOV TOUCHERDISABLED,TRUE
ADDTASK ENABLETOUCHER
CMP ARCADEON,TRUE
JE DONT_YOU_BOTHER
MOV ARCADEON,TRUE
LIGHTFLASH 7,12 ;ARCADE1
LIGHTFLASH 55,12 ;ARCADE2
DONT_YOU_BOTHER:
TDIS: RETN
ENABLETOUCHER:
WAITSYNCS 20
MOV TOUCHERDISABLED,FALSE
SUICIDE
;************************* DUCK1 *************************
DROPA1: ;UPPER DUCK
CMP LIGHTSTATUS+52,TRUE
JNE DROPA1ISDOWN
CMP D1DISABLED,TRUE
JE NODROPA1
MOV D1DISABLED,TRUE ;AVOID MULTIPLE HIT
LIGHTOFF 52 ;D1 (DUCKS)
ADDTASK KILL_THE_D1 ;D™DA BRICKA
CALL DROPSETA
CALL CHECKALLDUCKS
JC DA1_MEGAHIT
ADDTASK TURNINGONDUCK1
LIGHTFLASH 16,HITSPEED ;H (HIT)
MOV CS:TOD1_CNT,0
DA1_MEGAHIT:
DROPA1ISDOWN:
NODROPA1:
RETN
TOD1_CNT DB ?
TURNINGONDUCK1:
CMP CS:TOD1_CNT,HITSPEED*4+1
JNE TOD1_NOTYET
ENDFLASH 16 ;H (HIT)
MOV D1DISABLED,FALSE
MOV BX,SAVESOURCE
MOV DS:[BX],OFFSET DUMRET
TOD1_NOTYET:
INC CS:TOD1_CNT
RETN
KILL_THE_D1:
WAITSYNCS 20
CALL KILLD1
SUICIDE
;************************* DUCK2 *************************
DROPA2: ;MIDDLE DUCK
CMP LIGHTSTATUS+53,TRUE
JNE DROPA2ISDOWN
CMP D2DISABLED,TRUE
JE NODROPA2
MOV D2DISABLED,TRUE ;AVOID MULTIPLE HIT
LIGHTOFF 53 ;D2 (DUCKS)
ADDTASK KILL_THE_D2 ;D™DA BRICKA
CALL DROPSETA
CALL CHECKALLDUCKS
JC DA2_MEGAHIT
ADDTASK TURNINGONDUCK2
MOV CS:TOD2_CNT,0
LIGHTFLASH 18,HITSPEED ;I (HIT)
DA2_MEGAHIT:
DROPA2ISDOWN:
NODROPA2:
RETN
TOD2_CNT DB ?
TURNINGONDUCK2:
CMP CS:TOD2_CNT,HITSPEED*4+1
JNE TOD2_NOTYET
ENDFLASH 18 ;I (HIT)
MOV D2DISABLED,FALSE
MOV BX,SAVESOURCE
MOV DS:[BX],OFFSET DUMRET
TOD2_NOTYET:
INC CS:TOD2_CNT
RETN
KILL_THE_D2:
WAITSYNCS 20
CALL KILLD2
SUICIDE
;************************* DUCK3 *************************
DROPA3: ;LOWER DUCK
CMP LIGHTSTATUS+54,TRUE
JNE DROPA3ISDOWN
CMP D3DISABLED,TRUE
JE NODROPA3
MOV D3DISABLED,TRUE ;AVOID MULTIPLE HIT
LIGHTOFF 54 ;D3 (DUCKS)
ADDTASK KILL_THE_D3 ;D™DA BRICKA
CALL DROPSETA
CALL CHECKALLDUCKS
JC DA3_MEGAHIT
ADDTASK TURNINGONDUCK3
MOV CS:TOD3_CNT,0
LIGHTFLASH 24,HITSPEED ;T (HIT)
DA3_MEGAHIT:
DROPA3ISDOWN:
NODROPA3:
RETN
TOD3_CNT DB ?
TURNINGONDUCK3:
CMP CS:TOD3_CNT,HITSPEED*4+1
JNE TOD3_NOTYET
ENDFLASH 24 ;T (HIT)
MOV D3DISABLED,FALSE
MOV BX,SAVESOURCE
MOV DS:[BX],OFFSET DUMRET
TOD3_NOTYET:
INC CS:TOD3_CNT
RETN
KILL_THE_D3:
WAITSYNCS 20
CALL KILLD3
SUICIDE
DROPSETA:
SOUNDEFFECT SBRICKNER,0
MOV SI,OFFSET BCD7510
MOV DI,OFFSET SIFFRORNA
CALL ADDSCOREBCD
CALL ADDHAPPY
ADDBONUS BCD750
mov scorechanged,true
RETN
CHECKALLDUCKS:
CMP LIGHTSTATUS+52,FALSE
JNE NOTALLDOWN
CMP LIGHTSTATUS+53,FALSE
JNE NOTALLDOWN
CMP LIGHTSTATUS+54,FALSE
JNE NOTALLDOWN
;*** ALL DUCKS IS DOWN ***
EFFECT ALLDUCKS
MOV D1DISABLED,TRUE
MOV D2DISABLED,TRUE
MOV D2DISABLED,TRUE
ENDFLASH 16
ENDFLASH 18
ENDFLASH 24
LIGHTFLASH 16,2
LIGHTFLASH 18,2
LIGHTFLASH 24,2
ADDTASK TURNOFFDUCKS
;*** UPDATE SNACKS ***
MOV BL,SNACKCOUNTER
NIL BH
CMP SNACKFLASHERS[BX],TRUE
JE ALLISFLASHING ;OM NŽSTA FLASHAR, S<> FLASHAR ALLA!
CMP SNACKCOUNTER,1
JE ITISSODA
JA ITISPOP
ITISICE:
SYNCEDFLASH 23,SNACKSPEED,SNACKSYNCER ;ICE
MOV ICEFLASHING,TRUE
JMP SNACKFLASHOK
ITISSODA:
INVERTEDSYNCEDFLASH 17,SNACKSPEED,SNACKSYNCER ;SODA
MOV SODAFLASHING,TRUE
JMP SNACKFLASHOK
ITISPOP:
SYNCEDFLASH 20,SNACKSPEED,SNACKSYNCER ;POP
MOV POPFLASHING,TRUE
JMP SNACKFLASHOK
ALLISFLASHING: ;CP? SKALL SNACKCOUNTER VERKLIGEN INCAS?
SNACKFLASHOK:
INC SNACKCOUNTER
CMP SNACKCOUNTER,3
JNE SNACKCOUNTEROK
MOV SNACKCOUNTER,0
SNACKCOUNTEROK:
; STARTSCROLL SNACKTEXT ;CP!
STC
RETN
NOTALLDOWN:
CLC
RETN
TURNOFFDUCKS:
WAITSYNCS 71 ;CPW!
ENDFLASH 16
ENDFLASH 18
ENDFLASH 24
LIGHTON 52 ;D1 (DUCKS)
CALL RESTORED1 ;SŽTT DIT BRICKA D1
LOFF 16 ;H
LIGHTON 53 ;D2 (DUCKS)
CALL RESTORED2 ;SŽTT DIT BRICKA D2
LOFF 18 ;I
LIGHTON 54 ;D3 (DUCKS)
CALL RESTORED3 ;SŽTT DIT BRICKA D2
LOFF 24 ;T
SOUNDEFFECT SBRICKUPP,0
MOV D1DISABLED,FALSE
MOV D2DISABLED,FALSE
MOV D3DISABLED,FALSE
SUICIDE
COMMENT\
USE THIS CODE IF HITS ARE VALID DURING MEGAHIT-FLASHING
CMP LIGHTSTATUS[52],FALSE
JE TON16
LOFF 16
JMP L16OK
TON16: LON 16
L16OK: CMP LIGHTSTATUS[53],FALSE
JE TON18
LOFF 18
JMP L18OK
TON18: LON 18
L18OK: CMP LIGHTSTATUS[54],FALSE
JE TON24
LOFF 24
JMP L24OK
TON24: LON 24
L24OK:
\
;******************************************************************************
;********************************** LOWER *************************************
;******************************************************************************
;**************************** THE REVERSE LOOP! *******************************
BYGEL11: ;LEFT OF HOLE
CMP LASTAREA,OFFSET BYGEL9
JNE NOTREVERSE
CMP INHIBIT_REVERSE_COUNTER,0
JNZ JUST_FORGET_IT
CMP INH_REV,TRUE ;SHOULD NEVER HAPPEN!
JE NOTREVERSE
;*** REVERSE LOOP! ***
CALL JACKADD
CALL ADDMEGALAUGH
CMP ANY_LOOP_DOWN_COUNTER,0
JZ NO_PARTY_T3
CALL DO_PARTY_T
NO_PARTY_T3:
MOV ANY_LOOP_DOWN_COUNTER,PARTY_T_TIME
MOV REVERSE_DOWN_COUNTER,PARTY_P_TIME
INC BALOONCOUNTER
CMP BALOONCOUNTER,1+1
JB B250K
JE B500K
;*** GIVE HIM 750K ***
MOV BALOONCOUNTER,0
ENDFLASH 19 ;750K
LIGHTFLASH 19,BALOONSPEEDFAST ;750K
LIGHTFLASH 25,BALOONSPEEDFAST ;500K
LIGHTFLASH 26,BALOONSPEEDFAST ;250K
EFFECT RSCORE3
ADDTASK TURN_OFF_BALOONS
MOV INH_REV,TRUE
JMP BALLONS_READY
B500K: ;*** GIVE HIM 500K ***
ENDFLASH 25 ;500K
LON 25 ;500K
LIGHTFLASH 19,BALOONSPEED ;750K
EFFECT RSCORE2
JMP BALLONS_READY
B250K: ;*** GIVE HIM 250K ***
ENDFLASH 26 ;250K
LON 26 ;250K
LIGHTFLASH 25,BALOONSPEED ;500K
EFFECT RSCORE1
BALLONS_READY:
;*** CHECK MULTIPEL BONUSES ***
CMP MBFLASHING,TRUE
JNE MBNOTFLASHING
MOV MBFLASHING,FALSE
ENDFLASH 29 ;MB
LOFF 29 ;MB
CMP LIGHTSTATUS[47],TRUE ;X2
JE NOT_X2
;*** MULTIPEL BONUS X2 ***
LIGHTON 47 ;X2
EFFECT M2
MOV BONUSMULTIPEL,2
JMP XX_OK
NOT_X2:
CMP LIGHTSTATUS[49],TRUE ;X4
JE NOT_X4
;*** MULTIPEL BONUS X4 ***
LIGHTON 49 ;X4
EFFECT M4
MOV BONUSMULTIPEL,4
JMP XX_OK
NOT_X4:
CMP LIGHTSTATUS[50],TRUE ;X6
JE NOT_X6
;*** MULTIPEL BONUS X6 ***
LIGHTON 50 ;X6
EFFECT M6
MOV BONUSMULTIPEL,6
JMP XX_OK
NOT_X6:
CMP LIGHTSTATUS[48],TRUE ;X8
JE NOT_X8 ;SHOULD NEVER HAPPEN!
;*** MULTIPEL BONUS X8 ***
LIGHTON 48 ;X8
EFFECT M8
MOV BONUSMULTIPEL,8
XX_OK:
ADD BONUS_X,2
CMP BONUS_X,3
JNE DNDECBX
DEC BONUS_X
DNDECBX:
inc bonus_text[11] ;”ka fr†n 1 ->2 ->4 ->6 ->8
cmp bonus_text[11],'8'+1 ;x2
je noxinc
inc bonus_text[11]
noxinc:
NOT_X8:
MBNOTFLASHING:
;*** CHECK HOLD BONUS ***
CMP HBFLASHING,TRUE
JNE HBNOTFLASHING
MOV HBFLASHING,FALSE
ENDFLASH 33 ;HB
LOFF 33 ;HB
EFFECT HOLDBONUS
MOV HOLDBONUSFLAG,TRUE
HBNOTFLASHING:
;*** CHECK DOUBLE BONUS ***
CMP DBFLASHING,TRUE
JNE DBNOTFLASHING
MOV DBFLASHING,FALSE
ENDFLASH 36 ;DB
LOFF 36 ;DB
EFFECT DOUBLEBONUS
MOV SI,OFFSET BONUSSIFFRORNA
MOV DI,OFFSET BONUSSIFFRORNA
CALL ADDSCOREBCD
DBNOTFLASHING:
NOTREVERSE:
RETN
JUST_FORGET_IT:
MOV INHIBIT_REVERSE_COUNTER,0
RETN
TURN_OFF_BALOONS:
WAITSYNCS 120 ;CPW!
ENDFLASH 19 ;750K
ENDFLASH 25 ;500K
ENDFLASH 26 ;250K
LIGHTFLASH 26,BALOONSPEED ;250K
MOV INH_REV,FALSE
SUICIDE
;********************************* THE LOOP! **********************************
BYGEL9: ;RIGHT OF HOLE
CMP LASTAREA,OFFSET BYGEL11
JNE NOTLOOP
CMP INH_LOOP,TRUE
JE NOTLOOP
;*** THE LOOP! ***
CALL JACKADD
CALL ADDMEGALAUGH
CMP ANY_LOOP_DOWN_COUNTER,0
JZ NO_PARTY_T2
CALL DO_PARTY_T
NO_PARTY_T2:
MOV ANY_LOOP_DOWN_COUNTER,PARTY_T_TIME
CMP LIGHTSTATUS[6],TRUE ;M
JE NOT_MAD_M
;*** SPELLED M IN MAD ***
EFFECT THELOOP1
LIGHTFLASH 6,MADONSPEED ;M
ADDTASK MAD_M_TASK
JMP MAD_OK
MAD_M_TASK:
WAITSYNCS MADONSPEED*6+2
ENDFLASH 6 ;M
MOV LIGHTSTATUS[6],TRUE ;M
SUICIDE
NOT_MAD_M:
CMP LIGHTSTATUS[8],TRUE ;A
JE NOT_MAD_A
;*** SPELLED A IN MAD ***
EFFECT THELOOP2
LIGHTFLASH 8,MADONSPEED ;A
ADDTASK MAD_A_TASK
JMP MAD_OK
MAD_A_TASK:
WAITSYNCS MADONSPEED*6+2
ENDFLASH 8 ;A
MOV LIGHTSTATUS[8],TRUE ;A
SUICIDE
NOT_MAD_A:
;*** SPELLED D IN MAD ***
MOV LIGHTSTATUS[6],FALSE ;M
MOV LIGHTSTATUS[8],FALSE ;A
LIGHTFLASH 6,MADSPEED ;M
LIGHTFLASH 8,MADSPEED ;A
LIGHTFLASH 9,MADSPEED ;D
ADDTASK TURN_OFF_MAD
MOV INH_LOOP,TRUE
EFFECT THELOOP3
MOV CPVARIABEL,FALSE
CALL CRAZY_LETTER_SPOTTED
CALL CHECK_CRAZY
MAD_OK:
NOTLOOP:
RETN
TURN_OFF_MAD:
WAITSYNCS 120 ;CPW!
ENDFLASH 6 ;M
ENDFLASH 8 ;A
ENDFLASH 9 ;D
MOV INH_LOOP,FALSE
SUICIDE
GNUOR DW 0
CRAZY_LETTER_SPOTTED PROC NEAR ;OUTPUT: -C- IF TIME FOR MEGA LAUGH
; CRAL=AL FROM EFFECT ADVANCE3
CALL JACKADD
CMP CPVARIABEL,TRUE
JE DEN_ANDRA
EFFECT ADVANCE3
JMP DEN_ENA
DEN_ANDRA:
EFFECT ADVANCE3B
DEN_ENA:
MOV CRAL,AL
INC CS:GNUOR
DEBUGVAL 0,15,CS:GNUOR,"DOADVANCE NO:"
MOV SI,OFFSET CRAZY_ADVANCE_LIST
CALL DOADVANCE
JNC NO_MEGA_LAUGH
LIGHTOFF 28 ;C
LIGHTOFF 31 ;R
LIGHTOFF 34 ;A
LIGHTOFF 38 ;Z
LIGHTOFF 41 ;Y
STC
RETN
NO_MEGA_LAUGH:
CLC
RETN
CRAZY_LETTER_SPOTTED ENDP
;******************************** HIDDEN ENTRANCE *****************************
GROPC: ;HOLE
MOV EOTS,FALSE
EFFECT HIDDEN
CALL JACKADD
LIGHTFLASH 11,6 ;"L1Q"?
MOV _5XFLASHING,TRUE
ADDTASK HIDDENTASK0
SETBALLPOS DROPX,DROPY,0,0,FALSE
RETN
GROPC_T:
SETBALLPOS DROPX,DROPY,0,0,FALSE
CALL START_DROP
ENDFLASH 11 ;5X
RETN
HIDDENTASK0:
WAITTS
ADDTASK HIDDENTASK1
CALL START_DROP
SUICIDE
HIDDENTASK1:
WAITSYNCS _5X_TIME-QUICKFLASH_TIME
CMP _5XFLASHING,FALSE
JE TOO_LATE
ENDFLASH 11 ;5X
LIGHTFLASH 11,QUICK_ARROWSPEED
ADDTASK HIDDENTASK2
SUICIDE
TOO_LATE:
ENDFLASH 11 ;5X
LOFF 11
SUICIDE
HIDDENTASK2:
WAITSYNCS QUICKFLASH_TIME
CALL KILL_5X
SUICIDE
KILL_5X PROC NEAR
ENDFLASH 11
LOFF 11
MOV _5XFLASHING,FALSE
RETN
KILL_5X ENDP
;******************************** THE TUNNEL **********************************
GROPD: ;TUNNEL
CALL JACKADD
CALL ADDMEGALAUGH
CMP SKILLSHOTDOWNCOUNTER,0
JA TUNNEL_SKILLSHOT
CMP REVERSE_DOWN_COUNTER,0
JZ NOT_PARTY_P
CALL PARTY_P
NOT_PARTY_P:
FROM_TUNNEL_SKILLSHOT:
CMP LIGHTSTATUS[12],TRUE ;IF 3M IS LIT: 5M
JNE NOT_TUNNEL_5M
EFFECT TSCORE3
MOV TUNNELDOWNCOUNTER,TUNNEL_TIME*2
MOV TUNNELWAITER,TSCORE3_TIME
JMP TSCORE_OK
NOT_TUNNEL_5M:
CMP LIGHTSTATUS[14],TRUE ;IF 1M IS LIT: 3M
JNE NOT_TUNNEL_3M
EFFECT TSCORE2
MOV TUNNELDOWNCOUNTER,TUNNEL_TIME*2
ENDFLASH 12 ;3M
LIGHTON 12 ;3M
LIGHTFLASH 10,TUNNELSPEED ;5M
MOV TUNNELWAITER,TSCORE2_TIME
JMP TSCORE_OK
NOT_TUNNEL_3M:
EFFECT TSCORE1
MOV TUNNELDOWNCOUNTER,TUNNEL_TIME
ENDFLASH 14 ;1M
LIGHTON 14 ;1M
LIGHTFLASH 12,TUNNELSPEED ;3M
MOV TUNNELWAITER,TSCORE1_TIME
TSCORE_OK:
ADDTASK RULLGARDIN
ADDTASK WAIT_FOR_TUNNEL_EFFECT
CMP SPECIALMODE,TRUE
JE SNABBHOPP3
ADDTASK LOCK_BALL_IN_TUNNEL
SNABBHOPP3:
MOV INH_EFF,FALSE
RETN
TUNNEL_SKILLSHOT:
CALL JACKADD
MOV SKILLSHOTDOWNCOUNTER,0
MOV SI,OFFSET BCDMILLION
MOV DI,OFFSET SKILL_SCORE
CALL ADDSCOREBCD ;S_S_S += 1E6
MOV SI,OFFSET SKILL_SCORE
MOV DI,OFFSET SIFFRORNA
CALL ADDSCOREBCD ;SCORE += S_S
EFFECT SKILLTUNNEL
MOV INH_EFF,TRUE
CALL PARTY_P
JMP FROM_TUNNEL_SKILLSHOT
WAIT_FOR_TUNNEL_EFFECT:
CMP SPECIALMODE,TRUE
JE SNABBHOPP2
WAITSYNCS TUNNELWAITER
SNABBHOPP2:
MOV SCREENFORCE,-1
CALL START_DROP
SUICIDE
LOCK_BALL_IN_TUNNEL:
WAITSYNCS 2
SETBALLPOS DROPX,DROPY,0,0,FALSE
SUICIDE
PARTY_P:
CMP LIGHTSTATUS[42],TRUE ;P IN PARTY
JE QUICK_BACK
EFFECT PARTYSCORE1
LIGHTON 42 ;P IN PARTY
CALL CHECK_PARTY
QUICK_BACK:
RETN
GROPD_T:
SETBALLPOS DROPX,DROPY,0,0,FALSE
CALL START_DROP
RETN
;******************************* ARCADE HALL **********************************
GROPB: ;ARCADE
ADD SLUMPCOUNTER,21
CALL ADDMEGALAUGH
CMP TILTFLAG,TRUE
JE TILT_ARCADE
CMP ARCADEON,TRUE
JNE ARCADEOFF
MOV ARCADEON,FALSE
ENDFLASH 7 ;ARCADE1
ENDFLASH 55 ;ARCADE2
LOFF 7
LOFF 55
MOV AL,LASTJINGLE
MOV LASTLASTJINGLE,AL
MOV SNURR_READY,FALSE
MOV DECCOR,25 ;CPW!
EFFECT MYSTERY
OR AL,AL
JNZ TSISDONE
MOV SNURR_READY,TRUE
CALL SPINIT
MOV AL,LASTJINGLE
MOV LASTLASTJINGLE,AL
JMP NOTSDONE_MEN_JA_E_LIKA_GLA_FOR_DE
TSISDONE:
MOV LASTJINGLE,62 ;QUIET
MOV CURRENT_PRIORITY,1
MOV JINGLE_READY_LOGIC,FALSE
MOV JINGLE_READY_ANIM,FALSE
ADDTASK WAIT_FOR_SPIN_TASK
NOTSDONE_MEN_JA_E_LIKA_GLA_FOR_DE:
ADDTASK RULLGARDIN
; MOVE SCREENFORCE,START_RASTER ;LOCK SCREEN
SETBALLPOS DROPX,DROPY,0,0,FALSE ;LOCK BALL IN DR<44>P SON
RETN
ARCADEOFF:
TILT_ARCADE:
CALL START_DROP
GBOK: RETN
WAIT_FOR_SPIN_TASK:
CMP SPECIALMODE,TRUE
JE REALLY_READY
CMP SNURR_READY,TRUE
JE REALLY_READY
RETN
REALLY_READY:
CMP TILTFLAG,TRUE
JE TILT_SPIN
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV JINGLEJUMPCNT,1
MOV CURRENT_PRIORITY,0 ;CP!?
CALL SPINIT
SUICIDE
SPINIT PROC NEAR
;*** SPIN! ***
;POŽNG,BONUS,ANIM,JINGLE,TID,EXTRARUT
MOV BL,SLUMPCOUNTER ;SLUMP
NIL BH
SHR BX,1
MOV BL,ARCADESLUMP[BX]
MOV SI,BX
ADD SI,OFFSET ARCADEEFFECTS ;EFFECT CHOOSEN
LODSW ;AX=OFFSET X-RUT
ADDTASK AX
RETN
SPINIT ENDP
TILT_SPIN:
CALL START_DROP
SUICIDE
SPINXB_RUT:
LIGHTON 39 ;LEFT XB och RIGHT XB
EFFECT SPINXB
OR AL,AL
JZ NOSPINXB
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!?
MOV DROP_TIME,XBALL_TIME
ADDTASK START_DROP_TIMED
SUICIDE
SPINCL_RUT:
MOV CPVARIABEL,TRUE
CALL CRAZY_LETTER_SPOTTED
CALL CHECK_CRAZY
CMP CRAL,0
JZ NOSPINCL
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!?
MOV HANGSAVER,140 ;154,153
MOV HANGSAVER2,180
MOV OKEJHEJ,FALSE
ADDTASK START_DROP_WHEN_READY
SUICIDE
SPIN1M_RUT:
EFFECT SPIN1M
OR AL,AL
JZ NOSPIN1M
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!?
MOV HANGSAVER,120 ;136,124
MOV HANGSAVER2,150
MOV OKEJHEJ,FALSE
ADDTASK START_DROP_WHEN_READY
SUICIDE
SPIN5M_RUT:
EFFECT SPIN5M
OR AL,AL
JZ NOSPIN5M
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!?
MOV HANGSAVER,110 ;121,121,121
MOV HANGSAVER2,140
MOV OKEJHEJ,FALSE
ADDTASK START_DROP_WHEN_READY
SUICIDE
SPIN500K_RUT:
EFFECT SPIN500K
OR AL,AL
JZ NOSPIN500K
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!? JA JŽVLIGT CP! MEN NU HAR FIXAT DET...
MOV HANGSAVER,45 ;53,53
MOV HANGSAVER2,70
MOV OKEJHEJ,FALSE
ADDTASK START_DROP_WHEN_READY
SUICIDE
NOSPINXB:
NOSPINCL:
NOSPIN1M:
NOSPIN5M:
NOSPIN500K:
;** NO SPIN - JUST DROP **
MOV DROP_TIME,10 ;CPW!
ADDTASK START_DROP_TIMED
SUICIDE
SPINNS_RUT:
EFFECT SPINNS
OR AL,AL
JZ NOSPINNS
MOV AL,LASTLASTJINGLE
MOV LASTJINGLE,AL
MOV CURRENT_PRIORITY,0 ;CP!?
NOSPINNS:
MOV DROP_TIME,NOSCORE_TIME
ADDTASK START_DROP_TIMED
SUICIDE
START_DROP_WHEN_READY: ;THIS REALLY IS A TASKROUTINE!
DEC HANGSAVER2
JZ HUPP
CMP HANGSAVER,0
JE BLAHA
DEC HANGSAVER
BLAHA: CMP OKEJHEJ,TRUE
JE HOPP1
CMP SPECIALMODE,TRUE
JE HUPP
CMP JINGLE_READY_LOGIC,TRUE
JE HOPP1
RETN ;RETN
HOPP1: MOV OKEJHEJ,TRUE
CMP HANGSAVER,0
JZ HUPP
RETN ;RETN
HUPP: MOV JINGLE_READY_LOGIC,FALSE
MOV HANGSAVER,65535 ;BIG ENOUGH!
MOV HANGSAVER2,10 ;DOESN'T MATTER!
COMMENT\
PUSHA
PUSH ES
MOV BX,HANGSAVER
DEBUGVAL 0,22,BX,"HANGSAVER: "
POP ES
POPA
\
CALL START_DROP
SUICIDE
;****************************** SNACK HOLE ************************************
GROPA: ;SNACKS (NOTE: BOTH HIGH & LOW)
CMP SNACKDISABLED,TRUE
JE NOT_NOW_STUPID
MOV SNACKDISABLED,TRUE
ADDSCORE BCD50000
ADDBONUS BCD5000
CALL ADDMEGALAUGH
CMP POPFLASHING,TRUE
JNE NOTPOPF
EFFECT SCORE3
CALL JACKADD
INC POPCOUNTER
JMP SNACKDONE
NOTPOPF:
CMP SODAFLASHING,TRUE
JNE NOTSODAF
EFFECT SCORE2
CALL JACKADD
JMP SNACKDONE
NOTSODAF:
CMP ICEFLASHING,TRUE
JNE NOTICEF
EFFECT SCORE1
CALL JACKADD
JMP SNACKDONE
NOTICEF:
EFFECT HSCORE
SNACKDONE:
ENDFLASH 23 ;ICE
LOFF 23
ENDFLASH 17 ;SODA
LOFF 17
ENDFLASH 20 ;POP
LOFF 20
CMP POPFLASHING,TRUE ;IF POP: HB/DB/P(A)RTY ?
JNE NO_SPECIAL_POP
CMP LIGHTSTATUS[43],TRUE ;A (PARTY)
JE A_ALREADY_LIT
;*** SPELLED A IN PARTY ***
LIGHTON 43
EFFECT PARTYSCORE2
CALL CHECK_PARTY
A_ALREADY_LIT:
CMP POPCOUNTER,1
JA HIGH_POPCOUNTER
;*** HOLD BONUS ACTIVATED ***
CMP HBFLASHING,TRUE ;DON'T THINK THIS COULD HAPPEN...
JE HB_ALLR_FL
MOV HBFLASHING,TRUE
INVERTEDSYNCEDFLASH 33,ARROWSPEED,ARROWSYNCER ;"L2P"
HB_ALLR_FL:
JMP FROM_HB
HIGH_POPCOUNTER:
;*** DOUBLE BONUS ACTIVATED ***
CMP DBFLASHING,TRUE
JE DB_ALLR_FL
MOV DBFLASHING,TRUE
ADDTASK TURNING_OFF_DB
SYNCEDFLASH 36,ARROWSPEED,ARROWSYNCER
DB_ALLR_FL:
FROM_HB:
NO_SPECIAL_POP:
MOV ICEFLASHING,FALSE
MOV SODAFLASHING,FALSE
MOV POPFLASHING,FALSE
ADDTASK SNACK_HOLE_TASK1
NOT_NOW_STUPID:
RETN
TURNING_OFF_DB:
WAITSYNCS DB_TIME-QUICKFLASH_TIME
CMP DBFLASHING,TRUE
JNE DNTODB
ENDFLASH 36
LIGHTFLASH 36,QUICK_ARROWSPEED
ADDTASK TURN_OFF_DB
DNTODB: SUICIDE
TURN_OFF_DB:
WAITSYNCS QUICKFLASH_TIME
CMP DBFLASHING,TRUE
JNE DNTOQDB
ENDFLASH 36
MOV DBFLASHING,FALSE
DNTOQDB:
SUICIDE
SNACK_HOLE_TASK1:
MOV HOLDSTILL,TRUE
SETBALLPOS SNACKX,SNACKY,0,0,TRUE ;PUT BALL IN MIDDLE OF HOLE ;CP!
WAITSYNCS 40 ;CPW! ;(EVEN IF SPECIALMODE=TRUE)
ADDTASK SNACK_HOLE_TASK1B
SUICIDE
SNACK_HOLE_TASK1B:
MOV HOLDSTILL,TRUE
SETBALLPOS SNACKX,SNACKY,0,0,TRUE ;PUT BALL IN MIDDLE OF HOLE ;CP!
CMP SPECIALMODE,TRUE
JE SNABBHOPP4
WAITSYNCS 130-40 ;CPW!
SNABBHOPP4:
SOUNDEFFECT SGROP,0
MOV HOLDSTILL,FALSE
SETBALLPOS SNACKX,SNACKY,SNACKXS,SNACKYS,TRUE
ADDTASK TURN_IT_ON_AGAIN
SUICIDE
TURN_IT_ON_AGAIN:
WAITSYNCS 60
MOV SNACKDISABLED,FALSE
SUICIDE
;********************************* DUMMY AREA ********************************
BYGEL14: ;BEFORE BEGINNING OF REVERSE
MOV INHIBIT_REVERSE_COUNTER,0
RETN
;*********************************** GAME ON **********************************
CLOSE1: ;GAME ON
CMP LASTAREA,OFFSET BYGEL12
JNE NOT_GAME_ON
MOV ADDPLAYERS,FALSE
PLAYJINGLE S_MAIN
MOV LASTJINGLE,1
MOV BX,OFFSET PARTY_OFFTS
CALL DO_MATRIX
MOV I_UTSKJUT,FALSE ;TILL<4C>TER INACTIVE-SLINGAN (DOTMATRIX)
MOV PARTYFLASH,FALSE
NOT_GAME_ON:
RETN
;********************************* DRAGON'S HEAD ******************************
GROPE: ;DRAGON'S HEAD
CMP DRAGON,TRUE
JE DUMRET
MOV DRAGON,TRUE
SETBALLPOS DRAGONX,DRAGONY,0,0,FALSE
MOV HOLDSTILL,TRUE
CALL ADDMEGALAUGH
CALL CHECK_JACKPOT
JC JP_IT_WAS
CALL CHECK_BALL
JC BALL_IT_WAS
CALL CHECK_5M
JC _5M_IT_WAS
;*** NO SPECIAL EFFECTS IN DRAGON ***
EFFECT DSCORE
MOV DRAGONWAITER,85 ;CPW!
JP_IT_WAS:
BALL_IT_WAS:
_5M_IT_WAS:
ADDTASK BEFOREFLASH
RETN
CHECK_5M PROC NEAR ;FN: CHECKS THE EFFECT, IF POSITIVE: RUN IT AND RET -C-
CMP _5MFLASHING,TRUE
JNE NOT_5M_IT_IS
;*** 5 MILLION ***
EFFECT MILLION5
ENDFLASH 27 ;5M
LOFF 27
MOV _5MFLASHING,FALSE
MOV DRAGONWAITER,MILLION5_TIME
CMP SPECIALMODE,TRUE
JNE EJSNABBHOPP7
MOV DRAGONWAITER,15 ;CPW!
EJSNABBHOPP7:
STC
RETN
NOT_5M_IT_IS:
CLC
RETN
CHECK_5M ENDP
CHECK_BALL PROC NEAR ;FN: CHECKS THE EFFECT, IF POSITIVE: RUN IT AND RET -C-
CMP BALLFLASHING,TRUE
JNE NOT_BALL_IT_IS
;*** BALL ***
ENDFLASH 30 ;BALL
LOFF 30
LIGHTON 51 ;LAUGH AGAIN
INC XBALLS
EFFECT EXTRABALL1
MOV BALLFLASHING,FALSE
MOV DRAGONWAITER,EXTRABALL1_TIME
CMP SPECIALMODE,TRUE
JNE EJSNABBHOPP6
MOV DRAGONWAITER,15 ;CPW!
EJSNABBHOPP6:
STC
RETN
NOT_BALL_IT_IS:
CLC
RETN
CHECK_BALL ENDP
CHECK_JACKPOT PROC NEAR ;FN: CHECKS THE EFFECT, IF POSITIVE: RUN IT AND RET -C-
CMP JPFLASHING_NORMAL,TRUE
JE JACKPOT_NORMAL
CMP JPFLASHING_TIME,TRUE
JNE NOT_JACKPOT
JACKPOT_NORMAL:
;*** JACKPOT ***
MOV JPFLASHING_NORMAL,FALSE
MOV JPFLASHING_TIME,FALSE
ENDFLASH 35 ;JP
LOFF 35
PLAYJINGLE SJINGLE4 ;JP
CMP SPECIALMODE,TRUE
JE SPECIALAREN
MOV BX,OFFSET jackpotTS
JMP BX_OK
SPECIALAREN:
cmp happy_hour,true
je do_happy_jack
;megalaugh jack!
MOV BX,OFFSET jackpot_special_ml_TS
jmp bx_ok
do_happy_jack:
MOV BX,OFFSET jackpot_special_hh_TS
BX_OK: CALL DO_MATRIX
MOV SI,OFFSET JACKVALUE
MOV DI,OFFSET SIFFRORNA
CALL ADDSCOREBCD
CALL INIT_JACK
MOV DRAGONWAITER,410 ;CPW!
;I B™RJAN AV SISTA TAKTEN INNAN 123454321 KOMMER SNEWBALL!
STC
RETN
NOT_JACKPOT:
CLC
RETN
CHECK_JACKPOT ENDP
INIT_JACK PROC NEAR ;FN: JACKVALUE = JACKINIT
MOVE ES,DS
MOV CX,12/2
MOV SI,OFFSET JACKINIT
MOV DI,OFFSET JACKVALUE
REP MOVSW
RETN
INIT_JACK ENDP
JACKADD PROC NEAR ;FN: JACKVALUE += JACKRAISE
MOV SI,OFFSET JACKRAISE
MOV DI,OFFSET JACKVALUE
CALL ADDSCOREBCD
RETN
JACKADD ENDP
BEFOREFLASH:
WAITSYNCS DRAGONWAITER
LIGHTFLASH 21,EYESPEED ;EYES
ADDTASK DURINGFLASH
SUICIDE
DURINGFLASH:
WAITSYNCS EYESPEED*4-1
ENDFLASH 21 ;EYES
SOUNDEFFECT SNEWBALL,0
MOV HOLDSTILL,FALSE
SETBALLPOS DRAGONX,DRAGONY,DRAGONXS,DRAGONYS,FALSE
MOV DRAGON,FALSE
SUICIDE
;********************************** BYGEL 3 ***********************************
BYGEL3: ;RŽNNA SLUT VŽNSTER
EFFECT BYGELSETB
SOUNDEFFECT SBYGEL2,0
RETN
BYGEL4: ;RŽNNA SLUT H™GER
EFFECT BYGELSETB
SOUNDEFFECT SBYGEL2,0
RETN
;********************************* SL XB (L) **********************************
BYGEL1: ;EXTRA BALL LEFT
CMP LIGHTSTATUS[39],TRUE ;XB(L)
JE XB_IT_IS_L
SOUNDEFFECT SBYGEL1,0
ADDSCORE BCD50030
RETN
XB_IT_IS_L:
LIGHTOFF 39 ;XB(L)
LIGHTOFF 40 ;XB(R)
EFFECT EXTRABALL2
LIGHTON 51 ;LAUGH AGAIN
INC XBALLS
RETN
;********************************* SL XB (R) **********************************
BYGEL2: ;EXTRA BALL RIGHT
CMP LIGHTSTATUS[39],TRUE ;XB(R)
JE XB_IT_IS_R
SOUNDEFFECT SBYGEL1,0
ADDSCORE BCD50030
RETN
XB_IT_IS_R:
LIGHTOFF 39 ;XB(L)
LIGHTOFF 40 ;XB(R)
EFFECT EXTRABALL2
LIGHTON 51 ;LAUGH AGAIN
INC XBALLS
RETN
;***************************** SPRING INVALID *********************************
BYGEL12: ;SPRING INVALID
MOV SKILLSHOTDOWNCOUNTER,SKILL_SHOT_TIME
MOV SPRING_VALID,FALSE
MOV INHIBIT_REVERSE_COUNTER,INHIBIT_REVERSE_TIME
RETN
;******************************* SPRING VALID *********************************
BYGEL28: ;SPRING VALID
MOV SPRING_VALID,TRUE
RETN
;******************************************************************************
;*********************************** UPPER ************************************
;******************************************************************************
;******************************* SKYRIDE **************************************
CLOSE2: ;ENTERED SKY RIDE
CMP LASTAREA,OFFSET BYGEL10
JNE QC2
CALL ADDMEGALAUGH
CALL RESTOREGATE1
CMP ANY_LOOP_DOWN_COUNTER,0
JZ NO_PARTY_T1
CALL DO_PARTY_T
NO_PARTY_T1:
MOV ANY_LOOP_DOWN_COUNTER,PARTY_T_TIME
INC SKYRIDECOUNTER
CMP SKYRIDECOUNTER,3
JB NOT_ALL_ROCKETS
;*** ALL 3 ROCKETS LIT ***
EFFECT RIDE3
LIGHTFLASH 22,ROCKETSPEED
LIGHTFLASH 13,ROCKETSPEED
LIGHTFLASH 15,ROCKETSPEED
ADDTASK KILL_FLASHING_ROCKETS
MOV SKYRIDECOUNTER,0
CMP MBFLASHING,TRUE
JE MB_ALLR_FL
CMP LIGHTSTATUS[48],TRUE
JE NO_MORE_MB
MOV MBFLASHING,TRUE
SYNCEDFLASH 29,ARROWSPEED,ARROWSYNCER ;MB
EFFECT GETBONUS
JMP ROCKETS_OK
MB_ALLR_FL:
NO_MORE_MB:
JMP ROCKETS_OK
NOT_ALL_ROCKETS:
CMP SKYRIDECOUNTER,1
JNE NOT_1ST_ROCKET
;*** 1ST ROCKET ***
LON 22 ;1ST
EFFECT RIDE1
JMP ROCKETS_OK
NOT_1ST_ROCKET:
;*** 2ND ROCKET ***
EFFECT RIDE2
LON 13 ;2ND
ROCKETS_OK:
QC2: RETN
KILL_FLASHING_ROCKETS:
WAITSYNCS 120 ;CPW!
ENDFLASH 22
ENDFLASH 13
ENDFLASH 15
SUICIDE
DO_PARTY_T PROC NEAR
CMP LIGHTSTATUS[45],TRUE ;T IN PARTY
JE QDPT
LIGHTON 45 ;T IN PARTY
EFFECT PARTYSCORE4
CALL CHECK_PARTY
QDPT: RETN
DO_PARTY_T ENDP
;***************************** BEFORE SKYRIDE *********************************
BYGEL10: ;BEFORE SKY RIDE
CALL KILLGATE1
RETN
;********************************** PUKE **************************************
;******************** P *******************
BYGEL5: ;P (PUKE)
SOUNDEFFECT SBYGEL1,0 ;"BYGELSETC"
CMP LIGHTSTATUS[1],FALSE
JNE QB5
MOV LIGHTSTATUS[1],TRUE
CALL PUKEGROUP
JC PUKETIME
MOV PUKEFORBIDDEN,TRUE
LIGHTFLASH 1,PUKESPEED
ADDTASK PUKEP1
QB5: RETN
PUKEP1:
WAITSYNCS PUKESPEED*6+1 ;CPW!
ENDFLASH 1
MOV PUKEFORBIDDEN,FALSE
SUICIDE
;******************** E *******************
BYGEL8: ;E (PUKE)
SOUNDEFFECT SBYGEL1,0 ;"BYGELSETC"
CMP LIGHTSTATUS[2],FALSE
JNE QB8
MOV LIGHTSTATUS[2],TRUE
CALL PUKEGROUP
JC PUKETIME
MOV PUKEFORBIDDEN,TRUE
LIGHTFLASH 2,PUKESPEED
ADDTASK PUKEP2
QB8: RETN
PUKEP2:
WAITSYNCS PUKESPEED*6+1 ;CPW!
ENDFLASH 2
MOV PUKEFORBIDDEN,FALSE
SUICIDE
;******************** U *******************
BYGEL6: ;U (PUKE)
SOUNDEFFECT SBYGEL1,0 ;"BYGELSETC"
CMP LIGHTSTATUS[4],FALSE
JNE QB6
MOV LIGHTSTATUS[4],TRUE
CALL PUKEGROUP
JC PUKETIME
LIGHTFLASH 4,PUKESPEED
MOV PUKEFORBIDDEN,TRUE
ADDTASK PUKEP4
QB6: RETN
PUKEP4:
WAITSYNCS PUKESPEED*6+1 ;CPW!
ENDFLASH 4
MOV PUKEFORBIDDEN,FALSE
SUICIDE
;******************** K *******************
BYGEL7: ;K (PUKE)
SOUNDEFFECT SBYGEL1,0 ;"BYGELSETC"
CMP LIGHTSTATUS[5],FALSE
JNE QB7
MOV LIGHTSTATUS[5],TRUE
CALL PUKEGROUP
JC PUKETIME
LIGHTFLASH 5,PUKESPEED
MOV PUKEFORBIDDEN,TRUE
ADDTASK PUKEP5
QB7: RETN
PUKEP5:
WAITSYNCS PUKESPEED*6+1 ;CPW!
ENDFLASH 5
MOV PUKEFORBIDDEN,FALSE
SUICIDE
;************* PUKE LETTERS SHARED CODE *************
PUKEGROUP: ;OUTPUT: -C- IF TIME FOR PUKE
ADDSCORE BCD20070 ;"BYGELSETC"
ADDBONUS BCD1000
CALL JACKADD
CMP LIGHTSTATUS[1],TRUE
JNE NOTALLPUKE
CMP LIGHTSTATUS[2],TRUE
JNE NOTALLPUKE
CMP LIGHTSTATUS[4],TRUE
JNE NOTALLPUKE
CMP LIGHTSTATUS[5],TRUE
JE LETSPUKE
NOTALLPUKE:
CLC
RETN
LETSPUKE:
STC
RETN
TURNOFFPUKE:
WAITSYNCS 100 ;CPW!
ENDFLASH 1 ;P
ENDFLASH 2 ;E
ENDFLASH 4 ;U
ENDFLASH 5 ;K
LIGHTOFF 1
LIGHTOFF 2
LIGHTOFF 4
LIGHTOFF 5
SUICIDE
PUKETIME: ;THIS IS NOT A TASK ROUTINE!
SYNCEDFLASH 1,WHOLEPUKESPEED,PUKESYNCER ;P
SYNCEDFLASH 5,WHOLEPUKESPEED,PUKESYNCER ;K
INVERTEDSYNCEDFLASH 2,WHOLEPUKESPEED,PUKESYNCER ;E
INVERTEDSYNCEDFLASH 4,WHOLEPUKESPEED,PUKESYNCER ;U
ADDTASK TURNOFFPUKE
INC PUKECOUNTER
CMP PUKECOUNTER,1
JNE NOT_5M_ACT
CMP _5MFLASHING,TRUE
JE _5M_ALLR_FL
SYNCEDFLASH 27,TRAINSPEED,TRAINSYNCER ;5M
MOV _5MFLASHING,TRUE
_5M_ALLR_FL:
JMP DRAGON_TRAIN_OK
NOT_5M_ACT:
CMP PUKECOUNTER,2
JNE NOT_BALL_ACT
CMP BALLFLASHING,TRUE
JE BALL_ALLR_FL
INVERTEDSYNCEDFLASH 30,TRAINSPEED,TRAINSYNCER ;BALL
MOV BALLFLASHING,TRUE
BALL_ALLR_FL:
JMP DRAGON_TRAIN_OK
NOT_BALL_ACT:
CMP PUKECOUNTER,3
JNE NOT_JP_ACT
CMP JPFLASHING_NORMAL,TRUE
JE JP_ALLR_FL
CMP JPFLASHING_TIME,TRUE
JE JPISTIMED
SYNCEDFLASH 35,TRAINSPEED,TRAINSYNCER ;JP
JPISTIMED:
MOV JPFLASHING_NORMAL,TRUE
;2 LAST SECONDS OF HAPPY HOUR + SPELLED COMPLETE PUKE 3RD TIME = BUG! ;CP?
JP_ALLR_FL:
NOT_JP_ACT:
DRAGON_TRAIN_OK:
CMP LIGHTSTATUS[46],TRUE
JE Y_ALLR_LIT
;*** SPELLED Y IN PARTY ***
LIGHTON 46
EFFECT PARTYSCORE5
CALL CHECK_PARTY
Y_ALLR_LIT:
RETN
;******************************* DUMMY *********************************
OPEN2: ;BEFORE "BEFORE SKYRIDE"
RETN
;***************************** SKY RIDE EXIT ********************************
BYGEL4B: ;SKY RIDE EXIT
RETN
;********************************* CYCLONE ************************************
BYGEL13: ;CYCLONE BYGEL
CALL ADDMEGALAUGH
CMP SKILLSHOTDOWNCOUNTER,0
JA CYCLONE_SKILL_SHOT
CMP REVERSE_DOWN_COUNTER,0
JZ NOT_PARTY_R
CALL PARTY_R
NOT_PARTY_R:
FROM_CYCLONE_SKILLSHOT:
CMP _5XFLASHING,TRUE
JE THE_5X_OPTION
INHIBIT_ONE:
INC CYCLONECOUNTER
mov si,offset etta
mov di,offset cyclonecounterbcd
call addscorebcd
mov si,offset HUNDRATUSEN
mov di,offset CYCLONESCOREBCD
call addscorebcd
CMP CYCLONECOUNTER,1
JE INHIBIT_ONE
EFFECT CYCLCOUNT
CALL KILL_5X
MOV INH_EFF,FALSE
RETN ;RETN
THE_5X_OPTION:
ADD CYCLONECOUNTER,5
mov si,offset femma
mov di,offset cyclonecounterbcd
call addscorebcd
mov si,offset FEMHUNDRATUSEN
mov di,offset CYCLONESCOREBCD
call addscorebcd
EFFECT CYCLCOUNT2
CALL KILL_5X
CALL KILL_5X
MOV INH_EFF,FALSE
RETN ;RETN
CYCLONE_SKILL_SHOT:
CALL JACKADD ;CP? INGET JACKADD P<> CYCL., MEN 2 P<> SKILLS.!
CALL JACKADD
EFFECT SKILLCYCLONE
MOV SI,OFFSET BCDMILLION
MOV DI,OFFSET SKILL_SCORE2
CALL ADDSCOREBCD ;S_S_S2 += 1E6
MOV SI,OFFSET SKILL_SCORE2
MOV DI,OFFSET SIFFRORNA
CALL ADDSCOREBCD ;SCORE += S_S2
EFFECT SKILLCYCLONE
MOV INH_EFF,TRUE
CALL PARTY_R
JMP FROM_CYCLONE_SKILLSHOT
PARTY_R:
CMP LIGHTSTATUS[44],TRUE ;R IN PARTY
JE QUICK_BACK_2
LIGHTON 44 ;R IN PARTY
EFFECT PARTYSCORE3
CALL CHECK_PARTY
QUICK_BACK_2:
CALL KILL_5X
RETN ;RETN
;******************************************************************************
UPDATE_COUNTERS PROC NEAR
CMP LOOSING,TRUE
JE COUNTERS_INH
INC SLUMPCOUNTER
CMP SKILLSHOTDOWNCOUNTER,0 ;SKILL SHOT
JZ SKILLZERO
DEC SKILLSHOTDOWNCOUNTER
SKILLZERO:
CMP ANY_LOOP_DOWN_COUNTER,0 ;ANY LOOP
JZ DNDALDC
DEC ANY_LOOP_DOWN_COUNTER
DNDALDC:
CMP REVERSE_DOWN_COUNTER,0 ;REVERSE
JZ DNDRDC
DEC REVERSE_DOWN_COUNTER
DNDRDC:
CMP INHIBIT_REVERSE_COUNTER,0 ;INHIBIT REVERSE
JZ DNDIRC
DEC INHIBIT_REVERSE_COUNTER
DNDIRC:
INC SNACKSYNCER ;SNACK SYNCER
CMP SNACKSYNCER,SNACKSPEED*2
JNE SNSOK
MOV SNACKSYNCER,0
SNSOK:
INC ARROWSYNCER ;ARROW SYNCER
CMP ARROWSYNCER,ARROWSPEED*2
JNE ARRSOK
MOV ARROWSYNCER,0
ARRSOK:
INC PUKESYNCER ;PUKE SYNCER
CMP PUKESYNCER,WHOLEPUKESPEED*2
JNE PSOK
MOV PUKESYNCER,0
PSOK:
INC TRAINSYNCER ;TRAIN SYNCER
CMP TRAINSYNCER,TRAINSPEED*2
JNE TRSOK
MOV TRAINSYNCER,0
TRSOK:
CMP TUNNELDOWNCOUNTER,0 ;TRAIN COUNTER
JZ TUNNELZERO
DEC TUNNELDOWNCOUNTER
CMP TUNNELDOWNCOUNTER,TUNNEL_TIME
JNE NOT_D2_3M
ENDFLASH 10 ;5M ;IF 5M -> 3M: KILL 5M & ACT 3M
LOFF 10 ;5M
MOV LIGHTSTATUS[12],FALSE ;3M
LIGHTFLASH 12,TUNNELSPEED ;3M
JMP TUNNEL_FLASH_READY
NOT_D2_3M:
CMP TUNNELDOWNCOUNTER,0
JNZ NOT_D2_1M
ENDFLASH 12 ;3M ;IF 3M -> 1M: KILL 3M & ACT 1M
LOFF 12 ;3M
MOV LIGHTSTATUS[14],FALSE ;1M
LIGHTFLASH 14,TUNNELSPEED ;1M
NOT_D2_1M:
TUNNELZERO:
TUNNEL_FLASH_READY:
COUNTERS_INH:
RETN
UPDATE_COUNTERS ENDP
ADDHAPPY PROC NEAR
CMP HAPPY_HOUR,TRUE
JNE NOTHAPPYADDING
MOV SI,OFFSET BCDMILLION
MOV DI,OFFSET HAPPY_HOUR_TOTAL
CALL ADDSCOREBCD
MOV SPECIAL_SCORE_CHANGED,TRUE
NOTHAPPYADDING:
RETN
ADDHAPPY ENDP
ADDMEGALAUGH PROC NEAR
CMP MEGA_LAUGH,TRUE
JNE NOTMEGAADDING
MOV SI,OFFSET BCD5MILLION
MOV DI,OFFSET MEGA_LAUGH_TOTAL
CALL ADDSCOREBCD
MOV SPECIAL_SCORE_CHANGED,TRUE
NOTMEGAADDING:
RETN
ADDMEGALAUGH ENDP
BUMPER_WAS_HIT_PROC PROC NEAR ;INPUT: HITPOINTER
CALL ADDHAPPY
UPDAT_INFOBAR
RETN
BUMPER_WAS_HIT_PROC ENDP
;********************************* DOT MATRIX CODE ****************************
_PARTYONN:
MOVE DS,DATA
ASSUME DS:DATA
MOV PARTYFLASH,TRUE
MOV AL,PLAYER
ADD AL,'A'-10
MOV PARTY_ON_TEXT[18],AL
MOV SISA,1
MOV DOTRUT,OFFSET WAITRUT
JMP NORMAL_END
_SHOOT_AGAIN_ONN:
MOVE DS,DATA
ASSUME DS:DATA
MOV AL,PLAYER
ADD AL,'A'-10
MOV SHOOT_AGAIN_TEXT[19],AL
MOV SISA,1
MOV DOTRUT,OFFSET WAITRUT
JMP NORMAL_END
_PARTYON: ;BX NOT USED!
MOV PARTYFLASH,TRUE
MOVE SISA,1 ;HUR M†NGA
MOV DOTRUT,OFFSET PARTYRUT
JMP NORMAL_END
_PARTYOFF: ;TURN OFF PARTYON FLASHING (AND BRING BACK SCORE!)
;BUT THIS ROUTINE DOESN'T DO ANYTHING, DOES IT????????
MOV DOTRUT,OFFSET WAITRUT
MOV SISA,1
JMP NORMAL_END
_EOSNURR:
MOV SNURR_READY,TRUE
MOV DOTRUT,OFFSET WAITRUT
MOV SISA,1
JMP NORMAL_END
_WAIT_GAME_ON:
MOV DOTRUT,OFFSET GONRUT
MOV SISA,44
JMP NORMAL_END
GONRUT:
CMP ADDPLAYERS,TRUE
JE INTE_SATT_IGANG
MOV SI,0
RETN
INTE_SATT_IGANG:
MOV SI,34 ;INTE 0 = INTE IG<49>NG !!
RETN
_JBCDZ:
IFZEROBCD [BX+2]
JC OVERIT_
MOV BX,[BX+4]
SUB BX,6
OVERIT_:
ADD BX,6
CMP WORD PTR [BX],0
JNE _NEXTp_4
MOV BX,0
MOV NEXT_A,BX
RETN
_NEXTp_4:
MOV NEXT_A,BX
JMP [BX]
RETN
_JBONUSX1:
CMP BONUS_X,1
Ja QJBX1
ADD BX,2
MOV BX,[BX]
MOV NEXT_A,BX
JMP [BX]
QJBX1: MOV SISA,1
MOV DOTRUT,OFFSET WAITRUT
JMP NORMAL_END
_Jmp:
add bx,2
mov bx,[bx]
MOV NEXT_A,BX
JMP [BX]
retn
_BONUS_X_CALCS: ;FN: MULTIPLIES THE BONUS
;INPUT: BONUS_X, BONUSSIFFRORNA
;OUTPUT: BONUSSIFFRORNA, BONUS_X_TEXT[8]
PUSH BX
PUSH ES
MOVEBCD TEMPBONUSBCD,BONUSSIFFRORNA
MOV CL,BONUS_X
DEC CL
JZ NO_X_BONUS
NIL CH
DO_IT_AGAIN:
PUSH CX
MOV SI,OFFSET TEMPBONUSBCD
MOV DI,OFFSET BONUSSIFFRORNA
CALL ADDSCOREBCD
POP CX
LOOP DO_IT_AGAIN
NO_X_BONUS:
MOV AL,BONUS_X
ADD AL,'7'
MOV BONUS_X_TEXT[8],AL
POP ES
POP BX
MOV SISA,1
MOV DOTRUT,OFFSET WAITRUT
JMP NORMAL_END
_CALC_MEGA:
MOV DOTRUT,OFFSET WAITRUT
MOV SISA,1
PUSHA
MOV SI,OFFSET MEGA_LAUGH_TOTAL ;ML_TOT -> TOTAL BONUS
MOV DI,OFFSET BONUSSIFFRORNA
CALL ADDSCOREBCD
POPA
ADD BX,2
CMP WORD PTR [BX],0
JNE _NEXTp_3Q
MOV BX,0
_NEXTp_3Q:
MOV NEXT_A,BX
RETN
_CALC_HAPPY:
MOV DOTRUT,OFFSET WAITRUT
MOV SISA,1
PUSHA
MOV SI,OFFSET HAPPY_HOUR_TOTAL ;ML_TOT -> TOTAL BONUS
MOV DI,OFFSET BONUSSIFFRORNA
CALL ADDSCOREBCD
POPA
ADD BX,2
CMP WORD PTR [BX],0
JNE _NEXTp_3E
MOV BX,0
_NEXTp_3E:
MOV NEXT_A,BX
RETN
_CALC_CYCLO:
PUSH ES
MOVE ES,DS
MOV DI,OFFSET CYCLONESCOREBCD
NIL AX
MOV CX,12/2 ;(12/6=6!!!)
REP STOSW
POP ES
MOV DOTRUT,OFFSET WAITRUT
MOV SISA,1
MOV CX,CYCLONECOUNTER
URBANLOOP:
MOV SI,OFFSET HUNDRATUSEN
MOV DI,OFFSET CYCLONESCOREBCD
PUSH CX BX
CALL ADDSCOREBCD
POP BX CX
LOOP URBANLOOP
MOV SI,OFFSET CYCLONESCOREBCD ;CYCLONES -> TOTAL BONUS
MOV DI,OFFSET BONUSSIFFRORNA
CALL ADDSCOREBCD
ADD BX,2
CMP WORD PTR [BX],0
JNE _NEXTp_3
MOV BX,0
_NEXTp_3:
MOV NEXT_A,BX
RETN
READ_SPECIAL_MODE_COUNTER PROC NEAR
;[SEC_ASC] PEKAR P<> MSD, (0='*') [SEC_ASC+1] PEKAR P<> LSD
;LŽS AV BARA!
MOVE DS,DATA
CMP HAPPY_HOUR,TRUE
JNE OK_NOT_HH
CMP [SEC_ASC],'*'
JNE INTE_NU_INTE_02
CMP [SEC_ASC+1],'2'+7
JNE INTE_NU_INTE_02
;*** SNABB FLASHA JP ***
CMP JPFLASHING_NORMAL,TRUE
JE NO_QUICK_FLASH
CMP JPFLASHING_TIME,TRUE
JNE NO_QUICK_FLASH
ENDFLASH 35 ;JP
LIGHTFLASH 35,TRAINSPEEDFAST ;JP
NO_QUICK_FLASH:
INTE_NU_INTE_02:
CMP [SEC_ASC],'*'
JNE INTE_NU_INTE_00
CMP [SEC_ASC+1],'0'+7
JNE INTE_NU_INTE_00
;*** KILL HAPPY HOUR ***
mov sisa,0
MOV SPECIALMODE,FALSE
MOV HAPPY_HOUR,FALSE
ENDFLASH 32 ;HH
LOFF 32 ;HH
EFFECT EOHAPPYHOUR
MOV LASTJINGLE,1
ENDFLASH 35 ;JP
LOFF 35 ;JP
MOV JPFLASHING_TIME,FALSE
CMP JPFLASHING_NORMAL,TRUE
JNE JP_NOT_FLASHING
SYNCEDFLASH 35,TRAINSPEED,TRAINSYNCER ;JP
JP_NOT_FLASHING:
CMP MEGA_PENDING,TRUE
JNE INGET_PENDING
;PENDING MEGA!
MOV MEGA_PENDING,FALSE
ADDTASK MEGA_START
INGET_PENDING:
INTE_NU_INTE_00:
JMP HH_READY
OK_NOT_HH: ;********************************************************
CMP [SEC_ASC],'*'
JNE INTE_NU_INTE_02M
CMP [SEC_ASC+1],'2'+7
JNE INTE_NU_INTE_02M
;*** SNABB FLASHA JP ***
CMP JPFLASHING_NORMAL,TRUE
JE NO_QUICK_FLASH_M
CMP JPFLASHING_TIME,TRUE
JNE NO_QUICK_FLASH_M
ENDFLASH 35 ;JP
LIGHTFLASH 35,TRAINSPEEDFAST ;JP
NO_QUICK_FLASH_M:
INTE_NU_INTE_02M:
CMP [SEC_ASC],'*'
JNE INTE_NU_INTE_00M
CMP [SEC_ASC+1],'0'+7
JNE INTE_NU_INTE_00M
;*** KILL MEGA LAUGH ***
MOV SPECIALMODE,FALSE
MOV MEGA_LAUGH,FALSE
mov sisa,0
ENDFLASH 37 ;ML
LOFF 37 ;ML
EFFECT EOMEGALAUGH
MOV LASTJINGLE,1
ENDFLASH 35 ;JP
LOFF 35 ;JP
MOV JPFLASHING_TIME,FALSE
CMP JPFLASHING_NORMAL,TRUE
JNE JP_NOT_FLASHING2
SYNCEDFLASH 35,TRAINSPEED,TRAINSYNCER ;JP
JP_NOT_FLASHING2:
CMP HAPPY_PENDING,TRUE
JNE INGET_PENDING2
;PENDING HAPPY!
MOV HAPPY_PENDING,FALSE
ADDTASK HAPPY_START
INGET_PENDING2:
INTE_NU_INTE_00M:
HH_READY:
RETN
HAPPY_START:
WAITSYNCS 400
CALL OK_2_BE_HAPPY
SUICIDE
MEGA_START:
WAITSYNCS 400
CALL OK_2_LAUGH
SUICIDE
READ_SPECIAL_MODE_COUNTER ENDP
_TSEND: MOV EOTS,TRUE
MOV SISA,1
MOV DOTRUT,OFFSET WAITRUT
JMP NORMAL_END
_DOBEATEN:
MOVE SISA,1
MOV DOTRUT,OFFSET WAITRUT
INC XBALLS
PUSHA
LIGHTON 51
POPA
JMP NORMAL_END
CODE ENDS
;******************************************************************************
;************************* O T H E R S E G M E N T S ************************
;******************************************************************************
HIDDEN1 SEGMENT PARA PUBLIC 'DATA'
UNDANSPR DB 16*16 DUP (0)
HIDDA DB 576*2 DUP(0)
EXTRN HID1
HIDDEN1 ENDS
HIDDEN2 SEGMENT PARA PUBLIC 'DATA'
HIDDA2 DB 576*2 DUP(0)
EXTRN HID2
HIDDEN2 ENDS
MASK1_2 SEGMENT PARA PUBLIC 'DATA'
EXTRN MASK12
MASK1_2 ENDS
MASK1_1 SEGMENT PARA PUBLIC 'DATA'
EXTRN MASK11
MASK1_1 ENDS
MASK2_2 SEGMENT PARA PUBLIC 'DATA'
EXTRN MASK22
MASK2_2 ENDS
FLIPLEFT SEGMENT PARA PUBLIC 'DATA'
IF CREATE_FLIP_DATA
EXTRN FLIPL
ELSE
EXTRN FLIPL_1
ENDIF
FLIPLEFT ENDS
FLIPLEFT2 SEGMENT PARA PUBLIC 'DATA'
IF CREATE_FLIP_DATA
EXTRN FLIPL2
ELSE
EXTRN FLIPL2_1
ENDIF
FLIPLEFT2 ENDS
FLIPRIGHT SEGMENT PARA PUBLIC 'DATA'
IF CREATE_FLIP_DATA
EXTRN FLIPR
ELSE
EXTRN FLIPR_1
ENDIF
FLIPRIGHT ENDS
LASTSEG SEGMENT
LASTSEG ENDS
STAGE1_1 SEGMENT PARA PUBLIC 'DUMP'
extrn st1
STAGE1_1 ENDS
STAGE1_2 SEGMENT PARA PUBLIC 'DUMP'
extrn st2
STAGE1_2 ENDS
STAGE1_3 SEGMENT PARA PUBLIC 'DUMP'
extrn st3
STAGE1_3 ENDS
STAGE1_4 SEGMENT PARA PUBLIC 'DUMP'
extrn st4
STAGE1_4 ENDS
MASK1_3 SEGMENT PARA PUBLIC 'DUMP'
EXTRN MASK13
MASK1_3 ENDS
MASK2_1 SEGMENT PARA PUBLIC 'DUMP'
EXTRN MASK21
MASK2_1 ENDS
MASK2_3 SEGMENT PARA PUBLIC 'DUMP'
EXTRN MASK23
MASK2_3 ENDS
FLIPGFXSEG SEGMENT PARA PUBLIC 'DUMP'
EXTRN FLIPGFX:BYTE
SISTAGFX LABEL BYTE
FLIPGFXSEG ENDS
SPRINGSEG SEGMENT PARA PUBLIC 'DUMP'
EXTRN SPRING
SPRINGSEG ENDS
;******************************************************************************

Reference in New Issue View Git Blame Copy Permalink