Forums PureBasic - Français
https://www.purebasic.fr/french/
Code : Tout sélectionner
;*****************************************************************************************************************************************************************************************
;
; - Mario Atari 7800 pseudo clone
; GRom
;
#WAVE_FILE = 0 ; undef this if you dont have sound media
Macro PlaySoundEX(id,flag)
CompilerIf #WAVE_FILE
PlaySound(id,flag)
CompilerEndIf
EndMacro
RandomSeed( Random($FFFFFF) )
Structure Entity
SpriteId.l
X.d
Y.d
VX.d
VY.d
AnimTime.l
AnimSpeed.l
FlipMe.b
anim_left_min.l
anim_left_max.l
anim_right_min.l
anim_right_max.l
jumping.b
jump_height.d
onground.b
max_velx.d
max_vely.d
gravity.f
use_physic.b
is_ghost.b
blink.l
wrap.b
deleteme.b
EndStructure
Structure Pnj Extends Entity
jumper.b
jump_time.l
jump_delay.l
direction.l ; 1 right , 0 left
entry_mode.l; 1 out ; 0 in
collide_time.l ; prevent infinite collision
is_cool.b
EndStructure
Structure Coin Extends Entity
direction.l ; 1 right , 0 left
uncollect_time.l ; prevent collect at spawn
EndStructure
Structure Player Extends Entity
is_die.b
freeze_time.l
invincible.b
invincible_time.l
life.l
next_life.l
score.l
EndStructure
Structure Missile Extends Entity
IsFalling.I
direction.l
EndStructure
Global max_mob = 1
Global mob_spawn_delay
Global speed_factor.f = 1
Global Mario.Player
Global NewList Mob.Pnj()
Global NewList Bonus.Coin()
Global NewList Missile.Missile()
Global ScoreDelta = 50
Mario\x = 8 * 8
Mario\y = (10 * 8)
Mario\spriteid = 12
Mario\jump_height = 3.8
Mario\animspeed = 50
Mario\anim_right_min = 12
Mario\anim_right_max = 14
Mario\anim_left_min = 18
Mario\anim_left_max = 20
Mario\gravity = 0.2
Mario\use_physic = #True
Mario\is_die = #False
Mario\is_ghost = #False
Mario\invincible = #False
Mario\Life = 4
Mario\wrap = #True
Mario\next_life = 3000
Declare.l getcolor(rgb)
Declare draw_value(value.l,x,y)
Declare check_solid(x.d,y.d)
Declare is_solid(tilex,tiley)
Declare spawn_mob()
Declare draw_entity(*e.entity)
Declare update_physic(*e.Entity)
Declare entity_collide(*a.Entity, *b.Entity)
Declare entity_collide_point(*e.entity,x.f,y.f, velocity.b = #False)
Declare spawn_coin(x,y,d)
Declare spawn_missile(y)
Declare draw_missile(*m.Missile)
Declare update_missile(*m.missile)
InitSprite() : InitKeyboard() : InitMouse() : InitSound() : joypad = InitJoystick()
ExamineDesktops()
Global dw = DesktopWidth(0)
Global dh = DesktopHeight(0)
Global deltatime.d = 0
OpenScreen(dw,dh,32,"",#PB_Screen_NoSynchronization)
Global gpu_texture = CreateSprite(#PB_Any,48,48,#PB_Sprite_AlphaBlending)
Global Dim Color.l(16)
CopyMemory(?palette, @Color(), ?end_palette - ?palette)
Global Dim Texture.b(48*48)
CopyMemory(?texture, @Texture(), ?end_texture - ?texture)
Global Dim Tilemap.b(19*16)
CopyMemory(?tilemap, @Tilemap(), ?end_tilemap - ?tilemap)
Global Dim SolidTile.b(?end_solid_tile - ?solid_tile)
CopyMemory(?solid_tile, @SolidTile(), ?end_solid_tile - ?solid_tile)
Global Dim SubSprite.l(36)
StartDrawing(SpriteOutput(gpu_texture))
For y = 0 To 47
For x = 0 To 47
index = x + 48 * y
Plot(x,y, Color( Texture(index) ) )
Next
Next
StopDrawing()
Procedure DisplayTransparentSprite_(N, X, Y)
DisplayTransparentSprite(N, ((DW - DH) / 2) + (X * DH) / 128.0, Y * DH / 128)
EndProcedure
DisplaySprite(gpu_texture,0,0)
For clip = 0 To 35
x = clip % 6
y = clip / 6
SubSprite(clip) = GrabSprite(#PB_Any,x*8,y*8,8,8)
TransparentSpriteColor(SubSprite(clip), RGB(255,0,255))
ZoomSprite(SubSprite(clip), dh / 16, dh / 16) ; <<<<<<<<<<<<<<<<<<<<
Next
CompilerIf #WAVE_FILE
; sound_jump = LoadSound(#PB_Any,"jump.wav")
; sound_hurt = LoadSound(#PB_Any,"hurt.wav")
; sound_kill = LoadSound(#PB_Any,"kill.wav")
; sound_coin = LoadSound(#PB_Any,"coin.wav")
; sound_fall = LoadSound(#PB_Any,"falling.wav")
; sound_respawn = LoadSound(#PB_Any,"respawn.wav")
; sound_rejump = LoadSound(#PB_Any,"rejump.wav")
; sound_missile = LoadSound(#PB_Any,"missile.wav")
; sound_extralife = LoadSound(#PB_Any,"extralife.wav")
sound_jump = CatchSound(#PB_Any,?bin_sound_jump, ?bin_sound_jump_e - ?bin_sound_jump)
sound_hurt = CatchSound(#PB_Any,?bin_sound_hurt, ?bin_sound_hurt_e - ?bin_sound_hurt)
sound_kill = CatchSound(#PB_Any,?bin_sound_kill, ?bin_sound_kill_e - ?bin_sound_kill)
sound_coin = CatchSound(#PB_Any,?bin_sound_coin, ?bin_sound_coin_e - ?bin_sound_coin)
sound_fall = CatchSound(#PB_Any,?bin_sound_falling, ?bin_sound_falling_e - ?bin_sound_falling)
sound_respawn = CatchSound(#PB_Any,?bin_sound_respawn, ?bin_sound_respawn_e - ?bin_sound_respawn)
sound_rejump = CatchSound(#PB_Any,?bin_sound_rejump, ?bin_sound_rejump_e - ?bin_sound_rejump)
sound_missile = CatchSound(#PB_Any,?bin_sound_missile, ?bin_sound_missile_e - ?bin_sound_missile)
sound_extralife = CatchSound(#PB_Any,?bin_sound_extralife, ?bin_sound_extralife_e - ?bin_sound_extralife)
CompilerEndIf
; spawn_missile(14)
missile_timer = ElapsedMilliseconds() + 4000
missile_middle_timer = ElapsedMilliseconds() + 10000
; boucle principale
;
accumulator.d = 0
While #True
ExamineKeyboard()
deltatime = (ElapsedMilliseconds() - lasttime.d) / 1000
lasttime = ElapsedMilliseconds()
accumulator + deltatime
If mob_spawn_delay < ElapsedMilliseconds() And ListSize(Mob()) < max_mob
mob_spawn_delay = ElapsedMilliseconds() + Random(3000,750)
spawn_mob()
EndIf
;
;-INPUT
;
If KeyboardPushed(#PB_Key_Escape)
Break
EndIf
If Mario\is_die = #False
If joypad
If ExamineJoystick(0)
joy_axisx = JoystickAxisX(0)
joy_button = JoystickButton(0,3)
EndIf
EndIf
If KeyboardPushed(#PB_Key_Right) Or joy_axisx = 1
Mario\vx = 1
Mario\flipme = #False
EndIf
If KeyboardPushed(#PB_Key_Left) Or joy_axisx = -1
Mario\vx = -1
Mario\flipme = #True
EndIf
If KeyboardPushed(#PB_Key_Space) Or joy_button = 1
Mario\jumping = #True
If sound_jump_flag = 0
sound_jump_flag = 1
PlaySoundEX(sound_jump,#PB_Sound_MultiChannel)
EndIf
Else
sound_jump_flag = 0
Mario\jumping = #False
EndIf
If Not (KeyboardPushed(#PB_Key_Right) Or joy_axisx = 1) And Not (KeyboardPushed(#PB_Key_Left) Or joy_axisx = -1 )
Mario\vx = 0
EndIf
EndIf
;-GAME LOGIC
; Spawn missile
If Mario\y < 32 And missile_timer < ElapsedMilliseconds()
missile_timer = ElapsedMilliseconds() + 5000
spawn_missile(Random(2))
PlaySoundEX(sound_missile,#PB_Sound_MultiChannel)
ElseIf Mario\y > 32
missile_timer = ElapsedMilliseconds() + 5000
EndIf
If Mario\y > 32 And Mario\y< 96 And missile_middle_timer < ElapsedMilliseconds()
missile_middle_timer = ElapsedMilliseconds() + 10000
spawn_missile(Random(10,4))
PlaySoundEX(sound_missile,#PB_Sound_MultiChannel)
ElseIf (Mario\y < 32 Or Mario\y > 96)
missile_middle_timer = ElapsedMilliseconds() + 10000
EndIf
If Mario\score => Mario\next_life
Mario\next_life + 3000
Mario\life + 1
PlaySoundEX(sound_extralife,#PB_Sound_MultiChannel)
EndIf
; Mario die ( jumping )
If Mario\is_die And Mario\freeze_time < ElapsedMilliseconds() And Mario\use_physic = #False
Mario\use_physic = #True
Mario\vy = -Mario\jump_height
PlaySoundEX(sound_fall,#PB_Sound_MultiChannel)
EndIf
If Mario\is_die And Mario\y > 2048
Mario\Life - 1
If Mario\Life = 0
End
EndIf
Mario\invincible = #True
Mario\invincible_time = ElapsedMilliseconds() + 2000
Mario\x = 8 * 8
Mario\y = (10 * 8)
Mario\vy = 0
Mario\vx = 0
Mario\is_ghost = #False
Mario\is_die = #False
PlaySoundEX(sound_respawn,#PB_Sound_MultiChannel)
EndIf
If Mario\invincible And Mario\invincible_time > ElapsedMilliseconds()
Mario\blink+1 : Mario\blink%4
ElseIf Mario\invincible And Mario\invincible_time < ElapsedMilliseconds()
Mario\invincible = #False
Mario\blink = 0
EndIf
ForEach(Bonus())
If( entity_collide_point(@Mario,Bonus()\x + 4 , Bonus()\y + 4) ) And Bonus()\uncollect_time < ElapsedMilliseconds()
Mario\score + 1000
PlaySoundEX(sound_coin,#PB_Sound_MultiChannel)
If DeleteElement(Bonus(),1)=0
Break
EndIf
EndIf
If Bonus()\direction = 1
Bonus()\vx = 0.5
Else
Bonus()\vx = -0.5
EndIf
If Bonus()\deleteme
DeleteElement(Bonus())
EndIf
Next
ForEach(@Mob())
Mob()\vx = 0.2
If Mob()\jumper = #True
If Mob()\jump_time < ElapsedMilliseconds()
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
Mob()\jumping = #True
Else
Mob()\jumping = #False
EndIf
EndIf
If Mob()\direction = 1
Mob()\vx = 0.25
Else
Mob()\vx = -0.25
EndIf
; down pipe enter
;
If Round(Mob()\x/8,#PB_Round_Down) = 0 And Round(Mob()\y/8,#PB_Round_Down) = 14 And Mob()\vx < 0
Mob()\use_physic = #False
Mob()\entry_mode = 0
Mob()\is_cool = #True
EndIf
If Round(Mob()\x/8,#PB_Round_Down) = 16 And Round(Mob()\y/8,#PB_Round_Down) = 14 And Mob()\vx > 0
Mob()\use_physic = #False
Mob()\entry_mode = 0
Mob()\is_cool = #True
EndIf
If Mob()\use_physic = #False
; down pipe enter move
If Mob()\entry_mode = 0
If Round(Mob()\y/8,#PB_Round_Down) > 12
Mob()\y - 0.25
EndIf
; left pipe
If Mob()\vx < 0 And Round(Mob()\y/8,#PB_Round_Down) = 12
Mob()\x - 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 0
Mob()\x = 1*8
Mob()\y = 1*8
Mob()\entry_mode = 1
Mob()\direction = 1
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
EndIf
EndIf
; right pipe
If Mob()\vx > 0 And Round(Mob()\y/8,#PB_Round_Down) = 12
Mob()\x + 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 17
Mob()\x = 16*8
Mob()\y = 1*8
Mob()\entry_mode = 1
Mob()\direction = 0
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
EndIf
EndIf
EndIf
; up pipe exit
If Mob()\entry_mode = 1
If Mob()\vx > 0
Mob()\x + 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 1 : Mob()\use_physic = #True : Mob()\is_cool = #False : EndIf
EndIf
If Mob()\vx < 0
Mob()\x - 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 15 : Mob()\use_physic = #True : Mob()\is_cool = #False : EndIf
EndIf
EndIf
EndIf
Next
While ( accumulator > 1.0/60.0 )
;-PHYSIC
;
update_physic(@Mario)
ForEach (Bonus())
update_physic(@Bonus())
Next
; collide Mob/Mob , Mob/Mario
ForEach(Mob())
; mob / mob
*c.Pnj = @Mob()
PushListPosition(Mob())
ForEach Mob()
If @Mob() <> *c And Mob()\collide_time < ElapsedMilliseconds()
If entity_collide(*c,@Mob())
*c\direction + 1 : *c\direction % 2
Mob()\direction + 1 : Mob()\direction %2
Mob()\collide_time = ElapsedMilliseconds() + 250
EndIf
EndIf
Next
PopListPosition(Mob())
If Mob()\is_cool = #False
; mob / mario
If entity_collide(@Mario,@Mob()) And Mario\is_die = #False
If Mario\y < Mob()\y
Mario\vy = -(Mario\jump_height/1.1)
If Random(10) = 0
spawn_coin(Mob()\x,Mob()\y,(Mob()\direction+1)%2 )
EndIf
Mario\score + ScoreDelta
ScoreDelta * 2
max_mob + 1
If max_mob > 8
max_mob = 8
EndIf
PlaySoundEX(sound_kill,#PB_Sound_MultiChannel)
PlaySoundEX(sound_rejump,#PB_Sound_MultiChannel)
If DeleteElement(Mob(),1) = 0
Break
EndIf
ElseIf Mario\y >= Mob()\y And Mario\invincible = #False
Mario\vx = 0
Mario\vy = 0
Mario\is_die = #True
Mario\is_ghost = #True
Mario\freeze_time = ElapsedMilliseconds() + 500
Mario\use_physic = #False
Mario\spriteid = 34
PlaySoundEX(sound_hurt,#PB_Sound_MultiChannel)
If Mario\life = 0
spr = GrabSprite(#PB_Any,0,0,dw,dh)
UsePNGImageEncoder()
SaveSprite(spr,"MyScore.png",#PB_ImagePlugin_PNG)
End
EndIf
EndIf
EndIf
EndIf
update_physic(@Mob())
Next
; missile "physic..."
;
ForEach Missile()
update_missile(@Missile())
; mISSILE / mario
If entity_collide(@Mario, @Missile() ) And Mario\is_die = #False
If Mario\y < Missile()\y
Missile()\IsFalling = 1
Mario\vy = -(Mario\jump_height/1.1)
If Random(10) = 0
spawn_coin(Missile()\x,Missile()\y,(Missile()\direction+1)%2 )
EndIf
ScoreDelta * 2
Mario\score + ScoreDelta
ScoreDelta * 2
ElseIf Mario\y >= Missile()\y And Mario\invincible = #False
Mario\vx = 0
Mario\vy = 0
Mario\is_die = #True
Mario\is_ghost = #True
Mario\freeze_time = ElapsedMilliseconds() + 500
Mario\use_physic = #False
Mario\spriteid = 34
Mario\life - 1
PlaySoundEX(sound_hurt,#PB_Sound_MultiChannel)
If Mario\life = 0
spr = GrabSprite(#PB_Any,0,0,dw,dh)
UsePNGImageEncoder()
SaveSprite(spr,"MyScore.png",#PB_ImagePlugin_PNG)
End
EndIf
EndIf
EndIf
If(Missile()\x < -200 Or Missile()\x > 328) Or Missile()\y > 2048
DeleteElement(Missile())
EndIf
Next
accumulator - (1.0/60.0)
Wend
;
;-DRAWING
;
ClearScreen(RGB(26,28,44))
; draw mob
ForEach(Mob())
draw_entity(@Mob())
Next
ForEach (Bonus())
draw_entity(@Bonus())
Next
ForEach Missile()
draw_missile(@Missile())
Next
; draw tilemap
For y = 0 To 15
For x = 0 To 17
index = x + 19 * y
DisplayTransparentSprite_( SubSprite(Tilemap( index )) ,x*8,y*8)
;
Next
Next
; draw mario
draw_entity(@Mario)
; draw score
draw_value( Mario\score, (64 - (((Len(Str(Mario\score))-1)*8)/2))+8 ,4)
; draw life
For i = 0 To Mario\Life - 2
DisplayTransparentSprite_(SubSprite(35),8+(i*8),0)
Next
DisplayTransparentSprite_(SubSprite(coin_id),(8+128)-8*4,0)
FlipBuffers()
Delay(16)
Wend
CloseScreen()
End
Procedure.l getcolor(rgb)
For i = 0 To 15
If Color(i) = rgb
ProcedureReturn i
EndIf
Next
EndProcedure
Procedure draw_value(value.l,x,y)
str$ = Str(value)
For i = 0 To Len(str$)-1
n.l = Val(Mid(str$,i+1,1))
DisplayTransparentSprite_( SubSprite( 24 + n ) , x + (i * 6),y)
Next
EndProcedure
Procedure check_solid(x.d, y.d)
ProcedureReturn is_solid(Round(x/8,#PB_Round_Down),Round(y/8,#PB_Round_Down))
EndProcedure
Procedure is_solid(tilex,tiley)
index = tilex + 19 * tiley
If index >= 0 And index < (19*16)
tile_id = Tilemap(index)
For i = 0 To (?end_solid_tile - ?solid_tile) - 1
If tile_id = SolidTile(i)
ProcedureReturn #True
EndIf
Next
EndIf
ProcedureReturn #False
EndProcedure
Procedure spawn_mob()
AddElement(Mob())
Mob()\jump_height = 1.0
If Random(9) > 2
Mob()\anim_left_min = 21
Mob()\anim_left_max = 22
Mob()\anim_right_min = 21
Mob()\anim_right_max = 22
Mob()\animspeed = 25
Mob()\jumper = #True
Mob()\jump_delay = 250
Else
Mob()\anim_left_min = 6
Mob()\anim_left_max = 8
Mob()\anim_right_min = 6
Mob()\anim_right_max = 8
Mob()\animspeed = 100
Mob()\jumper = #False
EndIf
Mob()\gravity = 0.1
Mob()\direction = Random(1)
Mob()\use_physic = #False
Mob()\entry_mode = 1
Mob()\is_ghost = #False
Mob()\is_cool = #False
Mob()\wrap = #True
If Mob()\direction = 1
Mob()\x = 0
Mob()\y = 1*8
Else
Mob()\x = 16*8
Mob()\y = 1*8
EndIf
EndProcedure
Procedure spawn_coin(x,y,direction)
AddElement(Bonus())
Bonus()\jumping = #True
Bonus()\jump_height = 0.5
Bonus()\anim_left_min = 15
Bonus()\anim_left_max = 17
Bonus()\anim_right_min = 15
Bonus()\anim_right_max = 17
Bonus()\animspeed = 25
Bonus()\gravity = 0.05
Bonus()\use_physic = #True
Bonus()\is_ghost = #False
Bonus()\wrap = #True
Bonus()\x = x
Bonus()\y = y
Bonus()\direction = direction
Bonus()\uncollect_time = ElapsedMilliseconds() + 100
If Bonus()\direction = 1
Bonus()\vx = 0.5
Bonus()\vy = -1.0
Else
Bonus()\vx = -0.5
Bonus()\vy = -1.0
EndIf
EndProcedure
Procedure spawn_missile(y)
AddElement(Missile())
Missile()\use_physic = #False
Missile()\direction = Random(1)
If Missile()\direction
Missile()\x = - 16
Missile()\y = y * 8
Missile()\vx = 1
Else
Missile()\x = 128
Missile()\y = y * 8
Missile()\vx = -1
EndIf
EndProcedure
Procedure draw_missile(*m.Missile)
If Missile()\direction
DisplayTransparentSprite_( SubSprite(9) , *m\x, *m\y) ; tail
DisplayTransparentSprite_( SubSprite(4) , *m\x + 8, *m\y) ; head
Else
DisplayTransparentSprite_( SubSprite(10) , *m\x+8, *m\y) ; tail
DisplayTransparentSprite_( SubSprite(11) , *m\x, *m\y) ; head
EndIf
EndProcedure
Procedure update_missile(*m.missile)
If *m\IsFalling
*m\vx = 0
*m\vy + 0.2
EndIf
*m\x + *m\vx
*m\y + *m\vy
EndProcedure
Procedure draw_entity(*e.entity)
If *e\vx <> 0 And *e\is_ghost = #False
If ( *e\animtime < ElapsedMilliseconds() )
*e\animtime = ElapsedMilliseconds() + *e\animspeed
*e\spriteid+1
If *e\flipme = #False
If *e\spriteid < *e\anim_right_min : *e\spriteid = *e\anim_right_min : EndIf
If *e\spriteid > *e\anim_right_max
*e\spriteid = *e\anim_right_min
EndIf
Else
If *e\spriteid < *e\anim_left_max : *e\spriteid = *e\anim_left_max : EndIf
If *e\spriteid > *e\anim_left_max
*e\spriteid = *e\anim_left_min
EndIf
EndIf
EndIf
ElseIf *e\vx = 0 And *e\is_ghost = #False
If *e\flipme = #False
*e\spriteid = *e\anim_right_min
Else
*e\spriteid = *e\anim_left_min
EndIf
EndIf
If *e\blink = 1
DisplayTransparentSprite_( SubSprite(0) , *e\x, *e\y)
Else
DisplayTransparentSprite_( SubSprite(*e\spriteid) , *e\x, *e\y)
EndIf
EndProcedure
Procedure update_physic(*e.Entity)
If *e\use_physic
; side collision
If check_solid( *e\x + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + 7 + *e\vy) Or check_solid( *e\x + *e\vx, *e\y + 7 + *e\vy)
*e\vx = 0
EndIf
; collision down
If (check_solid( *e\x , *e\y + 8 + *e\vy) Or check_solid( *e\x + 7 , *e\y + 8 + *e\vy)) And *e\is_ghost = #False
*e\vy = 0
*e\onground = #True
If *e = @Mario
ScoreDelta = 50
EndIf
Else
*e\vy = *e\vy + *e\gravity ; falling
*e\onground = #False
EndIf
; jumping
If *e\jumping = #True And *e\onground = #True
*e\vy = -*e\jump_height
*e\onground = #False
EndIf
; collision top
If ((check_solid( *e\x + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + *e\vy)) And *e\vy < 0) And *e\is_ghost = #False
*e\vy = 0
EndIf
; wraping
If *e\wrap = #True
If *e\x < -1 : *e\x = 144 - 8 : EndIf
If *e\x > 17*8 : *e\x = 1 : EndIf
Else
If *e\x < -1 : *e\deleteme = #True : EndIf
If *e\x > 17*8 : *e\deleteme = #True : EndIf
EndIf
; lock velocity
If *e\vx > 1.0 : *e\vx = 1.0: EndIf
If *e\vx <-1.0 : *e\vx = -1.0 : EndIf
; update position
*e\x = *e\x + *e\vx
*e\y = *e\y + *e\vy
EndIf
EndProcedure
Procedure entity_collide(*a.Entity, *b.Entity)
If (*b\x > = *a\x + 8) Or (*b\x + 8 <= *a\x) Or (*b\y > = *a\y + 8) Or (*b\y + 8 <= *a\y)
ProcedureReturn #False
Else
ProcedureReturn #True
EndIf
EndProcedure
Procedure entity_collide_point(*e.Entity, x.f, y.f, velocity.b = #False)
If velocity = #False
If x >= *e\x And x < *e\x + 7 And y >= *e\y And y < *e\y + 7
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
Else
If x >= *e\x + *e\vx And x < *e\x + 7 + *e\vx And y >= *e\y + *e\vy And y < *e\y + 7 + *e\vy
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndIf
EndProcedure
;-Datasection
DataSection
palette:
Data.l 16711935,2890778,6104925,5455537,5733871,7720447,7401639,6600504,7958821,7288361,13196603,16164417,16248691,16053492,12759188,8809558,5717043
end_palette:
tilemap:
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 0, 0, 0, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
end_tilemap:
texture:
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$1,$1,$1,$1,$C,$C,$C,$C,$C,$C,$C,$C,$1,$1,$1,$1,$1,$6,$6,$D,$0,$0,$0,$0,$0,$0,$0,$0,$6,$6,$D,$1,$1,$1,$1,$1
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$3,$4,$4,$4,$5,$5,$5,$A,$C,$C,$C,$C,$C,$C,$B,$6,$6,$6,$6,$8,$7,$D,$D,$D,$D,$D,$0,$0,$0,$0,$0,$7,$D,$D,$8,$6,$6,$6,$6
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$2,$3,$3,$3,$3,$3,$4,$A,$A,$C,$C,$C,$C,$B,$B,$D,$D,$D,$D,$8,$7,$7,$D,$E,$E,$0,$0,$0,$D,$0,$0,$7,$7,$D,$8,$D,$D,$D,$D
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$2,$2,$3,$3,$3,$3,$3,$A,$A,$A,$C,$C,$B,$B,$B,$7,$7,$7,$7,$8,$7,$7,$D,$0,$0,$0,$0,$D,$D,$1,$0,$7,$7,$D,$8,$7,$7,$7,$7
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$1,$1,$1,$1,$A,$A,$A,$9,$B,$B,$B,$B,$9,$9,$9,$9,$9,$7,$7,$D,$0,$E,$0,$0,$D,$D,$D,$9,$7,$7,$D,$9,$9,$9,$9,$9
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$4,$5,$5,$5,$1,$3,$4,$4,$A,$A,$9,$9,$9,$B,$B,$B,$9,$9,$9,$9,$9,$8,$9,$7,$D,$D,$E,$9,$9,$9,$9,$A,$8,$9,$7,$9,$9,$9,$9,$9
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$3,$3,$3,$4,$1,$2,$3,$3,$A,$9,$9,$9,$9,$9,$B,$B,$A,$A,$A,$A,$9,$A,$9,$8,$E,$E,$9,$9,$9,$A,$A,$0,$A,$9,$8,$9,$A,$A,$A,$A
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$3,$3,$3,$3,$1,$2,$2,$3,$9,$9,$9,$9,$9,$9,$9,$B,$1,$1,$1,$1,$1,$A,$A,$A,$A,$A,$A,$A,$A,$0,$0,$0,$A,$A,$A,$1,$1,$1,$1,$1
Data.b $0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $9,$9,$5,$4,$4,$2,$9,$9,$9,$9,$5,$4,$4,$2,$9,$9,$9,$9,$5,$4,$4,$2,$9,$9,$D,$D,$0,$0,$D,$D,$D,$D,$D,$D,$D,$D,$0,$0,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D
Data.b $4,$D,$9,$5,$2,$9,$D,$5,$4,$D,$9,$5,$2,$9,$D,$5,$4,$D,$9,$5,$2,$9,$D,$5,$E,$E,$D,$0,$E,$E,$E,$E,$E,$E,$E,$E,$0,$D,$E,$E,$0,$0,$D,$0,$0,$0,$E,$E
Data.b $4,$D,$D,$9,$9,$D,$D,$5,$4,$D,$D,$9,$9,$D,$D,$5,$4,$D,$D,$9,$9,$D,$D,$5,$0,$0,$E,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$E,$0,$0,$0,$1,$D,$D,$0,$0,$0,$0
Data.b $4,$D,$1,$4,$4,$1,$D,$4,$4,$D,$1,$4,$4,$1,$D,$4,$4,$D,$1,$4,$4,$1,$D,$4,$0,$0,$9,$0,$0,$0,$E,$D,$D,$E,$0,$0,$0,$9,$0,$0,$9,$D,$D,$D,$0,$0,$E,$0
Data.b $2,$4,$4,$4,$4,$4,$4,$4,$2,$4,$4,$4,$4,$4,$A,$9,$9,$A,$4,$4,$4,$4,$4,$4,$9,$9,$9,$9,$9,$9,$E,$D,$D,$E,$9,$9,$9,$9,$9,$9,$A,$9,$9,$9,$9,$E,$D,$D
Data.b $A,$2,$E,$E,$E,$E,$2,$A,$0,$2,$E,$E,$E,$A,$9,$9,$9,$9,$A,$E,$E,$E,$2,$0,$9,$9,$A,$9,$9,$9,$9,$E,$E,$9,$9,$9,$9,$A,$9,$9,$0,$A,$A,$9,$9,$9,$E,$E
Data.b $9,$A,$0,$E,$E,$0,$A,$9,$0,$9,$A,$E,$E,$9,$9,$0,$0,$9,$9,$E,$E,$A,$9,$0,$A,$A,$0,$A,$A,$A,$A,$A,$A,$A,$A,$A,$A,$0,$A,$A,$0,$0,$0,$A,$A,$A,$A,$A
Data.b $0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$0,$5,$D,$0,$0,$0,$0,$0,$0,$D,$D,$0,$0,$0,$0,$0,$0,$D,$D,$0,$0,$0
Data.b $0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$5,$4,$4,$D,$0,$0,$0,$0,$0,$4,$D,$0,$0,$0,$0,$0,$0,$5,$5,$0,$0,$0
Data.b $0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$3,$4,$4,$4,$4,$D,$0,$0,$0,$2,$4,$4,$D,$0,$0,$0,$0,$0,$4,$4,$0,$0,$0
Data.b $0,$3,$3,$5,$B,$A,$2,$0,$0,$0,$3,$5,$B,$A,$2,$0,$0,$0,$0,$3,$5,$B,$1,$0,$0,$2,$3,$4,$4,$4,$5,$0,$0,$0,$2,$3,$4,$5,$0,$0,$0,$0,$0,$4,$4,$0,$0,$0
Data.b $D,$0,$B,$B,$A,$A,$0,$E,$0,$D,$B,$B,$B,$A,$E,$0,$0,$0,$0,$3,$D,$B,$0,$0,$0,$0,$2,$3,$4,$5,$0,$0,$0,$0,$0,$2,$3,$0,$0,$0,$0,$0,$0,$3,$3,$0,$0,$0
Data.b $0,$0,$2,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$2,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$2,$3,$0,$0,$0,$0,$0,$0,$2,$2,$0,$0,$0,$0,$0,$0,$2,$2,$0,$0,$0
Data.b $0,$D,$3,$3,$3,$0,$0,$0,$0,$D,$3,$3,$3,$0,$0,$0,$0,$D,$3,$3,$3,$0,$0,$0,$0,$3,$3,$0,$0,$3,$3,$0,$3,$3,$3,$0,$0,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$0,$0,$0,$0,$0,$0,$3,$3,$2,$2,$0,$0,$2,$2,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$4,$1,$2,$4,$2,$0,$0,$0,$4,$1,$2,$4,$2,$0,$0,$0,$4,$1,$2,$4,$2,$0,$0,$3,$2,$2,$0,$0,$2,$2,$3,$3,$0,$0,$0,$0,$0,$0,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $4,$2,$2,$4,$4,$2,$0,$0,$4,$2,$2,$4,$4,$2,$0,$0,$4,$2,$2,$4,$4,$2,$0,$0,$3,$E,$E,$4,$4,$E,$E,$3,$3,$E,$E,$4,$4,$E,$E,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$2,$D,$9,$3,$3,$9,$D,$2,$2,$D,$9,$3,$3,$9,$D,$2,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$2,$A,$B,$5,$3,$3,$0,$0,$2,$A,$B,$5,$3,$0,$0,$0,$1,$B,$5,$3,$0,$0,$0,$0,$2,$3,$3,$3,$3,$3,$0,$0,$2,$3,$3,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $E,$0,$A,$A,$B,$B,$0,$D,$0,$E,$A,$B,$B,$B,$D,$0,$0,$0,$B,$D,$3,$0,$0,$0,$0,$D,$2,$0,$2,$3,$D,$0,$0,$D,$2,$3,$3,$3,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$2,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$2,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$D,$0,$0,$D,$0,$D,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$D,$D,$1,$0,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$0,$D,$0,$0,$0,$0,$D,$1,$1,$1,$1,$1,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$1,$D,$1,$0,$0,$0,$0,$1,$1,$0,$0,$D,$1,$0,$0,$1,$1,$0,$0,$D,$1,$0,$0,$D,$1,$0,$D,$1,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$1,$1,$D,$1,$0,$0,$0,$0,$0,$0,$D,$D,$1,$1,$0,$0,$0,$0,$D,$D,$1,$1,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$D,$1,$1,$1,$0,$0,$0,$0,$0,$1,$1,$D,$0,$0,$0,$1,$1,$1,$D,$1,$1,$0,$0,$1,$1,$1,$1,$D,$1,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$1,$0,$0,$0,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$0,$0,$D,$1,$0
Data.b $0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$D,$D,$D,$D,$D,$1,$0
Data.b $0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$1,$1,$1,$1,$1,$1,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$0,$0,$1,$1,$0,$0,$0,$1,$1,$1,$1,$1,$1,$0
Data.b $0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$3,$D,$D,$3,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$1,$1,$1,$1,$D,$1,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$3,$3,$3,$3,$0,$0,$0,$1,$3,$D,$D,$3,$1,$0
Data.b $0,$D,$1,$0,$0,$1,$1,$0,$0,$0,$0,$0,$D,$1,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$2,$1,$4,$4,$1,$2,$0,$0,$1,$3,$3,$3,$3,$1,$0
Data.b $0,$D,$D,$D,$D,$0,$0,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$1,$D,$D,$D,$D,$1,$0,$0,$4,$2,$2,$2,$2,$4,$0,$1,$2,$1,$4,$4,$1,$2,$1
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$0,$D,$1,$1,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$1,$1,$1,$D,$1,$0,$D,$0,$4,$1,$1,$4,$0,$D,$1,$4,$2,$2,$2,$2,$4,$1
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$3,$5,$B,$B,$5,$3,$0,$0,$1,$4,$4,$4,$4,$1,$0
Data.b $0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$D,$1,$1,$0,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$A,$A,$A,$A,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0
Data.b $0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$0,$0
end_texture:
solid_tile:
Data.b 1,2
end_solid_tile:
bin_sound_jump:
; IncludeBinary "jump.wav"
bin_sound_jump_e:
bin_sound_hurt:
; IncludeBinary "hurt.wav"
bin_sound_hurt_e:
bin_sound_kill:
; IncludeBinary "kill.wav"
bin_sound_kill_e:
bin_sound_coin:
; IncludeBinary "coin.wav"
bin_sound_coin_e:
bin_sound_falling:
; IncludeBinary "falling.wav"
bin_sound_falling_e:
bin_sound_respawn:
; IncludeBinary "respawn.wav"
bin_sound_respawn_e:
bin_sound_rejump:
; IncludeBinary "rejump.wav"
bin_sound_rejump_e:
bin_sound_missile:
; IncludeBinary "missile.wav"
bin_sound_missile_e:
bin_sound_extralife:
; IncludeBinary "extralife.wav"
bin_sound_extralife_e:
EndDataSectionBen c'est ça effectivement. GrabSprite().G-Rom a écrit :je pensais avoir réglé le problème de fuite de mémoire... bizarre que cela m'ai échapper , enfin , merci de le souligné , en regardant de plus près GrabSprite() serais le fautif , c'est vrai que je ne supprime pas le sprite après le flipbuffers , mais même en le faisant , ca ne change rien :/
Code : Tout sélectionner
;*****************************************************************************************************************************************************************************************
;
; - Mario Atari 7800 pseudo clone
; GRom
;
#WAVE_FILE = 0 ; undef this if you dont have sound media
Macro PlaySoundEX(id,flag)
CompilerIf #WAVE_FILE
PlaySound(id,flag)
CompilerEndIf
EndMacro
RandomSeed( Random($FFFFFF) )
Structure Entity
SpriteId.l
X.d
Y.d
VX.d
VY.d
AnimTime.l
AnimSpeed.l
FlipMe.b
anim_left_min.l
anim_left_max.l
anim_right_min.l
anim_right_max.l
jumping.b
jump_height.d
onground.b
max_velx.d
max_vely.d
gravity.f
use_physic.b
is_ghost.b
blink.l
wrap.b
deleteme.b
girouette.I
EndStructure
Structure Pnj Extends Entity
jumper.b
jump_time.l
jump_delay.l
direction.l ; 1 right , 0 left
entry_mode.l; 1 out ; 0 in
collide_time.l ; prevent infinite collision
is_cool.b
EndStructure
Structure Coin Extends Entity
direction.l ; 1 right , 0 left
uncollect_time.l ; prevent collect at spawn
EndStructure
Structure Player Extends Entity
is_die.b
freeze_time.l
invincible.b
invincible_time.l
life.l
next_life.l
score.l
direction.l ; factice
EndStructure
Structure Missile Extends Entity
IsFalling.I
direction.l
EndStructure
Global max_mob = 1
Global mob_spawn_delay
Global speed_factor.f = 1
Global Mario.Player
Global NewList Mob.Pnj()
Global NewList Bonus.Coin()
Global NewList Missile.Missile()
Global ScoreDelta = 50
Global Dim Exc.D(29, 19)
Global ix, iy
Mario\x = 8 * 8
Mario\y = (10 * 8)
Mario\spriteid = 12
Mario\jump_height = 3.8
Mario\animspeed = 50
Mario\anim_right_min = 12
Mario\anim_right_max = 14
Mario\anim_left_min = 18
Mario\anim_left_max = 20
Mario\gravity = 0.2
Mario\use_physic = #True
Mario\is_die = #False
Mario\is_ghost = #False
Mario\invincible = #False
Mario\Life = 4
Mario\wrap = #True
Mario\next_life = 3000
Declare.l getcolor(rgb)
Declare draw_value(value.l,x,y)
Declare check_solid(x.d,y.d)
Declare is_solid(tilex,tiley)
Declare spawn_mob()
Declare draw_entity(*e.entity)
Declare update_physic(*e.Entity)
Declare entity_collide(*a.Entity, *b.Entity)
Declare entity_collide_point(*e.entity,x.f,y.f, velocity.b = #False)
Declare spawn_coin(x,y,d)
Declare spawn_missile(y)
Declare draw_missile(*m.Missile)
Declare update_missile(*m.missile)
InitSprite() : InitKeyboard() : InitMouse() : InitSound() : joypad = InitJoystick()
ExamineDesktops()
Global dw = DesktopWidth(0)
Global dh = DesktopHeight(0)
Global deltatime.d = 0
OpenScreen(dw,dh,32,"",#PB_Screen_NoSynchronization)
Global gpu_texture = CreateSprite(#PB_Any,48,48,#PB_Sprite_AlphaBlending)
Global Dim Color.l(16)
CopyMemory(?palette, @Color(), ?end_palette - ?palette)
Global Dim Texture.b(48*48)
CopyMemory(?texture, @Texture(), ?end_texture - ?texture)
Global Dim Tilemap.b(19*16)
CopyMemory(?tilemap, @Tilemap(), ?end_tilemap - ?tilemap)
Global Dim SolidTile.b(?end_solid_tile - ?solid_tile)
CopyMemory(?solid_tile, @SolidTile(), ?end_solid_tile - ?solid_tile)
Global Dim SubSprite.l(36)
StartDrawing(SpriteOutput(gpu_texture))
For y = 0 To 47
For x = 0 To 47
index = x + 48 * y
Plot(x,y, Color( Texture(index) ) )
Next
Next
StopDrawing()
Procedure DisplayTransparentSprite_(N, X, Y)
DisplayTransparentSprite(N, ((DW - DH) / 2) + (X * DH) / 128.0, Y * DH / 128)
EndProcedure
DisplaySprite(gpu_texture,0,0)
For clip = 0 To 35
x = clip % 6
y = clip / 6
SubSprite(clip) = GrabSprite(#PB_Any,x*8,y*8,8,8)
TransparentSpriteColor(SubSprite(clip), RGB(255,0,255))
etir = (Bool(clip = 3 Or clip = 5) + 1)
ZoomSprite(SubSprite(clip), dh / 16, dh / 16 * etir) ; <<<<<<<<<<<<<<<<<<<<
Next
CompilerIf #WAVE_FILE
; sound_jump = LoadSound(#PB_Any,"jump.wav")
; sound_hurt = LoadSound(#PB_Any,"hurt.wav")
; sound_kill = LoadSound(#PB_Any,"kill.wav")
; sound_coin = LoadSound(#PB_Any,"coin.wav")
; sound_fall = LoadSound(#PB_Any,"falling.wav")
; sound_respawn = LoadSound(#PB_Any,"respawn.wav")
; sound_rejump = LoadSound(#PB_Any,"rejump.wav")
; sound_missile = LoadSound(#PB_Any,"missile.wav")
; sound_extralife = LoadSound(#PB_Any,"extralife.wav")
sound_jump = CatchSound(#PB_Any,?bin_sound_jump, ?bin_sound_jump_e - ?bin_sound_jump)
sound_hurt = CatchSound(#PB_Any,?bin_sound_hurt, ?bin_sound_hurt_e - ?bin_sound_hurt)
sound_kill = CatchSound(#PB_Any,?bin_sound_kill, ?bin_sound_kill_e - ?bin_sound_kill)
sound_coin = CatchSound(#PB_Any,?bin_sound_coin, ?bin_sound_coin_e - ?bin_sound_coin)
sound_fall = CatchSound(#PB_Any,?bin_sound_falling, ?bin_sound_falling_e - ?bin_sound_falling)
sound_respawn = CatchSound(#PB_Any,?bin_sound_respawn, ?bin_sound_respawn_e - ?bin_sound_respawn)
sound_rejump = CatchSound(#PB_Any,?bin_sound_rejump, ?bin_sound_rejump_e - ?bin_sound_rejump)
sound_missile = CatchSound(#PB_Any,?bin_sound_missile, ?bin_sound_missile_e - ?bin_sound_missile)
sound_extralife = CatchSound(#PB_Any,?bin_sound_extralife, ?bin_sound_extralife_e - ?bin_sound_extralife)
CompilerEndIf
; spawn_missile(14)
missile_timer = ElapsedMilliseconds() + 4000
missile_middle_timer = ElapsedMilliseconds() + 10000
; boucle principale
;
accumulator.d = 0
While #True
ExamineKeyboard()
deltatime = (ElapsedMilliseconds() - lasttime.d) / 1000
lasttime = ElapsedMilliseconds()
accumulator + deltatime
If mob_spawn_delay < ElapsedMilliseconds() And ListSize(Mob()) < max_mob
mob_spawn_delay = ElapsedMilliseconds() + Random(3000,750)
spawn_mob()
EndIf
;
;-INPUT
;
If KeyboardPushed(#PB_Key_Escape)
Break
EndIf
If Mario\is_die = #False
If joypad
If ExamineJoystick(0)
joy_axisx = JoystickAxisX(0)
joy_button = JoystickButton(0,3)
EndIf
EndIf
If KeyboardPushed(#PB_Key_Right) Or joy_axisx = 1
Mario\vx = 1
Mario\flipme = #False
EndIf
If KeyboardPushed(#PB_Key_Left) Or joy_axisx = -1
Mario\vx = -1
Mario\flipme = #True
EndIf
If KeyboardPushed(#PB_Key_LeftControl) Or joy_button = 1
Mario\jumping = #True
If sound_jump_flag = 0
sound_jump_flag = 1
PlaySoundEX(sound_jump,#PB_Sound_MultiChannel)
EndIf
Else
sound_jump_flag = 0
Mario\jumping = #False
EndIf
If Not (KeyboardPushed(#PB_Key_Right) Or joy_axisx = 1) And Not (KeyboardPushed(#PB_Key_Left) Or joy_axisx = -1 )
Mario\vx = 0
EndIf
EndIf
;-GAME LOGIC
; Spawn missile
If Mario\y < 32 And missile_timer < ElapsedMilliseconds()
missile_timer = ElapsedMilliseconds() + 5000
spawn_missile(Random(2))
PlaySoundEX(sound_missile,#PB_Sound_MultiChannel)
ElseIf Mario\y > 32
missile_timer = ElapsedMilliseconds() + 5000
EndIf
If Mario\y > 32 And Mario\y< 96 And missile_middle_timer < ElapsedMilliseconds()
missile_middle_timer = ElapsedMilliseconds() + 10000
spawn_missile(Random(10,4))
PlaySoundEX(sound_missile,#PB_Sound_MultiChannel)
ElseIf (Mario\y < 32 Or Mario\y > 96)
missile_middle_timer = ElapsedMilliseconds() + 10000
EndIf
If Mario\score => Mario\next_life
Mario\next_life + 3000
Mario\life + 1
PlaySoundEX(sound_extralife,#PB_Sound_MultiChannel)
EndIf
; Mario die ( jumping )
If Mario\is_die And Mario\freeze_time < ElapsedMilliseconds() And Mario\use_physic = #False
Mario\use_physic = #True
Mario\vy = -Mario\jump_height
PlaySoundEX(sound_fall,#PB_Sound_MultiChannel)
EndIf
If Mario\is_die And Mario\y > 2048
Mario\Life - 1
If Mario\Life = 0
End
EndIf
Mario\invincible = #True
Mario\invincible_time = ElapsedMilliseconds() + 2000
Mario\x = 8 * 8
Mario\y = (10 * 8)
Mario\vy = 0
Mario\vx = 0
Mario\is_ghost = #False
Mario\is_die = #False
PlaySoundEX(sound_respawn,#PB_Sound_MultiChannel)
EndIf
If Mario\invincible And Mario\invincible_time > ElapsedMilliseconds()
Mario\blink+1 : Mario\blink%4
ElseIf Mario\invincible And Mario\invincible_time < ElapsedMilliseconds()
Mario\invincible = #False
Mario\blink = 0
EndIf
ForEach(Bonus())
If( entity_collide_point(@Mario,Bonus()\x + 4 , Bonus()\y + 4) ) And Bonus()\uncollect_time < ElapsedMilliseconds()
Mario\score + 1000
PlaySoundEX(sound_coin,#PB_Sound_MultiChannel)
If DeleteElement(Bonus(),1)=0
Break
EndIf
EndIf
If Bonus()\direction = 1
Bonus()\vx = 0.5
Else
Bonus()\vx = -0.5
EndIf
If Bonus()\deleteme
DeleteElement(Bonus())
EndIf
Next
ForEach(@Mob())
Mob()\vx = 0.2
If Mob()\jumper = #True
If Mob()\jump_time < ElapsedMilliseconds()
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
Mob()\jumping = #True
Else
Mob()\jumping = #False
EndIf
EndIf
If Mob()\girouette
Mob()\girouette = 0
Mob()\Direction ! 1
EndIf
If Mob()\direction = 1
Mob()\vx = 0.25
Else
Mob()\vx = -0.25
EndIf
; down pipe enter
;
If Round(Mob()\x/8,#PB_Round_Down) = 0 And Round(Mob()\y/8,#PB_Round_Down) = 14 And Mob()\vx < 0
Mob()\use_physic = #False
Mob()\entry_mode = 0
Mob()\is_cool = #True
EndIf
If Round(Mob()\x/8,#PB_Round_Down) = 16 And Round(Mob()\y/8,#PB_Round_Down) = 14 And Mob()\vx > 0
Mob()\use_physic = #False
Mob()\entry_mode = 0
Mob()\is_cool = #True
EndIf
If Mob()\use_physic = #False
; down pipe enter move
If Mob()\entry_mode = 0
If Round(Mob()\y/8,#PB_Round_Down) > 12
Mob()\y - 0.25
EndIf
; left pipe
If Mob()\vx < 0 And Round(Mob()\y/8,#PB_Round_Down) = 12
Mob()\x - 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 0
Mob()\x = 1*8
Mob()\y = 1*8
Mob()\entry_mode = 1
Mob()\direction = 1
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
EndIf
EndIf
; right pipe
If Mob()\vx > 0 And Round(Mob()\y/8,#PB_Round_Down) = 12
Mob()\x + 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 17
Mob()\x = 16*8
Mob()\y = 1*8
Mob()\entry_mode = 1
Mob()\direction = 0
Mob()\jump_time = ElapsedMilliseconds() + Mob()\jump_delay
EndIf
EndIf
EndIf
; up pipe exit
If Mob()\entry_mode = 1
If Mob()\vx > 0
Mob()\x + 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 1 : Mob()\use_physic = #True : Mob()\is_cool = #False : EndIf
EndIf
If Mob()\vx < 0
Mob()\x - 0.25
If Round(Mob()\x/8,#PB_Round_Down) = 15 : Mob()\use_physic = #True : Mob()\is_cool = #False : EndIf
EndIf
EndIf
EndIf
Next
While ( accumulator > 1.0/60.0 )
;-PHYSIC
;
update_physic(@Mario)
ForEach (Bonus())
update_physic(@Bonus())
Next
; collide Mob/Mob , Mob/Mario
ForEach(Mob())
; mob / mob
*c.Pnj = @Mob()
PushListPosition(Mob())
ForEach Mob()
If @Mob() <> *c And Mob()\collide_time < ElapsedMilliseconds()
If entity_collide(*c,@Mob())
*c\direction + 1 : *c\direction % 2
Mob()\direction + 1 : Mob()\direction %2
Mob()\collide_time = ElapsedMilliseconds() + 250
EndIf
EndIf
Next
PopListPosition(Mob())
If Mob()\is_cool = #False
; mob / mario
If entity_collide(@Mario,@Mob()) And Mario\is_die = #False
If Mario\y < Mob()\y
Mario\vy = -(Mario\jump_height/1.1)
If Random(10) = 0
spawn_coin(Mob()\x,Mob()\y,(Mob()\direction+1)%2 )
EndIf
Mario\score + ScoreDelta
ScoreDelta * 2
max_mob + 1
If max_mob > 8
max_mob = 8
EndIf
PlaySoundEX(sound_kill,#PB_Sound_MultiChannel)
PlaySoundEX(sound_rejump,#PB_Sound_MultiChannel)
If DeleteElement(Mob(),1) = 0
Break
EndIf
ElseIf Mario\y >= Mob()\y And Mario\invincible = #False
Mario\vx = 0
Mario\vy = 0
Mario\is_die = #True
Mario\is_ghost = #True
Mario\freeze_time = ElapsedMilliseconds() + 500
Mario\use_physic = #False
Mario\spriteid = 34
PlaySoundEX(sound_hurt,#PB_Sound_MultiChannel)
If Mario\life = 0
spr = GrabSprite(#PB_Any,0,0,dw,dh)
UsePNGImageEncoder()
SaveSprite(spr,"MyScore.png",#PB_ImagePlugin_PNG)
End
EndIf
EndIf
EndIf
EndIf
update_physic(@Mob())
Next
; missile "physic..."
;
ForEach Missile()
update_missile(@Missile())
; mISSILE / mario
If entity_collide(@Mario, @Missile() ) And Mario\is_die = #False
If Mario\y < Missile()\y
Missile()\IsFalling = 1
Mario\vy = -(Mario\jump_height/1.1)
If Random(10) = 0
spawn_coin(Missile()\x,Missile()\y,(Missile()\direction+1)%2 )
EndIf
ScoreDelta * 2
Mario\score + ScoreDelta
ScoreDelta * 2
ElseIf Mario\y >= Missile()\y And Mario\invincible = #False
Mario\vx = 0
Mario\vy = 0
Mario\is_die = #True
Mario\is_ghost = #True
Mario\freeze_time = ElapsedMilliseconds() + 500
Mario\use_physic = #False
Mario\spriteid = 34
Mario\life - 1
PlaySoundEX(sound_hurt,#PB_Sound_MultiChannel)
If Mario\life = 0
spr = GrabSprite(#PB_Any,0,0,dw,dh)
UsePNGImageEncoder()
SaveSprite(spr,"MyScore.png",#PB_ImagePlugin_PNG)
End
EndIf
EndIf
EndIf
If(Missile()\x < -200 Or Missile()\x > 328) Or Missile()\y > 2048
DeleteElement(Missile())
EndIf
Next
accumulator - (1.0/60.0)
Wend
;
;-DRAWING
;
ClearScreen(RGB(26,28,44))
; draw mob
ForEach(Mob())
draw_entity(@Mob())
Next
ForEach (Bonus())
draw_entity(@Bonus())
Next
ForEach Missile()
draw_missile(@Missile())
Next
; draw tilemap
For y = 0 To 15
For x = 0 To 17
index = x + 19 * y
DisplayTransparentSprite_( SubSprite(Tilemap( index )) ,x*8,y*8 + Exc(x, y) )
If Exc(x, y) < 0
Exc(x, y) + 0.25
EndIf
;
Next
Next
; draw mario
draw_entity(@Mario)
; draw life
For i = 0 To Mario\Life - 2
DisplayTransparentSprite_(SubSprite(35),8+(i*8),0)
Next
; draw score
draw_value( Mario\score, (64 - (((Len(Str(Mario\score))-1)*8)/2))+8 ,4)
;DisplayTransparentSprite_(SubSprite(coin_id+2),(8+128)-8*4,0)
FlipBuffers()
Delay(16)
Wend
CloseScreen()
End
Procedure.l getcolor(rgb)
For i = 0 To 15
If Color(i) = rgb
ProcedureReturn i
EndIf
Next
EndProcedure
Procedure draw_value(value.l,x,y)
str$ = Str(value)
For i = 0 To Len(str$)-1
n.l = Val(Mid(str$,i+1,1))
DisplayTransparentSprite_( SubSprite( 24 + n ) , x + (i * 6),y)
Next
EndProcedure
Procedure check_solid(x.d, y.d)
ProcedureReturn is_solid(Round(x/8,#PB_Round_Down),Round(y/8,#PB_Round_Down))
EndProcedure
Procedure is_solid(tilex,tiley)
index = tilex + 19 * tiley
If index >= 0 And index < (19*16)
tile_id = Tilemap(index)
For i = 0 To (?end_solid_tile - ?solid_tile) - 1
If tile_id = SolidTile(i)
ProcedureReturn #True
EndIf
Next
EndIf
ProcedureReturn #False
EndProcedure
Procedure spawn_mob()
AddElement(Mob())
Mob()\jump_height = 1.0
If Random(9) > 2
Mob()\anim_left_min = 21
Mob()\anim_left_max = 22
Mob()\anim_right_min = 21
Mob()\anim_right_max = 22
Mob()\animspeed = 25
Mob()\jumper = #True
Mob()\jump_delay = 250
Else
Mob()\anim_left_min = 6
Mob()\anim_left_max = 8
Mob()\anim_right_min = 6
Mob()\anim_right_max = 8
Mob()\animspeed = 100
Mob()\jumper = #False
EndIf
Mob()\gravity = 0.1
Mob()\direction = Random(1)
Mob()\use_physic = #False
Mob()\entry_mode = 1
Mob()\is_ghost = #False
Mob()\is_cool = #False
Mob()\wrap = #True
If Mob()\direction = 1
Mob()\x = 0
Mob()\y = 1*8
Else
Mob()\x = 16*8
Mob()\y = 1*8
EndIf
EndProcedure
Procedure spawn_coin(x,y,direction)
AddElement(Bonus())
Bonus()\jumping = #True
Bonus()\jump_height = 0.5
Bonus()\anim_left_min = 15
Bonus()\anim_left_max = 17
Bonus()\anim_right_min = 15
Bonus()\anim_right_max = 17
Bonus()\animspeed = 25
Bonus()\gravity = 0.05
Bonus()\use_physic = #True
Bonus()\is_ghost = #False
Bonus()\wrap = #True
Bonus()\x = x
Bonus()\y = y
Bonus()\direction = direction
Bonus()\uncollect_time = ElapsedMilliseconds() + 100
If Bonus()\direction = 1
Bonus()\vx = 0.5
Bonus()\vy = -1.0
Else
Bonus()\vx = -0.5
Bonus()\vy = -1.0
EndIf
EndProcedure
Procedure spawn_missile(y)
AddElement(Missile())
Missile()\use_physic = #False
Missile()\direction = Random(1)
If Missile()\direction
Missile()\x = - 16
Missile()\y = y * 8
Missile()\vx = 1
Else
Missile()\x = 128
Missile()\y = y * 8
Missile()\vx = -1
EndIf
EndProcedure
Procedure draw_missile(*m.Missile)
If Missile()\direction
DisplayTransparentSprite_( SubSprite(9) , *m\x, *m\y) ; tail
DisplayTransparentSprite_( SubSprite(4) , *m\x + 8, *m\y) ; head
Else
DisplayTransparentSprite_( SubSprite(10) , *m\x+8, *m\y) ; tail
DisplayTransparentSprite_( SubSprite(11) , *m\x, *m\y) ; head
EndIf
EndProcedure
Procedure update_missile(*m.missile)
If *m\IsFalling
*m\vx = 0
*m\vy + 0.2
EndIf
*m\x + *m\vx
*m\y + *m\vy
EndProcedure
Procedure draw_entity(*e.entity)
If *e\vx <> 0 And *e\is_ghost = #False
If ( *e\animtime < ElapsedMilliseconds() )
*e\animtime = ElapsedMilliseconds() + *e\animspeed
*e\spriteid+1
If *e\flipme = #False
If *e\spriteid < *e\anim_right_min : *e\spriteid = *e\anim_right_min : EndIf
If *e\spriteid > *e\anim_right_max
*e\spriteid = *e\anim_right_min
EndIf
Else
If *e\spriteid < *e\anim_left_max : *e\spriteid = *e\anim_left_max : EndIf
If *e\spriteid > *e\anim_left_max
*e\spriteid = *e\anim_left_min
EndIf
EndIf
EndIf
ElseIf *e\vx = 0 And *e\is_ghost = #False
If *e\flipme = #False
*e\spriteid = *e\anim_right_min
Else
*e\spriteid = *e\anim_left_min
EndIf
EndIf
If *e\blink = 1
DisplayTransparentSprite_( SubSprite(0) , *e\x, *e\y)
Else
DisplayTransparentSprite_( SubSprite(*e\spriteid) , *e\x, *e\y)
EndIf
EndProcedure
Procedure update_physic(*e.Entity)
If *e\use_physic
; side collision
If check_solid( *e\x + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + 7 + *e\vy) Or check_solid( *e\x + *e\vx, *e\y + 7 + *e\vy)
*e\vx = 0
EndIf
; collision down
If (check_solid( *e\x , *e\y + 8 + *e\vy) Or check_solid( *e\x + 7 , *e\y + 8 + *e\vy)) And *e\is_ghost = #False
*e\vy = 0
*e\onground = #True
If *e = @Mario
ScoreDelta = 50
EndIf
Else
*e\vy = *e\vy + *e\gravity ; falling
*e\onground = #False
EndIf
; jumping
If *e\jumping = #True And *e\onground = #True
*e\vy = -*e\jump_height
*e\onground = #False
EndIf
; collision top
If *e\is_ghost = #False
If *e\vy < 0
If check_solid(*e\x + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + *e\vy)
ix = Round((*e\x + *e\vx) / 8, #PB_Round_Down)
iy = Round((*e\y + *e\vy) / 8, #PB_Round_Down)
If Mod(*e\x, 8) <= 6
Exc(ix, iy) = - 2
EndIf
If Mod(*e\x, 8) > 2
Exc(ix + 1, iy) = - 2
EndIf
EndIf
If check_solid(*e\x + *e\vx, *e\y + *e\vy) Or check_solid( *e\x + 7 + *e\vx, *e\y + *e\vy)
*e\vy = 0
EndIf
EndIf
EndIf
; floor hit
If (check_solid( *e\x , *e\y + 8 + *e\vy) Or check_solid( *e\x + 7 , *e\y + 8 + *e\vy)) And *e\is_ghost = #False
ix = Round((*e\x + *e\vx) / 8, #PB_Round_Down)
iy = Round((*e\y + *e\vy) / 8, #PB_Round_Down)
;If Mod(*e\x, 8) <= 6
If Exc(ix, iy + 1) = - 2
;*e\jumping = #True
*e\vy = -1.5
;*e\vx = 0.0 - *e\vx
*e\girouette = 1
EndIf
;EndIf
;If Mod(*e\x, 8) > 2
; If Exc(ix + 1, iy + 1) = - 2
; ;*e\jumping = #True
; *e\vy = -1.5
; *e\vx = 0.0 - *e\vx
; EndIf
;EndIf
EndIf
; screen wraping
If *e\wrap = #True
If *e\x < -1 : *e\x = 144 - 8 : EndIf
If *e\x > 17*8 : *e\x = 1 : EndIf
Else
If *e\x < -1 : *e\deleteme = #True : EndIf
If *e\x > 17*8 : *e\deleteme = #True : EndIf
EndIf
; lock velocity
If *e\vx > 1.0 : *e\vx = 1.0: EndIf
If *e\vx <-1.0 : *e\vx = -1.0 : EndIf
; update position
*e\x = *e\x + *e\vx
*e\y = *e\y + *e\vy
EndIf
EndProcedure
Procedure entity_collide(*a.Entity, *b.Entity)
If (*b\x > = *a\x + 8) Or (*b\x + 8 <= *a\x) Or (*b\y > = *a\y + 8) Or (*b\y + 8 <= *a\y)
ProcedureReturn #False
Else
ProcedureReturn #True
EndIf
EndProcedure
Procedure entity_collide_point(*e.Entity, x.f, y.f, velocity.b = #False)
If velocity = #False
If x >= *e\x And x < *e\x + 7 And y >= *e\y And y < *e\y + 7
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
Else
If x >= *e\x + *e\vx And x < *e\x + 7 + *e\vx And y >= *e\y + *e\vy And y < *e\y + 7 + *e\vy
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndIf
EndProcedure
;-Datasection
DataSection
palette:
Data.l 16711935,2890778,6104925,5455537,5733871,7720447,7401639,6600504,7958821,7288361,13196603,16164417,16248691,16053492,12759188,8809558,5717043
end_palette:
tilemap:
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 0, 0, 0, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 2
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0
Data.b 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Data.b 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
end_tilemap:
texture:
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$1,$1,$1,$1,$C,$C,$C,$C,$C,$C,$C,$C,$1,$1,$1,$1,$1,$6,$6,$D,$0,$0,$0,$0,$0,$0,$0,$0,$6,$6,$D,$1,$1,$1,$1,$1
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$3,$4,$4,$4,$5,$5,$5,$A,$C,$C,$C,$C,$C,$C,$B,$6,$6,$6,$6,$8,$7,$D,$D,$D,$D,$D,$0,$0,$0,$0,$0,$7,$D,$D,$8,$6,$6,$6,$6
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$2,$3,$3,$3,$3,$3,$4,$A,$A,$C,$C,$C,$C,$B,$B,$D,$D,$D,$D,$8,$7,$7,$D,$E,$E,$0,$0,$0,$D,$0,$0,$7,$7,$D,$8,$D,$D,$D,$D
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$2,$2,$3,$3,$3,$3,$3,$A,$A,$A,$C,$C,$B,$B,$B,$7,$7,$7,$7,$8,$7,$7,$D,$0,$0,$0,$0,$D,$D,$1,$0,$7,$7,$D,$8,$7,$7,$7,$7
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$1,$1,$1,$1,$A,$A,$A,$9,$B,$B,$B,$B,$9,$9,$9,$9,$9,$7,$7,$D,$0,$E,$0,$0,$D,$D,$D,$9,$7,$7,$D,$9,$9,$9,$9,$9
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$4,$5,$5,$5,$1,$3,$4,$4,$A,$A,$9,$9,$9,$B,$B,$B,$9,$9,$9,$9,$9,$8,$9,$7,$D,$D,$E,$9,$9,$9,$9,$A,$8,$9,$7,$9,$9,$9,$9,$9
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$3,$3,$3,$4,$1,$2,$3,$3,$A,$9,$9,$9,$9,$9,$B,$B,$A,$A,$A,$A,$9,$A,$9,$8,$E,$E,$9,$9,$9,$A,$A,$0,$A,$9,$8,$9,$A,$A,$A,$A
Data.b $0,$0,$0,$0,$0,$0,$0,$0,$3,$3,$3,$3,$1,$2,$2,$3,$9,$9,$9,$9,$9,$9,$9,$B,$1,$1,$1,$1,$1,$A,$A,$A,$A,$A,$A,$A,$A,$0,$0,$0,$A,$A,$A,$1,$1,$1,$1,$1
Data.b $0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$4,$5,$D,$5,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $9,$9,$5,$4,$4,$2,$9,$9,$9,$9,$5,$4,$4,$2,$9,$9,$9,$9,$5,$4,$4,$2,$9,$9,$D,$D,$0,$0,$D,$D,$D,$D,$D,$D,$D,$D,$0,$0,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D
Data.b $4,$D,$9,$5,$2,$9,$D,$5,$4,$D,$9,$5,$2,$9,$D,$5,$4,$D,$9,$5,$2,$9,$D,$5,$E,$E,$D,$0,$E,$E,$E,$E,$E,$E,$E,$E,$0,$D,$E,$E,$0,$0,$D,$0,$0,$0,$E,$E
Data.b $4,$D,$D,$9,$9,$D,$D,$5,$4,$D,$D,$9,$9,$D,$D,$5,$4,$D,$D,$9,$9,$D,$D,$5,$0,$0,$E,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$E,$0,$0,$0,$1,$D,$D,$0,$0,$0,$0
Data.b $4,$D,$1,$4,$4,$1,$D,$4,$4,$D,$1,$4,$4,$1,$D,$4,$4,$D,$1,$4,$4,$1,$D,$4,$0,$0,$9,$0,$0,$0,$E,$D,$D,$E,$0,$0,$0,$9,$0,$0,$9,$D,$D,$D,$0,$0,$E,$0
Data.b $2,$4,$4,$4,$4,$4,$4,$4,$2,$4,$4,$4,$4,$4,$A,$9,$9,$A,$4,$4,$4,$4,$4,$4,$9,$9,$9,$9,$9,$9,$E,$D,$D,$E,$9,$9,$9,$9,$9,$9,$A,$9,$9,$9,$9,$E,$D,$D
Data.b $A,$2,$E,$E,$E,$E,$2,$A,$0,$2,$E,$E,$E,$A,$9,$9,$9,$9,$A,$E,$E,$E,$2,$0,$9,$9,$A,$9,$9,$9,$9,$E,$E,$9,$9,$9,$9,$A,$9,$9,$0,$A,$A,$9,$9,$9,$E,$E
Data.b $9,$A,$0,$E,$E,$0,$A,$9,$0,$9,$A,$E,$E,$9,$9,$0,$0,$9,$9,$E,$E,$A,$9,$0,$A,$A,$0,$A,$A,$A,$A,$A,$A,$A,$A,$A,$A,$0,$A,$A,$0,$0,$0,$A,$A,$A,$A,$A
Data.b $0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$3,$3,$3,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$2,$4,$2,$1,$4,$0,$0,$0,$0,$5,$D,$0,$0,$0,$0,$0,$0,$D,$D,$0,$0,$0,$0,$0,$0,$D,$D,$0,$0,$0
Data.b $0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$2,$4,$4,$2,$2,$4,$0,$0,$5,$4,$4,$D,$0,$0,$0,$0,$0,$4,$D,$0,$0,$0,$0,$0,$0,$5,$5,$0,$0,$0
Data.b $0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$3,$4,$4,$4,$4,$D,$0,$0,$0,$2,$4,$4,$D,$0,$0,$0,$0,$0,$4,$4,$0,$0,$0
Data.b $0,$3,$3,$5,$B,$A,$2,$0,$0,$0,$3,$5,$B,$A,$2,$0,$0,$0,$0,$3,$5,$B,$1,$0,$0,$2,$3,$4,$4,$4,$5,$0,$0,$0,$2,$3,$4,$5,$0,$0,$0,$0,$0,$4,$4,$0,$0,$0
Data.b $D,$0,$B,$B,$A,$A,$0,$E,$0,$D,$B,$B,$B,$A,$E,$0,$0,$0,$0,$3,$D,$B,$0,$0,$0,$0,$2,$3,$4,$5,$0,$0,$0,$0,$0,$2,$3,$0,$0,$0,$0,$0,$0,$3,$3,$0,$0,$0
Data.b $0,$0,$2,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$2,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$2,$3,$0,$0,$0,$0,$0,$0,$2,$2,$0,$0,$0,$0,$0,$0,$2,$2,$0,$0,$0
Data.b $0,$D,$3,$3,$3,$0,$0,$0,$0,$D,$3,$3,$3,$0,$0,$0,$0,$D,$3,$3,$3,$0,$0,$0,$0,$3,$3,$0,$0,$3,$3,$0,$3,$3,$3,$0,$0,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$3,$3,$3,$3,$0,$0,$0,$3,$0,$0,$0,$0,$0,$0,$3,$3,$2,$2,$0,$0,$2,$2,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$4,$1,$2,$4,$2,$0,$0,$0,$4,$1,$2,$4,$2,$0,$0,$0,$4,$1,$2,$4,$2,$0,$0,$3,$2,$2,$0,$0,$2,$2,$3,$3,$0,$0,$0,$0,$0,$0,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $4,$2,$2,$4,$4,$2,$0,$0,$4,$2,$2,$4,$4,$2,$0,$0,$4,$2,$2,$4,$4,$2,$0,$0,$3,$E,$E,$4,$4,$E,$E,$3,$3,$E,$E,$4,$4,$E,$E,$3,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$0,$4,$4,$4,$0,$0,$0,$0,$2,$D,$9,$3,$3,$9,$D,$2,$2,$D,$9,$3,$3,$9,$D,$2,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$2,$A,$B,$5,$3,$3,$0,$0,$2,$A,$B,$5,$3,$0,$0,$0,$1,$B,$5,$3,$0,$0,$0,$0,$2,$3,$3,$3,$3,$3,$0,$0,$2,$3,$3,$3,$3,$3,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $E,$0,$A,$A,$B,$B,$0,$D,$0,$E,$A,$B,$B,$B,$D,$0,$0,$0,$B,$D,$3,$0,$0,$0,$0,$D,$2,$0,$2,$3,$D,$0,$0,$D,$2,$3,$3,$3,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$2,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$2,$0,$0,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$D,$0,$0,$D,$0,$D,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
Data.b $0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$0,$0,$0,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$D,$D,$1,$0,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$0,$D,$0,$0,$0,$0,$D,$1,$1,$1,$1,$1,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$1,$D,$1,$0,$0,$0,$0,$1,$1,$0,$0,$D,$1,$0,$0,$1,$1,$0,$0,$D,$1,$0,$0,$D,$1,$0,$D,$1,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$1,$1,$D,$1,$0,$0,$0,$0,$0,$0,$D,$D,$1,$1,$0,$0,$0,$0,$D,$D,$1,$1,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$D,$1,$1,$1,$0,$0,$0,$0,$0,$1,$1,$D,$0,$0,$0,$1,$1,$1,$D,$1,$1,$0,$0,$1,$1,$1,$1,$D,$1,$0
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$1,$0,$0,$0,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$0,$0,$0,$D,$1,$0
Data.b $0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$D,$D,$D,$D,$D,$1,$0
Data.b $0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$1,$1,$1,$1,$1,$1,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$0,$0,$1,$1,$0,$0,$0,$1,$1,$1,$1,$1,$1,$0
Data.b $0,$0,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$D,$D,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$D,$D,$D,$0,$0,$0,$0,$0,$3,$D,$D,$3,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$1,$1,$1,$1,$D,$1,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$3,$3,$3,$3,$0,$0,$0,$1,$3,$D,$D,$3,$1,$0
Data.b $0,$D,$1,$0,$0,$1,$1,$0,$0,$0,$0,$0,$D,$1,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$2,$1,$4,$4,$1,$2,$0,$0,$1,$3,$3,$3,$3,$1,$0
Data.b $0,$D,$D,$D,$D,$0,$0,$0,$0,$0,$0,$0,$D,$1,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$1,$D,$D,$D,$D,$1,$0,$0,$4,$2,$2,$2,$2,$4,$0,$1,$2,$1,$4,$4,$1,$2,$1
Data.b $0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$0,$D,$1,$1,$0,$0,$0,$D,$1,$1,$1,$D,$0,$0,$0,$0,$1,$1,$1,$D,$1,$0,$D,$0,$4,$1,$1,$4,$0,$D,$1,$4,$2,$2,$2,$2,$4,$1
Data.b $0,$D,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$1,$0,$0,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$D,$0,$0,$0,$D,$1,$0,$0,$3,$5,$B,$B,$5,$3,$0,$0,$1,$4,$4,$4,$4,$1,$0
Data.b $0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$D,$1,$1,$0,$0,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$1,$D,$D,$D,$1,$1,$0,$0,$0,$A,$A,$A,$A,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0
Data.b $0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$0,$0,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$0,$1,$1,$1,$1,$0,$0,$0,$2,$0,$0,$0,$0,$2,$0,$0,$0,$0,$0,$0,$0,$0,$0
end_texture:
solid_tile:
Data.b 1,2
end_solid_tile:
bin_sound_jump:
; IncludeBinary "jump.wav"
bin_sound_jump_e:
bin_sound_hurt:
; IncludeBinary "hurt.wav"
bin_sound_hurt_e:
bin_sound_kill:
; IncludeBinary "kill.wav"
bin_sound_kill_e:
bin_sound_coin:
; IncludeBinary "coin.wav"
bin_sound_coin_e:
bin_sound_falling:
; IncludeBinary "falling.wav"
bin_sound_falling_e:
bin_sound_respawn:
; IncludeBinary "respawn.wav"
bin_sound_respawn_e:
bin_sound_rejump:
; IncludeBinary "rejump.wav"
bin_sound_rejump_e:
bin_sound_missile:
; IncludeBinary "missile.wav"
bin_sound_missile_e:
bin_sound_extralife:
; IncludeBinary "extralife.wav"
bin_sound_extralife_e:
EndDataSection
) , il y a une boucle ou "la physique" doit être appliqué et pas ailleurs , en effet , le code doit tourner sur les plus petite config possible , la boucle principale doit tourné à fond les ballons , la physique à 60hz suffit largement , tu as mélanger l'affichage de tuille et ("la physique") avec ton tableau global exc()
