smwhacking.de - die deutschsprachige Seite übers SMW-Hacken

das war mein erster YouTube ava

jedenfalls kommt mir der 1987er etwas fremd vor ;D

#

Leute ich habe hier ein Code gefunden und wollte mal fragen wie ich den in den hack reinkriege '?
oder sieht so überhaupt ein asm code aus ?

Code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; test_1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; sprite data

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; init JSL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



                    dcb "INIT"

                    RTL



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; main sprite JSL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



                    

                    dcb "MAIN"

                    PHB                     ; \

                    PHK                     ;  | main sprite function, just calls local subroutine

                    PLB                     ;  |

                    JSR START_HB_CODE       ;  |

                    PLB                     ;  |

                    RTL                     ; /





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; main sprite routine

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



RETURN              RTS                    

START_HB_CODE       JSR SUB_GFX

                    LDA $14C8,x

                    CMP #$08

                    BNE RETURN

                    LDA $9D

                    BNE RETURN

                    JSR SUB_OFF_SCREEN_X3   ; only process sprite while on screen



                    LDA #$F8

                    STA $B6,x

                    JSL $01802A

                    JSL $01A7DC

                    RTS





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; graphics routine

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



SUB_GFX             JSR GET_DRAW_INFO       ; after: Y = index to sprite tile map ($300)

                    LDA $01

                    STA $0301,y

                    LDA $00                 ; \ tile y position = sprite y location ($01) + tile displacement

                    STA $0300,y             ; /

                    LDA #$8E

                    STA $0302,y

                    



                    LDA $15F6,x             ;  | get palette info

                    ORA $64                 ;  | put in level properties

                    STA $0303,y             ; / store tile properties



                    LDY #$02                ; \Draw Mode

                    LDA #$00                ;  | A = number of tiles drawn - 1

                    JSL $01B7B3             ; / don't draw if offscreen

                    RTS                     ; return



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; $B760 - graphics routine helper - shared

; sets off screen flags and sets index to OAM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



                    ;org $03B75C



TABLE1              dcb $0C,$1C

TABLE2              dcb $01,$02



GET_DRAW_INFO       STZ $186C,x             ; reset sprite offscreen flag, vertical

                    STZ $15A0,x             ; reset sprite offscreen flag, horizontal

                    LDA $E4,x               ; \

                    CMP $1A                 ;  | set horizontal offscreen if necessary

                    LDA $14E0,x             ;  |

                    SBC $1B                 ;  |

                    BEQ ON_SCREEN_X         ;  |

                    INC $15A0,x             ; /



ON_SCREEN_X         LDA $14E0,x             ; \

                    XBA                     ;  |

                    LDA $E4,x               ;  |

                    REP #$20                ;  |

                    SEC                     ;  |

                    SBC $1A                 ;  | mark sprite invalid if far enough off screen

                    CLC                     ;  |

                    ADC.W #$0040            ;  |

                    CMP.W #$0180            ;  |

                    SEP #$20                ;  |

                    ROL A                   ;  |

                    AND #$01                ;  |

                    STA $15C4,x             ; / 

                    BNE INVALID             ; 

                    

                    LDY #$00                ; \ set up loop:

                    LDA $1662,x             ;  | 

                    AND #$20                ;  | if not smushed (1662 & 0x20), go through loop twice

                    BEQ ON_SCREEN_LOOP      ;  | else, go through loop once

                    INY                     ; / 

ON_SCREEN_LOOP      LDA $D8,x               ; \ 

                    CLC                     ;  | set vertical offscreen if necessary

                    ADC TABLE1,y            ;  |

                    PHP                     ;  |

                    CMP $1C                 ;  | (vert screen boundry)

                    ROL $00                 ;  |

                    PLP                     ;  |

                    LDA $14D4,x             ;  | 

                    ADC #$00                ;  |

                    LSR $00                 ;  |

                    SBC $1D                 ;  |

                    BEQ ON_SCREEN_Y         ;  |

                    LDA $186C,x             ;  | (vert offscreen)

                    ORA TABLE2,y            ;  |

                    STA $186C,x             ;  |

ON_SCREEN_Y         DEY                     ;  |

                    BPL ON_SCREEN_LOOP      ; /



                    LDY $15EA,x             ; get offset to sprite OAM

                    LDA $E4,x               ; \ 

                    SEC                     ;  | 

                    SBC $1A                 ;  | $00 = sprite x position relative to screen boarder

                    STA $00                 ; / 

                    LDA $D8,x               ; \ 

                    SEC                     ;  | 

                    SBC $1C                 ;  | $01 = sprite y position relative to screen boarder

                    STA $01                 ; / 

                    RTS                     ; return



INVALID             PLA                     ; \ return from *main gfx routine* subroutine...

                    PLA                     ;  |    ...(not just this subroutine)

                    RTS                     ; /



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; off screen processing code - shared

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



                    ;org $03B83B             



TABLE3              dcb $40,$B0

TABLE6              dcb $01,$FF 

TABLE4              dcb $30,$C0,$A0,$80,$A0,$40,$60,$B0 

TABLE5              dcb $01,$FF,$01,$FF,$01,$00,$01,$FF



SUB_OFF_SCREEN_X0   LDA #$06                ; \ entry point of routine determines value of $03

                    BRA STORE_03            ; | 

SUB_OFF_SCREEN_X1   LDA #$04                ; |

                    BRA STORE_03            ; |

SUB_OFF_SCREEN_X2   LDA #$02                ; |

STORE_03            STA $03                 ; |

                    BRA START_SUB           ; |

SUB_OFF_SCREEN_X3  STZ $03                 ; /



