TEXT1 My NDS Project
TEXT2 By jacob
TEXT3 
VERSION 4
FONT DefaultFont,Fonte4.png
BOOTROOM game
PAUSE 0
SAVE 0
GH 0
RM game,resultsbg,space,0,256,192,,1,1,0,0
SCORE 0
LIVES 3
HEALTH 100
BG space,C:\DSGameMaker\Resources\Backgrounds\SpaceScroller.png,0,0
SPR balloon,C:\DSGameMaker\Resources\Sprites\air_balloon.png
BG resultsbg,C:\DSGameMaker\Resources\Backgrounds\TextEntry.png,0,0
SPR0 game,balloon,220,80,0
RM fail,Nothing,bgfail,0,256,192,,1,1,0,0
BG bgfail,C:\DSGameMaker\Resources\Backgrounds\GameTitle.png,0,0
SPR bird,C:\DSGameMaker\Resources\Sprites\bird.png
VARIABLE game_roomstarted,0,0
VARIABLE Variable_1,0,50
ACT game,--- config bird variables
ACT game,--- Declare Global score;Whole Number;0
ACT game,Declare Room Global i;Whole Number;0
ACT game,Declare Room Global birdsprite_levelspeed;Whole Number;0
ACT game,Declare Room Global birdsprite_startid;Whole Number;10
ACT game,Declare Room Global birdsprite_total;Whole Number;10
ACT game,Set Variable birdsprite_startid;10
ACT game,Set Variable birdsprite_total;3
ACT game,--- generate bird loop
ACT game,Set Variable i;0
ACT game,If game_roomstarted == 0
ACT game,Set Variable score;0
ACT game,Set Score 0
ACT game,Set Variable game_roomstarted;1
ACT game,While i < birdsprite_total
ACT game,Set Variable BottomSprites[i+birdsprite_startid].X;PA_RandMinMax(0,60)
ACT game,Set Variable BottomSprites[i+birdsprite_startid].Y;PA_RandMinMax(0,160)
ACT game,Set Variable BottomSprites[i+birdsprite_startid].Used;true
ACT game,Create Sprite 0;birdsprite_startid + i;bird;32;32;PA_RandMinMax(0,60);PA_RandMinMax(0,160);0
ACT game,Set Variable i;i + 1
ACT game,End While
ACT game,End If
ACT game,--- movement of character
ACT game,Move Sprite with D-Pad 0;0;Medium
ACT game,If Sprite Location 0;X;0;10;<
ACT game,Jump to X 0;0;10
ACT game,End If
ACT game,If Sprite Location 0;Y;0;10;<
ACT game,Jump to Y 0;0;10
ACT game,End If
ACT game,If Sprite Location 0;X;0;230;>
ACT game,Jump to X 0;0;230
ACT game,End If
ACT game,If Sprite Location 0;Y;0;160;>
ACT game,Jump to Y 0;0;160
ACT game,End If
ACT game,--- move birds
ACT game,Set Variable i;0
ACT game,While i < birdsprite_total
ACT game,Advanced Jump to Position 0;i+birdsprite_startid;X Axis;birdsprite_levelspeed;1;Ignore
ACT game,Set Variable BottomSprites[i+birdsprite_startid].X;BottomSprites[i+birdsprite_startid].X + birdsprite_levelspeed
ACT game,If BottomSprites[i+birdsprite_startid].X > 250
ACT game,Set Variable BottomSprites[i+birdsprite_startid].Y;PA_RandMinMax(0, 160)
ACT game,Advanced Jump to Position 0;i+birdsprite_startid;Y Axis;BottomSprites[i+birdsprite_startid].Y;0;Ignore
ACT game,Set Variable BottomSprites[i+birdsprite_startid].X;-20
ACT game,Advanced Jump to Position 0;birdsprite_startid + i;X Axis;-20;0;Positive
ACT game,End If
ACT game,Set Variable i;i + 1
ACT game,End While
ACT game,--- check bird collissions
ACT game,Set Variable i;0
ACT game,While i < birdsprite_total
ACT game,If Collision 0;0;birdsprite_startid + i
ACT game,Set Variable game_roomstarted;0
ACT game,Switch Room fail
ACT game,End If
ACT game,Set Variable i;i + 1
ACT game,End While
ACT game,--- scoring
ACT game,Set Variable score;score + 1
ACT game,Increment Score 1;+
ACT game,Draw Score 0;13;0
ACT game,Set Variable birdsprite_levelspeed;1 + (score / 1000)
ACT game,--- move bg
ACT game,Declare Room Global bgscroll;32-bit Unsigned;0
ACT game,Set Variable bgscroll;bgscroll + 1
ACT game,Scroll Background 0;Layer 2;255 - (bgscroll % 255);0
ACT fail,If Button Press Newpress;A
ACT fail,Switch Room game
ACT fail,End If
ACT fail,Set Text Color For Future 0;Black
ACT fail,Output Text 0;3;3;fail. press the a button
ACT fail,Output Text 0;3;4;to play again
ACT fail,Draw String 0;5;6;"your score"
ACT fail,Draw Float 0;20;6;0;(float)score