5954 lines
119 KiB
NASM
5954 lines
119 KiB
NASM
;******************************************************************************
|
||
;** **
|
||
;** P I N B A L L F A N T A S I E S **
|
||
;** TABLE: STONES 'N' BONES **
|
||
;** **
|
||
;******************************************************************************
|
||
|
||
;BONUS X10 I INACTIVE-SLINGAN
|
||
;FEL LOOP COMBO-TEXT
|
||
;RIGHT PASSAGE REAGERAR P<> MISSLYCKADE F™RS™K VID SUPERLŽGEN
|
||
;R™DARE MATRIX
|
||
|
||
INCLUDELIB STONES.LIB
|
||
INCLUDELIB CLEAR.LIB
|
||
|
||
FLIPGFXFILESIZE=120
|
||
DATAFLIP SEGMENT PARA PUBLIC 'DATA'
|
||
MAXDIFS1=114+5
|
||
MAXDIFS2=114+5
|
||
MAXDIFS=114
|
||
IF CREATE_FLIP_DATA
|
||
LEFTFLIPTAB DW 42*(2*MAXDIFS1) DUP (1)
|
||
RIGHTFLIPTAB DW 42*(2*MAXDIFS2) DUP (1)
|
||
LEFTFLIP2TAB DW ?
|
||
TEMPTAB DW 2*MAXDIFS DUP (1)
|
||
ELSE
|
||
EXTRN LEFTFLIPTAB,RIGHTFLIPTAB,LEFTFLIP2TAB
|
||
ENDIF
|
||
DATAFLIP ENDS
|
||
|
||
DATA SEGMENT PARA PUBLIC 'DATA'
|
||
ASSUME CS:CODE,DS:DATA
|
||
|
||
;tid mellan knack
|
||
KNACKTAB_LO DW 24,23,21,21,18,16,15,13,11,9,8,7,7,6,6,6,5,5,5,5,5,4,4,4,4,4,4,4,4,4,3,3,3,3,3,3
|
||
KNACKTABEND_LO LABEL WORD
|
||
KNACKTAB_HI DW 22,28,25,25,22,19,18,15,13,11,9,9,8,8,7,7,6,6,6,6,6,5,5,5,5,5,5,4,4,4,4,4,4,4,3,3
|
||
KNACKTABEND_HI LABEL WORD
|
||
NOF_BANKS_LO=(KNACKTABEND_LO-KNACKTAB_LO)/2
|
||
NOF_BANKS_HI=(KNACKTABEND_HI-KNACKTAB_HI)/2
|
||
|
||
MODUL DB 'TABLE4.MOD',0,'$'
|
||
|
||
if create_flip_data
|
||
flipdatafil_L DB 'flipdata.4L',0
|
||
flipdatafil_R DB 'flipdata.4R',0
|
||
flipdatafil_L2 DB 'flipdata.4L2',0
|
||
flipgfxfil DB 'flipgfx.4',0
|
||
flipSTRUCfil DB 'flipSTRU.4',0
|
||
endif
|
||
|
||
hi_score_file db 'table4.hi',0
|
||
hi_score_list db 0,0,0, 1,0,0, 0,0,0, 0,0,0,'TSP',0
|
||
db 0,0,0, 0,5,0, 0,0,0, 0,0,0,'ICE',0
|
||
db 0,0,0, 0,2,5, 0,0,0, 0,0,0,'ANY',0
|
||
db 0,0,0, 0,1,0, 0,0,0, 0,0,0,'J L',0
|
||
|
||
;******************************************************************************
|
||
;******************************** DEFINITIONS *********************************
|
||
;******************************************************************************
|
||
TOTCENT=16
|
||
|
||
;******************** SYSTEM **********************
|
||
MAX_NO_OF_LIGHTS_FLASHING=64
|
||
MAX_NO_OF_WAIT_SYNCS=50
|
||
NOOFTASKS=20
|
||
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
|
||
RGB_BUFFER_LEN=1200
|
||
|
||
;******************** FLIPPER & BALL **********************
|
||
BALLH=16
|
||
BANH=576
|
||
STARTX=310-5-BALLH/2+3
|
||
STARTY=543-5-BALLH/2
|
||
|
||
F3TOP=168-15
|
||
F3HEIGHT=53
|
||
|
||
;******************** FLASHING **********************
|
||
SBSPEED=2
|
||
SBFASTTIME=10
|
||
SBSPEED2=2
|
||
SBFASTTIME2=70
|
||
RIPSPEED=2
|
||
RIPFASTTIME=20
|
||
RIPSPEED2=2
|
||
RIPFASTTIME2=70
|
||
GHOSTSPEED=32
|
||
TRIGHOSTSPEED=18
|
||
TOWERSPEED=20
|
||
SKILLSPEED=1
|
||
KICKSPEED=18
|
||
SULPSPEED=16 ;ŽVEN MBSPEED & 2X_SCREAMSSPEED
|
||
MBFASTFLASHSPEED=1
|
||
SULPFASTFLASHSPEED=1
|
||
TBSPEED=18
|
||
LOCKSPEED=18
|
||
DEMONSPEED=18
|
||
BIGGHOSTTIME=4*60
|
||
BIGGHOSTSPEED=2
|
||
|
||
MATRIXLO equ 79
|
||
MATRIXHI equ 231
|
||
MATRIXCOLS equ MATRIXLO+MATRIXHI*256
|
||
public matrixlo,matrixhi,matrixcols
|
||
BIT2COL DB 0,0,0,0,252,255,48,0 ;flipper f„rgerna
|
||
|
||
PARTY_ON_SPEED=3 ;?
|
||
SHOOT_AGAIN_SPEED=3 ;?
|
||
|
||
|
||
;******************** GAME TIMING ********************
|
||
LEFT_RAMP_MILLE_TIME=5*60 ;(AMIGA:5 SEC)
|
||
MB_TIME=11*60
|
||
MB_FASTFLASH_TIME=1*60+30
|
||
SULP_TIME=9*60 ;(AMIGA:9 SEC)
|
||
SULP_FASTFLASH_TIME=1*60+30
|
||
SUPERJACK_TIME=13*60 ;(AMIGA:10 SEC)
|
||
COMBO_TIME=13*60 ;(AMIGA:12 SEC?)
|
||
TOWERHUNT_TIME=40*60 ;CP.
|
||
MULTIDEMON_TIME=35*60 ;CP!
|
||
|
||
;******************** HOLES **********************
|
||
DROPX=140
|
||
DROPY=210
|
||
TOWERX=148-BALLH/2+1
|
||
TOWERY=150-BALLH/2+1
|
||
TOWERXS=0*TT/NN
|
||
TOWERYS=-4000*TT/NN
|
||
WELLX=283-BALLH/2
|
||
WELLY=253-BALLH/2
|
||
WELLXS=-800*TT/NN
|
||
WELLYS=2000*TT/NN
|
||
VAULTX=10-BALLH/2
|
||
VAULTY=540-BALLH/2
|
||
VAULTXS=0 ;*TT/NN
|
||
VAULTYS=-2880 ;*TT/NN cpe
|
||
|
||
|
||
;******************************************************************************
|
||
;****************************** GENERAL VARS **********************************
|
||
;******************************************************************************
|
||
|
||
BCD0 DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
BCD510 DB 0,0,0, 0,0,0, 0,0,0, 5,1,0
|
||
BCD750 DB 0,0,0, 0,0,0, 0,0,0, 7,5,0
|
||
BCD1000 DB 0,0,0, 0,0,0, 0,0,1, 0,0,0
|
||
BCD1010 DB 0,0,0, 0,0,0, 0,0,1, 0,1,0
|
||
BCD1020 DB 0,0,0, 0,0,0, 0,0,1, 0,2,0
|
||
BCD1050 DB 0,0,0, 0,0,0, 0,0,1, 0,5,0
|
||
BCD1040 DB 0,0,0, 0,0,0, 0,0,1, 0,4,0
|
||
BCD1080 DB 0,0,0, 0,0,0, 0,0,1, 0,8,0
|
||
BCD10000 DB 0,0,0, 0,0,0, 0,1,0, 0,0,0
|
||
BCD10030 DB 0,0,0, 0,0,0, 0,1,0, 0,3,0
|
||
BCD10020 DB 0,0,0, 0,0,0, 0,1,0, 0,2,0
|
||
BCD10060 DB 0,0,0, 0,0,0, 0,1,0, 0,6,0
|
||
BCD10070 DB 0,0,0, 0,0,0, 0,1,0, 0,7,0
|
||
BCD17520 DB 0,0,0, 0,0,0, 0,1,7, 5,2,0
|
||
BCD27530 DB 0,0,0, 0,0,0, 0,2,7, 5,3,0
|
||
BCD50010 DB 0,0,0, 0,0,0, 5,0,0, 0,1,0
|
||
BCD50030 DB 0,0,0, 0,0,0, 5,0,0, 0,3,0
|
||
BCD1000000 DB 0,0,0, 0,0,1, 0,0,0, 0,0,0
|
||
BCD5000000 DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
BCD50000000 DB 0,0,0, 0,5,0, 0,0,0, 0,0,0
|
||
|
||
NEXTJUMP DW ?
|
||
CYCLONECOUNTER DW ? ;HEXADECIMAL
|
||
cyclonecounterBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,? ;BCD CODED
|
||
CYCLONESCOREBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,? ;BCD CODED
|
||
XXBALLE DB ?
|
||
KEY_DISABLED DB ?
|
||
SB_DISABLED DB ?
|
||
RIP_DISABLED DB ?
|
||
KEY_ROL_DISABLED DB ?
|
||
RIP_ROL_DISABLED DB ?
|
||
GHOSTCOUNTER DB ? ;0-7 ARE VALID VALUES, 8 GHOSTS
|
||
GHOST_FLASHING DB ? ;BOTH THE TRIANGLE AND THE GHOST ITSELF
|
||
LEFT_RAMP_DOWN_COUNTER DW ?
|
||
TOWER_OPEN DB ?
|
||
SKILLKEY DB ?
|
||
SKILLSCOREBCD DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
KICK_BACK_FLASHING DB ?
|
||
TBSYNCER DB ?
|
||
MB_FLASHING DB ?
|
||
_2X_SCREAMS_FLASHING DB ?
|
||
SULP_FLASHING DB ?
|
||
LOCK1_FLASHING DB ?
|
||
LOCK2_FLASHING DB ?
|
||
SULPSYNCER DB ?
|
||
XBALLS DB ?
|
||
TBMILLIONFLASHING DB ?
|
||
TB5MFLASHING DB ?
|
||
XBALLFLASHING DB ?
|
||
JACKPOTFLASHING DB ?
|
||
SJACKPOTFLASHING DB ?
|
||
HOLDBONUSFLASHING DB ?
|
||
DOUBLEBONUSFLASHING DB ?
|
||
HOLDBONUSFLAG DB ?
|
||
SULP_SCORE DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
BPOINTER DB ?
|
||
SB_DISABLE_AREA DB 11 DUP(0) ;0-3:BONE 6-10:STONE 4-5:UNUSED
|
||
HIGH_VAULT DB ?
|
||
TBNEXT DW ?
|
||
REMAL DB ?
|
||
MBDOWNCOUNTER DW ?
|
||
SULPDOWNCOUNTER DW ?
|
||
COMBODOWNCOUNTER DW ?
|
||
COMBOSTAGE DB ?
|
||
TOWERHUNTMODE DB ?
|
||
TOWERHUNTMODEORIG DB ?
|
||
TOWERHUNTSTAGE DB ?
|
||
TOWERHUNTDOWNCOUNTER DW ?
|
||
MULTIDEMONDOWNCOUNTER DW ?
|
||
MULTIDEMONMODE DB ?
|
||
LOCKVAULTFLASHING DB ?
|
||
LOCKWELLFLASHING DB ?
|
||
HOLDMULTICOUNTER DB ?
|
||
PARTYFLASH DB ?
|
||
DEMONFLASHING DB ?
|
||
FIX_TELEPORT_BUG DB ?
|
||
GHOST_INH_SB DB ?
|
||
BONUS_X DB ?
|
||
TEMPBONUSBCD DB ?,?,?, ?,?,?, ?,?,?, ?,?,?
|
||
FROM_DEMO_MODE DB ?
|
||
TURBOBACKUP DB ?
|
||
OFFROADBACKUP DB ?
|
||
WAS_SPECIAL DB ?
|
||
IN_VAULT DB ? ;TILT
|
||
IN_WELL DB ? ;TILT
|
||
IN_TOWER DB ? ;TILT
|
||
|
||
JackValue DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;Jackpot Current
|
||
JackRaise DB 0,0,0, 0,0,0, 1,0,0, 0,0,0 ;Jackpot Step
|
||
JackInit DB 0,0,0, 0,1,0, 0,0,0, 0,0,0 ;Jackpot Start
|
||
|
||
TOWERVALUE DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
TOWERSTART DB 0,0,0, 0,0,1, 0,0,0, 0,0,0
|
||
TOWERADDS DB 0,0,0, 0,0,0, 2,2,3, 4,7,0
|
||
|
||
VAULTVALUE DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
VAULTSTART DB 0,0,0, 0,0,0, 5,0,0, 0,0,0
|
||
VAULTADDS DB 0,0,0, 0,0,0, 0,8,2, 1,5,0
|
||
|
||
WELLVALUE DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
WELLSTART DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
WELLADDS DB 0,0,0, 0,0,0, 0,6,4, 1,9,0
|
||
|
||
GHOST_STRUC STRUC
|
||
G_LIGHTNO DB ? ;LIGHTNO OF THE GHOST
|
||
G_ROUTINE DW ? ;RUT CALLED WHEN GHOST COLLECTED
|
||
G_EFFECT DW ? ;EFFECT DONE WHEN GHOST COLLECTED
|
||
G_SBEFF DW ? ;EFFECT DONE WHEN GHOST ENABLED
|
||
ENDS
|
||
|
||
GHOSTAREA LABEL BYTE ;"R9b"
|
||
DB 32 ;BAT
|
||
DW BATMANRUT,BATMAN,EVENT_LIT1
|
||
DB 34 ;BLUE GHOST
|
||
DW TOWERHUNTRUT,TOWERHUNT,EVENT_LIT2
|
||
DB 35 ;GREEN SMILER
|
||
DW SMILERRUT,SMILER,EVENT_LIT3
|
||
DB 37 ;RED DEVIL
|
||
DW REDDEVILRUT,REDDEVIL,EVENT_LIT4
|
||
DB 36 ;YELLOW POLERGEIST
|
||
DW GHOSTHUNTRUT,GHOSTHUNT,EVENT_LIT5
|
||
DB 31 ;BLUE OCTOPUSSY
|
||
DW MULTIDEMONRUT,MULTIDEMONS,EVENT_LIT6
|
||
DB 33 ;MUMMY HEAD
|
||
DW MUMMYHEADRUT,MUMMYHEAD,EVENT_LIT7
|
||
DB 38 ;GRIM PEAPER
|
||
DW GRIMRUT,GRIMR,EVENT_LIT8
|
||
|
||
|
||
;******************************************************************************
|
||
;********************************* 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
|
||
|
||
SHOOTTHEBALL DW SJINGLE2 ;SJINGLE0 ;CP?
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;CP?
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;CP?
|
||
DW SHOOTTHEBALLTS
|
||
|
||
MULTIDEMONS DW 0
|
||
DB 100
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;CP?
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;CP?
|
||
DW MULTIDEMONTS
|
||
|
||
EVENT_LIT DW 0
|
||
DB 0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW 0
|
||
|
||
EVENT_LIT1 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT1TS
|
||
|
||
EVENT_LIT2 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT2TS
|
||
|
||
EVENT_LIT3 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT3TS
|
||
|
||
EVENT_LIT4 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT4TS
|
||
|
||
EVENT_LIT5 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT5TS
|
||
|
||
EVENT_LIT6 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT6TS
|
||
|
||
EVENT_LIT7 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT7TS
|
||
|
||
EVENT_LIT8 DW SJINGLE3
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW EVENT8TS
|
||
|
||
SMILER DW SJINGLE3B
|
||
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 ;CP?
|
||
DW SMILERTS
|
||
|
||
TowerHunt1 DW SJingle5
|
||
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,5,0, 0,0,0
|
||
DW Tower1TS
|
||
|
||
TowerHunt2 DW SJingle5
|
||
DB 0,0,0, 0,1,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DW Tower2TS
|
||
|
||
TowerHunt3 DW SJingle5
|
||
DB 0,0,0, 0,2,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 2,0,0, 0,0,0
|
||
DW Tower3TS
|
||
|
||
BATMAN DW SJINGLE7
|
||
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DW BATMANTS
|
||
|
||
REDDEVIL DW SJINGLE21
|
||
DB 0,0,0, 0,1,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0
|
||
DW REDDEVILTS
|
||
|
||
MUMMYHEAD DW SJINGLE21
|
||
DB 0,0,0, 0,1,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,1, 5,0,0, 0,0,0
|
||
DW MUMMYHEADTS
|
||
|
||
LOOPCOMBO DW SJINGLE8
|
||
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW LOOPCOMBOTS
|
||
|
||
GETXBALL DW SJINGLE5
|
||
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 GETXBALLTS
|
||
|
||
RIPEFF DW 0
|
||
DB 40
|
||
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 RIPEFFTS
|
||
|
||
SKILLSHOT DW SJINGLE9
|
||
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 SKILLSHOTTS
|
||
|
||
OPENTOWER DW SJINGLE6
|
||
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 OPENTOWERTS
|
||
|
||
GHOSTHUNT DW SJINGLE17
|
||
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 ;CP?
|
||
DW OFFROADTS
|
||
|
||
GRIMR DW SJINGLE19
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0 ;CP?
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW TURBOTS
|
||
|
||
TOWERHUNT DW SJINGLE6
|
||
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 ;CP?
|
||
DW TOWERHUNTTS
|
||
|
||
MILLION DW SJINGLE9
|
||
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DW MILLIONTS
|
||
|
||
TMillion DW SJINGLE9
|
||
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0
|
||
DW TMILLIONANIMTS
|
||
|
||
Million5 DW SJingle7
|
||
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DW Million5TS
|
||
|
||
TMillion5 DW SJingle7
|
||
DB 0,0,0, 0,0,5, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DW TMillion5TS
|
||
|
||
ExtraBall DW SJingle13
|
||
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 ExtraBallTS
|
||
|
||
Million10 DW SJingle21
|
||
DB 0,0,0, 0,1,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 5,0,0, 0,0,0
|
||
DW Million10TS
|
||
|
||
Million20 DW SJingle4
|
||
DB 0,0,0, 0,2,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,2, 0,0,0, 0,0,0
|
||
DW Million20TS
|
||
|
||
HoldBonus DW SJingle24
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,0, 0,0,0
|
||
DW HoldBTS
|
||
|
||
DoubleBonus DW SJingle23
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,0, 0,0,0
|
||
DW DoubleBTS
|
||
|
||
Jackpot DW SJingle10
|
||
DB 0,0,0, 0,0,1, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 2,5,0, 0,0,0
|
||
DW JackpotTS
|
||
|
||
SuperJack DW SJingle1
|
||
DB 0,0,0, 0,5,0, 0,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,2, 0,0,0, 0,0,0
|
||
DW SuperJackTS
|
||
|
||
MillionPlus DW SJingle9
|
||
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 MillionPlusTS ;CP!
|
||
|
||
ScoreVault DW SJingle14
|
||
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 VaultValueTS
|
||
|
||
ScoreWell DW SJingle12
|
||
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 WellValueTS
|
||
|
||
ScoreTower DW SJingle5
|
||
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 TowerValueTS
|
||
|
||
M2 DW SJingle11
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0
|
||
DW M2TS
|
||
|
||
M4 DW SJingle11
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0
|
||
DW M4TS
|
||
|
||
M6 DW SJingle11
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0
|
||
DW M6TS
|
||
|
||
M8 DW SJingle11
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0
|
||
DW M8TS
|
||
|
||
M10 DW SJingle11
|
||
DB 0,0,0, 0,0,0, 1,0,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,2,5, 0,0,0
|
||
DW M10TS
|
||
|
||
JUMP_AT DW SJINGLE9B
|
||
DB 0,0,0, 0,0,0, 0,2,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW JUMP_AT_TS
|
||
|
||
JUMP_AT2 DW SJINGLE9B
|
||
DB 0,0,0, 0,0,0, 0,2,0, 0,0,0
|
||
DB 0,0,0, 0,0,0, 0,0,0, 0,0,0
|
||
DW JUMP_AT2_TS
|
||
|
||
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
|
||
|
||
ETTA DB 0,0,0,0,0,0,0,0,0,0,0,1
|
||
HUNDRATUSEN DB 0,0,0,0,0,0,1,0,0,0,0,0
|
||
|
||
;******************************************************************************
|
||
;**************************** SOUND STRUCTURES ********************************
|
||
;******************************************************************************
|
||
|
||
;SAMPLE,PERIOD,EFFECT,CHANNEL
|
||
|
||
sbase Equ 19
|
||
|
||
SBumper DB 18H,18,0,3
|
||
SFlippUpp DB 19H,22,0,3
|
||
SRinner DB 1CH,18,0,3
|
||
SNewBall DB 1CH,18,0,3
|
||
SKicker DB 1DH,18,0,3
|
||
SFjader DB 1EH,18,0,3
|
||
SGrop DB 17H,18,0,3
|
||
|
||
;***********************************************************************
|
||
|
||
ebase Equ 10
|
||
SBygel1 DB (ebase-4),10,0,3
|
||
SBygel2 DB (ebase-4),12,0,3
|
||
S_Touch1 DB (ebase-8),14,0,3
|
||
S_Touch2 DB (ebase+0),10,0,3
|
||
S_MultiLjud DB (ebase-8),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 52
|
||
SPRINGJINGLE EQU 0
|
||
MAINJINGLE EQU 1
|
||
LASTMAINPOS EQU 9
|
||
S_Empty DB 52,0,0
|
||
S_Spring1 DB 33,0,0
|
||
S_Spring DB 0,0,0
|
||
S_Main DB 1,0,0
|
||
S_NoHigh DB 21,0,0
|
||
S_Danger DB 37,1,255
|
||
S_Tilt DB 38,2,255
|
||
S_GameOver DB 40,0,0
|
||
S_GameOver2 DB 39,0,0
|
||
S_LostBall DB 62,1,200
|
||
S_AddPlayer DB 33,0,200
|
||
S_Knacket DB 44,1,230
|
||
S_EndFig DB 43,1,0
|
||
S_BEATEN DB 61,1,200
|
||
S_BEATEN_XB DB 42,1,200
|
||
;***********************************************************************
|
||
|
||
SJINGLE0 DB 0,0,1 ;TVINGA UTSKJUT
|
||
SJingle1 DB 24,1,200 ;Super Jackpot
|
||
SJingle2 DB 26,1,100 ;Lock ball
|
||
SJingle3 DB 27,1,50 ;Event lit
|
||
SJingle3B DB 27,1,51 ;Event lit
|
||
SJingle4 DB 28,1,100 ;20 Mil
|
||
SJingle5 DB 29,1,110 ;X Ball lit
|
||
SJingle6 DB 30,1,75 ;Tower Open
|
||
SJingle7 DB 31,1,100 ;5 millions
|
||
SJingle8 DB 32,1,80 ;Jackpot Lit / Loop Combo
|
||
SJingle9 DB 34,1,70 ;Million / Millions+
|
||
SJingle9B DB 34,1,35 ;SCREAMS
|
||
SJingle10 DB 35,1,200 ;Jackpot
|
||
SJingle11 DB 36,1,100 ;X Bonus
|
||
SJingle12 DB 41,1,50 ;Well value
|
||
SJingle13 DB 42,1,200 ;X Ball
|
||
SJingle14 DB 45,1,50 ;Vault value
|
||
SJingle15 DB 46,0,0 ;Tower On
|
||
SJingle16 DB 51,1,0 ;Tower End
|
||
SJingle17 DB 53,0,100 ;Grave On
|
||
SJingle18 DB 55,1,100 ;Grave End
|
||
SJingle19 DB 56,0,100 ;Grim On
|
||
SJingle20 DB 60,1,100 ;Grim End
|
||
SJingle21 DB 61,1,100 ;10 / 15 millions
|
||
SJingle22 DB 63,1,90 ;Ball lock enabled
|
||
SJingle23 DB 64,1,90 ;Double bonus
|
||
SJingle24 DB 25,1,90 ;Hold Bonus
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;***************************** DETECTION AREAS ********************************
|
||
;******************************************************************************
|
||
|
||
BumperLista_L DW 172,88,185,112
|
||
DW Bumper1
|
||
DW 231,94,255,118
|
||
DW Bumper2
|
||
DW 190,134,214,158
|
||
DW Bumper3
|
||
DW -1,-1,-1,-1
|
||
DW -1
|
||
|
||
BumperLista_U DW -1,-1,-1,-1
|
||
DW -1
|
||
|
||
Bumper2Lista_L DW 50,415,80,470 ;Just to add power
|
||
DW Kicker1 ;No Scores or effects
|
||
DW 219,415,249,470
|
||
DW Kicker2
|
||
|
||
Bumper2Lista_U DW -1,-1,-1,-1
|
||
DW -1
|
||
|
||
bumper1 dw sbumper
|
||
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
|
||
bumper2 dw sbumper
|
||
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
|
||
bumper3 dw sbumper
|
||
db 0,0,0, 0,0,0, 0,0,1, 0,0,0 ;1,000
|
||
kicker1 dw skicker
|
||
db 0,0,0, 0,0,0, 0,0,0, 5,0,0 ;500
|
||
kicker2 dw skicker
|
||
db 0,0,0, 0,0,0, 0,0,0, 5,0,0 ;500
|
||
|
||
ZonLista_L LABEL WORD
|
||
DW 123,226,143,243
|
||
DW Touch_O_BONE
|
||
DW 143,230,164,243
|
||
DW Touch_N_BONE
|
||
DW 70,234,81,241
|
||
DW Touch_B_BONE
|
||
DW 217,234,229,241
|
||
DW Touch_E_BONE
|
||
|
||
DW 11,277,38,294
|
||
DW Touch_O_STONE
|
||
DW 11,294,38,310
|
||
DW Touch_T_STONE
|
||
DW 11,310,38,325
|
||
DW Touch_S_STONE
|
||
DW 272,303,286,323
|
||
DW Touch_N_STONE
|
||
DW 272,323,286,343
|
||
DW Touch_E_STONE
|
||
DW 0
|
||
|
||
ZonLista_U DW 0
|
||
|
||
AreaLista_L LABEL WORD
|
||
DW 213,4,245,25 ;Game On
|
||
DW Close1
|
||
DW 130,15,160,40 ;IN TILL TOWER
|
||
DW Bygel15
|
||
DW 285,50,310,80 ;UPP TILL BUMPER-OMR<4D>DET
|
||
DW Bygel16
|
||
DW 184,51,194,61 ;K
|
||
DW Bygel5
|
||
DW 206,51,216,61 ;E
|
||
DW Bygel6
|
||
DW 228,51,238,61 ;Y
|
||
DW Bygel7
|
||
DW 278,248,288,258 ;THE WELL
|
||
DW GropB
|
||
DW 1,400,20,430 ;VŽ DRAIN ™VRE
|
||
DW Bygel19
|
||
DW 25,435,35,445 ;VŽ FLIPPER-RŽNNA
|
||
DW Bygel3
|
||
DW 263,435,273,445 ;H™ FLIPPER-RŽNNA
|
||
DW Bygel4
|
||
DW 1,450,20,480 ;VŽ DRAIN NEDRE
|
||
DW Bygel1
|
||
DW 284,450,294,470 ;H™ DRAIN
|
||
DW Bygel2
|
||
DW 1,530,20,550 ;THE VAULT
|
||
DW GropC
|
||
DW 305,544,320,576 ;Spring Valid
|
||
DW Bygel28
|
||
DW 300,520,315,540 ;SPRING INVALID
|
||
DW BYGELSI
|
||
DW 50,576,270,600 ;Close Tower
|
||
DW Close4
|
||
DW 160,180,177,197 ;OPEN BUMPERGATE
|
||
DW OPENBUMPERS
|
||
DW 232,151,254,177 ;OPEN BUMPERGATE
|
||
DW OPENBUMPERS
|
||
; DW 177,5,245,48 ;LAST GATE IN LIST!
|
||
; DW PARTYOFFAREA
|
||
DW 0
|
||
|
||
AreaLista_U LABEL WORD
|
||
DW 135,140,155,160 ;TOWER SUG-H<>L
|
||
DW GropA
|
||
DW 100,5,130,30 ;LOOP MIDDLE
|
||
DW Bygel8
|
||
DW 17,80,27,90 ;R
|
||
DW Bygel12
|
||
DW 63,80,73,90 ;P
|
||
DW Bygel14
|
||
DW 41,83,51,93 ;I
|
||
DW Bygel13
|
||
DW 267,85,283,105 ;LOOP END
|
||
DW Bygel8b
|
||
DW 240,121,260,151 ;SCREAM RAMP
|
||
DW Bygel11
|
||
DW 22,140,42,170 ;GRID-RAMP START LEFT
|
||
DW Bygel9
|
||
DW 49,140,69,170 ;GRID-RAMP START RIGHT
|
||
DW Bygel10
|
||
DW 22,200,42,230 ;GRID-RAMP B™J1 LEFT
|
||
DW Open6
|
||
DW 49,200,69,230 ;GRID-RAMP B™J1 RIGHT
|
||
DW Close6
|
||
DW 22,250,42,280 ;GRID-RAMP B™J2 LEFT
|
||
DW Open7
|
||
DW 49,250,69,280 ;GRID-RAMP B™J2 RIGHT
|
||
DW Close7
|
||
DW 5,400,20,430 ;TO THE VAULT
|
||
DW Bygel18
|
||
; DW 271,28,292,58 ;CLEARIT, MM.
|
||
DW 213,4,245,25
|
||
DW PARTYOFFAREA
|
||
DW 0
|
||
|
||
AREALISTA_L_T LABEL WORD
|
||
DW 278,248,288,258 ;THE WELL (TILT)
|
||
DW GropB_T
|
||
DW 1,530,20,550 ;THE VAULT
|
||
DW GropC
|
||
DW 135,140,155,160 ;TOWER SUG-H<>L (TILT)
|
||
DW GropA_T
|
||
DW 0
|
||
|
||
AREALISTA_U_T LABEL WORD
|
||
DW 1,530,20,550 ;THE VAULT
|
||
DW GropC
|
||
DW 135,140,155,160 ;TOWER SUG-H<>L (TILT)
|
||
DW GropA_T
|
||
DW 22,140,42,170 ;GRID-RAMP START LEFT
|
||
DW Bygel9
|
||
DW 49,140,69,170 ;GRID-RAMP START RIGHT
|
||
DW Bygel10
|
||
DW 22,200,42,230 ;GRID-RAMP B™J1 LEFT
|
||
DW Open6
|
||
DW 49,200,69,230 ;GRID-RAMP B™J1 RIGHT
|
||
DW Close6
|
||
DW 22,250,42,280 ;GRID-RAMP B™J2 LEFT
|
||
DW Open7
|
||
DW 49,250,69,280 ;GRID-RAMP B™J2 RIGHT
|
||
DW Close7
|
||
DW 0
|
||
|
||
LEVEL1LISTA LABEL WORD ;AREOR SOM ANGER HOPP TILL LEVEL 1 FR<46>N LEVEL 2
|
||
;PARTY ON? DW 213,4,245,25
|
||
DW 16,8,42,45
|
||
DW 90,80,115,120
|
||
DW 265,155,295,185
|
||
; DW 75,165,105,190
|
||
DW 74,169,88,181 ;
|
||
DW 74,181,104,193 ;
|
||
DW 185,200,215,240
|
||
DW 300,200,320,250
|
||
DW 260,450,277,470
|
||
DW 20,450,50,470
|
||
DW 1,526,20,576
|
||
DW -1
|
||
|
||
LEVEL2LISTA LABEL WORD ;AREOR SOM ANGER HOPP TILL LEVEL 2 FR<46>N LEVEL 1
|
||
DW 42,8,66,38
|
||
DW 136,36,156,60
|
||
DW 91,38,133,55
|
||
DW 138,140,157,160
|
||
DW 190,165,225,200
|
||
DW 300,170,320,200
|
||
DW -1
|
||
|
||
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 0,0
|
||
ELSE
|
||
EXTRN FLIPLINFO:FLIPSTRUC:2
|
||
ENDIF
|
||
no_of_ramps equ 11 ;cpw!?!?
|
||
RampTable DW 0,(10*2*tt/nn)/2
|
||
DW -10*tt/nn,5*tt/nn
|
||
DW 0,-10*tt/nn
|
||
DW 5*tt/nn,0
|
||
DW 5*tt/nn,15*tt/nn
|
||
DW -10*tt/nn,12*tt/nn
|
||
DW 2,15*tt/nn
|
||
DW -8*tt/nn,12*tt/nn
|
||
DW 3,10*tt/nn
|
||
DW 4,13*tt/nn
|
||
DW 7*tt/nn,10*tt/nn
|
||
DW 0,0
|
||
RampTable_hi DW 0,10
|
||
DW -10,5
|
||
DW 0,-10
|
||
DW 5,0
|
||
DW 5,15
|
||
DW -10,12
|
||
DW 2,15
|
||
DW -8,12
|
||
DW 3,10
|
||
DW 4,13
|
||
DW 7,10
|
||
DW 0,0
|
||
|
||
PLAYER_STRUC STRUC
|
||
P_SIFFRORNA DB 12 DUP(?)
|
||
P_BONUSSIFFRORNA DB 12 DUP(?)
|
||
P_GHOSTCOUNTER DB ?
|
||
P_GHOSTFLASHING DB ?
|
||
P_SKILLSCOREBCD DB 12 DUP(?)
|
||
P_KICKBACKFLASHING DB ?
|
||
P_R_RIP DB ?
|
||
P_I_RIP DB ?
|
||
P_P_RIP DB ?
|
||
P_STONE_S DB ?
|
||
P_STONE_T DB ?
|
||
P_STONE_O DB ?
|
||
P_STONE_N DB ?
|
||
P_STONE_E DB ?
|
||
P_BONE_B DB ?
|
||
P_BONE_O DB ?
|
||
P_BONE_N DB ?
|
||
P_BONE_E DB ?
|
||
P_CYCLONECOUNTER DW ?
|
||
P_CYCLONECOUNTERBCD DB 12 DUP(?)
|
||
P_NEXTJUMP DW ?
|
||
ENDS
|
||
|
||
PUBLIC PLAYER_AREA
|
||
PLAYER_AREA PLAYER_STRUC NO_OF_PLAYERS DUP(<?>)
|
||
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;************************ DEMO MODE LIGHT FLASHING ****************************
|
||
;******************************************************************************
|
||
|
||
FLASHLIST LABEL WORD
|
||
T2=14
|
||
DW 0,0,T2,T2,1 ;KEY
|
||
DW 0,T2,T2,T2,2
|
||
DW 0,0,T2,T2,3
|
||
|
||
T2=9
|
||
DW 0,0,T2,T2,26 ;STONE BONE
|
||
DW 0,T2,T2,T2,27
|
||
DW 0,0,T2,T2,28
|
||
DW 0,T2,T2,T2,29
|
||
DW 0,0,T2,T2,30
|
||
DW 0,T2,T2,T2,20
|
||
DW 0,0,T2,T2,21
|
||
DW 0,T2,T2,T2,22
|
||
DW 0,0,T2,T2,23
|
||
|
||
T2=12
|
||
DW 0,T2,T2,T2,15 ;LOCK & LOCK
|
||
DW 0,0,T2,T2,25
|
||
|
||
T2=7
|
||
DW 0,0,T2,T2,39 ;X2X4X6X8X10
|
||
DW 0,T2,T2,T2,40
|
||
DW 0,0,T2,T2,41
|
||
DW 0,T2,T2,T2,42
|
||
DW 0,0,T2,T2,43
|
||
|
||
DW -1
|
||
|
||
;******************************************************************************
|
||
;**************************** LIGHT PALETTE DATA ******************************
|
||
;******************************************************************************
|
||
|
||
NOOFLIGHTS=44
|
||
|
||
LON1 DB 129 ;K
|
||
DB 2
|
||
DB 33,58,33
|
||
DB 52,89,52
|
||
LON2 DB 131 ;E
|
||
DB 2
|
||
DB 33,58,33
|
||
DB 52,89,52
|
||
LON3 DB 133 ;Y
|
||
DB 2
|
||
DB 33,58,33
|
||
DB 52,89,52
|
||
LON4 DB 135 ;R
|
||
DB 2
|
||
DB 77,52,27
|
||
DB 95,83,20
|
||
LON5 DB 137 ;I
|
||
DB 1
|
||
DB 95,83,20
|
||
LON6 DB 138 ;P
|
||
DB 2
|
||
DB 77,52,27
|
||
DB 95,83,20
|
||
LON7 DB 140 ;TOWER
|
||
DB 2
|
||
DB 33,58,33
|
||
DB 52,89,57
|
||
LON8 DB 187 ;X-TRA BALL
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON9 DB 189 ;JACKPOT
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON10 DB 191 ;S-JACKPOT
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON11 DB 193 ;MILLION
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON12 DB 195 ;5-MILLION
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON13 DB 197 ;HOLD-BONUS
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON14 DB 199 ;DOUBLE-BONUS
|
||
DB 2
|
||
DB 60,60,60
|
||
DB 96,96,96
|
||
LON15 DB 142 ;L<>S
|
||
DB 3
|
||
DB 33,58,33
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON16 DB 145 ;SP™KE
|
||
DB 3
|
||
DB 58,58,58
|
||
DB 70,70,70
|
||
DB 95,95,95
|
||
LON17 DB 148 ;2*SKRIK
|
||
DB 3
|
||
DB 43,43,43
|
||
DB 70,70,70
|
||
DB 95,95,95
|
||
LON18 DB 151 ;DEMON
|
||
DB 2
|
||
DB 52,8,14
|
||
DB 95,0,0
|
||
LON19 DB 153 ;+
|
||
DB 2
|
||
DB 52,8,14
|
||
DB 95,0,0
|
||
LON20 DB 155 ;B
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON21 DB 157 ;O
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON22 DB 159 ;N
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON23 DB 161 ;E
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON24 DB 180 ;MB
|
||
DB 3
|
||
DB 58,58,58
|
||
DB 70,70,70
|
||
DB 95,95,95
|
||
LON25 DB 183 ;L<>S
|
||
DB 2
|
||
DB 33,58,33
|
||
DB 52,89,52
|
||
LON26 DB 163 ;S
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON27 DB 165 ;T
|
||
DB 1
|
||
DB 52,89,52
|
||
LON28 DB 166 ;O
|
||
DB 1
|
||
DB 52,89,52
|
||
LON29 DB 167 ;N
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON30 DB 169 ;E
|
||
DB 2
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
LON31 DB 64 ;SLEMBOLLEN
|
||
DB 9
|
||
DB 20,27,33
|
||
DB 27,33,45
|
||
DB 33,45,58
|
||
DB 39,52,70
|
||
DB 52,64,77
|
||
DB 70,70,70
|
||
DB 39,0,0
|
||
DB 52,8,14
|
||
DB 58,27,27
|
||
LON32 DB 73 ;FLADDERMUSEN
|
||
DB 6
|
||
DB 20,27,33
|
||
DB 27,33,45
|
||
DB 39,39,39
|
||
DB 58,58,58
|
||
DB 77,52,27
|
||
DB 95,83,20
|
||
LON33 DB 80 ;MUMIEN
|
||
DB 5
|
||
DB 39,39,39
|
||
DB 58,58,58
|
||
DB 70,70,70
|
||
DB 52,8,14
|
||
DB 95,0,0
|
||
LON34 DB 85 ;BL<42>A ANSIKTET
|
||
DB 7
|
||
DB 20,27,33
|
||
DB 27,33,45
|
||
DB 27,39,52
|
||
DB 33,45,58
|
||
DB 39,52,70
|
||
DB 52,64,77
|
||
DB 95,83,20
|
||
LON35 DB 92 ;BARBA-PAPPA
|
||
DB 8
|
||
DB 14,39,14
|
||
DB 27,45,20
|
||
DB 33,58,33
|
||
DB 39,70,39
|
||
DB 52,89,52
|
||
DB 52,8,14
|
||
DB 95,0,0
|
||
DB 95,83,20
|
||
LON36 DB 100 ;PEPPARKAKS-GUBBEN
|
||
DB 5
|
||
DB 58,27,27
|
||
DB 64,39,39
|
||
DB 77,52,27
|
||
DB 95,83,20
|
||
DB 95,95,95
|
||
LON37 DB 105 ;R™D-LUVAN
|
||
DB 7
|
||
DB 39,0,0
|
||
DB 52,8,14
|
||
DB 58,27,27
|
||
DB 64,39,39
|
||
DB 77,52,27
|
||
DB 95,95,95
|
||
DB 95,0,0
|
||
LON38 DB 112 ;DEN GRYMMA RAPPARN
|
||
DB 17
|
||
DB 17,23,30
|
||
DB 20,27,33
|
||
DB 27,33,45
|
||
DB 27,39,52
|
||
DB 33,45,58
|
||
DB 52,8,14
|
||
DB 95,0,0
|
||
DB 39,39,39
|
||
DB 39,52,70
|
||
DB 58,58,58
|
||
DB 33,20,20
|
||
DB 58,27,27
|
||
DB 64,39,39
|
||
DB 77,52,27
|
||
DB 52,39,27
|
||
DB 64,52,39
|
||
DB 77,64,52
|
||
LON39 DB 171 ;X2
|
||
DB 2
|
||
DB 52,27,27
|
||
DB 95,0,0
|
||
LON40 DB 173 ;X4
|
||
DB 1
|
||
DB 95,0,0
|
||
LON41 DB 174 ;X6
|
||
DB 2
|
||
DB 52,27,27
|
||
DB 95,0,0
|
||
LON42 DB 176 ;X8
|
||
DB 2
|
||
DB 52,27,27
|
||
DB 95,0,0
|
||
LON43 DB 178 ;X10
|
||
DB 2
|
||
DB 52,27,27
|
||
DB 95,0,0
|
||
LON44 DB 185 ;SPARKA TILLBAKA
|
||
DB 2
|
||
DB 58,58,58
|
||
DB 95,95,95
|
||
MATRIXON DB matrixlo ;(MATRIXCOL LOW BYTE)
|
||
DB 1
|
||
DB 95,83,20
|
||
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 LON40
|
||
DW OFFSET LON41
|
||
DW OFFSET LON42
|
||
DW OFFSET LON43
|
||
DW OFFSET LON44
|
||
|
||
|
||
MATRIXOFF DB matrixlo
|
||
DB 3
|
||
DB 3 DUP(20*64/100,27*64/100,33*64/100)
|
||
; DB 3 DUP(20*64/100,27*64/100,36*64/100) ;(50)
|
||
|
||
|
||
;******************************************************************************
|
||
;************************* GATES & BYGLARS DATA AREOR *************************
|
||
;******************************************************************************
|
||
|
||
EXTRN POS2,POS3,POS4,POS5:BYTE
|
||
EXTRN NEG2,NEG3,NEG4,NEG5:BYTE
|
||
|
||
GATE2 DW POS3-2 ;TO THE BUMPERS
|
||
DW NEG3-2
|
||
DW 5*40+30
|
||
DW 2,20
|
||
GATE3 DW POS4-2 ;TO THE TOWER
|
||
DW NEG4-2
|
||
DW 5*40+20
|
||
DW 2,24
|
||
GATE4A DW POS2 ;LEFT RAMP 1
|
||
DW NEG2
|
||
DW 191*40+4
|
||
DW 4,14
|
||
GATE4B DW POS2 ;LEFT RAMP 2
|
||
DW NEG2
|
||
DW 247*40+4
|
||
DW 4,14
|
||
GATE4C DW POS2 ;LEFT RAMP 3
|
||
DW NEG2
|
||
DW 303*40+4
|
||
DW 4,14
|
||
GATE5 DW POS5 ;KICKBACK
|
||
DW NEG5
|
||
DW 511*40+0
|
||
DW 4,13
|
||
|
||
OffRoadMode db ?
|
||
TurboMode db ?
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;****************************** DOT MATRIX ************************************
|
||
;******************************************************************************
|
||
CLEARIT MACRO
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
ASSUME DS:DATA
|
||
ENDM
|
||
|
||
|
||
;********************************** TEXTER ************************************
|
||
OPENTOWERTEXT DB 21 DUP (1),'THE TOWER IS OPEN',21 DUP(1),255
|
||
MILLIONSCROLL DB 21 DUP (1),'MILLION',6 DUP (1),255
|
||
GRIMSCROLL DB 21 DUP (1),'ALL LOOPS TRAPS AND RAMPS SCORE 5000000',21 DUP(1),255
|
||
MILLIONPLUSTEXT DB ' MILLION PLUS',0
|
||
VAULTVALUETEXT DB ' VAULT SCORE',0
|
||
WELLVALUETEXT DB ' WELL TREASURE',0
|
||
TOWERVALUETEXT DB ' TOWER BONUS',0
|
||
DOUBLETEXT DB ' DOUBLE BONUS',0
|
||
HOLDTEXT DB ' HOLD BONUS',0
|
||
RIPTEXT DB ' KICKBACK ACTIVATED',0
|
||
GETXBALLTEXT DB ' GET THE EXTRA BALL',0
|
||
SKILLTEXT DB ' SKILL SHOT',0
|
||
LOOPCOMBOTEXT DB ' LOOP COMBO',0 ;CP!?
|
||
TOWER_TEXT DB 21 DUP (1),'SHOOT THE TOWER FOR 5 ',94,' 10 AND 20 MILLIONS IN 30 SECONDS',21 DUP(1),255
|
||
MARTIN_BERG_TEXT DB ' TOWER HUNT',0
|
||
VAULT45M DB 21 DUP (1),'ENTER THE VAULT FOR 5000000',21 DUP(1),255
|
||
VAULT4TOWERHUNT DB 21 DUP (1),'ENTER THE VAULT FOR TOWER HUNT',21 DUP(1),255
|
||
VAULT4XBALL DB 21 DUP (1),'ENTER THE VAULT TO LITE THE EXTRA BALL',21 DUP(1),255
|
||
VAULT410M DB 21 DUP (1),'ENTER THE VAULT FOR 10000000',21 DUP(1),255
|
||
VAULT4GHOSTHUNT DB 21 DUP (1),'ENTER THE VAULT FOR GHOST HUNT',21 DUP(1),255
|
||
VAULT4MULTIDEMONS DB 21 DUP (1),'ENTER THE VAULT FOR MULTI DEMONS',21 DUP(1),255
|
||
VAULT415M DB 21 DUP (1),'ENTER THE VAULT FOR 15000000',21 DUP(1),255
|
||
VAULT4GRIMREAPER DB 21 DUP (1),'ENTER THE VAULT FOR GRIM REAPER',21 DUP(1),255
|
||
MULTIDEMONTEXT DB 21 DUP (1),'LOCK BALLS IN WELL AND VAULT TO INCREASE DEMON VALUE BY 5 AND 10 MILLIONS',21 DUP(1),255
|
||
SHOOTTHEBALLTEXT DB 'SHOOT THE BALL PL X',0
|
||
SUPERTEXT DB 'SUPER',0
|
||
EXTRABALLTEXT DB 'EXTRA BALL',0
|
||
|
||
;******************************************************************************
|
||
;********************************** TSAR **************************************
|
||
;******************************************************************************
|
||
|
||
;*********************************************************
|
||
;******* OBS!!! KOM IH<49>G ATT ASSUMERA ANIMATIONER TILL DATA2 OCH
|
||
;******* SCROLLAR TILL DATA !!!!!
|
||
|
||
BEATENSCROLL DB 21 DUP (1),'YOU HAVE BEATEN THE HIGHSCORE',21 DUP(1),255
|
||
|
||
Beaten_bh_TS LABEL WORD ;I BALL LOST SEKVENSEN
|
||
DW _DOBEATEN,?
|
||
CLEARIT
|
||
DW _JINGLE,S_BEATEN
|
||
DW _LASTJINGLE,EMPTYJINGLE
|
||
DW _SCROLL,BEATENSCROLL
|
||
DW _WAITJINGLE,?
|
||
DW _JINGLE,S_BEATEN_XB
|
||
DW _LASTJINGLE,EMPTYJINGLE
|
||
DW _FLASHON,1 ;6
|
||
; DW _PRINT13,EXTRABALLTEXT,SW*4/4+TOTCENT+4
|
||
; DW _WAIT,6*2*30
|
||
DW _ANIMATION,_EXTRABALL
|
||
DW _WAIT,90
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW _JMP,No_Bonus2TS
|
||
|
||
BeatenTS LABEL WORD ;I SPELET
|
||
DW _DOBEATEN,?
|
||
CLEARIT
|
||
DW _JINGLE,S_BEATEN
|
||
DW _LASTJINGLE,EMPTYJINGLE
|
||
DW _SCROLL,BEATENSCROLL
|
||
DW _WAITJINGLE,?
|
||
DW _JINGLE,S_BEATEN_XB
|
||
DW _LASTJINGLE,3
|
||
DW _FLASHON,1 ;6
|
||
; DW _PRINT13,EXTRABALLTEXT,SW*4/4+TOTCENT+4
|
||
; DW _WAIT,6*2*30
|
||
DW _ANIMATION,_EXTRABALL
|
||
DW _WAIT,90
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW 0
|
||
|
||
SHOOTTHEBALLTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PARTYONN,?
|
||
DW _PRINT13,SHOOTTHEBALLTEXT,SW*4/4
|
||
DW _PARTYON,?
|
||
DW 0
|
||
|
||
MULTIDEMONTS LABEL WORD
|
||
CLEARIT
|
||
DW _SCROLL,MULTIDEMONTEXT
|
||
CLEARIT
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
EVENT1TS LABEL WORD
|
||
DW _SCROLL,VAULT45M
|
||
DW 0
|
||
|
||
EVENT2TS LABEL WORD
|
||
DW _SCROLL,VAULT4TOWERHUNT
|
||
DW 0
|
||
|
||
EVENT3TS LABEL WORD
|
||
DW _SCROLL,VAULT4XBALL
|
||
DW 0
|
||
|
||
EVENT4TS LABEL WORD
|
||
DW _SCROLL,VAULT410M
|
||
DW 0
|
||
|
||
EVENT5TS LABEL WORD
|
||
DW _SCROLL,VAULT4GHOSTHUNT
|
||
DW 0
|
||
|
||
EVENT6TS LABEL WORD
|
||
DW _SCROLL,VAULT4MULTIDEMONS
|
||
DW 0
|
||
|
||
EVENT7TS LABEL WORD
|
||
DW _SCROLL,VAULT415M
|
||
DW 0
|
||
|
||
EVENT8TS LABEL WORD
|
||
DW _SCROLL,VAULT4GRIMREAPER
|
||
DW 0
|
||
|
||
SMILERTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,GETXBALLTEXT,SW*4/4
|
||
DW _WAIT,150
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
TOWER1TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWER,87-16+2
|
||
DW _WAIT,50
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
TOWER2TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWER,61-16+2
|
||
DW _WAIT,50
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
TOWER3TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWER,36-16
|
||
DW _WAIT,120
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
BATMANTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _WAIT,5
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_5
|
||
DW _WAIT,25
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
REDDEVILTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_10
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WAIT,50
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
MUMMYHEADTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_15
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WAIT,50
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
LOOPCOMBOTS LABEL WORD ;CP! INTE S<> I ALLA FALL!!
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,LOOPCOMBOTEXT,SW*4/4
|
||
DW _WAIT,140
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW 0
|
||
|
||
GETXBALLTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,GETXBALLTEXT,SW*4/4
|
||
DW _WAIT,150
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW 0
|
||
|
||
RIPEFFTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT13,RIPTEXT,SW*4/4
|
||
DW _WAIT,90
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW 0
|
||
|
||
SKILLSHOTTS LABEL WORD
|
||
CLEARIT
|
||
DW _RULLGARDIN_UPP,SKILLTEXT,1
|
||
DW _WAIT,60
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT13_NUMBER_CENT,SKILLSCOREBCD,2*2*SW/4+TOTCENT
|
||
DW _WAIT,2*60
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW 0
|
||
|
||
OPENTOWERTS LABEL WORD
|
||
CLEARIT
|
||
DW _SCROLL,OPENTOWERTEXT
|
||
CLEARIT
|
||
DW 0
|
||
|
||
MILLIONTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _SCROLL,MILLIONSCROLL
|
||
DW _WAIT,60
|
||
DW _ANIMATION,_CLEAR
|
||
DW 0
|
||
|
||
TMILLIONANIMTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
Million5TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _WAIT,5
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_5
|
||
DW _WAIT,25
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW 0
|
||
|
||
TMillion5TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _WAIT,5
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_5
|
||
DW _WAIT,25
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
Million10TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_10
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _ANIMATION,_CLEAR
|
||
DW 0
|
||
|
||
Million20TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_20
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_MILLION
|
||
DW _WAIT,120
|
||
DW _ANIMATION,_CLEAR
|
||
DW 0
|
||
|
||
DoubleBTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,DOUBLETEXT,SW*4/4
|
||
DW _WAIT,150
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
HOLDBTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,HOLDTEXT,SW*4/4
|
||
DW _WAIT,150
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
JackpotTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_JACKPOT
|
||
DW _WAIT,30
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
SuperJackTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT13,SUPERTEXT,SW*4/4+7*4
|
||
DW _WAIT,100
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_JACKPOT
|
||
DW _WAIT,30
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT13_NUMBER_CENT,BCD50000000,2*2*SW/4+TOTCENT
|
||
DW _WAIT,100
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
MillionPlusTS LABEL WORD
|
||
CLEARIT
|
||
DW _RULLGARDIN_UPP,MILLIONPLUSTEXT,1
|
||
DW _WAIT,60
|
||
CLEARIT
|
||
DW _PRINT13_NUMBER_CENT,SULP_SCORE,2*2*SW/4+TOTCENT
|
||
DW _WAIT,2*60
|
||
CLEARIT
|
||
DW 0
|
||
|
||
VaultValueTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,VAULTVALUETEXT,SW*4/4
|
||
DW _WAIT,60
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _PRINT13_NUMBER_CENT,VAULTVALUE,2*2*SW/4+TOTCENT
|
||
DW _WAIT,80
|
||
CLEARIT
|
||
DW _VAULTEND,?
|
||
DW 0
|
||
|
||
WellValueTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,WELLVALUETEXT,SW*4/4
|
||
DW _WAIT,60
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _PRINT13_NUMBER_CENT,WELLVALUE,2*2*SW/4+TOTCENT
|
||
DW _WAIT,80
|
||
CLEARIT
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
TowerValueTS LABEL WORD
|
||
CLEARIT
|
||
DW _FLASHON,2
|
||
DW _PRINT13,TOWERVALUETEXT,SW*4/4
|
||
DW _WAIT,60
|
||
DW _FLASHOFF,?
|
||
CLEARIT
|
||
DW _PRINT13_NUMBER_CENT,TOWERVALUE,2*2*SW/4+TOTCENT
|
||
DW _WAIT,80
|
||
CLEARIT
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
EXTRABALLTS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_EXTRABALL
|
||
DW _WAIT,120
|
||
DW _ANIMATION,_CLEAR
|
||
DW _TOWEREND,?
|
||
DW 0
|
||
|
||
M2TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_BONUSX2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
M4TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_BONUSX4
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
M6TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_BONUSX6
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
M8TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_BONUSX8
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
M10TS LABEL WORD
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_CLEAR
|
||
DW _ANIMATION,_BONUSX10
|
||
DW _ANIMATION,_CLEAR
|
||
DW _WELLEND,?
|
||
DW 0
|
||
|
||
TOWERHUNTTS LABEL WORD
|
||
CLEARIT
|
||
DW _RULLGARDIN_UPP,MARTIN_BERG_TEXT,-13
|
||
DW _RULLGARDIN_NED,MARTIN_BERG_TEXT,16
|
||
DW _RULLGARDIN_UPP,MARTIN_BERG_TEXT,-13
|
||
DW _RULLGARDIN_NED,MARTIN_BERG_TEXT,16
|
||
DW _SCROLL,TOWER_TEXT
|
||
CLEARIT
|
||
DW _VAULTEND,?
|
||
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
|
||
clearTS dw _animation,_clear
|
||
dw 0
|
||
|
||
tomTS dw _animation,_clear
|
||
dw _wait,32767
|
||
dw 0
|
||
|
||
|
||
OffRoadTS LABEL WORD
|
||
DW _TURNONSPECIALMODE,?
|
||
DW _TURNONOFFROADMODE,?
|
||
DW _ANIMATION,_CLEAR
|
||
dw _scroll,go_for_some_text
|
||
dw _animation,_clear
|
||
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
|
||
DW _VAULTEND,?
|
||
dw _countdown,3,0,OR_total
|
||
AFTER_ORCDTS LABEL WORD
|
||
dw _animation,_clear
|
||
OffRoad_endingTS Label Word
|
||
DW _TURNOFFOFFROADMODE,?
|
||
DW _JACKEND,?
|
||
DW _JBCDZ,OR_TOTAL,no_orTS
|
||
assume ds:data
|
||
dw _rullgardin_upp,or_total_text,1
|
||
|
||
assume ds:data2
|
||
dw _wait,60 ;CPW!
|
||
|
||
dw _animation,_clear
|
||
DW _FLASHON,1
|
||
assume ds:data
|
||
DW _PRINT13_NUMBER,OR_total,SW*4/4+16*2/4 ;CP! RUTCENT
|
||
assume ds:data2
|
||
dw _wait,80 ;CPW!
|
||
DW _FLASHOFF,1
|
||
dw _animation,_clear
|
||
dw _TurnOffSpecialMode,?
|
||
dw 0
|
||
|
||
no_orTS DW _PRINT13,NO_or_TEXT,SW*4/4
|
||
ASSUME DS:DATA2
|
||
dw _wait,80 ;CPW!
|
||
CLEARIT
|
||
dw _TurnOffSpecialMode,?
|
||
DW 0
|
||
|
||
BACK_2_OFFROADTS LABEL WORD
|
||
CLEARIT
|
||
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
|
||
DW _COUNTDOWNCONTINUE,?,?,OR_TOTAL
|
||
DW _JMP,AFTER_ORCDTS
|
||
DW 0
|
||
|
||
BREAK_OR_MODETS LABEL WORD
|
||
DW _TURNOFFOFFROADMODE,?
|
||
CLEARIT
|
||
DW 0
|
||
|
||
go_for_some_text db 21 dup (' '),'ALL TARGETS SCORE 1000000 FOR 30 SECONDS',21 dup (' '),255
|
||
OR_total_Text db ' GHOST HUNTER TOTAL',0
|
||
ASSUME DS:DATA
|
||
no_or_text db ' NO BONUS',0
|
||
or_total db ?,?,?,?,?,?,?,?,?,?,?,?
|
||
|
||
;**********************************************************
|
||
|
||
TurboTS LABEL WORD
|
||
CLEARIT
|
||
DW _TurnONSpecialMode,?
|
||
DW _TURNONTURBOMODE,?
|
||
DW _RULLGARDIN_UPP,GO_FOR_NISSE_TEXT,-13
|
||
DW _RULLGARDIN_NED,GO_FOR_NISSE_TEXT,16
|
||
DW _RULLGARDIN_UPP,GO_FOR_NISSE_TEXT,-13
|
||
DW _RULLGARDIN_NED,GO_FOR_NISSE_TEXT,16
|
||
CLEARIT
|
||
DW _SCROLL,GRIMSCROLL
|
||
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
|
||
DW _VAULTEND,?
|
||
dw _countdown,5,0,tm_total ;(the final?) ;CP?
|
||
AFTER_TMCDTS LABEL WORD
|
||
DW _GRIMOFF,?
|
||
CLEARIT
|
||
TurboMode_endingTS Label Word
|
||
DW _TURNOFFTURBOMODE,?
|
||
DW _JACKEND,?
|
||
DW _JBCDZ,TM_TOTAL,no_tmTS
|
||
assume ds:data
|
||
dw _rullgardin_upp,tm_total_text,1
|
||
|
||
assume ds:data2
|
||
dw _wait,60 ;CPW!
|
||
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT13_NUMBER,tm_total,SW*4/4+16*2/4 ;CP! RUTCENT
|
||
dw _wait,80 ;CPW!
|
||
DW _FLASHOFF,1
|
||
CLEARIT
|
||
dw _TurnOffSpecialMode,?
|
||
dw 0
|
||
no_tmTS DW _PRINT13,NO_tm_TEXT,SW*4/4
|
||
dw _wait,80 ;CPW!
|
||
CLEARIT
|
||
dw _TurnOffSpecialMode,?
|
||
DW 0
|
||
|
||
BACK_2_TURBOTS LABEL WORD
|
||
CLEARIT
|
||
DW _PRINT13,ZEROQ,SW*(2+2)/4+16*13/4
|
||
DW _COUNTDOWNCONTINUE,?,?,TM_TOTAL
|
||
DW _JMP,AFTER_TMCDTS
|
||
DW 0
|
||
|
||
BREAK_TURBO_MODETS LABEL WORD
|
||
DW _TURNOFFTURBOMODE,?
|
||
CLEARIT
|
||
DW 0
|
||
|
||
go_for_nisse_text db ' GRIM REAPER',0
|
||
tm_total_Text db ' GRIM REAPER TOTAL ',0
|
||
ASSUME DS:DATA
|
||
no_tm_text db ' NO BONUS',0
|
||
tm_total db ?,?,?,?,?,?,?,?,?,?,?,?
|
||
MILES_TEXT DB ' XXX SCREAMS',0
|
||
|
||
Jump_At_TS label word
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT11,MILES_TEXT,SW*2*3/4
|
||
DW _WAIT,60
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW _FLASHON,9
|
||
dw _print11,jump_at_text,sw*2*3/4
|
||
DW _WAIT,120
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW 0
|
||
|
||
Jump_At2_TS label word
|
||
CLEARIT
|
||
DW _FLASHON,1
|
||
DW _PRINT11,MILES_TEXT,SW*2*3/4
|
||
DW _WAIT,60
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW _FLASHON,9
|
||
dw _print11,jump_at_text2,sw*2*3/4
|
||
DW _WAIT,120
|
||
CLEARIT
|
||
DW _FLASHOFF,?
|
||
DW 0
|
||
|
||
jump_at_text db 'XXX LITES EXTRA BALL',0
|
||
jump_at_text2 db 'XXX LITES ','7'+5,' MILLIONS',0
|
||
|
||
|
||
|
||
;*********************** NYA BALL LOST *******************
|
||
|
||
ASSUME DS:DATA
|
||
show_cyclones_text db ' SCREAMS X ',0
|
||
show_or_text db ' GHOST HUNT TOTAL ',0 ;CP!?
|
||
|
||
|
||
|
||
ball_lostTS LABEL WORD
|
||
CLEARIT
|
||
|
||
DW _PRINT13,GETTING_SICK_TEXT,SW*2/4*2
|
||
DW _LASTJINGLE,EMPTYJINGLE
|
||
DW _SETDECCOR,70 ;CPW!
|
||
DW _WAITJINGLE2,?
|
||
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 _Sound_Effect,s_MultiLjud,0
|
||
|
||
DW _JBONUSX1,NoBonusXTS
|
||
CLEARIT ;CP! CLEARIT ŽR ON™DIGT BRUTAL!
|
||
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 _Sound_Effect,s_MultiLjud,0
|
||
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-17*9/4
|
||
DW _PRINT5_number,HUNDRATUSEN,SW*1*2/4+14*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 _Sound_Effect,s_MultiLjud,0
|
||
CLEARIT
|
||
no_cyclonesTS LABEL WORD
|
||
|
||
;OFF ROAD!!!!!!
|
||
DW _JBCDZ,OR_TOTAL,no_happy_stewartTS
|
||
CLEARIT
|
||
DW _CALC_HAPPY ;CYCLONESCOREBCD & SIFFRORNA UPPDATERAS!
|
||
DW _PRINT5,show_or_TEXT,SW*1*2/4
|
||
DW _PRINT8_NUMBER_CENT,or_TOTAL,SW*2*7/4+TOTCENT
|
||
DW _WAIT,70 ;CPW!
|
||
dw _Sound_Effect,s_MultiLjud,0
|
||
CLEARIT
|
||
no_happy_stewartTS LABEL WORD
|
||
|
||
;TURBO MODE!!!!!!!
|
||
DW _JBCDZ,TM_TOTAL,no_MEGA_LAUGHTS
|
||
CLEARIT
|
||
DW _CALC_MEGA ;CYCLONESCOREBCD & SIFFRORNA UPPDATERAS!
|
||
DW _PRINT5,show_TURBO_TEXT,SW*1*2/4+4
|
||
DW _PRINT8_NUMBER_CENT,TM_TOTAL,SW*2*7/4+TOTCENT
|
||
DW _WAIT,70 ;CPW!
|
||
dw _Sound_Effect,s_MultiLjud,0
|
||
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 ;EXEKVERAS ENDAST VID XXBALLE
|
||
;UTF™R XBALLES VUNNA UNDER XXBALLEN
|
||
;OCH HOPPAR TILL CHECK_XXBALLE
|
||
;VID EJ XXBALLE: DUMRET
|
||
;VID XXBALLE: NŽSTA SPELARE ELLER AVSLUTA
|
||
dw _waitifmulti,2*60 ;cpgnu? (visa poeng lite lengre)
|
||
DW _MATRIXLGT,0
|
||
clearit
|
||
DW _CHANGE_PLAYER
|
||
CLEARIT
|
||
dw _wait,32000 ;BRŽCKS!
|
||
DW 0
|
||
SORRYNOBONUSTEXT DB ' SORRY ',94,' NO BONUS ',0
|
||
SHOW_TURBO_TEXT DB ' GRIM REAPER TOTAL',0
|
||
|
||
shoot_again_onTS LABEL BYTE ;Turn on shoot again . . .
|
||
CLEARIT
|
||
DW _WAITJINGLE,?
|
||
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 _SETDECCOR,60
|
||
DW _WAITJINGLE2,?
|
||
dw _flashoff,?
|
||
; dw _wait,1
|
||
|
||
check_xxballTS LABEL WORD
|
||
DW _check_Xxballs ;KOLLA SPELAREN N'S XXBALL.
|
||
;OM XXBALL: G™R NEWBALL
|
||
;OM EJ XXBALL: HOPPA TILL AFTER_XXBALLSTS
|
||
;KOMMER EJ HIT!
|
||
|
||
|
||
after_xxballsTS LABEL WORD
|
||
clearit
|
||
dw _check_high,?
|
||
DW _MATRIXLGT,0
|
||
DW _2_DEMO_MODE
|
||
dw _wait,30000
|
||
DW 0
|
||
|
||
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!
|
||
|
||
;********************** SLUT P<> BALL LOST *******************
|
||
ASSUME DS:DATA
|
||
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+4+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+3*4
|
||
dw _wait,90
|
||
DW _CLEAR3
|
||
DW _FLASHOFF,1
|
||
;SCROLLA
|
||
clearit
|
||
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
|
||
|
||
|
||
|
||
|
||
BonusHeldTS label word
|
||
clearit
|
||
DW _PRINT13,BonusHeld_Text,SW*2/4*2
|
||
DW _WAIT,30
|
||
clearit
|
||
dw 0
|
||
|
||
BonusHeld_text db ' B O N U S H E L D ',0
|
||
LIT_XBALL_TEXT DB ' GET THE EXTRA BALL ',0
|
||
|
||
|
||
tiltTS LABEL WORD
|
||
DW _TILTED,?
|
||
CLEARIT
|
||
DW _PRINT13,TILT_TEXT,sw*2/4*2+16*0/4
|
||
DW _WAIT,32767
|
||
DW _PRINT13,CPTEXT,sw*2/4*2+16*0/4
|
||
DW 0
|
||
|
||
TILT_TEXT DB ' TILT TILT TILT',0
|
||
CPTEXT DB 'EVER HEARD OF TILT?',0
|
||
last_text db ' ',0
|
||
flashlast db ' ',0
|
||
slutsiffra db '0',0
|
||
startext db '*',0
|
||
last_pos dw 0
|
||
|
||
;***********************************************************
|
||
|
||
GETTING_SICK_TEXT DB ' DOWN THE DRAIN',0
|
||
|
||
PARTY_ON_TEXT DB ' KUK-AMIGA! ',0 ;N„men Gabriel hur du skriver!!!
|
||
ZEROQ DB '0'+7,0
|
||
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
|
||
BONUS_X_TEXT DB 'BONUS*X*??',0
|
||
show_totalbonus_TEXT DB 'TOTAL*BONUS',0
|
||
|
||
|
||
fld_TEXT DB ' FRONTLINE DESIGN',0
|
||
|
||
PF_TEXT DB 'PINBALL FANTASIES',0
|
||
TRS_TEXT DB ' THE REAL SIMULATOR',0
|
||
PL_TEXT DB "STONES N BONES",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
|
||
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 ?X BONUS',0 ;11
|
||
PLAY_TEXT DB ' PLAYER 8 BALL 8 ',0 ;8,18
|
||
|
||
INFO_TEXT DB 21 DUP (' ')
|
||
db ''
|
||
DB 21 DUP (1),255
|
||
|
||
playerstext db 'PLAYER 8',0 ;8=1 (L™S EKVATIONEN!)
|
||
BALLSTEXT DB 'BALL*8***',0 ;8=1
|
||
|
||
hajjskar db 'HIGHSCORE PL X ',92,' ',93,0
|
||
stjaernor db '********************',0
|
||
|
||
|
||
|
||
BONUSX2TS LABEL WORD
|
||
CLEARIT
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_BONUSX2
|
||
CLEARIT
|
||
DW 0
|
||
|
||
|
||
BONUSX4TS LABEL WORD
|
||
CLEARIT
|
||
ASSUME DS:DATA2
|
||
DW _ANIMATION,_BONUSX4
|
||
CLEARIT
|
||
DW 0
|
||
|
||
|
||
DATA ENDS
|
||
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;*************************** Animations **************************************
|
||
;******************************************************************************
|
||
DATA2 SEGMENT PARA PUBLIC 'DATA'
|
||
|
||
dw 1
|
||
dw 4*4
|
||
_clear dw clear2,1
|
||
dw clear3,1
|
||
dw clear4,1
|
||
dw clear5,1
|
||
|
||
|
||
BONUSTIMEFIRST=25
|
||
BONUSTIME=3
|
||
BONUSTIMELAST=60
|
||
DW 1
|
||
DW 12*4
|
||
_BONUSX2 LABEL WORD
|
||
DW A_01_00,BONUSTIMEFIRST
|
||
DW A_01_01,BONUSTIME
|
||
DW A_01_02,BONUSTIME
|
||
DW A_01_03,BONUSTIME
|
||
DW A_01_04,BONUSTIME
|
||
DW A_01_05,BONUSTIME
|
||
DW A_01_06,BONUSTIME
|
||
DW A_01_07,BONUSTIME
|
||
DW A_01_08,BONUSTIME
|
||
DW A_01_09,BONUSTIME
|
||
DW A_01_10,BONUSTIME
|
||
DW A_01_11,BONUSTIMELAST
|
||
|
||
DW 1
|
||
DW 12*4
|
||
_BONUSX4 LABEL WORD
|
||
DW A_01_00,BONUSTIMEFIRST
|
||
DW A_02_00,BONUSTIME
|
||
DW A_02_01,BONUSTIME
|
||
DW A_02_02,BONUSTIME
|
||
DW A_02_03,BONUSTIME
|
||
DW A_02_04,BONUSTIME
|
||
DW A_02_05,BONUSTIME
|
||
DW A_02_06,BONUSTIME
|
||
DW A_02_07,BONUSTIME
|
||
DW A_02_08,BONUSTIME
|
||
DW A_02_09,BONUSTIME
|
||
DW A_02_10,BONUSTIMELAST
|
||
|
||
DW 1
|
||
DW 12*4
|
||
_BONUSX6 LABEL WORD
|
||
DW A_01_00,BONUSTIMEFIRST
|
||
DW A_03_00,BONUSTIME
|
||
DW A_03_01,BONUSTIME
|
||
DW A_03_02,BONUSTIME
|
||
DW A_03_03,BONUSTIME
|
||
DW A_03_04,BONUSTIME
|
||
DW A_03_05,BONUSTIME
|
||
DW A_03_06,BONUSTIME
|
||
DW A_03_07,BONUSTIME
|
||
DW A_03_08,BONUSTIME
|
||
DW A_03_09,BONUSTIME
|
||
DW A_03_10,BONUSTIMELAST
|
||
|
||
DW 1
|
||
DW 12*4
|
||
_BONUSX8 LABEL WORD
|
||
DW A_01_00,BONUSTIMEFIRST
|
||
DW A_04_00,BONUSTIME
|
||
DW A_04_01,BONUSTIME
|
||
DW A_04_02,BONUSTIME
|
||
DW A_04_03,BONUSTIME
|
||
DW A_04_04,BONUSTIME
|
||
DW A_04_05,BONUSTIME
|
||
DW A_04_06,BONUSTIME
|
||
DW A_04_07,BONUSTIME
|
||
DW A_04_08,BONUSTIME
|
||
DW A_04_09,BONUSTIME
|
||
DW A_04_10,BONUSTIMELAST
|
||
|
||
DW 1
|
||
DW 12*4
|
||
_BONUSX10 LABEL WORD
|
||
DW A_01_00,BONUSTIMEFIRST
|
||
DW A_05_00,BONUSTIME
|
||
DW A_05_01,BONUSTIME
|
||
DW A_05_02,BONUSTIME
|
||
DW A_05_03,BONUSTIME
|
||
DW A_05_04,BONUSTIME
|
||
DW A_05_05,BONUSTIME
|
||
DW A_05_06,BONUSTIME
|
||
DW A_05_07,BONUSTIME
|
||
DW A_05_08,BONUSTIME
|
||
DW A_05_09,BONUSTIME
|
||
DW A_05_10,BONUSTIMELAST
|
||
|
||
FRAMETIME=3
|
||
DW 0
|
||
DW 4 ;ANTAL FJANTIGA FUJUMPVARV!!!!!
|
||
DW 17*4-4
|
||
_JACKPOT LABEL WORD
|
||
DW A_06_00,FRAMETIME
|
||
DW A_06_01,FRAMETIME
|
||
DW A_06_02,FRAMETIME
|
||
DW A_06_03,FRAMETIME
|
||
DW A_06_04,FRAMETIME
|
||
DW A_06_05,FRAMETIME
|
||
DW A_06_06,FRAMETIME
|
||
DW A_06_07,FRAMETIME
|
||
DW A_06_08,FRAMETIME
|
||
DW A_06_09,FRAMETIME
|
||
DW A_06_10,FRAMETIME
|
||
DW A_06_11,FRAMETIME
|
||
DW A_06_12,FRAMETIME
|
||
DW A_06_13,FRAMETIME
|
||
DW A_06_14,FRAMETIME
|
||
DW A_06_15,FRAMETIME
|
||
DW A_06_16,FRAMETIME
|
||
|
||
|
||
|
||
FRAMETIME=3
|
||
DW 1
|
||
DW 8*4
|
||
_EXTRABALL LABEL WORD
|
||
DW A_07_00,FRAMETIME*9
|
||
DW A_07_01,FRAMETIME
|
||
DW A_07_02,FRAMETIME
|
||
DW A_07_03,FRAMETIME
|
||
DW A_07_04,FRAMETIME
|
||
DW A_07_05,FRAMETIME
|
||
DW A_07_06,FRAMETIME
|
||
DW A_07_07,FRAMETIME*17
|
||
|
||
FRAMETIME=1
|
||
DW 1
|
||
DW 16*4
|
||
_MILLION LABEL WORD
|
||
DW A_09_00,FRAMETIME
|
||
DW A_09_01,FRAMETIME
|
||
DW A_09_02,FRAMETIME
|
||
DW A_09_03,FRAMETIME
|
||
DW A_09_04,FRAMETIME
|
||
DW A_09_05,FRAMETIME
|
||
DW A_09_06,FRAMETIME
|
||
DW A_09_07,FRAMETIME
|
||
DW A_09_08,FRAMETIME
|
||
DW A_09_09,FRAMETIME
|
||
DW A_09_10,FRAMETIME
|
||
DW A_09_11,FRAMETIME
|
||
DW A_09_12,FRAMETIME
|
||
DW A_09_13,FRAMETIME
|
||
DW A_09_14,FRAMETIME
|
||
DW A_09_15,120
|
||
|
||
FRAMETIME=1
|
||
FRAMETIMELAST=30
|
||
DW 1
|
||
DW 8*4
|
||
_5 LABEL WORD
|
||
DW A_10_00,FRAMETIME
|
||
DW A_10_01,FRAMETIME
|
||
DW A_10_02,FRAMETIME
|
||
DW A_10_03,FRAMETIME
|
||
DW A_10_04,FRAMETIME
|
||
DW A_10_05,FRAMETIME
|
||
DW A_10_06,FRAMETIME
|
||
DW A_10_07,FRAMETIMELAST
|
||
|
||
FRAMETIME=1
|
||
DW 1
|
||
DW 8*4
|
||
_10 LABEL WORD
|
||
DW A_10200,FRAMETIME
|
||
DW A_10201,FRAMETIME
|
||
DW A_10202,FRAMETIME
|
||
DW A_10203,FRAMETIME
|
||
DW A_10204,FRAMETIME
|
||
DW A_10205,FRAMETIME
|
||
DW A_10206,FRAMETIME
|
||
DW A_10207,FRAMETIMELAST
|
||
|
||
DW 1
|
||
DW 8*4
|
||
_15 LABEL WORD
|
||
DW A_11_00,FRAMETIME
|
||
DW A_11_01,FRAMETIME
|
||
DW A_11_02,FRAMETIME
|
||
DW A_11_03,FRAMETIME
|
||
DW A_11_04,FRAMETIME
|
||
DW A_11_05,FRAMETIME
|
||
DW A_11_06,FRAMETIME
|
||
DW A_11_07,FRAMETIMELAST
|
||
|
||
DW 1
|
||
DW 8*4
|
||
_20 LABEL WORD
|
||
DW A_11200,FRAMETIME
|
||
DW A_11201,FRAMETIME
|
||
DW A_11202,FRAMETIME
|
||
DW A_11203,FRAMETIME
|
||
DW A_11204,FRAMETIME
|
||
DW A_11205,FRAMETIME
|
||
DW A_11206,FRAMETIME
|
||
DW A_11207,FRAMETIMELAST
|
||
|
||
|
||
extrn clear2,clear3,clear4,clear5:byte
|
||
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
|
||
extrn a_02_00,a_02_01,a_02_02,a_02_03,a_02_04,a_02_05,a_02_06 ,A_02_07 ,a_02_08 ,a_02_09 ,a_02_10
|
||
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 ,a_03_08 ,a_03_09 ,a_03_10
|
||
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 ,a_04_08 ,a_04_09 ,a_04_10
|
||
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 ,a_05_08 ,a_05_09 ,a_05_10
|
||
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 ,a_06_08 ,a_06_09 ,a_06_10 ,A_06_11 ,A_06_12 ,A_06_13 ,A_06_14 ,A_06_15,A_06_16
|
||
extrn a_07_00,a_07_01,a_07_02,a_07_03,a_07_04,a_07_05,a_07_06 ,A_07_07
|
||
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_10_00,a_10_01,a_10_02,a_10_03,a_10_04,a_10_05,a_10_06 ,A_10_07
|
||
extrn a_10200,a_10201,a_10202,a_10203,a_10204,a_10205,a_10206 ,A_10207
|
||
extrn a_11_00,a_11_01,a_11_02,a_11_03,a_11_04,a_11_05,a_11_06 ,A_11_07
|
||
extrn a_11200,a_11201,a_11202,a_11203,a_11204,a_11205,a_11206 ,A_11207
|
||
|
||
DATA2 ENDS
|
||
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;** **
|
||
;** C O D E **
|
||
;** **
|
||
;******************************************************************************
|
||
|
||
CODE SEGMENT PARA PUBLIC 'CODE'
|
||
ASSUME CS:CODE,DS:DATA
|
||
|
||
|
||
;******************************************************************************
|
||
;*********************************** INITS ************************************
|
||
;******************************************************************************
|
||
|
||
JUST_ONE_TIME_RESET_TABLE:
|
||
CALL SLACK_LIGHTS
|
||
RETN
|
||
|
||
|
||
WHEN_NEW_GAME_RESET_TABLE:
|
||
CALL SLACK_LIGHTS
|
||
CALL RESETFLASHLIST
|
||
MOVEBCD JACKVALUE,JACKINIT
|
||
CALL RESET_VARS
|
||
CALL UPDATE_P_STRUC_4_ALL_PLAYERS
|
||
MOV XBALLS,0
|
||
MOV XxballE,FALSE
|
||
MOV FROM_DEMO_MODE,TRUE
|
||
;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
|
||
|
||
WHEN_NEW_BALL_RESET_TABLE:
|
||
; CALL KILL_FLASHOR ;DOT MATRIX FLASH RESET
|
||
CALL SLACK_LIGHTS
|
||
CALL RESETFLASHLIST
|
||
CALL RESET_VARS
|
||
CALL P_STRUC_2_VARS
|
||
RETN
|
||
|
||
|
||
RESET_VARS:
|
||
MOV BONUS_TEXT[11],'8'
|
||
MOV play_TEXT[18],'8'
|
||
MOV play_TEXT[8],'8'
|
||
|
||
NIL AX
|
||
MOVE ES,DS
|
||
MOV DI,OFFSET SIFFRORNA
|
||
MOV CX,6
|
||
REP STOSW
|
||
MOV DI,OFFSET BONUSSIFFRORNA
|
||
MOV CX,6
|
||
REP STOSW
|
||
MOV DI,OFFSET CYCLONECOUNTERBCD
|
||
MOV CX,6
|
||
REP STOSW
|
||
MOVEBCD OR_TOTAL,BCD0
|
||
MOVEBCD TM_TOTAL,BCD0
|
||
|
||
NIL AL
|
||
MOV DI,OFFSET SB_DISABLE_AREA
|
||
MOV CX,11
|
||
REP STOSB
|
||
|
||
NIL AX
|
||
MOV DI,OFFSET SKILLSCOREBCD
|
||
MOV CX,6
|
||
REP STOSW
|
||
|
||
MOVEBCD SULP_SCORE,BCD0
|
||
|
||
MOV BALLHIGH,FALSE
|
||
MOV HOLDBONUSFLAG,FALSE
|
||
MOV KEY_DISABLED,FALSE
|
||
MOV SB_DISABLED,FALSE
|
||
MOV KEY_ROL_DISABLED,TRUE
|
||
MOV RIP_ROL_DISABLED,FALSE
|
||
MOV LEFT_RAMP_DOWN_COUNTER,0
|
||
MOV GHOSTCOUNTER,0
|
||
MOV GHOST_FLASHING,FALSE
|
||
MOV TOWER_OPEN,FALSE
|
||
|
||
PUT_GATE_POS_LOW GATE3
|
||
PUT_GATE_POS_LOW GATE5
|
||
|
||
CALL INIT_TOWER
|
||
CALL INIT_VAULT
|
||
CALL INIT_WELL
|
||
|
||
MOV NEXTJUMP,10
|
||
MOV CYCLONECOUNTER,0
|
||
MOV AX,SLUMP_COUNTERN
|
||
NIL AH
|
||
MOV BL,3
|
||
DIV BL
|
||
INC AH
|
||
MOV SKILLKEY,AH
|
||
LIGHTFLASH AH,SKILLSPEED
|
||
MOV KICK_BACK_FLASHING,FALSE
|
||
MOV MB_FLASHING,FALSE
|
||
MOV _2X_SCREAMS_FLASHING,FALSE
|
||
MOV SULP_FLASHING,FALSE
|
||
MOV LOCK1_FLASHING,FALSE
|
||
MOV LOCK2_FLASHING,FALSE
|
||
MOV SULPSYNCER,0
|
||
MOV TBMILLIONFLASHING,0
|
||
MOV TB5MFLASHING,0
|
||
MOV TBSYNCER,0
|
||
MOV XBALLFLASHING,FALSE
|
||
MOV JACKPOTFLASHING,FALSE
|
||
MOV SJACKPOTFLASHING,FALSE
|
||
MOV HOLDBONUSFLASHING,FALSE
|
||
MOV DOUBLEBONUSFLASHING,FALSE
|
||
MOV HOLDBONUSFLAG,FALSE
|
||
MOV BPOINTER,39 ;MULTIPEL BONUS POINTER
|
||
MOV HIGH_VAULT,FALSE ;NOT KICKBACK IN THE VAULT?
|
||
MOV TBNEXT,0
|
||
MOV TURBOMODE,FALSE
|
||
MOV OFFROADMODE,FALSE
|
||
MOV MBDOWNCOUNTER,0
|
||
MOV SULPDOWNCOUNTER,0
|
||
MOV COMBODOWNCOUNTER,0
|
||
MOV COMBOSTAGE,0
|
||
MOV TOWERHUNTMODE,FALSE
|
||
MOV TOWERHUNTSTAGE,0
|
||
MOV TOWERHUNTDOWNCOUNTER,0
|
||
MOV MULTIDEMONDOWNCOUNTER,0
|
||
MOV MULTIDEMONMODE,FALSE
|
||
MOV LOCKVAULTFLASHING,FALSE
|
||
MOV LOCKWELLFLASHING,FALSE
|
||
MOV HOLDMULTICOUNTER,FALSE
|
||
;HŽR VAR DEN! ; mov paRTYFLASh,false
|
||
MOV DEMONFLASHING,FALSE
|
||
MOV FIX_TELEPORT_BUG,FALSE ;OVERRIDE-VARIABEL!
|
||
MOV GHOST_INH_SB,FALSE
|
||
MOV BONUS_X,1
|
||
MOV IN_VAULT,FALSE ;TILT-BUG-FIX
|
||
MOV IN_WELL,FALSE ;TILT-BUG-FIX
|
||
MOV IN_TOWER,FALSE ;TILT-BUG-FIX
|
||
RETN
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
|
||
|
||
|
||
DEMO_MUSIC PROC NEAR
|
||
CMP HIGHSCORE,TRUE
|
||
; JE OOPS_HIGH ;CP!
|
||
PLAYJINGLE S_NOHIGH
|
||
MOV AL,S_NOHIGH[2]
|
||
MOV LASTPRIORITY,AL
|
||
MOV LASTJINGLE,9 ;9=NOHIGH ;SVEN
|
||
RETN
|
||
DEMO_MUSIC ENDP
|
||
|
||
GAME_MUSIC PROC NEAR
|
||
PLAYJINGLE S_SPRING1
|
||
MOV AL,S_SPRING1+2
|
||
MOV LASTPRIORITY,AL
|
||
MOV LASTJINGLE,0
|
||
RETN
|
||
GAME_MUSIC ENDP
|
||
|
||
;******************************************************************************
|
||
;******************************** LOOSE BALL **********************************
|
||
;******************************************************************************
|
||
LOOSE_BALL PROC NEAR
|
||
MOV LOOSING,TRUE
|
||
MOV SCREENFORCE2,576-SH_LO+SPLH ;CP?
|
||
CMP HI_RES,TRUE
|
||
JNE NOTHIRES16
|
||
MOV SCREENFORCE2,576-SH_HI+SPLH ;CP?
|
||
NOTHIRES16:
|
||
SETBALLPOS DROPX,DROPY,0,0,FALSE
|
||
MOV HOLDSTILL,TRUE
|
||
MOV ALLOWFLIP,FALSE ;KILL FLIPPERS!
|
||
|
||
ADDTASK SOUNDRINNER
|
||
|
||
MOV SPECIALMODE,FALSE
|
||
ENDFLASH 38 ;GRIM OFF! ;CP.
|
||
LIGHTOFF 38
|
||
|
||
MOV CURRENT_PRIORITY,0
|
||
EFFECT LOSTBALL
|
||
MOV LASTLOOPVAL,0
|
||
RETN
|
||
|
||
SOUNDRINNER:
|
||
WAITSYNCS 5
|
||
SOUNDEFFECT SRINNER,0
|
||
SUICIDE
|
||
|
||
_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
|
||
|
||
;******************************* ARNESSON
|
||
|
||
|
||
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 pos4J
|
||
|
||
mov ax,12+3+1
|
||
mul cx
|
||
mov cx,ax
|
||
|
||
std
|
||
rep movsb
|
||
|
||
pos4J: 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 feltecken_du ;ej tryckt!
|
||
mov scan_code,-1
|
||
mov bx,offset alfa_keys
|
||
xlat
|
||
cmp al,0
|
||
je feltecken_du ;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
|
||
feltecken_du:
|
||
pop es
|
||
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
|
||
MOV PLAYERSTEXT[7],0+'7'
|
||
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:
|
||
INC PLAYERSTEXT[7]
|
||
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
|
||
|
||
_TurnOffSpecialMode:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
mov specialmode,false
|
||
mov current_priority,0
|
||
jmp Normal_End
|
||
|
||
_TurnONSpecialMode:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV SPECIALMODE,TRUE
|
||
JMP NORMAL_END
|
||
|
||
_TURNONTURBOMODE:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV TURBOMODE,TRUE
|
||
JMP NORMAL_END
|
||
|
||
_TURNOFFTURBOMODE:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV TURBOMODE,FALSE
|
||
JMP NORMAL_END
|
||
|
||
_TURNONOFFROADMODE:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV OFFROADMODE,TRUE
|
||
JMP NORMAL_END
|
||
|
||
_TURNOFFOFFROADMODE:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV OFFROADMODE,FALSE
|
||
JMP NORMAL_END
|
||
|
||
|
||
_knacket:
|
||
mov dotrut,offset knackrut1
|
||
mov sisa,1
|
||
MOV PLAYER,1 ;F™R CHECK_XXBALL
|
||
jmp normal_end
|
||
|
||
|
||
|
||
knackrut1:
|
||
PLAYJINGLE_PENETRATE S_endfig
|
||
MOV LASTJINGLE,emptyjingle ;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
|
||
|
||
;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 † ti†
|
||
mov last_pos,dx
|
||
|
||
mov cs:knackptr,offset knacktab_LO
|
||
mov si,nof_banks_LO
|
||
CMP HI_RES,TRUE
|
||
JNE NOTHIRES38
|
||
mov cs:knackptr,offset knacktab_HI
|
||
mov si,nof_banks_HI
|
||
NOTHIRES38:
|
||
mov bx,cs:knackptr
|
||
move cs:knacktiden,[bx]
|
||
mov sisa,SI
|
||
|
||
retn
|
||
knackptr dw ?
|
||
knacktiden dw ?
|
||
alla_glada db ?
|
||
knackrut2:
|
||
|
||
push si
|
||
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
|
||
|
||
dec cs:knacktiden
|
||
jnz over_iii
|
||
mov bx,cs:knackptr
|
||
move cs:knacktiden,[bx]
|
||
add cs:knackptr,2
|
||
pop si
|
||
dec si
|
||
push si
|
||
DEC LAST_POS
|
||
CMP LAST_POS,-1
|
||
JNE OVER_III
|
||
MOV LAST_POS,9
|
||
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 )-:
|
||
|
||
;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
|
||
|
||
|
||
mov current_priority,0
|
||
PLAYJINGLE S_Knacket
|
||
MOV JINGLEJUMPCNT,1
|
||
mov current_priority,0
|
||
mov lastjingle,emptyjingle
|
||
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!
|
||
NIL AH
|
||
SUB AL,'7'
|
||
POP BX
|
||
|
||
|
||
CMP LAST_POS,AX
|
||
JE THIS_ONE ;HAN SKA F<> XXBALL!!! CP?
|
||
|
||
INC PLAYER ;INGEN XXBALL F™R HONOM!
|
||
MOV AL,PLAYER
|
||
CMP AL,PLAYERS
|
||
JNA TESTNEXTPL
|
||
|
||
MOV BX,OFFSET after_xxballsTS ;<3B>X<EFBFBD> AVSLUT
|
||
MOV NEXT_A,BX
|
||
JMP [BX]
|
||
|
||
THIS_ONE:
|
||
|
||
MOV AL,PLAYER
|
||
ADD AL,'7' ;SEPEKOMPENSERING
|
||
MOV PLAYERSTEXT[7],AL
|
||
|
||
MOV XXBALLE,TRUE
|
||
MOV BX,OFFSET shoOt_AGAIN_OnTS
|
||
MOV NEXT_A,BX
|
||
JMP [BX]
|
||
|
||
;*********************************
|
||
|
||
_KOLLA_XXBALL: ;VID EJ XXBALLE: DUMRET
|
||
;VID XXBALLE: NŽSTA SPELARE ELLER AVSLUTA
|
||
;(FIXAR EV XBALL)
|
||
CMP XXBALLE,FALSE
|
||
JE HU_
|
||
PUSH BX
|
||
CALL VARS_2_P_STRUC ;STORE TABLE AND SCORE!
|
||
POP BX
|
||
|
||
CMP XBALLS,0 ;LAUGH AGAIN?
|
||
JA LET_HIM_SHOOT_AGAIN ;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_XXBALLSTS ;END XXBALLE GAME
|
||
MOV NEXT_A,BX
|
||
JMP [BX]
|
||
|
||
PLAYER_CHANGED2:
|
||
MOV AL,PLAYER
|
||
ADD AL,'7' ;SEPEKOMPENSERING
|
||
MOV PLAYERSTEXT[7],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 XBALLS,0 ;LAUGH AGAIN?
|
||
JA 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
|
||
MOV play_TEXT[18],AL
|
||
|
||
PLAYER_CHANGED:
|
||
MOV AL,PLAYER
|
||
ADD AL,'7' ;SEPEKOMPENSERING
|
||
MOV PLAYERSTEXT[7],AL
|
||
MOV play_TEXT[8],AL
|
||
|
||
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_AGAIN: ;2 ING<4E>NGAR!
|
||
DEC XBALLS
|
||
MOV BX,OFFSET shoot_again_onTS
|
||
MOV NODOTCOUNT,0
|
||
UPDAT_SCORE
|
||
; MOV NEXT_A,BX ;CP?
|
||
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 NOTHIRES17
|
||
MOV SCREENFORCE,BANH-(SH_HI-SPLH)
|
||
NOTHIRES17:
|
||
MOV CARMEN,-1 ;KARMANN GHIA???
|
||
CALL SLACK_LIGHTS
|
||
MOV ADDPLAYERS,TRUE
|
||
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
|
||
|
||
MOV HOLDSTILL,TRUE
|
||
SETBALLPOS STARTX-5-15,STARTY-5,0,0,FALSE
|
||
MOV SCREENFORCE2,-1 ;500
|
||
|
||
CMP ADDPLAYERS,TRUE
|
||
JE NOSP
|
||
PLAYJINGLE S_SPRING
|
||
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
|
||
|
||
MOV ALLOWFLIP,TRUE
|
||
MOV TILTFLAG,FALSE
|
||
MOV TILTCOUNTER,0
|
||
MOV SCORECHANGED,FALSE
|
||
RETN
|
||
|
||
SOUNDNEWBALL:
|
||
WAITSYNCS 45
|
||
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
|
||
|
||
MOTA_BORT_INACTIVE_SLINGAN:
|
||
;OBS! AVINSTALLERA DENNA GENOM "MOV I_UTSKJUT,FALSE"
|
||
MOV NODOTCOUNT,0
|
||
CMP I_UTSKJUT,FALSE
|
||
JE TA_BORT_MEJ
|
||
RETN
|
||
TA_BORT_MEJ:
|
||
SUICIDE
|
||
|
||
|
||
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
|
||
|
||
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_SKILLSCOREBCD
|
||
MOV DI,OFFSET SKILLSCOREBCD
|
||
MOV CX,12/2
|
||
REP MOVSW
|
||
CALL DOLIGHTS
|
||
|
||
UPDATE_LIGHT 26,PLAYER_AREA[BX].P_STONE_S ;STONE
|
||
UPDATE_LIGHT 27,PLAYER_AREA[BX].P_STONE_T
|
||
UPDATE_LIGHT 28,PLAYER_AREA[BX].P_STONE_O
|
||
UPDATE_LIGHT 29,PLAYER_AREA[BX].P_STONE_N
|
||
UPDATE_LIGHT 30,PLAYER_AREA[BX].P_STONE_E
|
||
|
||
CALL DOLIGHTS
|
||
|
||
UPDATE_LIGHT 20,PLAYER_AREA[BX].P_BONE_B ;BONE
|
||
UPDATE_LIGHT 21,PLAYER_AREA[BX].P_BONE_O
|
||
UPDATE_LIGHT 22,PLAYER_AREA[BX].P_BONE_N
|
||
UPDATE_LIGHT 23,PLAYER_AREA[BX].P_BONE_E
|
||
UPDATE_LIGHT 4,PLAYER_AREA[BX].P_R_RIP ;RIP
|
||
UPDATE_LIGHT 5,PLAYER_AREA[BX].P_I_RIP
|
||
UPDATE_LIGHT 6,PLAYER_AREA[BX].P_P_RIP
|
||
|
||
CALL DOLIGHTS
|
||
|
||
MOV AL,PLAYER_AREA[BX].P_KICKBACKFLASHING ;KICKBACK
|
||
MOV KICK_BACK_FLASHING,AL
|
||
CMP AL,TRUE
|
||
JNE NOTTHEKICKBACK
|
||
PUSH BX
|
||
ENDFLASH 44
|
||
LIGHTFLASH 44,KICKSPEED
|
||
PUT_GATE_NEG_LOW GATE5
|
||
POP BX
|
||
NOTTHEKICKBACK:
|
||
|
||
MOVE NEXTJUMP,PLAYER_AREA[BX].P_NEXTJUMP
|
||
MOVE CYCLONECOUNTER,PLAYER_AREA[BX].P_CYCLONECOUNTER
|
||
MOVEBCD CYCLONECOUNTERBCD,PLAYER_AREA[BX].P_CYCLONECOUNTERBCD
|
||
|
||
MOV CL,PLAYER_AREA[BX].P_GHOSTCOUNTER
|
||
MOV GHOSTCOUNTER,CL
|
||
OR CL,CL
|
||
JZ NOGHOSTS
|
||
NIL CH
|
||
NEXTGHOST:
|
||
PUSH CX
|
||
PUSH BX
|
||
MOV BL,CL
|
||
DEC BL
|
||
MOV AL,SIZE GHOST_STRUC
|
||
MUL BL
|
||
MOV BX,AX
|
||
MOV AL,GHOSTAREA[BX].G_LIGHTNO
|
||
LIGHTON AL
|
||
POP BX
|
||
POP CX
|
||
LOOP NEXTGHOST
|
||
NOGHOSTS:
|
||
MOV AL,PLAYER_AREA[BX].P_GHOSTFLASHING
|
||
MOV GHOST_FLASHING,AL
|
||
CMP AL,TRUE
|
||
JNE NOTFLASHTHEGHOST
|
||
MOV BL,GHOSTCOUNTER
|
||
MOV AL,SIZE GHOST_STRUC
|
||
MUL BL
|
||
MOV BX,AX
|
||
ADD BX,OFFSET GHOSTAREA
|
||
MOV AL,[BX].G_LIGHTNO
|
||
LIGHTFLASH AL,GHOSTSPEED
|
||
ENDFLASH 16
|
||
LIGHTFLASH 16,TRIGHOSTSPEED
|
||
NOTFLASHTHEGHOST:
|
||
RETN
|
||
P_STRUC_2_VARS ENDP
|
||
|
||
|
||
VARS_2_P_STRUC PROC NEAR ;INPUT: PLAYER
|
||
;2 ENTRIES TO THIS RUT
|
||
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!
|
||
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_SKILLSCOREBCD
|
||
MOV SI,OFFSET SKILLSCOREBCD
|
||
MOV CX,12/2
|
||
REP MOVSW
|
||
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_STONE_S,26 ;STONE
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_STONE_T,27
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_STONE_O,28
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_STONE_N,29
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_STONE_E,30
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_BONE_B,20 ;BONE
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_BONE_O,21
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_BONE_N,22
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_BONE_E,23
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_R_RIP,4 ;RIP
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_I_RIP,5
|
||
UPDATE_PSTRUC PLAYER_AREA[BX].P_P_RIP,6
|
||
|
||
MOVE PLAYER_AREA[BX].P_NEXTJUMP,NEXTJUMP
|
||
MOVE PLAYER_AREA[BX].P_CYCLONECOUNTER,CYCLONECOUNTER
|
||
MOVEBCD PLAYER_AREA[BX].P_CYCLONECOUNTERBCD,CYCLONECOUNTERBCD
|
||
MOVAL PLAYER_AREA[BX].P_KICKBACKFLASHING,KICK_BACK_FLASHING
|
||
MOVAL PLAYER_AREA[BX].P_GHOSTCOUNTER,GHOSTCOUNTER
|
||
MOVAL PLAYER_AREA[BX].P_GHOSTFLASHING,GHOST_FLASHING
|
||
|
||
RETN
|
||
VARS_2_P_STRUC ENDP
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;******************************** TILT TILT TILT ******************************
|
||
;******************************************************************************
|
||
HE_TILTED PROC NEAR
|
||
MOV ALLOWFLIP,FALSE
|
||
PLAYJINGLE S_TILT
|
||
MOV LASTJINGLE,EMPTYJINGLE
|
||
MOV BX,OFFSET tiltTS
|
||
CALL DO_MATRIX
|
||
CALL RESETFLASHLIST
|
||
CALL SLACK_LIGHTS
|
||
RETN
|
||
HE_TILTED ENDP
|
||
|
||
HE_ALMOST_TILTED PROC NEAR
|
||
PLAYJINGLE S_DANGER
|
||
RETN
|
||
ENDP
|
||
|
||
;********************************* CHECK SHIFTKEYS ****************************
|
||
|
||
CHECK_SHIFTKEYS PROC NEAR
|
||
CMP SHIFTPRESSED,TRUE
|
||
JNE NO_SHIFT
|
||
MOV SHIFTPRESSED,FALSE
|
||
;****************************************
|
||
;* 3 light rol *
|
||
;****************************************
|
||
CMP KEY_ROL_DISABLED,TRUE
|
||
JE NO_KEY_ROL
|
||
START_LIGHT=1
|
||
SHIFT_LIGHT
|
||
NO_KEY_ROL:
|
||
CMP RIP_ROL_DISABLED,TRUE
|
||
JE NO_RIP_ROL
|
||
START_LIGHT=4
|
||
SHIFT_LIGHT
|
||
NO_RIP_ROL:
|
||
NO_SHIFT:
|
||
RETN
|
||
CHECK_SHIFTKEYS ENDP
|
||
|
||
;******************************************************************************
|
||
;***************************** BRICKOR & KNAPPAR ******************************
|
||
;******************************************************************************
|
||
|
||
SB_TOUCHERA MACRO LNO
|
||
LOCAL QXX,XXT,QXXT
|
||
CMP GHOST_INH_SB,TRUE
|
||
JE QXX
|
||
CMP SB_DISABLED,TRUE
|
||
JE QXX
|
||
CMP SB_DISABLE_AREA[LNO-20],TRUE
|
||
JE QXX
|
||
MOV SB_DISABLE_AREA[LNO-20],TRUE
|
||
CALL TOUCHSETA
|
||
MOV LIGHTSTATUS[LNO],TRUE
|
||
CALL CHECK_STONE_BONE
|
||
JC ALL_STONE_BONE
|
||
ADDTASK XXT
|
||
LIGHTFLASH LNO,SBSPEED
|
||
QXX: RETN
|
||
XXT: CMP SB_DISABLED,TRUE
|
||
JE QXXT
|
||
WAITSYNCS SBFASTTIME
|
||
ENDFLASH LNO
|
||
LIGHTON LNO
|
||
MOV SB_DISABLE_AREA[LNO-20],FALSE
|
||
SUICIDE
|
||
QXXT: ENDFLASH LNO
|
||
MOV SB_DISABLE_AREA[LNO-20],FALSE
|
||
SUICIDE
|
||
ENDM
|
||
|
||
SB_TOUCHERB MACRO LNO
|
||
LOCAL QXX,XXT,QXXT
|
||
CMP GHOST_INH_SB,TRUE
|
||
JE QXX
|
||
CMP SB_DISABLED,TRUE
|
||
JE QXX
|
||
CMP SB_DISABLE_AREA[LNO-20],TRUE
|
||
JE QXX
|
||
MOV SB_DISABLE_AREA[LNO-20],TRUE
|
||
CALL TOUCHSETB
|
||
MOV LIGHTSTATUS[LNO],TRUE
|
||
CALL CHECK_STONE_BONE
|
||
JC ALL_STONE_BONE
|
||
ADDTASK XXT
|
||
LIGHTFLASH LNO,SBSPEED
|
||
QXX: RETN
|
||
XXT: CMP SB_DISABLED,TRUE
|
||
JE QXXT
|
||
WAITSYNCS SBFASTTIME
|
||
ENDFLASH LNO
|
||
LIGHTON LNO
|
||
MOV SB_DISABLE_AREA[LNO-20],FALSE
|
||
SUICIDE
|
||
QXXT: ENDFLASH LNO
|
||
MOV SB_DISABLE_AREA[LNO-20],FALSE
|
||
SUICIDE
|
||
ENDM
|
||
|
||
TOUCH_B_BONE:
|
||
SB_TOUCHERA 20
|
||
TOUCH_O_BONE:
|
||
SB_TOUCHERA 21
|
||
TOUCH_N_BONE:
|
||
SB_TOUCHERA 22
|
||
TOUCH_E_BONE:
|
||
SB_TOUCHERA 23
|
||
|
||
TOUCH_S_STONE:
|
||
SB_TOUCHERB 26
|
||
TOUCH_T_STONE:
|
||
SB_TOUCHERB 27
|
||
TOUCH_O_STONE:
|
||
SB_TOUCHERB 28
|
||
TOUCH_N_STONE:
|
||
SB_TOUCHERB 29
|
||
TOUCH_E_STONE:
|
||
SB_TOUCHERB 30
|
||
|
||
TOUCHSETA:
|
||
CALL ADDOFFROAD
|
||
SOUNDEFFECT S_TOUCH2,0
|
||
ADDSCORE BCD27530
|
||
ADDBONUS BCD510
|
||
RETN
|
||
|
||
TOUCHSETB:
|
||
CALL ADDOFFROAD
|
||
SOUNDEFFECT S_TOUCH1,40
|
||
ADDSCORE BCD17520
|
||
ADDBONUS BCD750
|
||
RETN
|
||
|
||
ALL_STONE_BONE:
|
||
CALL JACKADD
|
||
MOV SB_DISABLED,TRUE
|
||
MOVE ES,DS
|
||
NIL AL
|
||
MOV DI,OFFSET SB_DISABLE_AREA
|
||
MOV CX,11
|
||
REP STOSB
|
||
ENDFLASH 20 ;B
|
||
ENDFLASH 21 ;O
|
||
ENDFLASH 22 ;N
|
||
ENDFLASH 23 ;E
|
||
ENDFLASH 26 ;S
|
||
ENDFLASH 27 ;T
|
||
ENDFLASH 28 ;O
|
||
ENDFLASH 29 ;N
|
||
ENDFLASH 30 ;E
|
||
CMP GHOST_FLASHING,TRUE
|
||
JE GANDALF_THE_GREY
|
||
MOV BL,GHOSTCOUNTER
|
||
MOV AL,SIZE GHOST_STRUC
|
||
MUL BL
|
||
MOV BX,AX
|
||
MOV AX,GHOSTAREA[BX].G_SBEFF
|
||
EFFECT AX
|
||
JMP GANDALF_THE_WHITE
|
||
GANDALF_THE_GREY:
|
||
EFFECT EVENT_LIT
|
||
GANDALF_THE_WHITE:
|
||
CALL DO_GHOST
|
||
ADDTASK ALL_STONE_BONE_2
|
||
RETN
|
||
|
||
ALL_STONE_BONE_2:
|
||
WAITSYNCS 2
|
||
LIGHTFLASH 20,SBSPEED2
|
||
LIGHTFLASH 21,SBSPEED2
|
||
LIGHTFLASH 22,SBSPEED2
|
||
LIGHTFLASH 23,SBSPEED2
|
||
LIGHTFLASH 26,SBSPEED2
|
||
LIGHTFLASH 27,SBSPEED2
|
||
LIGHTFLASH 28,SBSPEED2
|
||
LIGHTFLASH 29,SBSPEED2
|
||
LIGHTFLASH 30,SBSPEED2
|
||
ADDTASK ALL_STONE_BONE_3
|
||
SUICIDE
|
||
|
||
ALL_STONE_BONE_3:
|
||
WAITSYNCS SBFASTTIME2
|
||
ENDFLASH 20 ;B
|
||
ENDFLASH 21 ;O
|
||
ENDFLASH 22 ;N
|
||
ENDFLASH 23 ;E
|
||
ENDFLASH 26 ;S
|
||
ENDFLASH 27 ;T
|
||
ENDFLASH 28 ;O
|
||
ENDFLASH 29 ;N
|
||
ENDFLASH 30 ;E
|
||
LIGHTOFF 20 ;B
|
||
LIGHTOFF 21 ;O
|
||
LIGHTOFF 22 ;N
|
||
LIGHTOFF 23 ;E
|
||
LIGHTOFF 26 ;S
|
||
LIGHTOFF 27 ;T
|
||
LIGHTOFF 28 ;O
|
||
LIGHTOFF 29 ;N
|
||
LIGHTOFF 30 ;E
|
||
MOV SB_DISABLED,FALSE
|
||
SUICIDE
|
||
|
||
CHECK_STONE_BONE: ;-C- IF ALL STONE BONE
|
||
CMP LIGHTSTATUS[20],TRUE ;B
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[21],TRUE ;O
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[22],TRUE ;N
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[23],TRUE ;E
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[26],TRUE ;S
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[27],TRUE ;T
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[28],TRUE ;O
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[29],TRUE ;N
|
||
JNE NCST
|
||
CMP LIGHTSTATUS[30],TRUE ;E
|
||
JNE NCST
|
||
STC
|
||
RETN
|
||
NCST: CLC
|
||
RETN
|
||
|
||
|
||
DO_GHOST PROC NEAR ;ENABLE GHOST IF NOT ENABLED
|
||
CMP GHOST_FLASHING,TRUE
|
||
JE QDG
|
||
MOV GHOST_FLASHING,TRUE
|
||
MOV BL,GHOSTCOUNTER
|
||
MOV AL,SIZE GHOST_STRUC
|
||
MUL BL
|
||
MOV BX,AX
|
||
MOV DL,GHOSTAREA[BX].G_LIGHTNO
|
||
LIGHTFLASH DL,GHOSTSPEED
|
||
LIGHTFLASH 16,TRIGHOSTSPEED
|
||
QDG: RETN
|
||
DO_GHOST ENDP
|
||
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;********************************** LOWER *************************************
|
||
;******************************************************************************
|
||
|
||
PARTYOFFAREA: ;REAL GAME ON
|
||
MOV BX,OFFSET PARTY_OFFTS
|
||
CALL DO_MATRIX
|
||
MOV BALLHIGH,FALSE
|
||
MOV PARTYFLASH,FALSE
|
||
MOV ADDPLAYERS,FALSE
|
||
MOV CURRENT_PRIORITY,0
|
||
PLAYJINGLE S_MAIN
|
||
MOV LASTJINGLE,1
|
||
MOV I_UTSKJUT,FALSE ;TILL<4C>TER INACTIVE-SLINGAN (DOTMATRIX)
|
||
RETN
|
||
|
||
;*********************************** GAME ON **********************************
|
||
CLOSE1: ;GAME ON
|
||
CALL CLOSEBUMPERS
|
||
MOV HOLDMULTICOUNTER,FALSE
|
||
MOV SI,OFFSET BCD10000
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
MOV SI,OFFSET BCD1000
|
||
MOV DI,OFFSET BONUSSIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
RETN
|
||
|
||
|
||
;***************************** BYGEL15 *******************************
|
||
BYGEL15: ;IN TO TOWER
|
||
RETN
|
||
|
||
|
||
;***************************** BYGEL16 *******************************
|
||
BYGEL16: ;UPP TILL BUMPEROMR<4D>DET
|
||
PUT_GATE_NEG_LOW GATE2
|
||
CALL ADDTURBO ;CP! EGENTLIGEN SKALL DENNA LIGGA I BUMPEROMR.
|
||
RETN
|
||
|
||
OPENBUMPERS:
|
||
PUT_GATE_NEG_LOW GATE2
|
||
RETN
|
||
|
||
CLOSEBUMPERS: ;F<>R EJ CALLAS P<> MANUELLT!!!
|
||
PUT_GATE_POS_LOW GATE2
|
||
CMP SULP_FLASHING,TRUE
|
||
JNE NOTSFL
|
||
MOV SI,OFFSET BCD1000000
|
||
MOV DI,OFFSET SULP_SCORE
|
||
CALL ADDSCOREBCD
|
||
MOV SI,OFFSET SULP_SCORE
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
EFFECT MILLIONPLUS
|
||
ENDFLASH 19
|
||
LIGHTOFF 19
|
||
MOV SULP_FLASHING,FALSE
|
||
NOTSFL:
|
||
RETN
|
||
|
||
|
||
;***************************** Bygel5 *******************************
|
||
Bygel5: ;K
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB5
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10060
|
||
ADDBONUS BCD1010
|
||
MOV LIGHTSTATUS[1],TRUE
|
||
CMP SKILLKEY,1
|
||
JNE NOT_SKILL_K
|
||
ENDFLASH 1
|
||
MOV SI,OFFSET BCD1000000
|
||
MOV DI,OFFSET SKILLSCOREBCD
|
||
CALL ADDSCOREBCD
|
||
MOV SI,OFFSET SKILLSCOREBCD
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
EFFECT SKILLSHOT
|
||
CALL VAULTADD
|
||
CALL TOWERADD
|
||
CALL JACKADD
|
||
CALL WELLADD
|
||
NOT_SKILL_K:
|
||
CMP SKILLKEY,0
|
||
JZ K_NO_SKILL
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
ENDFLASH 2
|
||
ENDFLASH 3
|
||
LIGHTOFF 2
|
||
LIGHTOFF 3
|
||
K_NO_SKILL:
|
||
MOV SKILLKEY,0
|
||
CALL CHECK_KEY
|
||
JC ALL_KEY
|
||
ADDTASK BYGEL5T
|
||
LIGHTFLASH 1,SBSPEED
|
||
MOV KEY_ROL_DISABLED,TRUE
|
||
QB5: RETN
|
||
|
||
BYGEL5T:
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB5T
|
||
WAITSYNCS SBFASTTIME
|
||
ENDFLASH 1 ;K
|
||
LIGHTON 1
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
QB5T: SUICIDE
|
||
|
||
|
||
;***************************** Bygel6 *******************************
|
||
Bygel6: ;E
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB6
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10060
|
||
ADDBONUS BCD1010
|
||
MOV LIGHTSTATUS[2],TRUE
|
||
CMP SKILLKEY,2
|
||
JNE NOT_SKILL_E
|
||
ENDFLASH 2
|
||
MOV SI,OFFSET BCD1000000
|
||
MOV DI,OFFSET SKILLSCOREBCD
|
||
CALL ADDSCOREBCD
|
||
MOV SI,OFFSET SKILLSCOREBCD
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
EFFECT SKILLSHOT
|
||
CALL VAULTADD
|
||
CALL TOWERADD
|
||
CALL JACKADD
|
||
CALL WELLADD
|
||
NOT_SKILL_E:
|
||
CMP SKILLKEY,0
|
||
JZ E_NO_SKILL
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
ENDFLASH 1
|
||
ENDFLASH 3
|
||
LIGHTOFF 1
|
||
LIGHTOFF 3
|
||
E_NO_SKILL:
|
||
MOV SKILLKEY,0
|
||
CALL CHECK_KEY
|
||
JC ALL_KEY
|
||
ADDTASK BYGEL6T
|
||
MOV KEY_ROL_DISABLED,TRUE
|
||
LIGHTFLASH 2,SBSPEED
|
||
QB6: RETN
|
||
|
||
BYGEL6T:
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB6T
|
||
WAITSYNCS SBFASTTIME
|
||
ENDFLASH 2 ;E
|
||
LIGHTON 2
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
QB6T: SUICIDE
|
||
|
||
|
||
;***************************** Bygel7 *******************************
|
||
Bygel7: ;Y
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB7
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10060
|
||
ADDBONUS BCD1010
|
||
MOV LIGHTSTATUS[3],TRUE
|
||
CMP SKILLKEY,3
|
||
JNE NOT_SKILL_Y
|
||
ENDFLASH 3
|
||
MOV SI,OFFSET BCD1000000
|
||
MOV DI,OFFSET SKILLSCOREBCD
|
||
CALL ADDSCOREBCD
|
||
MOV SI,OFFSET SKILLSCOREBCD
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
EFFECT SKILLSHOT
|
||
CALL VAULTADD
|
||
CALL TOWERADD
|
||
CALL JACKADD
|
||
CALL WELLADD
|
||
NOT_SKILL_Y:
|
||
CMP SKILLKEY,0
|
||
JZ Y_NO_SKILL
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
ENDFLASH 1
|
||
ENDFLASH 2
|
||
LIGHTOFF 1
|
||
LIGHTOFF 2
|
||
Y_NO_SKILL:
|
||
MOV SKILLKEY,0
|
||
CALL CHECK_KEY
|
||
JC ALL_KEY
|
||
ADDTASK BYGEL7T
|
||
LIGHTFLASH 3,SBSPEED
|
||
MOV KEY_ROL_DISABLED,TRUE
|
||
QB7: RETN
|
||
|
||
BYGEL7T:
|
||
CMP KEY_DISABLED,TRUE
|
||
JE QB7T
|
||
WAITSYNCS SBFASTTIME
|
||
ENDFLASH 3 ;Y
|
||
LIGHTON 3
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
QB7T: SUICIDE
|
||
|
||
|
||
ALL_KEY:
|
||
CALL VAULTADD
|
||
CALL JACKADD
|
||
MOV KEY_DISABLED,TRUE
|
||
MOV KEY_ROL_DISABLED,TRUE
|
||
MOV SKILLKEY,0
|
||
ENDFLASH 1 ;K
|
||
ENDFLASH 2 ;E
|
||
ENDFLASH 3 ;Y
|
||
LIGHTFLASH 1,SBSPEED2
|
||
LIGHTFLASH 2,SBSPEED2
|
||
LIGHTFLASH 3,SBSPEED2
|
||
CMP TBNEXT,0
|
||
JNE NOTTB1
|
||
CMP TBMILLIONFLASHING,TRUE
|
||
JE KEFFREADY
|
||
SYNCEDFLASH 11,TBSPEED,TBSYNCER
|
||
MOV TBMILLIONFLASHING,TRUE
|
||
JMP KEFFREADY
|
||
NOTTB1:
|
||
CMP TBNEXT,1
|
||
JE TB5
|
||
CMP TBNEXT,4
|
||
JB NOTTB5
|
||
TB5: CMP TB5MFLASHING,TRUE
|
||
JE KEFFREADY
|
||
SYNCEDFLASH 12,TBSPEED,TBSYNCER
|
||
MOV TB5MFLASHING,TRUE
|
||
JMP KEFFREADY
|
||
NOTTB5:
|
||
CMP TBNEXT,2
|
||
JNE NOTTBDB
|
||
CMP DOUBLEBONUSFLASHING,TRUE
|
||
JE KEFFREADY
|
||
SYNCEDFLASH 14,TBSPEED,TBSYNCER
|
||
MOV DOUBLEBONUSFLASHING,TRUE
|
||
JMP KEFFREADY
|
||
NOTTBDB:
|
||
CMP TBNEXT,3
|
||
JNE NOTTBHB
|
||
CMP HOLDBONUSFLASHING,TRUE
|
||
JE KEFFREADY
|
||
SYNCEDFLASH 13,TBSPEED,TBSYNCER
|
||
MOV HOLDBONUSFLASHING,TRUE
|
||
JMP KEFFREADY
|
||
NOTTBHB:
|
||
KEFFREADY:
|
||
INC TBNEXT
|
||
ADDTASK ALL_KEY_2
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TOWER_ALREADY_OPEN
|
||
EFFECT OPENTOWER
|
||
MOV TOWER_OPEN,TRUE
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
TOWER_ALREADY_OPEN:
|
||
PUT_GATE_NEG_LOW GATE3
|
||
RETN
|
||
|
||
ALL_KEY_2:
|
||
WAITSYNCS SBFASTTIME2
|
||
ENDFLASH 1
|
||
ENDFLASH 2
|
||
ENDFLASH 3
|
||
LIGHTOFF 1
|
||
LIGHTOFF 2
|
||
LIGHTOFF 3
|
||
MOV KEY_DISABLED,FALSE
|
||
MOV KEY_ROL_DISABLED,FALSE
|
||
SUICIDE
|
||
|
||
|
||
CHECK_KEY: ;-C- IF ALL KEY
|
||
CMP LIGHTSTATUS[1],TRUE ;K
|
||
JNE NCK
|
||
CMP LIGHTSTATUS[2],TRUE ;E
|
||
JNE NCK
|
||
CMP LIGHTSTATUS[3],TRUE ;Y
|
||
JNE NCK
|
||
STC
|
||
RETN
|
||
NCK: CLC
|
||
RETN
|
||
|
||
|
||
;***************************** THE TOWER *******************************
|
||
|
||
GropA: ;TOWER SUG-H<>L
|
||
SETBALLPOS TOWERX,TOWERY,0,0,TRUE
|
||
MOV HOLDSTILL,TRUE
|
||
MOV IN_TOWER,TRUE
|
||
CALL ADDTURBO
|
||
CALL JACKADD
|
||
MOV INHIBIT_COUNT_DOWN,TRUE
|
||
|
||
MOV WAS_SPECIAL,FALSE
|
||
CMP SPECIALMODE,TRUE
|
||
JNE JAJA_DE_E_LUNGT
|
||
MOV WAS_SPECIAL,TRUE
|
||
MOVAL TURBOBACKUP,TURBOMODE
|
||
JAJA_DE_E_LUNGT:
|
||
|
||
MOV AL,TOWERHUNTMODE
|
||
MOV TOWERHUNTMODEORIG,AL
|
||
PUT_GATE_POS_LOW GATE3 ;CLOSE TO THE TOWER
|
||
PUT_GATE_NEG_LOW GATE2 ;OPEN TO THE BUMPERS
|
||
MOV TOWER_OPEN,FALSE
|
||
ENDFLASH 7
|
||
LIGHTOFF 7
|
||
MOV REMAL,0
|
||
|
||
CMP TOWERHUNTMODE,TRUE ;TOWER HUNT?
|
||
JNE NOTTHMODE
|
||
CMP TOWERHUNTSTAGE,1 ;TOWER HUNT 1?
|
||
JNE NOTSTAGE1
|
||
EFFECT TOWERHUNT1
|
||
CMP LASTJINGLE,50
|
||
JE ITS50A
|
||
INC LASTJINGLE
|
||
ITS50A: ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
MOV TOWERHUNTSTAGE,2
|
||
PUT_GATE_NEG_LOW GATE3
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TOWAO
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAO: JMP THSTAGEDONE
|
||
NOTSTAGE1:
|
||
CMP TOWERHUNTSTAGE,2 ;TOWER HUNT 2?
|
||
JNE NOTSTAGE2
|
||
EFFECT TOWERHUNT2
|
||
CMP LASTJINGLE,50
|
||
JE ITS50B
|
||
INC LASTJINGLE
|
||
ITS50B: ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
MOV TOWERHUNTSTAGE,3
|
||
PUT_GATE_NEG_LOW GATE3
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TOWAO2
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAO2: JMP THSTAGEDONE
|
||
NOTSTAGE2:
|
||
CMP TOWERHUNTSTAGE,3 ;TOWER HUNT 3?
|
||
JNE NOTSTAGE3
|
||
EFFECT TOWERHUNT3
|
||
CMP LASTJINGLE,50
|
||
JE ITS50C
|
||
INC LASTJINGLE
|
||
ITS50C: ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
MOV TOWERHUNTSTAGE,0
|
||
PUT_GATE_NEG_LOW GATE3
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TOWAO3
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAO3:
|
||
NOTSTAGE3:
|
||
THSTAGEDONE:
|
||
NOTTHMODE:
|
||
|
||
CMP SJACKPOTFLASHING,TRUE ;SUPER JACK?
|
||
JNE NOT_T_SJ
|
||
MOV SJACKPOTFLASHING,FALSE
|
||
ENDFLASH 10
|
||
LIGHTOFF 10
|
||
EFFECTBRACK SUPERJACK
|
||
ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_SJ:
|
||
|
||
CMP JACKPOTFLASHING,TRUE ;JACKPOT?
|
||
JNE NOT_T_J
|
||
MOV JACKPOTFLASHING,FALSE
|
||
ENDFLASH 9
|
||
LIGHTOFF 9
|
||
EFFECTBRACK JACKPOT
|
||
ADD REMAL,AL
|
||
MOV SI,OFFSET JACKVALUE
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
MOVEBCD JACKVALUE,JACKINIT
|
||
SYNCEDFLASH 10,TBSPEED,TBSYNCER
|
||
MOV SJACKPOTFLASHING,TRUE
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TALRO
|
||
MOV TOWER_OPEN,TRUE
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
TALRO: PUT_GATE_NEG_LOW GATE3
|
||
ADDTASK SJOFF
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_J:
|
||
|
||
CMP XBALLFLASHING,TRUE ;EXTRA BALL?
|
||
JNE NOT_T_XB
|
||
MOV XBALLFLASHING,FALSE
|
||
ENDFLASH 8
|
||
LIGHTOFF 8
|
||
EFFECT EXTRABALL
|
||
ADD REMAL,AL
|
||
INC XBALLS
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_XB:
|
||
|
||
CMP DOUBLEBONUSFLASHING,TRUE ;DOUBLE BONUS?
|
||
JNE NOT_T_DB
|
||
MOV DOUBLEBONUSFLASHING,FALSE
|
||
ENDFLASH 14
|
||
LIGHTOFF 14
|
||
EFFECT DOUBLEBONUS
|
||
ADD REMAL,AL
|
||
MOV SI,OFFSET BONUSSIFFRORNA
|
||
MOV DI,OFFSET BONUSSIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_DB:
|
||
|
||
CMP HOLDBONUSFLASHING,TRUE ;HOLD BONUS?
|
||
JNE NOT_T_HB
|
||
MOV HOLDBONUSFLASHING,FALSE
|
||
ENDFLASH 13
|
||
LIGHTOFF 13
|
||
EFFECT HOLDBONUS
|
||
ADD REMAL,AL
|
||
MOV HOLDBONUSFLAG,TRUE
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_HB:
|
||
|
||
CMP TB5MFLASHING,TRUE ;5 MILLIONS?
|
||
JNE NOT_T_5M
|
||
MOV TB5MFLASHING,FALSE
|
||
ENDFLASH 12
|
||
LIGHTOFF 12
|
||
EFFECT TMILLION5
|
||
ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
NOT_T_5M:
|
||
|
||
CMP TBMILLIONFLASHING,TRUE ;MILLION ?
|
||
JNE NOT_T_MILLION
|
||
MOV TBMILLIONFLASHING,FALSE
|
||
ENDFLASH 11
|
||
LIGHTOFF 11
|
||
EFFECT TMILLION
|
||
ADD REMAL,AL
|
||
MOV INH_EFF,TRUE
|
||
jmp notthmode2 ;ska de va s† h„r? (annars f†r man
|
||
; b†de million och tower bonus (2M))
|
||
NOT_T_MILLION:
|
||
|
||
EFFECT SCORETOWER ;TOWER BONUS ONLY!
|
||
ADD REMAL,AL
|
||
MOV SI,OFFSET TOWERVALUE
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
MOVEBCD TOWERVALUE,TOWERSTART
|
||
CMP TOWERHUNTMODE,TRUE ;TOWER HUNT?
|
||
JNE NOTTHMODE2
|
||
PUT_GATE_NEG_LOW GATE3
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
NOTTHMODE2:
|
||
|
||
CMP REMAL,0
|
||
JNE ANEFFISDONE
|
||
ADDTASK TOWERENDT
|
||
ANEFFISDONE:
|
||
MOV INH_EFF,FALSE
|
||
RETN
|
||
|
||
_JACKEND:
|
||
PUSH BX
|
||
ENDFLASH 9
|
||
LIGHTOFF 9
|
||
MOV JACKPOTFLASHING,FALSE
|
||
ENDFLASH 10
|
||
LIGHTOFF 10
|
||
MOV SJACKPOTFLASHING,FALSE
|
||
CMP TOWERHUNTMODEORIG,TRUE
|
||
JE DONTCLOSETOWER
|
||
CALL UPDATE_TOWER_GATE
|
||
JC SOMETHINGFLASHING
|
||
MOV TOWER_OPEN,FALSE
|
||
PUT_GATE_POS_LOW GATE3 ;CLOSE TO THE TOWER
|
||
ENDFLASH 7
|
||
LIGHTOFF 7
|
||
DONTCLOSETOWER:
|
||
SOMETHINGFLASHING:
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
SJOFF: WAITSYNCS SUPERJACK_TIME
|
||
CMP SJACKPOTFLASHING,FALSE
|
||
JE SJANF
|
||
ENDFLASH 10
|
||
LIGHTOFF 10
|
||
MOV SJACKPOTFLASHING,FALSE
|
||
PUT_GATE_NEG_LOW GATE3
|
||
CALL UPDATE_TOWER_GATE
|
||
SJANF: SUICIDE
|
||
|
||
UPDATE_TOWER_GATE: ;CLOSE TOWER IF NO TB OPTION
|
||
;RET -C- IF SOMETHING IS FLASHING
|
||
CMP XBALLFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP SJACKPOTFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP JACKPOTFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP HOLDBONUSFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP DOUBLEBONUSFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP TB5MFLASHING,TRUE
|
||
JE TGOPEN
|
||
CMP TBMILLIONFLASHING,TRUE
|
||
JE TGOPEN
|
||
MOV TOWER_OPEN,FALSE
|
||
PUT_GATE_POS_LOW GATE3
|
||
ENDFLASH 7
|
||
LIGHTOFF 7
|
||
CLC
|
||
RETN
|
||
TGOPEN: STC
|
||
RETN
|
||
|
||
GROPA_T:
|
||
SETBALLPOS TOWERX,TOWERY,0,0,TRUE
|
||
MOV HOLDSTILL,TRUE
|
||
ADDTASK TOWERENDT
|
||
RETN
|
||
|
||
_TOWEREND:
|
||
PUSH BX
|
||
ADDTASK TOWERENDT
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
TOWERENDT: ;<3B>TERSTŽLLAREN (ALLTS<54> INTE DEN <20>TERSTŽLLAREN!)
|
||
WAITSYNCS 10
|
||
MOV INHIBIT_COUNT_DOWN,FALSE
|
||
CMP WAS_SPECIAL,TRUE
|
||
JNE INGA_KONSTIGHETER
|
||
MOV BX,OFFSET BACK_2_TURBOTS
|
||
CMP TURBOBACKUP,TRUE
|
||
JE TURBO_IT_WAS
|
||
MOV BX,OFFSET BACK_2_OFFROADTS
|
||
MOV OFFROADMODE,TRUE
|
||
JMP READY_2_CALL
|
||
TURBO_IT_WAS:
|
||
MOV TURBOMODE,TRUE
|
||
READY_2_CALL:
|
||
CALL DO_MATRIX
|
||
INGA_KONSTIGHETER:
|
||
CALL SHOOT_AWAY
|
||
SUICIDE
|
||
|
||
SHOOT_AWAY:
|
||
SOUNDEFFECT SGROP,0
|
||
MOV HOLDSTILL,FALSE
|
||
SETBALLPOS TOWERX,TOWERY,TOWERXS,TOWERYS,TRUE
|
||
MOV IN_TOWER,FALSE
|
||
RETN
|
||
|
||
TOWERENDT_TILT: ;EN LITEN KNUT.
|
||
CALL SHOOT_AWAY
|
||
SUICIDE
|
||
|
||
;***************************** THE WELL *******************************
|
||
GropB: ;THE WELL
|
||
CMP LIGHTSTATUS[25],TRUE ;LOCKED BALL?
|
||
JNE NOBALLINTHEWELL
|
||
MOV HOLDSTILL,TRUE
|
||
ADDTASK WELLENDT
|
||
RETN ;RETN
|
||
NOBALLINTHEWELL:
|
||
|
||
MOV HOLDSTILL,TRUE ;SCORE STANDARD SCORES!
|
||
SETBALLPOS WELLX,WELLY,0,0,FALSE
|
||
MOV IN_WELL,TRUE
|
||
CALL ADDTURBO
|
||
CALL JACKADD
|
||
MOV REMAL,0
|
||
MOV SI,OFFSET WELLVALUE
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
|
||
CMP LOCKWELLFLASHING,TRUE ;LOCK ENABLED?
|
||
JNE NOTWLOCKFLASHING
|
||
MOV HOLDMULTICOUNTER,TRUE
|
||
MOV CURRENT_PRIORITY,0
|
||
EFFECT SHOOTTHEBALL
|
||
MOV INH_EFF,TRUE
|
||
ADD REMAL,AL
|
||
SETBALLPOS STARTX,STARTY,10,0,FALSE
|
||
MOV HOLDSTILL,FALSE
|
||
MOV INH_EFF,TRUE
|
||
MOV PARTYFLASH,TRUE
|
||
MOV LASTJINGLE,0 ;0=UTSKJUT
|
||
MOV LOCKWELLFLASHING,FALSE
|
||
ENDFLASH 25 ;LOCK (THE WELL)
|
||
LIGHTON 25
|
||
NOTWLOCKFLASHING:
|
||
|
||
EFFECT SCOREWELL
|
||
ADD REMAL,AL
|
||
|
||
CMP MB_FLASHING,FALSE
|
||
JE NOMB
|
||
MOV MB_FLASHING,FALSE
|
||
ENDFLASH 24
|
||
LIGHTOFF 24
|
||
CMP BPOINTER,43
|
||
JA NOMB
|
||
CMP BONUS_X,1
|
||
JNE NOTBONX1
|
||
INC BONUS_X
|
||
JMP SHORT BONUSXOK
|
||
NOTBONX1:
|
||
ADD BONUS_X,2
|
||
BONUSXOK:
|
||
LIGHTON BPOINTER
|
||
MOV BL,BPOINTER
|
||
SUB BL,39
|
||
MOV AL,SIZE EFFECT_STRUC
|
||
MUL BL
|
||
ADD AX,OFFSET M2
|
||
EFFECT AX
|
||
ADD REMAL,AL
|
||
INC BPOINTER
|
||
NOMB:
|
||
CMP REMAL,0
|
||
JNZ ALL_IS_WELL_WITH_WELL
|
||
ADDTASK WELLENDT
|
||
ALL_IS_WELL_WITH_WELL: ;HMM... MAYBE NOT!
|
||
MOV INH_EFF,FALSE
|
||
MOV AL,BONUS_X
|
||
ADD AL,'7'
|
||
MOV BONUS_TEXT[11],AL
|
||
RETN
|
||
|
||
_WELLEND:
|
||
PUSH BX
|
||
ADDTASK WELLENDT
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
WELLENDT_TILT:
|
||
WELLENDT:
|
||
WAITSYNCS 10 ;CP!
|
||
SOUNDEFFECT SGROP,0
|
||
MOV HOLDSTILL,FALSE
|
||
SETBALLPOS WELLX,WELLY,WELLXS,WELLYS,FALSE
|
||
MOV IN_WELL,FALSE
|
||
SUICIDE
|
||
|
||
GROPB_T:
|
||
MOV IN_WELL,FALSE
|
||
ADDTASK WELLENDT
|
||
RETN
|
||
|
||
|
||
|
||
|
||
Bygel19: ;VŽ DRAIN ™VRE
|
||
RETN
|
||
|
||
|
||
Bygel3: ;VŽ FLIPPER-RŽNNA
|
||
SOUNDEFFECT SBYGEL2,0
|
||
ADDSCORE BCD10070
|
||
ADDBONUS BCD1080
|
||
RETN
|
||
|
||
Bygel4: ;H™ FLIPPER-RŽNNA
|
||
SOUNDEFFECT SBYGEL2,0
|
||
ADDSCORE BCD10070
|
||
ADDBONUS BCD1080
|
||
RETN
|
||
|
||
Bygel1: ;VŽ DRAIN NEDRE
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD50010
|
||
RETN
|
||
|
||
Bygel2: ;H™ DRAIN
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD50030
|
||
RETN
|
||
|
||
|
||
;***************************** THE VAULT *******************************
|
||
GropC: ;THE VAULT
|
||
MOV REMAL,0
|
||
CMP HIGH_VAULT,TRUE ;THE KICKBACK?
|
||
JE NOT_THE_KICKBACK
|
||
ENDFLASH 44
|
||
LIGHTOFF 44
|
||
MOV KICK_BACK_FLASHING,FALSE
|
||
NOT_THE_KICKBACK:
|
||
|
||
MOV HOLDSTILL,TRUE ;FREEZE BALL!
|
||
SETBALLPOS VAULTX,VAULTY,0,0,FALSE
|
||
|
||
CMP TILTFLAG,TRUE ;TILT?
|
||
JNE NOT_TILT_GC
|
||
ADDTASK VAULTENDT
|
||
RETN ;RETN
|
||
NOT_TILT_GC:
|
||
|
||
CMP LIGHTSTATUS[15],FALSE ;BALL LOCKED IN VAULT?
|
||
JE NOTLOCKEDINVAULT
|
||
ADDTASK VAULTENDT
|
||
RETN ;RETN
|
||
NOTLOCKEDINVAULT:
|
||
|
||
MOV IN_VAULT,TRUE
|
||
CALL JACKADD
|
||
CMP LOCKVAULTFLASHING,TRUE ;LOCK BALL ENABLED?
|
||
JNE NOTVFLASHING
|
||
MOV HOLDMULTICOUNTER,TRUE
|
||
MOV CURRENT_PRIORITY,0
|
||
EFFECT SHOOTTHEBALL
|
||
MOV INH_EFF,TRUE
|
||
ADD REMAL,AL
|
||
MOV HOLDSTILL,FALSE
|
||
SETBALLPOS STARTX,STARTY,10,0,FALSE
|
||
MOV INH_EFF,TRUE
|
||
MOV PARTYFLASH,TRUE
|
||
MOV LASTJINGLE,0 ;0=UTSKJUT
|
||
MOV LOCKVAULTFLASHING,FALSE
|
||
ENDFLASH 15 ;LOCK (THE VAULT)
|
||
LIGHTON 15
|
||
NOTVFLASHING:
|
||
|
||
CMP GHOST_FLASHING,TRUE ;GHOST FLASHING?
|
||
JNE NO_GHOST
|
||
MOV GHOST_FLASHING,FALSE ;GET THE GHOST!
|
||
ENDFLASH 16 ;"GHOST" TRIANGLEOLIKHETEN F™R SP™KMŽNGDEN
|
||
LIGHTOFF 16
|
||
MOV BL,GHOSTCOUNTER
|
||
MOV AL,SIZE GHOST_STRUC
|
||
MUL BL
|
||
MOV BX,AX
|
||
PUSH BX
|
||
MOV DL,GHOSTAREA[BX].G_LIGHTNO
|
||
PUSH DX
|
||
ENDFLASH DL
|
||
POP DX
|
||
LIGHTON DL
|
||
POP BX
|
||
PUSH BX
|
||
MOV AX,GHOSTAREA[BX].G_EFFECT
|
||
|
||
CMP SPECIALMODE,TRUE
|
||
JNE NOSPECIALM
|
||
CMP AX,OFFSET GRIMR
|
||
JNE NOTVERYGRIM
|
||
ADDTASK TURBOWAITING
|
||
JMP EFFISDONE
|
||
NOTVERYGRIM:
|
||
CMP AX,OFFSET GHOSTHUNT
|
||
JNE NOTMANYGHOSTS
|
||
MOV FIX_TELEPORT_BUG,TRUE
|
||
ADDTASK OFFROADWAITING
|
||
JMP EFFISDONE
|
||
NOTMANYGHOSTS:
|
||
NOSPECIALM:
|
||
EFFECT AX
|
||
ADD REMAL,AL
|
||
EFFISDONE:
|
||
POP BX
|
||
PUSH BX
|
||
MOV AX,GHOSTAREA[BX].G_ROUTINE
|
||
CALL AX
|
||
POP BX
|
||
INC GHOSTCOUNTER
|
||
CMP GHOSTCOUNTER,8 ;TOTALT 8 SP™KEN!
|
||
JB NOT_LAST_GHOST
|
||
MOV GHOSTCOUNTER,0
|
||
CALL DOLIGHTS
|
||
MOV GHOST_INH_SB,TRUE
|
||
LIGHTFLASH 31,BIGGHOSTSPEED
|
||
LIGHTFLASH 32,BIGGHOSTSPEED
|
||
LIGHTFLASH 33,BIGGHOSTSPEED
|
||
LIGHTFLASH 34,BIGGHOSTSPEED
|
||
LIGHTFLASH 35,BIGGHOSTSPEED
|
||
LIGHTFLASH 36,BIGGHOSTSPEED
|
||
LIGHTFLASH 37,BIGGHOSTSPEED
|
||
LIGHTFLASH 38,BIGGHOSTSPEED
|
||
ADDTASK GHOSTOFF
|
||
NOT_LAST_GHOST:
|
||
NO_GHOST:
|
||
|
||
CALL ADDTURBO ;SCORE STANDARD SCORES!
|
||
MOV SI,OFFSET VAULTVALUE
|
||
MOV DI,OFFSET SIFFRORNA
|
||
CALL ADDSCOREBCD
|
||
CMP REMAL,0
|
||
JE NOINHIBIT
|
||
MOV INH_EFF,TRUE
|
||
NOINHIBIT:
|
||
EFFECT SCOREVAULT
|
||
MOV INH_EFF,FALSE
|
||
ADD REMAL,AL
|
||
|
||
CMP REMAL,0
|
||
JNZ TVINGA_MEJ_INTE
|
||
ADDTASK VAULTENDT
|
||
TVINGA_MEJ_INTE:
|
||
RETN
|
||
|
||
GHOSTOFF:
|
||
WAITSYNCS BIGGHOSTTIME
|
||
ENDFLASH 31
|
||
ENDFLASH 32
|
||
ENDFLASH 33
|
||
ENDFLASH 34
|
||
ENDFLASH 35
|
||
ENDFLASH 36
|
||
ENDFLASH 37
|
||
ENDFLASH 38
|
||
CALL DOLIGHTS
|
||
LIGHTOFF 31
|
||
LIGHTOFF 32
|
||
LIGHTOFF 33
|
||
LIGHTOFF 34
|
||
LIGHTOFF 35
|
||
LIGHTOFF 36
|
||
LIGHTOFF 37
|
||
LIGHTOFF 38
|
||
CALL DOLIGHTS
|
||
MOV GHOST_INH_SB,FALSE
|
||
SUICIDE
|
||
|
||
GRIMRUT:
|
||
MOV JINGLEJUMPCNT,0
|
||
CMP JACKPOTFLASHING,TRUE
|
||
JE JPAF
|
||
MOV JACKPOTFLASHING,TRUE
|
||
SYNCEDFLASH 9,TBSPEED,TBSYNCER
|
||
PUT_GATE_NEG_LOW GATE3
|
||
JPAF: CMP TOWER_OPEN,TRUE
|
||
JE TOWAF
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAF: RETN
|
||
|
||
GHOSTHUNTRUT:
|
||
CMP JACKPOTFLASHING,TRUE
|
||
JE JPAF2
|
||
MOV JACKPOTFLASHING,TRUE
|
||
SYNCEDFLASH 9,TBSPEED,TBSYNCER
|
||
PUT_GATE_NEG_LOW GATE3
|
||
JPAF2: CMP TOWER_OPEN,TRUE
|
||
JE TOWAF2
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAF2: RETN
|
||
|
||
BATMANRUT:
|
||
REDDEVILRUT:
|
||
MUMMYHEADRUT:
|
||
RETN
|
||
|
||
MULTIDEMONRUT:
|
||
MOV MULTIDEMONMODE,TRUE
|
||
MOV MULTIDEMONDOWNCOUNTER,MULTIDEMON_TIME
|
||
MOV LOCKVAULTFLASHING,TRUE
|
||
MOV LOCKWELLFLASHING,TRUE
|
||
MOV HOLDMULTICOUNTER,FALSE
|
||
ENDFLASH 15 ;LOCK (THE VAULT)
|
||
ENDFLASH 25 ;LOCK (THE WELL)
|
||
LIGHTFLASH 15,LOCKSPEED ;BUDGET-SYNCAD MED 25
|
||
LIGHTFLASH 25,LOCKSPEED
|
||
MOV DEMONFLASHING,TRUE
|
||
LIGHTFLASH 18,DEMONSPEED
|
||
RETN
|
||
|
||
SMILERRUT:
|
||
CMP XBALLFLASHING,TRUE
|
||
JE AXBAF2
|
||
MOV XBALLFLASHING,TRUE
|
||
SYNCEDFLASH 8,TBSPEED,TBSYNCER
|
||
PUT_GATE_NEG_LOW GATE3
|
||
MOV TOWER_OPEN,TRUE
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
AXBAF2: RETN
|
||
|
||
TOWERHUNTRUT:
|
||
PUT_GATE_NEG_LOW GATE3
|
||
MOV TOWERHUNTSTAGE,1
|
||
MOV TOWERHUNTMODE,TRUE
|
||
MOV TOWERHUNTDOWNCOUNTER,TOWERHUNT_TIME
|
||
MOV LASTLOOPVAL,0
|
||
MOV LASTJINGLE,46
|
||
CMP TOWER_OPEN,TRUE
|
||
JE TOWAF3
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
MOV TOWER_OPEN,TRUE
|
||
TOWAF3: RETN
|
||
|
||
_GRIMOFF:
|
||
PUSH BX
|
||
ENDFLASH 38 ;GRIM OFF!
|
||
LIGHTOFF 38
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
_VAULTEND:
|
||
PUSH BX
|
||
CMP FIX_TELEPORT_BUG,TRUE
|
||
JE NOUTSKJUT
|
||
ADDTASK VAULTENDT
|
||
NOUTSKJUT:
|
||
MOV FIX_TELEPORT_BUG,FALSE
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
VAULTENDT:
|
||
VAULTENDT_TILT:
|
||
WAITSYNCS 10 ;CP?
|
||
SOUNDEFFECT SGROP,0
|
||
MOV HOLDSTILL,FALSE
|
||
PUT_GATE_NEG_LOW GATE5
|
||
SETBALLPOS VAULTX,VAULTY,VAULTXS,VAULTYS,FALSE
|
||
MOV IN_VAULT,FALSE
|
||
ADDTASK VAULTENDTT
|
||
SUICIDE
|
||
|
||
VAULTENDTT:
|
||
WAITSYNCS 30 ;CP?
|
||
CMP KICK_BACK_FLASHING,TRUE
|
||
JE GATE_OK
|
||
PUT_GATE_POS_LOW GATE5
|
||
GATE_OK:
|
||
MOV HIGH_VAULT,FALSE ;H™GSPŽNNING!
|
||
SUICIDE
|
||
|
||
_TILTED:
|
||
PUSH BX
|
||
CMP IN_VAULT,TRUE
|
||
JNE NOT_IN_THE_VAULT
|
||
ADDTASK VAULTENDT_TILT
|
||
JMP SHORT IM_SHOT
|
||
NOT_IN_THE_VAULT:
|
||
CMP IN_TOWER,TRUE
|
||
JNE NOT_IN_THE_TOWER
|
||
ADDTASK TOWERENDT_TILT
|
||
JMP SHORT IM_SHOT
|
||
NOT_IN_THE_TOWER:
|
||
CMP IN_WELL,TRUE
|
||
JNE NOT_IN_THE_WELL
|
||
ADDTASK WELLENDT_TILT
|
||
NOT_IN_THE_WELL:
|
||
IM_SHOT:
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
POP BX
|
||
JMP NORMAL_END
|
||
|
||
|
||
Close4: ;Close Tower
|
||
RETN
|
||
|
||
|
||
;******************************* SPRING VALID *********************************
|
||
BYGEL28: ;SPRING VALID
|
||
MOV SPRING_VALID,TRUE
|
||
RETN
|
||
|
||
;****************************** SPRING INVALID ********************************
|
||
BYGELSI: ;SPRING INVALID
|
||
MOV SPRING_VALID,FALSE
|
||
RETN
|
||
|
||
|
||
;******************************************************************************
|
||
;*********************************** UPPER ************************************
|
||
;******************************************************************************
|
||
|
||
;***************************** THE LOOP *******************************
|
||
Bygel8: ;LOOP MIDDLE
|
||
CALL ADDTURBO
|
||
CALL VAULTADD
|
||
CMP COMBODOWNCOUNTER,0
|
||
JZ NOCOMBO3
|
||
CMP COMBOSTAGE,2
|
||
JNE NOCOMBO3
|
||
EFFECT LOOPCOMBO
|
||
NOCOMBO3:
|
||
MOV COMBOSTAGE,0
|
||
CMP LEFT_RAMP_DOWN_COUNTER,0
|
||
MOV LEFT_RAMP_DOWN_COUNTER,LEFT_RAMP_MILLE_TIME
|
||
JNE GIVE_HIM_MILLE
|
||
SOUNDEFFECT SBYGEL1,0 ;BYGELSETD
|
||
ADDSCORE BCD10030
|
||
ADDBONUS BCD1020
|
||
RETN
|
||
|
||
GIVE_HIM_MILLE:
|
||
EFFECT MILLION
|
||
RETN
|
||
|
||
;*********************************** RIP *************************************
|
||
RIP_TOUCH MACRO LNO
|
||
LOCAL QXX,XXT,QXXT
|
||
CMP RIP_DISABLED,TRUE
|
||
JE QXX
|
||
SOUNDEFFECT SBYGEL1,0 ;BYGELSETH
|
||
ADDSCORE BCD10070
|
||
ADDBONUS BCD1080
|
||
MOV LIGHTSTATUS[LNO],TRUE
|
||
CALL CHECK_RIP
|
||
JC ALL_RIP
|
||
ADDTASK XXT
|
||
LIGHTFLASH LNO,RIPSPEED
|
||
MOV RIP_ROL_DISABLED,TRUE
|
||
QXX: RETN
|
||
XXT: CMP RIP_DISABLED,TRUE
|
||
JE QXXT
|
||
WAITSYNCS RIPFASTTIME
|
||
ENDFLASH LNO
|
||
LIGHTON LNO
|
||
MOV RIP_ROL_DISABLED,FALSE
|
||
SUICIDE
|
||
QXXT: ENDFLASH LNO
|
||
MOV RIP_ROL_DISABLED,FALSE
|
||
SUICIDE
|
||
ENDM
|
||
|
||
ALL_RIP:
|
||
MOV RIP_DISABLED,TRUE
|
||
MOV RIP_ROL_DISABLED,TRUE
|
||
ENDFLASH 4 ;R
|
||
ENDFLASH 5 ;I
|
||
ENDFLASH 6 ;P
|
||
LIGHTFLASH 4,RIPSPEED2
|
||
LIGHTFLASH 5,RIPSPEED2
|
||
LIGHTFLASH 6,RIPSPEED2
|
||
ADDTASK ALL_RIP_2
|
||
CMP KICK_BACK_FLASHING,TRUE
|
||
JE ALREADY_KICK
|
||
MOV KICK_BACK_FLASHING,TRUE
|
||
LIGHTFLASH 44,KICKSPEED
|
||
PUT_GATE_NEG_LOW GATE5
|
||
ALREADY_KICK:
|
||
EFFECT RIPEFF
|
||
RETN
|
||
|
||
ALL_RIP_2:
|
||
WAITSYNCS RIPFASTTIME2
|
||
ENDFLASH 4
|
||
ENDFLASH 5
|
||
ENDFLASH 6
|
||
LIGHTOFF 4
|
||
LIGHTOFF 5
|
||
LIGHTOFF 6
|
||
MOV RIP_DISABLED,FALSE
|
||
MOV RIP_ROL_DISABLED,FALSE
|
||
SUICIDE
|
||
|
||
CHECK_RIP: ;-C- IF ALL RIP
|
||
CMP LIGHTSTATUS[4],TRUE ;R
|
||
JNE NCR
|
||
CMP LIGHTSTATUS[5],TRUE ;I
|
||
JNE NCR
|
||
CMP LIGHTSTATUS[6],TRUE ;P
|
||
JNE NCR
|
||
STC
|
||
RETN
|
||
NCR: CLC
|
||
RETN
|
||
|
||
Bygel12: ;R
|
||
RIP_TOUCH 4
|
||
|
||
Bygel13: ;I
|
||
RIP_TOUCH 5
|
||
|
||
Bygel14: ;P
|
||
RIP_TOUCH 6
|
||
|
||
|
||
;***************************** LOOP END *******************************
|
||
Bygel8b: ;LOOP END
|
||
MOV LEFT_RAMP_DOWN_COUNTER,LEFT_RAMP_MILLE_TIME
|
||
RETN
|
||
|
||
|
||
;***************************** SCREAM RAMP *******************************
|
||
Bygel11: ;SCREAM RAMP * RIGHT RAMP *
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10060
|
||
ADDBONUS BCD1050
|
||
CMP DEMONFLASHING,TRUE ;SCORE DEMONS?
|
||
JNE NODEMONS
|
||
ENDFLASH 18
|
||
LIGHTOFF 18
|
||
MOV MULTIDEMONDOWNCOUNTER,1
|
||
MOV DEMONFLASHING,FALSE
|
||
MOV AL,LIGHTSTATUS[15]
|
||
MOV BL,LIGHTSTATUS[25]
|
||
NIL AH
|
||
NIL BH
|
||
ADD AX,BX
|
||
|
||
CMP AX,TRUE*0 ;NO BALLS LOCKED?
|
||
JNE NOT_0_LOCKED
|
||
EFFECT MILLION5
|
||
JMP SCORE_READY
|
||
NOT_0_LOCKED:
|
||
|
||
CMP AX,TRUE*1 ;ONE BALL LOCKED?
|
||
JNE NOT_1_LOCKED
|
||
EFFECT MILLION10
|
||
JMP SCORE_READY
|
||
NOT_1_LOCKED:
|
||
|
||
CMP AX,TRUE*2 ;TWO BALLS LOCKED?
|
||
JNE NOT_2_LOCKED
|
||
EFFECT MILLION20
|
||
NOT_2_LOCKED:
|
||
SCORE_READY:
|
||
LIGHTOFF 15
|
||
LIGHTOFF 25
|
||
MOV INH_EFF,TRUE
|
||
NODEMONS:
|
||
|
||
CMP COMBODOWNCOUNTER,0 ;LOOP COMBO?
|
||
JZ NOCOMBO2
|
||
CMP COMBOSTAGE,1
|
||
JNE NOCOMBO2
|
||
MOV COMBOSTAGE,2
|
||
JMP COMBOSTAGE2OK
|
||
NOCOMBO2:
|
||
MOV COMBOSTAGE,0
|
||
COMBOSTAGE2OK:
|
||
|
||
CALL ADDTURBO
|
||
CALL WELLADD
|
||
intervall=10
|
||
AGAIN_MILE:
|
||
INC CYCLONECOUNTER
|
||
MOV SI,OFFSET ETTA
|
||
MOV DI,OFFSET CYCLONECOUNTERBCD
|
||
CALL ADDSCOREBCD
|
||
|
||
CMP _2X_SCREAMS_FLASHING,FALSE
|
||
JE NOT2XSF
|
||
MOV _2X_SCREAMS_FLASHING,FALSE
|
||
ENDFLASH 17
|
||
LIGHTOFF 17
|
||
ADDTASK THESECONDTIME
|
||
NOT2XSF:
|
||
Cmp CycloneCounter,1
|
||
je Again_Mile ;Om 1 ”ke till 2 . . .
|
||
|
||
mov ax,CycloneCounter
|
||
mov cx,nextjump
|
||
sub cx,ax
|
||
jz Do_Jump ;G”r effekten
|
||
cmp cx,10
|
||
; jnb No_jump ;Den „r inte n„sta . . .
|
||
|
||
;***************************** lites the jump
|
||
mov ax,nextjump ;V„rdet . . .
|
||
mov bx,offset jUMP_aT_text ;vilken text † stoppa in v„rdet i
|
||
CMP CYCLONECOUNTER,10
|
||
JNA NOTTHE5M
|
||
MOV BX,OFFSET JUMP_AT_TEXT2
|
||
Call Put_In_Text
|
||
MOV BX,OFFSET MILES_TEXT+4
|
||
MOV AX,CYCLONECOUNTER
|
||
CALL PUT_IN_TEXT
|
||
EFFECT JUMP_AT2
|
||
JMP HOPP
|
||
NOTTHE5M:
|
||
Call Put_In_Text
|
||
MOV BX,OFFSET MILES_TEXT+4
|
||
MOV AX,CYCLONECOUNTER
|
||
CALL PUT_IN_TEXT
|
||
EFFECT JUMP_AT
|
||
HOPP:
|
||
No_Jump:
|
||
MOV INH_EFF,FALSE
|
||
RETN
|
||
do_Jump:
|
||
CMP CYCLONECOUNTER,10
|
||
JNE ITS5M
|
||
CALL ENABLE_XBALL
|
||
JMP EFFUTFORD
|
||
ITS5M: CALL ENABLE_5M
|
||
MOV BX,OFFSET MILES_TEXT+4
|
||
MOV AX,CYCLONECOUNTER
|
||
CALL PUT_IN_TEXT
|
||
EFFECT JUMP_AT2
|
||
EFFUTFORD:
|
||
add nextjump,intervall
|
||
MOV INH_EFF,FALSE
|
||
RETN
|
||
|
||
THESECONDTIME: ;ONLY IF 2X SCREAMS!
|
||
WAITSYNCS 2
|
||
CALL BYGEL11
|
||
SUICIDE
|
||
|
||
;*****************************
|
||
;Input: Ax= NextR„knare Bx=offset till texten
|
||
Put_In_Text:
|
||
PUSH BX
|
||
mov di,2
|
||
mov cx,3
|
||
loopen_lejf:
|
||
push cx
|
||
NIL DX
|
||
MOV CX,10
|
||
DIV CX
|
||
add dx,'7'
|
||
mov [bx][di],dl
|
||
pop cx
|
||
dec di
|
||
loop loopen_lejf
|
||
POP BX
|
||
|
||
LOOPEN_BERTIL:
|
||
CMP BYTE PTR [BX],'7'
|
||
JNZ AVBRYT_BRUTALT
|
||
MOV BYTE PTR [BX],'*'
|
||
INC BX
|
||
LOOP LOOPEN_BERTIL
|
||
AVBRYT_BRUTALT:
|
||
RETN
|
||
;*****************************
|
||
|
||
ENABLE_XBALL:
|
||
CMP XBALLFLASHING,TRUE
|
||
JE AXBAF
|
||
MOV XBALLFLASHING,TRUE
|
||
SYNCEDFLASH 8,TBSPEED,TBSYNCER
|
||
PUT_GATE_NEG_LOW GATE3
|
||
MOV TOWER_OPEN,TRUE
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
EFFECT GETXBALL
|
||
AXBAF: RETN
|
||
|
||
ENABLE_5M:
|
||
CMP TB5MFLASHING,TRUE
|
||
JE AF5M
|
||
MOV TB5MFLASHING,TRUE
|
||
SYNCEDFLASH 12,TBSPEED,TBSYNCER
|
||
PUT_GATE_NEG_LOW GATE3
|
||
MOV TOWER_OPEN,TRUE
|
||
ENDFLASH 7
|
||
LIGHTFLASH 7,TOWERSPEED
|
||
EFFECT OPENTOWER
|
||
AF5M: RETN
|
||
|
||
|
||
;***************************** Bygel9 *******************************
|
||
Bygel9: ;GRID-RAMP START LEFT
|
||
CMP TILTFLAG,TRUE
|
||
JE TILT_B9
|
||
CALL ADDTURBO
|
||
CALL VAULTADD
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10030
|
||
ADDBONUS BCD1040
|
||
CMP SULP_FLASHING,TRUE
|
||
JE SAF
|
||
MOV SULP_FLASHING,TRUE
|
||
ENDFLASH 19 IF FASTFLASH!
|
||
SYNCEDFLASH 19,SULPSPEED,SULPSYNCER ;SULP
|
||
SAF:
|
||
CMP _2X_SCREAMS_FLASHING,TRUE
|
||
JE _2AF
|
||
MOV _2X_SCREAMS_FLASHING,TRUE
|
||
ENDFLASH 17 ;IF FASTFLASH!
|
||
SYNCEDFLASH 17,SULPSPEED,SULPSYNCER ;2XSCREAM
|
||
_2AF:
|
||
MOV SULPDOWNCOUNTER,SULP_TIME-SULP_FASTFLASH_TIME
|
||
CMP BPOINTER,43
|
||
JA MBAF
|
||
CMP MB_FLASHING,TRUE
|
||
JE MBAF
|
||
MOV MB_FLASHING,TRUE
|
||
ENDFLASH 24 ;IF FASTFLASH!
|
||
SYNCEDFLASH 24,SULPSPEED,SULPSYNCER ;MB
|
||
MOV MBDOWNCOUNTER,MB_TIME-MB_FASTFLASH_TIME
|
||
MBAF:
|
||
MOV COMBOSTAGE,1
|
||
MOV COMBODOWNCOUNTER,COMBO_TIME
|
||
TILT_B9:
|
||
PUT_GATE_NEG_HIGH GATE4A
|
||
RETN
|
||
|
||
|
||
|
||
;***************************** Bygel10 *******************************
|
||
Bygel10: ;GRID-RAMP START RIGHT
|
||
CMP TILTFLAG,TRUE
|
||
JE TILT_B10
|
||
CALL ADDTURBO
|
||
SOUNDEFFECT SBYGEL1,0
|
||
ADDSCORE BCD10020
|
||
ADDBONUS BCD1010
|
||
TILT_B10:
|
||
PUT_GATE_POS_HIGH GATE4A
|
||
RETN
|
||
|
||
|
||
Open6: ;GRID-RAMP B™J1 LEFT
|
||
PUT_GATE_NEG_HIGH GATE4B
|
||
RETN
|
||
|
||
|
||
Close6: ;GRID-RAMP B™J1 RIGHT
|
||
PUT_GATE_POS_HIGH GATE4B
|
||
RETN
|
||
|
||
|
||
Open7: ;GRID-RAMP B™J2 LEFT
|
||
PUT_GATE_NEG_HIGH GATE4C
|
||
RETN
|
||
|
||
|
||
Close7: ;GRID-RAMP B™J2 RIGHT
|
||
PUT_GATE_POS_HIGH GATE4C
|
||
RETN
|
||
|
||
|
||
Bygel18: ;TO THE VAULT
|
||
MOV HIGH_VAULT,TRUE
|
||
CALL VAULTADD
|
||
RETN
|
||
|
||
;******************************************************************************
|
||
|
||
UPDATE_COUNTERS PROC NEAR
|
||
CMP LOOSING,TRUE
|
||
JE COUNTERS_INH
|
||
CMP INHIBIT_COUNT_DOWN,TRUE
|
||
JE COUNTERS_INH
|
||
|
||
CMP LEFT_RAMP_DOWN_COUNTER,0
|
||
JZ NLRDC
|
||
DEC LEFT_RAMP_DOWN_COUNTER
|
||
NLRDC:
|
||
|
||
CMP HOLDMULTICOUNTER,TRUE
|
||
JE GURKA2
|
||
CMP MULTIDEMONDOWNCOUNTER,1 ;MULTI DEMONS
|
||
JB GURKA
|
||
JNE NOTLASTGURKA
|
||
MOV MULTIDEMONMODE,FALSE
|
||
CMP LOCKVAULTFLASHING,FALSE
|
||
JE LOCKVAULTOK
|
||
MOV LOCKVAULTFLASHING,FALSE
|
||
ENDFLASH 15 ;LOCK (THE VAULT)
|
||
LIGHTOFF 15
|
||
LOCKVAULTOK:
|
||
CMP LOCKWELLFLASHING,FALSE
|
||
JE LOCKWELLOK
|
||
MOV LOCKWELLFLASHING,FALSE
|
||
ENDFLASH 25 ;LOCK (THE WELL)
|
||
LIGHTOFF 25
|
||
LOCKWELLOK:
|
||
NOTLASTGURKA:
|
||
DEC MULTIDEMONDOWNCOUNTER
|
||
GURKA:
|
||
GURKA2:
|
||
|
||
INC SULPSYNCER ;SULP SYNCER
|
||
CMP SULPSYNCER,SULPSPEED*2
|
||
JNE SULPSOK
|
||
MOV SULPSYNCER,0
|
||
SULPSOK:
|
||
SYNCCOUNT TBSYNCER,TBSPEED
|
||
|
||
;******************** SULP, SCREAMS AND MB **********************
|
||
CMP SULPDOWNCOUNTER,0
|
||
JE SULPZERO
|
||
DEC SULPDOWNCOUNTER
|
||
JNZ NOTLASTSULP
|
||
CMP SULP_FLASHING,FALSE
|
||
JE NOSULPFF
|
||
MOV SULP_FLASHING,FALSE
|
||
ENDFLASH 19
|
||
LIGHTOFF 19
|
||
NOSULPFF:
|
||
CMP _2X_SCREAMS_FLASHING,FALSE
|
||
JE NO2XSFF
|
||
MOV _2X_SCREAMS_FLASHING,FALSE
|
||
ENDFLASH 17
|
||
LIGHTOFF 17
|
||
NO2XSFF:
|
||
NOTLASTSULP:
|
||
CMP SULPDOWNCOUNTER,SULP_FASTFLASH_TIME
|
||
JNE NOTFASTSULP
|
||
CMP SULP_FLASHING,FALSE
|
||
JE NOSULPF
|
||
ENDFLASH 19
|
||
LIGHTFLASH 19,SULPFASTFLASHSPEED
|
||
NOSULPF:CMP _2X_SCREAMS_FLASHING,FALSE
|
||
JE NO2XSF
|
||
ENDFLASH 17
|
||
LIGHTFLASH 17,SULPFASTFLASHSPEED
|
||
NO2XSF:
|
||
NOTFASTSULP:
|
||
SULPZERO:
|
||
;**************************** MB **********************************
|
||
CMP MBDOWNCOUNTER,0
|
||
JE MBZERO
|
||
DEC MBDOWNCOUNTER
|
||
JNZ NOTLASTMB
|
||
CMP MB_FLASHING,FALSE
|
||
JE NOMBFF
|
||
MOV MB_FLASHING,FALSE
|
||
ENDFLASH 24
|
||
LIGHTOFF 24
|
||
NOMBFF:
|
||
NOTLASTMB:
|
||
CMP MBDOWNCOUNTER,MB_FASTFLASH_TIME
|
||
JNE NOTFASTMB
|
||
CMP MB_FLASHING,FALSE
|
||
JE NOMBF
|
||
ENDFLASH 24
|
||
LIGHTFLASH 24,MBFASTFLASHSPEED
|
||
NOMBF:
|
||
NOTFASTMB:
|
||
MBZERO:
|
||
|
||
CMP COMBODOWNCOUNTER,0 ;COMBO
|
||
JZ COMBOZERO
|
||
DEC COMBODOWNCOUNTER
|
||
JNZ NOTLASTCOMBO
|
||
MOV COMBOSTAGE,0
|
||
NOTLASTCOMBO:
|
||
COMBOZERO:
|
||
CMP TOWERHUNTDOWNCOUNTER,0 ;TOWER HUNT
|
||
JZ TOWERHUNTZERO
|
||
DEC TOWERHUNTDOWNCOUNTER
|
||
JNZ NOTLASTTH
|
||
|
||
MOV TOWERHUNTMODE,FALSE
|
||
MOV TOWERHUNTSTAGE,0
|
||
PLAYJINGLE SJINGLE16
|
||
MOVAL LASTJINGLE,S_MAIN[0]
|
||
|
||
NOTLASTTH:
|
||
TOWERHUNTZERO:
|
||
|
||
COUNTERS_INH:
|
||
RETN
|
||
UPDATE_COUNTERS ENDP
|
||
|
||
|
||
|
||
BUMPER_WAS_HIT_PROC PROC NEAR ;INPUT: HITPOINTER
|
||
CALL ADDOFFROAD
|
||
UPDAT_INFOBAR
|
||
RETN
|
||
BUMPER_WAS_HIT_PROC ENDP
|
||
|
||
|
||
|
||
;******************************************************************************
|
||
;********************************* DOT MATRIX CODE ****************************
|
||
;******************************************************************************
|
||
|
||
_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]
|
||
|
||
_JBONUSX1:
|
||
CMP BONUS_X,1
|
||
JNE 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]
|
||
|
||
|
||
_CALC_HAPPY:
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV SISA,1
|
||
PUSHA
|
||
MOV SI,OFFSET OR_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_3gg
|
||
MOV BX,0
|
||
_NEXTp_3gg:
|
||
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 [sec_asc],'*'
|
||
jne no_end
|
||
cmp [sec_asc+1],'0'+7 ;???
|
||
jne no_end
|
||
cmp turbomode,true
|
||
jne noturboend
|
||
PLAYJINGLE_PENETRATE SJINGLE20
|
||
mov lastjingle,3
|
||
noturboend:
|
||
cmp OffRoadmode,true
|
||
jne nooffrend
|
||
PLAYJINGLE_PENETRATE SJINGLE20 ;CP! SJINGLE18!!!!
|
||
mov lastjingle,3
|
||
nooffrend:
|
||
; mov specialmode,false
|
||
mov offroadmode,false
|
||
mov turbomode,false ;mega cp!!
|
||
mov current_priority,0
|
||
mov lastjingle,3
|
||
mov jinglejumpcnt,1
|
||
no_end:
|
||
RETN
|
||
READ_SPECIAL_MODE_COUNTER ENDP
|
||
|
||
INIT_TOWER:
|
||
MOVEBCD TOWERVALUE,TOWERSTART
|
||
RETN
|
||
INIT_VAULT:
|
||
MOVEBCD VAULTVALUE,VAULTSTART
|
||
RETN
|
||
INIT_WELL:
|
||
MOVEBCD WELLVALUE,WELLSTART
|
||
RETN
|
||
|
||
TOWERADD:
|
||
PUSHA
|
||
MOV SI,OFFSET TOWERADDS
|
||
MOV DI,OFFSET TOWERVALUE
|
||
CALL ADDSCOREBCD
|
||
POPA
|
||
RETN
|
||
VAULTADD:
|
||
PUSHA
|
||
MOV SI,OFFSET VAULTADDS
|
||
MOV DI,OFFSET VAULTVALUE
|
||
CALL ADDSCOREBCD
|
||
POPA
|
||
RETN
|
||
WELLADD:
|
||
PUSHA
|
||
MOV SI,OFFSET WELLADDS
|
||
MOV DI,OFFSET WELLVALUE
|
||
CALL ADDSCOREBCD
|
||
POPA
|
||
RETN
|
||
|
||
JACKADD PROC NEAR ;FN: JACKVALUE += JACKRAISE
|
||
PUSHA
|
||
MOV SI,OFFSET JACKRAISE
|
||
MOV DI,OFFSET JACKVALUE
|
||
CALL ADDSCOREBCD
|
||
POPA
|
||
RETN
|
||
JACKADD ENDP
|
||
|
||
ADDTURBO:
|
||
CMP TURBOMODE,TRUE
|
||
JNE NO_TURBO
|
||
MOV SI,OFFSET BCD5000000
|
||
MOV DI,OFFSET TM_TOTAL
|
||
CALL ADDSCOREBCD
|
||
MOV SPECIAL_SCORE_CHANGED,TRUE
|
||
NO_TURBO:
|
||
RETN
|
||
|
||
ADDOFFROAD:
|
||
CMP OFFROADMODE,TRUE
|
||
JNE NO_OFFROAD
|
||
MOV SI,OFFSET BCD1000000
|
||
MOV DI,OFFSET OR_TOTAL
|
||
CALL ADDSCOREBCD
|
||
MOV SPECIAL_SCORE_CHANGED,TRUE
|
||
NO_OFFROAD:
|
||
RETN
|
||
|
||
_PARTYONN:
|
||
MOVE DS,DATA
|
||
ASSUME DS:DATA
|
||
MOV AL,PLAYER
|
||
ADD AL,'A'-10
|
||
MOV SHOOTTHEBALLTEXT[19],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!)
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV SISA,1
|
||
JMP NORMAL_END
|
||
|
||
|
||
TURBOWAITING: ; T.A.S.K.
|
||
CMP SPECIALMODE,TRUE
|
||
JE STILLTRUE1
|
||
CMP LOOSING,TRUE
|
||
JE KILLHIMNOW1
|
||
MOV FIX_TELEPORT_BUG,TRUE
|
||
EFFECT GRIMR
|
||
KILLHIMNOW1:
|
||
SUICIDE
|
||
STILLTRUE1:
|
||
RETN
|
||
|
||
OFFROADWAITING: ; T.A.S.K.
|
||
CMP SPECIALMODE,TRUE
|
||
JE STILLTRUE2
|
||
CMP LOOSING,TRUE
|
||
JE KILLHIMNOW2
|
||
MOV FIX_TELEPORT_BUG,TRUE
|
||
EFFECT GHOSTHUNT
|
||
KILLHIMNOW2:
|
||
SUICIDE
|
||
STILLTRUE2:
|
||
RETN
|
||
|
||
|
||
_BONUS_X_CALCS: ;FN: MULTIPLIES THE BONUS
|
||
;INPUT: BONUS_X, BONUSSIFFRORNA
|
||
;OUTPUT: BONUSSIFFRORNA, BONUS_A_TEXT
|
||
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 BONUS_X_TEXT[8],1+'7'
|
||
MOV BONUS_X_TEXT[9],0+'7'
|
||
MOV AL,BONUS_X
|
||
ADD AL,'7'
|
||
CMP AL,10+'7'
|
||
JNB ITS10
|
||
MOV BONUS_X_TEXT[8],AL
|
||
MOV BONUS_X_TEXT[9],' '
|
||
ITS10:
|
||
POP ES
|
||
POP BX
|
||
MOV SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
JMP NORMAL_END
|
||
|
||
|
||
|
||
_CALC_MEGA:
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
MOV SISA,1
|
||
MOV SI,OFFSET TM_TOTAL ;ML_TOT -> TOTAL BONUS
|
||
MOV DI,OFFSET BONUSSIFFRORNA
|
||
PUSHA
|
||
CALL ADDSCOREBCD
|
||
POPA
|
||
ADD BX,2
|
||
CMP WORD PTR [BX],0
|
||
JNE _NEXTp_3Q
|
||
MOV BX,0
|
||
_NEXTp_3Q:
|
||
MOV NEXT_A,BX
|
||
RETN
|
||
|
||
;SetWBPL <BPLmask> Set write BPL mask
|
||
SetWBPL macro BPLnr
|
||
mov dx,3c4h
|
||
mov ah,BPLnr
|
||
mov al,2
|
||
out dx,ax
|
||
endm
|
||
;-)
|
||
_tower:
|
||
MOVE cs:stannalinne,[BX+2] ;HUR M†NGA
|
||
mov cs:linne,152
|
||
MOV DOTRUT,OFFSET towerrut
|
||
;galopp
|
||
JMP NORMAL_END
|
||
|
||
linne dw ?
|
||
stannalinne dw ?
|
||
|
||
towerrut:
|
||
dec cs:linne ;mindre nattlinne=mer † se!!
|
||
mov cx,cs:linne
|
||
call showtower
|
||
mov ax,cs:stannalinne
|
||
cmp cs:linne,ax
|
||
je stopit
|
||
mov si,1
|
||
retn
|
||
stopit:
|
||
mov si,0
|
||
retn
|
||
|
||
showtower:
|
||
;cx: startlinje!
|
||
move es,0a000h
|
||
move ds,anim08seg
|
||
mov di,sw/4*2
|
||
mov dx,0
|
||
mov ax,320/8
|
||
;cx=linje
|
||
mul cx
|
||
assume ds:anim08seg
|
||
mov si,offset anim08
|
||
assume ds:data
|
||
add si,ax
|
||
mov bl,10000000b
|
||
mov bh,00001000b
|
||
|
||
mov cx,2
|
||
two:
|
||
push cx si di
|
||
push bx
|
||
shr bh,1
|
||
xor bh,101b
|
||
setwbpl bh
|
||
pop bx
|
||
mov cx,16
|
||
put_kll:
|
||
push cx
|
||
mov cx,320/8
|
||
put_bits:
|
||
mov dl,[si]
|
||
inc si
|
||
test dl,bl
|
||
je gulan
|
||
|
||
svartan:
|
||
mov al,matrixlo
|
||
stosb
|
||
jmp overit_ehrm
|
||
gulan:
|
||
mov al,matrixhi
|
||
stosb
|
||
overit_ehrm:
|
||
;och n„sta . . .
|
||
test dl,bh
|
||
je gulan2
|
||
svartan2:
|
||
mov al,matrixlo
|
||
stosb
|
||
jmp overit_ehrm2
|
||
gulan2:
|
||
mov al,matrixhi
|
||
stosb
|
||
overit_ehrm2:
|
||
loop put_bits
|
||
pop cx
|
||
add di,sw/4+(sw-320)/4
|
||
loop put_kll
|
||
pop di si cx
|
||
shr bx,2
|
||
loop two
|
||
move ds,data
|
||
retn
|
||
|
||
_DOBEATEN:
|
||
MOVE SISA,1
|
||
MOV DOTRUT,OFFSET WAITRUT
|
||
INC XBALLS
|
||
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'
|
||
FLIPLEFT2 ENDS
|
||
|
||
FLIPRIGHT SEGMENT PARA PUBLIC 'DATA'
|
||
if create_Flip_data
|
||
EXTRN FLIPR
|
||
else
|
||
extrn flipr_1
|
||
endif
|
||
FLIPRIGHT ENDS
|
||
|
||
anim08seg segment para public 'data' ;Martin Berg!!
|
||
extrn anim08
|
||
anim08seg 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
|
||
|
||
|
||
|