START_SUB           JSR SUB_IS_OFF_SCREEN   ; \ if sprite is not off screen, return

                    BEQ RETURN_2            ; /    

                    LDA $5B                 ; \  goto VERTICAL_LEVEL if vertical level

                    AND #$01                ; |

                    BNE VERTICAL_LEVEL      ; /     

                    LDA $D8,x               ; \

                    CLC                     ; | 

                    ADC #$50                ; | if the sprite has gone off the bottom of the level...

                    LDA $14D4,x             ; | (if adding 0x50 to the sprite y position would make the high byte >= 2)

                    ADC #$00                ; | 

                    CMP #$02                ; | 

                    BPL ERASE_SPRITE        ; /    ...erase the sprite

                    LDA $167A,x             ; \ if "process offscreen" flag is set, return

                    AND #$04                ; |

                    BNE RETURN_2            ; /

                    LDA $13                 ; \ 

                    AND #$01                ; | 

                    ORA $03                 ; | 

                    STA $01                 ; |

                    TAY                     ; /

                    LDA $1A

                    CLC

                    ADC TABLE4,y

                    ROL $00

                    CMP $E4,x

                    PHP

                    LDA $1B

                    LSR $00

                    ADC TABLE5,y

                    PLP

                    SBC $14E0,x

                    STA $00

                    LSR $01

                    BCC LABEL20

                    EOR #$80

                    STA $00

LABEL20             LDA $00

                    BPL RETURN_2

ERASE_SPRITE        LDA $14C8,x             ; \ if sprite status < 8, permanently erase sprite

                    CMP #$08                ; |

                    BCC KILL_SPRITE         ; /

                    LDY $161A,x

                    CPY #$FF

                    BEQ KILL_SPRITE

                    LDA #$00

                    STA $1938,y

KILL_SPRITE         STZ $14C8,x             ; erase sprite

RETURN_2            RTS                     ; return



VERTICAL_LEVEL      LDA $167A,x             ; \ if "process offscreen" flag is set, return

                    AND #$04                ; |

                    BNE RETURN_2            ; /

                    LDA $13                 ; \ only handle every other frame??

                    LSR A                   ; | 

                    BCS RETURN_2            ; /

                    AND #$01

                    STA $01

                    TAY

                    LDA $1C

                    CLC

                    ADC TABLE3,y

                    ROL $00

                    CMP $D8,x

                    PHP

                    LDA.W $001D

                    LSR $00

                    ADC TABLE6,y

                    PLP

                    SBC $14D4,x

                    STA $00

                    LDY $01

                    BEQ LABEL22

                    EOR #$80

                    STA $00

LABEL22             LDA $00

                    BPL RETURN_2

                    BMI ERASE_SPRITE



SUB_IS_OFF_SCREEN   LDA $15A0,x             ; \ if sprite is on screen, accumulator = 0 

                    ORA $186C,x             ; |  

                    RTS                     ; / return

#

also sprites einfügen kann ich ja ;D wollte nur wissen ob jemand was genaueres damit anfangen kann

#

also der .asm datein lag jetzt keine .cfg datei zum einfügen dabei ;l .....

#

der sprite war so wie er da steht auf einer japanischen website. btw cfg selbst erstellen .... wie geht das :l ?

#

hab jetzt die cfg datei von dem sprite cannonball genommen aber da standen ncoh sachen drin wie AA und 1E und sowas ;l kann man das so stehen lassen ?

#

Der Hack wird 100 exits haben.

Hier ein paar Bilder! (Zur Vergrößerung ienfach einmal draufklicken

)

#

Also ich persönlich wäre für den Teamhack. Wobei man aber einen extra Thread für Ideen und interessenten eröffnen sollte. Und da sollten sich dann wirklich nur die einschreiben , die es auch mit Sicherheit durchziehen, Also ich sitze schon seit April an einem Hack und habe nebenbei kaum etwas anderes mit Hacken zutun, daher würde ich gerne bei dem Teamhack mitwirken.

#

Also ich habe hier ein Bild was sich etwas von den anderen unterscheidet (finde ich).

#

Also der Waluigi Player den finde ich echt ok. Aber ich finde wir sollten auch die HP von Mario ändern , also da kann man ja z.B. diese Herzen von smb2 in die status bar einbaueen oder sogar den Life Counter von SM64. Und zur Story ... man könnte ja eventuell sagen , dass Bowser (bzw. der Endboss) etwas von Mario (bzw. Peach) gestohlen hat und mario muss es wiederholen (indem er eben den Endboss besiegt und vielleicht in einen Raum gewarpt wird) und dazu müssen wir halt nur die Gfx von dem ?-Goal ändern. Dann könnte man auch zum Beispiel etwas produktiveres daraus machen , zum Beispiel findet Mario den ersten Teil seines ,,gegenstandes´´ im 1. castle den 2. Teil entsprechend im 2. Castle und das letzte Teil eben im letzten Castle , was also nochmal ganz konkret heißen würde -> Der endboss hat Mario etwas wertvolles gestohlen , es in 3 teile geteilt und in den Schlössern verteilt

#

Also den Waluigi-Player nehmen wir dann wohl mit Sicherheit wie es grade aussieht

find ich gut. und wie ist das dann mit der Story? ich hab ja auf Seite 2 des Threads ne Idee gepostet, was haltet ihr soweit davon

?

#

also mit ,,etwas wertvollem´´ mein ich jetzt so zum beispiel einen kristall von peach oder so , den der endboss gestohlen hat ;P das mit den ,,in 3 teile teilen´´ hatte ich nur so eingeplant , dass man (wenn wir zum beispiel 3 castles machen) in jedem castle ein teil findet , so wie das mit den münzen in sml2 beispielsweise

#

Also Leute ich habe hier die ASM datei von dem blargg boss und der löst ja , nachdem man ihn besiegt hat , das Ziel aus. Wie kann man es machen , dass er nicht das Ziel auslöst ?

hier ist der ASM Code

Code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Blargg Boss

; By Atma

; Based on:

;	sprite A8 - Blargg

