org $00A2E6                      ;    Der Aufruf der Hauptroutine erfolgt so nah am Ende

   autoclean JML StatusBarMain   ;    des Frames wie möglich, damit ihre Sprite-Teile

                                 ;    von nichts mehr überschrieben werden.

;Act like 130

db $42



JMP Mario : JMP Mario : JMP Mario : JMP Return : JMP Return : JMP Return : JMP Return : JMP Mario : JMP Mario : JMP Mario



Mario:

LDA $0F31		;Adresse des Timers 

CMP #$3		;Timer gleich/größer 300

BCS GenugZeit

LDA #$44		 ;\

STA $14AB	   ; | Beendet das Bonusspiel

		         ; | Block auf smwc

LDA #$02 		; | von Reallink

STA $9C	     ; |

JSL $00BEB0    ;/



GenugZeit:

LDY #$00		 ;\ Act like BLOCK 025

LDA #$25		 ;/

STA $1693

RTL



Return:

RTL

Abfrage 1: Ist der Hunderter größer als 2

Antwort zu Abfrage 1: JA --> Mario durchlassen

Antwort zu Abfrage 1: NEIN --> Gehe zu Abfrage 2



Abfrag 2: Ist der Hunderter kleiner als 2

Antwort zu Abfrag 2: JA --> Bonusspiel beenden

Antwort zu Abfrage 2: NEIN --> Hunderter ist 2 --> gehe zu Abfrage 3



Abfrage 3: Ist der Zehner größer/gleich 5

Antwort zu Abfrage 3: JA --> Mario durchlassen

Antwort zu Abfrage 3: NEIN --> Bonusspiel beenden

LDA $0F31

ASL

ASL

ASL

ASL

ORA $0F32

CMP #$25

Graphics:

JSR GET_DRAW_INFO    ;Ist nicht mit drin, existiert aber :P



	LDA $0FBD			;X-Pos Temp RAM

	ASL

	ASL

	ASL

	ASL ;insgesammt also *16

	CLC

	ADC $00

	STA $0300,y		;/ Draw the X position of the sprite



	LDA $0FBC			;Y-Pos Temp RAM

	ASL

	ASL

	ASL

	ASL ;insgessamt also *16

	CLC

	ADC $01

	STA $0301,y		;/ Draw the Y position of the sprite





	LDA #$7E		;\

	STA $0302,y		;/ Tile to draw.



draw



	LDA #$3E

	ORA $64

	STA $0303,y		; Write the YXPPCCCT property byte of the sprite



	LDY #$00		; Y ends with the tile size .. 00 means it's 8x8

	LDA #$00		; A -> number of tiles drawn - 1.

				; I drew only 1 tile so I put in 1-1 = 00.



	JSL $01B7B3		; Call the routine that draws the sprite.

	RTS



GET_DRAW_INFO:

;GET_DRAW_CODE

...

;/GET_DRAW_CODE

PHY

TYA

LSR

LSR

TAY

LDA #$02

STA $0460,y			;00:8x8 size 02:16x16 size

PLY

LDA $0FBD			;\X-Pos Temp RAM

	ASL

	ASL

	ASL

	ASL

	CLC

	ADC #$10

	STA $0300,y		;/ Draw the X position of the sprite

;set_to_off.asm



db $42



JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteH : JMP SpriteV : JMP Fireball : JMP Cape : JMP MarioCorner : JMP MarioHead : JMP MarioBody 



MarioCorner:

MarioAbove:

	LDA $7D		

	BPL activate	; pressable if mario's speed is going down

	RTL

activate:

	LDA $14AF	;depends on on/off status

	BNE return	;if the switch is already off don't do anything

	INC

	STA $14AF	;set switch to off

	LDA #$0B

	STA $1DF9	;sound number

	LDA #$20

	STA $1887	;earthquake effect



solid:

	LDY #$01

	LDA #$30

	STA $1693





MarioHead:

MarioBody:

return:

RTL



MarioBelow:

MarioSide:

Fireball:

Cape:

SpriteH:

SpriteV:

	LDA $14AF

	BEQ solid

	RTL

;set_to_on.asm

db $42



JMP MarioBelow : JMP MarioAbove : JMP MarioSide : JMP SpriteH : JMP SpriteV : JMP Fireball : JMP Cape : JMP MarioCorner : JMP MarioHead : JMP MarioBody 



MarioCorner:

MarioAbove:

	LDA $7D

	BPL activate

	RTL

activate:

	LDA $14AF	;if the switch is already on don't do anything

	BEQ return

	STZ $14AF	;set the on/off switch to on

	LDA #$0B

	STA $1DF9	;sound number

	LDA #$20

	STA $1887	;earthquake effect



solid:

	LDY #$01

	LDA #$30

	STA $1693





MarioHead:

MarioBody:

return:

RTL



MarioBelow:

MarioSide:

Fireball:

Cape:

SpriteH:

SpriteV:

	LDA $14AF

	BNE solid

	RTL