How to make a super mario game
Author |
Message |
Jesse Kazemi
|
Posted: Tue Jun 17, 2014 11:35 am Post subject: How to make a super mario game |
|
|
i need help[[ |
|
|
|
|
|
Sponsor Sponsor
|
|
|
jesse kazomi
|
Posted: Tue Jun 17, 2014 12:20 pm Post subject: Re: How to make a super mario game |
|
|
Same here but u can start by putting snow in it:)
Turing: |
module Snow
export snowflake, create, fall, draw, pileup
type snowflake :
record
x, y : real
yvel : real
alive : int
end record
var pileup : real := 0
function create : snowflake
var temp : snowflake
temp.x := Rand.Int (0, maxx)
temp.y := maxy + (Rand.Real * 10)
temp.yvel := (Rand.Real * 3) + 1
temp.alive := 1
result temp
end create
function fall (flake : snowflake ) : snowflake
var temp := flake
temp.y - = temp.yvel
if temp.y < pileup then
temp.alive := 0
pileup + = 0. 005
end if
result temp
end fall
procedure draw (flake : snowflake )
drawfilloval (round (flake.x ), round (flake.y ), 1, 1, white)
end draw
end Snow
module StaticFlake
import Snow
export draw, create, staticflake
type staticflake :
record
x, y : int
end record
fcn create (flake : Snow.snowflake ) : staticflake
var temp : staticflake
temp.x := round (flake.x )
temp.y := round (flake.y )
result temp
end create
proc draw (flake : staticflake )
drawfilloval (flake.x, flake.y, 2, 2, white)
end draw
end StaticFlake
var win := Window.Open ("offscreenonly")
colourback (black)
colour (white)
var cur := 0
var snow : array 1 .. 1000 of Snow.snowflake %creates 100 snowflakes
var static : flexible array 1 .. 0 of StaticFlake.staticflake
for i : 1 .. upper (snow )
snow (i ) := Snow.create %creates all dem snowflakes
snow (i ).y - = Rand.Real * 100
end for
loop %main loop
for i : 1 .. upper (snow )
if snow (i ).alive ~ = 0 then
snow (i ) := Snow.fall (snow (i )) %the snow flake falls a bit
else
if upper (static ) < 1000 then
new static, upper (static ) + 1
static (upper (static )) := StaticFlake.create (snow (i ))
else
cur := cur rem 1000
cur + = 1
Text.Locate (1, 1)
put cur
static (cur ) := StaticFlake.create (snow (i ))
end if
snow (i ) := Snow.create
end if
end for
cls
for i : 1 .. upper (snow )
Snow.draw (snow (i )) %draws the snowflake
end for
for i : 1 .. upper (static )
StaticFlake.draw (static (i ))
end for
drawfillbox (0, 0, maxx, round (Snow.pileup )- 5, white)
View.Update
Time.DelaySinceLast (20)
end loop
|
Mod Edit:
Please wrap your code in either of the following in order to preserve whitespace (indentation) and to highlight the syntax.
code: |
[syntax="turing"] ... code ... [/syntax]
[code] ... code ... [/code ]
|
|
|
|
|
|
|
|
|