;	adapted for Romi's Spritetool and commented by yoshicookiezeus

; Description:

;	A blargg boss that takes 4 (easily changed) spin jumps to kill.

;	Like a normal blargg, he'll lunge if you're close to him.

;	However, he does not go back to the same spot and he spits fire as he lunges.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





			!RAM_FrameCounter	= $13

			!RAM_FrameCounterB	= $14

			!RAM_MarioSpeedX	= $7B

			!RAM_MarioXPos		= $94

			!RAM_MarioXPosHi	= $95

			!RAM_SpritesLocked	= $9D

			!RAM_SpriteNum		= $9E

			!RAM_SpriteSpeedY	= $AA

			!RAM_SpriteSpeedX	= $B6

			!RAM_SpriteState	= $C2

			!RAM_SpriteYLo		= $D8

			!RAM_SpriteXLo		= $E4

			!OAM_DispX		= $0300

			!OAM_DispY		= $0301

			!OAM_Tile		= $0302

			!OAM_Prop		= $0303

			!OAM_TileSize		= $0460

			!RAM_SpriteYHi		= $14D4

			!RAM_SpriteXHi		= $14E0

			!RAM_SpriteDir		= $157C

			!RAM_SprObjStatus	= $1588

			!RAM_OffscreenHorz	= $15A0

			!RAM_SprOAMIndex	= $15EA

			!RAM_SpritePal		= $15F6

			!RAM_OffscreenVert	= $186C

			!BossHealth		= $04	; Change this to change how many hits he'll take







X_Speed:		db $18,$E8







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; sprite code JSL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



			print "INIT ",pc

			PHB

			PHK

			PLB

			LDA #!BossHealth

			STA $1510,x

			LDA !RAM_SpriteXLo,x

			STA $151C,x

			LDA !RAM_SpriteXHi,x

			STA $1528,x

			PLB

			RTL



			print "MAIN ",pc

			PHB

			PHK

			PLB

			JSR Blargg

			PLB

			RTL





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; main

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



Blargg:			JSR Sprite_Graphics

			LDA $1510,x

			BNE Alive

			STZ $7B

			STZ $7D

			STZ $140D

			LDA $14C8,x

			CMP #$02

			BEQ Loop

			LDA #$02

			STA $14C8,x

			LDA #$15

			STA $1504,x

Loop:			DEC $1504,x

			BNE RETURN

			LDA #$FF                ; \ set normal exit

                    	STA $1493               ; /

			LDA #$0B                ; \ change music 0C for regular end, 0B for boss end

			STA $1DFB               ; /

                    	STA $0DDA               ; set music

			DEC $13C6		; prevent the player from walking

RETURN:			RTS

Alive:

			LDA !RAM_SpritesLocked			;\ if sprites locked,

			BNE Return039F56			;/ return

			LDA $15A0,x

			BEQ Contact

			LDA !RAM_SpriteState,x

			CMP #$04

			BEQ Contact

			LDA $151C,x

			STA !RAM_SpriteXLo,x

			LDA $1528,x

			STA !RAM_SpriteXHi,x

Contact:

			JSL $01A7DC				; interact with Mario

			BCC NoContact

			LDA !RAM_SpriteState,x

			CMP #$04

			BNE NoContact

			LDA $0E

			CMP #$E6

			BPL SpriteWins

			LDA $140D

			BEQ SpriteWins

			LDA #$B0

			STA $7D

			LDA #$20

			STA $1DF9

			DEC $1510,x

			BRA NoContact

SpriteWins:

	JSL $00F5B7

NoContact:

			JSR SUB_OFF_SCREEN_X0

			LDA !RAM_SpriteState,x   

			JSL $0086DF



BlarggPtrs:		dw CODE_039F57				; waiting

			dw CODE_039F8B				; emerging

			dw CODE_039FA4				; more waiting

			dw CODE_039FC8				; submerging

			dw CODE_039FEF				; lunging



Return039F56:		RTS					; return



CODE_039F57:		LDA !RAM_OffscreenHorz,x		;\ if sprite offscreen

			ORA $1540,x				; | or still waiting since last lunge,

			BNE Return039F8A			;/ return

			JSR SUB_HORZ_POS			;\ if Mario not closer to sprite than 0x70 pixels (7 16x16 tiles),

			LDA $0F					; |

			CLC					; |

			ADC #$70				; |

			CMP #$E0				; |

			BCS Return039F8A			;/ return

			LDA #$E3				;\ set sprite y speed

			STA !RAM_SpriteSpeedY,x			;/

			LDA !RAM_SpriteYHi,x			;\preserve initial sprite Y position

			STA $1534,x				; |

			LDA !RAM_SpriteYLo,x			; |

			STA $1594,x				;/

			JSR CODE_039FC0         

			INC !RAM_SpriteState,x			; go to next sprite state

Return039F8A:		RTS					; return



CODE_039F8B:		LDA !RAM_SpriteSpeedY,x			;\ if sprite y speed positive and greater than 0x10,

			CMP #$10				; |

			BMI CODE_039F9B				;/ branch

			LDA #$50				;\ set time until next sprite state change

			STA $1540,x				;/

			INC !RAM_SpriteState,x			; go to next sprite state

			STZ !RAM_SpriteSpeedY,x			; reset sprite y speed

			RTS					; return



CODE_039F9B:		JSL $01801A				; update sprite position

			INC !RAM_SpriteSpeedY,x			;\ decelerate sprite downwards

			INC !RAM_SpriteSpeedY,x			;/

			RTS					; return



CODE_039FA4:		LDA $1540,x				;\ if not time to go to next sprite state,

			BNE CODE_039FB1				;/ branch

			INC !RAM_SpriteState,x			; go to next sprite state

			LDA #$0A				;\ set time until next sprite state change

			STA $1540,x				;/

			RTS					; return



CODE_039FB1:		CMP #$20				;\ if sprite state timer is less than 0x20,

			BCC CODE_039FC0				;/ branch

			AND #$1F				;\ if not time to flip sprite direction,

			BNE Return039FC7			;/ return

			LDA !RAM_SpriteDir,x			;\ flip sprite direction

			EOR #$01				;/

			BRA CODE_039FC4           



CODE_039FC0:		JSR SUB_HORZ_POS			;\ make sprite face Mario

			TYA					; |

CODE_039FC4:		STA !RAM_SpriteDir,x			;/

Return039FC7:		RTS					; return



CODE_039FC8:		LDA $1540,x				;\ if time to go to next sprite state,

			BEQ CODE_039FD6				;/ branch

			LDA #$20				;\ else, set sprite y speed

			STA !RAM_SpriteSpeedY,x			;/

			JSL $01801A				; update sprite position

			RTS					; return



CODE_039FD6:		LDA #$20				;\ set timer

			STA $1540,x				;/

			LDY !RAM_SpriteDir,x			;\ set initial sprite x speed

			LDA X_Speed,y				; |

			STA !RAM_SpriteSpeedX,x			;/

			LDA #$E2				;\ set initial sprite y speed

			STA !RAM_SpriteSpeedY,x			;/

			JSR CODE_03A045

			INC !RAM_SpriteState,x			; go to next sprite state

			RTS					; return





CODE_039FEF:

			STZ $1602,X				; clear graphics frame to use

			LDA $1540,x				;\ if already lunging,

			BEQ CODE_03A002				;/ branch

			LDA #$0A

			STA $1504,x

			DEC $1540,x				;\ if not yet time to lunge,

			BNE CODE_03A038				;/ branch

			LDA #$25				;\ sound effect

			STA $1DF9				;/ 

			JSR CODE_03A045

CODE_03A002:		JSL $018022				;\ update sprite position

			JSL $01801A				;/

			LDA $1504,x

			BNE NoFireball

    JSL $02A9DE

    BMI NoFireball ; If sprite slots are full, don't generate.

    PHX

    TYX

    LDA #$01

    STA $14C8,x

    LDA #$B3

    STA $9E,x

    JSL $07F7D2

    TXY

    PLX

    LDA $157C,x	; Load direction..

    STA $157C,y

    LDA $00E4,x

    STA $00E4,y

    LDA $14E0,x

    STA $14E0,y

    LDA $D8,x

    STA $00D8,y

    LDA $14D4,x

    STA $14D4,y

    PHY

    LDY $157C,x

    LDA X_Speed,y

    PLY

    STA $00B6,y

    LDA #$1A

    STA $1504,x

NoFireball:		DEC $1504,x

			LDA !RAM_FrameCounter			;\ every 0x100th frame, skip y speed increasing?

			AND #$00				; | how odd...

			BNE CODE_03A012				;/ perhaps this was #$01 or #$03 earlier, to make the y speed increase slower?

			INC !RAM_SpriteSpeedY,x			; increase sprite y speed

CODE_03A012:		LDA !RAM_SpriteSpeedY,x			;\ if sprite y speed is negative or less than 0x20:

			CMP #$20				; |

			BMI CODE_03A038				;/ branch

			JSR CODE_03A045

			STZ !RAM_SpriteState,x			; return to first sprite state

			LDA $1534,x				;\ reset sprite position to its original values

			STA !RAM_SpriteYHi,x			; |

			LDA $1594,x				; |

			STA !RAM_SpriteYLo,x			;/

			LDA #$40				;\ set time until next sprite state change

			STA $1540,x				;/

CODE_03A038:

			LDA !RAM_SpriteSpeedY,x			;\ if sprite y speed less than 06 in either direction (at the top of its lunge),

			CLC					; |

			ADC #$06				; |

			CMP #$0C				; |

			BCS Return03A044			;/ return

			INC $1602,x				; set graphics frame to use

Return03A044:		RTS



CODE_03A045:

			LDA !RAM_SpriteYLo,x			;\ temporarily change y position of sprite

			PHA					; |

			SEC					; |

			SBC #$0C				; |

			STA !RAM_SpriteYLo,x			; |

			LDA !RAM_SpriteYHi,x			; |

			PHA					; |

			SBC #$00				; |

			STA !RAM_SpriteYHi,x			;/

			JSL $028528				; show lava splash

			PLA					;\ restore y position of sprite

			STA !RAM_SpriteYHi,x			; |

			PLA					; |

			STA !RAM_SpriteYLo,x			;/

			RTS					; return





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Graphics routine

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





!Eye_Tile		= $A0





Sprite_Graphics:	JSR GET_DRAW_INFO

			LDA !RAM_SpriteState,x			;\ if sprite state == 0,

			BEQ CODE_03A038				;/ branch (skip graphics routine)

			CMP #$04				;\ if sprite state == 4,

			BEQ CODE_03A09D				;/ branch (full graphics routine)



			LDA #!Eye_Tile

			STA !OAM_Tile,y

			LDA $00

			STA !OAM_DispX,y

			LDA $01

			STA !OAM_DispY,Y

			LDA $15F6,x



			PHY

			LDY !RAM_SpriteDir,X

			BNE No_X_Flip

			EOR #$40

No_X_Flip:

			PLY

			ORA $64

			STA !OAM_Prop,Y



			LDY #$02				; \ 460 = 2 (all 16x16 tiles)

			LDA #$00				;  | A = (number of tiles drawn - 1)

			JSL $01B7B3				; / don't draw if offscreen

			RTS					; return





X_Offset:		db $F8,$08,$F8,$08,$18,$08,$F8,$08

			db $F8,$E8



Y_Offset:		db $F8,$F8,$08,$08,$08



BlarggTilemap:		db $A2,$A4,$C2,$C4,$A6,$A2,$A4,$E6

			db $C8,$A6



CODE_03A09D:		LDA $1602,x				;\ use graphics frame to determine initial tile table offset

			ASL					; |

			ASL					; |

			ADC $1602,x				; |

			STA $03					;/

			LDA !RAM_SpriteDir,x

			STA $02

			PHX					; preserve sprite index

			LDX #$04				; setup loop counter

CODE_03A0AF:		PHX					;\ preserve it in the stack,

			PHX					;/ twice

			LDA $01					;\ set y position of tile

			CLC					; |

			ADC Y_Offset,x				; |

			STA !OAM_DispY,y				;/

			LDA $02					;\ use sprite direction to determine offset for x offset table

			BNE CODE_03A0C3				; |

			TXA					; |

			CLC					; |

			ADC #$05				; |

			TAX					;/

CODE_03A0C3:		LDA $00					;\ set x position of tile

			CLC					; |

			ADC X_Offset,x				; |

			STA !OAM_DispX,y			;/

			PLA					; retrieve loop counter

			CLC					;\ add in initial tile table offset

			ADC $03					; |

			TAX					;/

			LDA BlarggTilemap,x			;\ set tile number

			STA !OAM_Tile,y				;/

			PHX					; preserve loop counter

			LDX $15E9				; load sprite index

			LDA $15F6,x				; load sprite graphics properties

			PHY					; preserve OAM index

			LDY $02					;\ if sprite facing right,

			BNE No_X_Flip2				; |

			EOR #$40				;/ flip tile

No_X_Flip2:		PLY					; retrieve OAM index

			PLX					; retrieve loop counter

			ORA $64					; add in level properties

			STA !OAM_Prop,Y				; set tile properties

			PLX					; retrieve loop counter

			INY					;\ as we wrote a 16x16 tile to OAM, we need to increase the pointer by 4

			INY					; |

			INY					; |

			INY					;/

			DEX					; decrease loop counter

			BPL CODE_03A0AF				; if still tiles left to draw, go to start of loop

			PLX					; retrieve sprite index

			LDY #$02				; the tiles written were 16x16

			LDA #$04				; we wrote five tiles

			JSL $01B7B3

			RTS					; return







;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; $B760 - graphics routine helper - shared

; sets off screen flags and sets index to OAM

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;org $03B75C



TABLE1:			db $0C,$1C

TABLE2:			db $01,$02



GET_DRAW_INFO:		STZ $186C,x             ; reset sprite offscreen flag, vertical

			STZ $15A0,x             ; reset sprite offscreen flag, horizontal

			LDA $E4,x               ; \

			CMP $1A                 ;  | set horizontal offscreen if necessary

			LDA $14E0,x             ;  |

			SBC $1B                 ;  |

			BEQ ON_SCREEN_X         ;  |

			INC $15A0,x             ; /



ON_SCREEN_X:		LDA $14E0,x             ; \

			XBA			;  |

			LDA $E4,x               ;  |

			REP #$20                ;  |

			SEC			;  |

			SBC $1A                 ;  | mark sprite invalid if far enough off screen

			CLC			;  |

			ADC #$0040            ;  |

			CMP #$0180            ;  |

			SEP #$20                ;  |

			ROL A                   ;  |

			AND #$01                ;  |

			STA $15C4,x             ; / 

			BNE INVALID             ; 

			

			LDY #$00                ; \ set up loop:

			LDA $1662,x             ;  | 

			AND #$20                ;  | if not smushed (1662 & 0x20), go through loop twice

			BEQ ON_SCREEN_LOOP      ;  | else, go through loop once

			INY			; / 

ON_SCREEN_LOOP:		LDA $D8,x               ; \ 

			CLC			;  | set vertical offscreen if necessary

			ADC TABLE1,y            ;  |

			PHP			;  |

			CMP $1C                 ;  | (vert screen boundry)

			ROL $00                 ;  |

			PLP			;  |

			LDA $14D4,x             ;  | 

			ADC #$00                ;  |

			LSR $00                 ;  |

			SBC $1D                 ;  |

			BEQ ON_SCREEN_Y         ;  |

			LDA $186C,x             ;  | (vert offscreen)

			ORA TABLE2,y            ;  |

			STA $186C,x             ;  |

ON_SCREEN_Y:		DEY			;  |

			BPL ON_SCREEN_LOOP      ; /



			LDY $15EA,x             ; get offset to sprite OAM

			LDA $E4,x               ; \ 

			SEC			;  | 

			SBC $1A                 ;  | $00 = sprite x position relative to screen boarder

			STA $00                 ; / 

			LDA $D8,x               ; \ 

			SEC			;  | 

			SBC $1C                 ;  | $01 = sprite y position relative to screen boarder

			STA $01                 ; / 

			RTS			; return



INVALID:		PLA			; \ return from *main gfx routine* subroutine...

			PLA			;  |    ...(not just this subroutine)

			RTS			; /



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; SUB_OFF_SCREEN

; This subroutine deals with sprites that have moved off screen

; It is adapted from the subroutine at $01AC0D

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

			

SPR_T12:		db $40,$B0

SPR_T13:		db $01,$FF

SPR_T14:		db $30,$C0,$A0,$C0,$A0,$F0,$60,$90		;bank 1 sizes

			db $30,$C0,$A0,$80,$A0,$40,$60,$B0		;bank 3 sizes

SPR_T15:		db $01,$FF,$01,$FF,$01,$FF,$01,$FF		;bank 1 sizes

			db $01,$FF,$01,$FF,$01,$00,$01,$FF		;bank 3 sizes



SUB_OFF_SCREEN_X1:	LDA #$02                ; \ entry point of routine determines value of $03

			BRA STORE_03            ;  | (table entry to use on horizontal levels)

SUB_OFF_SCREEN_X2:	LDA #$04                ;  | 

			BRA STORE_03            ;  |

SUB_OFF_SCREEN_X3:	LDA #$06                ;  |

			BRA STORE_03            ;  |

SUB_OFF_SCREEN_X4:	LDA #$08                ;  |

			BRA STORE_03            ;  |

SUB_OFF_SCREEN_X5:	LDA #$0A                ;  |

			BRA STORE_03            ;  |

SUB_OFF_SCREEN_X6:	LDA #$0C                ;  |

			BRA STORE_03            ;  |

SUB_OFF_SCREEN_X7:	LDA #$0E                ;  |

STORE_03:		STA $03			;  |            

			BRA START_SUB		;  |

SUB_OFF_SCREEN_X0:	STZ $03			; /



START_SUB:		JSR SUB_IS_OFF_SCREEN   ; \ if sprite is not off screen, return

			BEQ RETURN_35           ; /

			LDA $5B                 ; \  goto VERTICAL_LEVEL if vertical level

			AND #$01                ; |

			BNE VERTICAL_LEVEL      ; /     

			LDA $D8,x               ; \

			CLC			; | 

			ADC #$50                ; | if the sprite has gone off the bottom of the level...

			LDA $14D4,x             ; | (if adding 0x50 to the sprite y position would make the high byte >= 2)

			ADC #$00                ; | 

			CMP #$02                ; | 

			BPL ERASE_SPRITE        ; /    ...erase the sprite

			LDA $167A,x             ; \ if "process offscreen" flag is set, return

			AND #$04                ; |

			BNE RETURN_35           ; /

			LDA $13                 ;A:8A00 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdiZcHC:0756 VC:176 00 FL:205

			AND #$01                ;A:8A01 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizcHC:0780 VC:176 00 FL:205

			ORA $03                 ;A:8A01 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizcHC:0796 VC:176 00 FL:205

			STA $01                 ;A:8A01 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizcHC:0820 VC:176 00 FL:205

			TAY			;A:8A01 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizcHC:0844 VC:176 00 FL:205

			LDA $1A                 ;A:8A01 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizcHC:0858 VC:176 00 FL:205

			CLC			;A:8A00 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdiZcHC:0882 VC:176 00 FL:205

			ADC SPR_T14,y           ;A:8A00 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdiZcHC:0896 VC:176 00 FL:205

			ROL $00                 ;A:8AC0 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:eNvMXdizcHC:0928 VC:176 00 FL:205

			CMP $E4,x               ;A:8AC0 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:eNvMXdizCHC:0966 VC:176 00 FL:205

			PHP			;A:8AC0 X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizCHC:0996 VC:176 00 FL:205

			LDA $1B                 ;A:8AC0 X:0009 Y:0001 D:0000 DB:01 S:01F0 P:envMXdizCHC:1018 VC:176 00 FL:205

			LSR $00                 ;A:8A00 X:0009 Y:0001 D:0000 DB:01 S:01F0 P:envMXdiZCHC:1042 VC:176 00 FL:205

			ADC SPR_T15,y           ;A:8A00 X:0009 Y:0001 D:0000 DB:01 S:01F0 P:envMXdizcHC:1080 VC:176 00 FL:205

			PLP			;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F0 P:eNvMXdizcHC:1112 VC:176 00 FL:205

			SBC $14E0,x             ;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizCHC:1140 VC:176 00 FL:205

			STA $00                 ;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F1 P:eNvMXdizCHC:1172 VC:176 00 FL:205

			LSR $01                 ;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F1 P:eNvMXdizCHC:1196 VC:176 00 FL:205

			BCC SPR_L31             ;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdiZCHC:1234 VC:176 00 FL:205

			EOR #$80                ;A:8AFF X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdiZCHC:1250 VC:176 00 FL:205

			STA $00                 ;A:8A7F X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizCHC:1266 VC:176 00 FL:205

SPR_L31:		LDA $00                 ;A:8A7F X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizCHC:1290 VC:176 00 FL:205

			BPL RETURN_35           ;A:8A7F X:0009 Y:0001 D:0000 DB:01 S:01F1 P:envMXdizCHC:1314 VC:176 00 FL:205

ERASE_SPRITE:		LDA $14C8,x             ; \ if sprite status < 8, permanently erase sprite

			CMP #$08                ; |

			BCC KILL_SPRITE         ; /    

			LDY $161A,x             ;A:FF08 X:0007 Y:0001 D:0000 DB:01 S:01F3 P:envMXdiZCHC:1108 VC:059 00 FL:2878

			CPY #$FF                ;A:FF08 X:0007 Y:0000 D:0000 DB:01 S:01F3 P:envMXdiZCHC:1140 VC:059 00 FL:2878

			BEQ KILL_SPRITE         ;A:FF08 X:0007 Y:0000 D:0000 DB:01 S:01F3 P:envMXdizcHC:1156 VC:059 00 FL:2878

			LDA #$00                ;A:FF08 X:0007 Y:0000 D:0000 DB:01 S:01F3 P:envMXdizcHC:1172 VC:059 00 FL:2878

			STA $1938,y             ;A:FF00 X:0007 Y:0000 D:0000 DB:01 S:01F3 P:envMXdiZcHC:1188 VC:059 00 FL:2878

KILL_SPRITE:		STZ $14C8,x             ; erase sprite

RETURN_35:		RTS			 ; return



VERTICAL_LEVEL:		LDA $167A,x             ; \ if "process offscreen" flag is set, return

			AND #$04                ; |

			BNE RETURN_35           ; /

			LDA $13                 ; \

			LSR A                   ; | 

			BCS RETURN_35           ; /

			LDA $E4,x               ; \ 

			CMP #$00                ;  | if the sprite has gone off the side of the level...

			LDA $14E0,x             ;  |

			SBC #$00                ;  |

			CMP #$02                ;  |

			BCS ERASE_SPRITE        ; /  ...erase the sprite

			LDA $13                 ;A:0000 X:0009 Y:00E4 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:1218 VC:250 00 FL:5379

			LSR A                   ;A:0016 X:0009 Y:00E4 D:0000 DB:01 S:01F3 P:envMXdizcHC:1242 VC:250 00 FL:5379

			AND #$01                ;A:000B X:0009 Y:00E4 D:0000 DB:01 S:01F3 P:envMXdizcHC:1256 VC:250 00 FL:5379

			STA $01                 ;A:0001 X:0009 Y:00E4 D:0000 DB:01 S:01F3 P:envMXdizcHC:1272 VC:250 00 FL:5379

			TAY			;A:0001 X:0009 Y:00E4 D:0000 DB:01 S:01F3 P:envMXdizcHC:1296 VC:250 00 FL:5379

			LDA $1C                 ;A:001A X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0052 VC:251 00 FL:5379

			CLC			;A:00BD X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0076 VC:251 00 FL:5379

			ADC SPR_T12,y           ;A:00BD X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0090 VC:251 00 FL:5379

			ROL $00                 ;A:006D X:0009 Y:0001 D:0000 DB:01 S:01F3 P:enVMXdizCHC:0122 VC:251 00 FL:5379

			CMP $D8,x               ;A:006D X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNVMXdizcHC:0160 VC:251 00 FL:5379

			PHP			;A:006D X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNVMXdizcHC:0190 VC:251 00 FL:5379

			LDA $001D               ;A:006D X:0009 Y:0001 D:0000 DB:01 S:01F2 P:eNVMXdizcHC:0212 VC:251 00 FL:5379

			LSR $00                 ;A:0000 X:0009 Y:0001 D:0000 DB:01 S:01F2 P:enVMXdiZcHC:0244 VC:251 00 FL:5379

			ADC SPR_T13,y           ;A:0000 X:0009 Y:0001 D:0000 DB:01 S:01F2 P:enVMXdizCHC:0282 VC:251 00 FL:5379

			PLP			;A:0000 X:0009 Y:0001 D:0000 DB:01 S:01F2 P:envMXdiZCHC:0314 VC:251 00 FL:5379

			SBC $14D4,x             ;A:0000 X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNVMXdizcHC:0342 VC:251 00 FL:5379

			STA $00                 ;A:00FF X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0374 VC:251 00 FL:5379

			LDY $01                 ;A:00FF X:0009 Y:0001 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0398 VC:251 00 FL:5379

			BEQ SPR_L38             ;A:00FF X:0009 Y:0001 D:0000 DB:01 S:01F3 P:envMXdizcHC:0422 VC:251 00 FL:5379

			EOR #$80                ;A:00FF X:0009 Y:0001 D:0000 DB:01 S:01F3 P:envMXdizcHC:0438 VC:251 00 FL:5379

			STA $00                 ;A:007F X:0009 Y:0001 D:0000 DB:01 S:01F3 P:envMXdizcHC:0454 VC:251 00 FL:5379

SPR_L38:		LDA $00                 ;A:007F X:0009 Y:0001 D:0000 DB:01 S:01F3 P:envMXdizcHC:0478 VC:251 00 FL:5379

			BPL RETURN_35           ;A:007F X:0009 Y:0001 D:0000 DB:01 S:01F3 P:envMXdizcHC:0502 VC:251 00 FL:5379

			BMI ERASE_SPRITE        ;A:8AFF X:0002 Y:0000 D:0000 DB:01 S:01F3 P:eNvMXdizcHC:0704 VC:184 00 FL:5490



SUB_IS_OFF_SCREEN:	LDA $15A0,x             ; \ if sprite is on screen, accumulator = 0 

			ORA $186C,x             ; |  

			RTS			; / return



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; $B817 - horizontal mario/sprite check - shared

; Y = 1 if mario left of sprite??

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



                    ;org $03B817        



SUB_HORZ_POS:       LDY #$00                ;A:25D0 X:0006 Y:0001 D:0000 DB:03 S:01ED P:eNvMXdizCHC:1020 VC:097 00 FL:31642

                    LDA $94                 ;A:25D0 X:0006 Y:0000 D:0000 DB:03 S:01ED P:envMXdiZCHC:1036 VC:097 00 FL:31642

                    SEC                     ;A:25F0 X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizCHC:1060 VC:097 00 FL:31642

                    SBC $E4,x               ;A:25F0 X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizCHC:1074 VC:097 00 FL:31642

                    STA $0F                 ;A:25F4 X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizcHC:1104 VC:097 00 FL:31642

                    LDA $95                 ;A:25F4 X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizcHC:1128 VC:097 00 FL:31642

                    SBC $14E0,x             ;A:2500 X:0006 Y:0000 D:0000 DB:03 S:01ED P:envMXdiZcHC:1152 VC:097 00 FL:31642

                    BPL LABEL16             ;A:25FF X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizcHC:1184 VC:097 00 FL:31642

                    INY                     ;A:25FF X:0006 Y:0000 D:0000 DB:03 S:01ED P:eNvMXdizcHC:1200 VC:097 00 FL:31642

LABEL16:            RTS                     ;A:25FF X:0006 Y:0001 D:0000 DB:03 S:01ED P:envMXdizcHC:1214 VC:097 00 FL:31642

#

hab ich entfernt. das ziel wird auch nicht mehr ausgelöst ;P aber ich hab den Blargg jetzt in einem raum mit dem teleporter sprite (also der dich teleportiert wenn alle sprites weg sind) in einen raum getan , wenn blargg tot ist , dann chillt mario in der luft und der teleporter wirkt nich :l

#

Klappt einwandfrei Danke

#

Hey weiß jemand zufällig wie man diesen Sprite (also das ist der Air meter) so ändert , dass er auch ohne wasser sinkt ?

Code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



	RAM_AirMeter = $7F8827



	;; Where to place the meter relative to the screen boarder

	MeterPositionX = $E8

	MeterPositionY = $1E

	

	;; Possible values for the below variables:

	;;   (fast) $00, $01, $03, $07, $0f, $1f, $3f, $7f, $ff (slow)

	CountDownFrequency = $03

	CountUpFrequency = $00



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	

;; INIT and MAIN routines

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



	DCB "INIT"

	LDA #$FF

	STA RAM_AirMeter

	RTL



        DCB "MAIN"

        PHB

        PHK

        PLB

        JSR MainSub

        PLB

        RTL

        

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Sprite Main

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MainSub:

	LDA RAM_AirMeter	; Play warning sounds



	CMP #$1C

	BEQ Sound

	CMP #$14

	BEQ Sound

	CMP #$0C

	BNE NoSound

Sound:	

	LDA #$2a

	STA $1DFC

NoSound:

	

	;; 	LDA RAM_AirMeter	; Change Mario's face blue

	;; 	CMP #$30

	;; 	BCS NoChangePal

	;; 	

	;;      LDY #$86              

	;;  	STY $2121             

	;; 	

	;; 	LDA #$31

	;; 	STA $2122

	;; 	LDA #$7e

	;; 	STA $2122	

	;; 	

	;; 	LDY #$8e              

	;;  	STY $2121             

	;; 	

	;; 	LDA #$ad

	;; 	STA $2122

	;; 	LDA #$6d

	;; 	STA $2122

	;; NoPalChange:

	

	LDA RAM_AirMeter	; If the meter is full...

	CMP #$FF		;  

	BNE Gfx			; ...and it has been for some time...

	LDA $1540,x		;

	BEQ NoGfx		; ...then skip the graphics routine

Gfx:	

	JSR SubGfx		; Draw the sprite

NoGfx:	



	LDA $9D			; Return if sprites are locked

	BNE Return0



	LDA $75

	BEQ CountUp

CountDown:

	LDA $13

	AND #CountDownFrequency

	BNE SkipMeter



	LDA RAM_AirMeter

	DEC A

	BNE SetMeter

	BRA KillMario

CountUp:

	LDA $13

	AND #CountUpFrequency

	BNE SkipMeter

	

	LDA RAM_AirMeter

	CMP #$FF

	BEQ SkipMeter



	LDA #$48

	STA $1540,x

	

	LDA RAM_AirMeter

	INC A

	;; 	LDA #$FF		; NOTE: Reinstate to make the meter instantly reset when not in water

SetMeter:	

	STA RAM_AirMeter

	

SkipMeter:		

	LDA $1a			; Position = Screen boundary

	CLC

	ADC #$80

	STA $E4,x		; This is done so the sprite stays on screen

	LDA $1b

	ADC #$00

	STA $14E0,x

	LDA $1c

	STA $D8,x

	LDA $1d

	STA $14D4,x

Return0:	

	RTS



KillMario:

	LDA #$90

	STA $7D

	LDA #$09		; Set death animation

	STA $71

	STA $1DFB		; Set death music

	LDA #$FF

	STA $0DDA

	LDA #$30		; Set time until we return to the OW

	STA $1496

	STA $9D

	STZ $140D

	STZ $1407

	STZ $188A

	RTS





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Graphics Routine

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



	NumTiles = $05

	

SpriteTileDispX:    dcb $00,$08,$10,$18,$20,$27

SpriteTileDispY:    dcb $28,$20,$18,$10,$08,$01

SpriteGfxProp:	    dcb $80,$00,$00,$00,$00,$00



Palettes:           dcb $09,$05,$0B

	

SubGfx:

	JSR GetPalette

	;; 	LDA $15F6,x		; NOTE: Reinstate to use the palette from the cfg file

	STA $02

	

	LDA RAM_AirMeter	; Load address to be timed

	LSR

	LSR

	LSR

	STA $03

	

        LDY $15EA,x             ; get offset to sprite OAM                           



        PHX

        LDX #NumTiles

GfxLoopStart:



        LDA #MeterPositionX

        STA $0300,Y

	

	LDA #MeterPositionY

	CLC

	ADC SpriteTileDispY,x

        STA $0301,Y



	LDA $03

	JSR CalculateTile

        STA $0302,Y

	

        LDA $02

        ORA SpriteGfxProp,x

	ORA #$20

        STA $0303,Y

	

        INY    

        INY                     

        INY                     

        INY                     



	DEX

        BPL GfxLoopStart

	PLX



        LDY #$00

        LDA #NumTiles

        JSL $01B7B3

        RTS                       



GetPalette:

	LDY #$00

	LDA RAM_AirMeter

	CMP #$55

	BCC LoadPalette

	INY

	CMP #$AA

	BCC LoadPalette

	INY

LoadPalette:

	LDA Palettes,y

	RTS	

		

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	

CalculateTile:

	CPX #$00

	BEQ EndPiece

	CPX #NumTiles

	BEQ EndPiece



	PHA

	TXA

	DEC A

	ASL

	ASL

	ASL

	STA $00

	PLA



	SEC

	SBC $00

	BMI EmptyTile

	

	CMP #$08 	

	BCS FullTile



	AND #$07

	CLC

	ADC #$47

	CMP #$4B

	BCC Return

	CLC

	ADC #$0C

Return:	

	RTS



FullTile:

	LDA #$46

	RTS

EmptyTile:

	LDA #$47

	RTS

EndPiece:

	LDA #$56

	RTS

#

kann mir da keiner helfen :l ?

#

danke , ich werde es gleich mal ausprobiern.

#

habs ausprobiert , der Air meter ist jetzt garnich erschienen.

#

erscheint immernoch nicht , aber dennoch danke für die mühe

#

☰ Menü

Beiträge von Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7

Mawwo7