Maths Land - GameCreators Forum

Author

Message

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 27th Mar 2004 21:49 Edited at: 27th Mar 2004 21:53

Link

My most recent game was annoying me so I decided to start on a simpler one.

It's a 2D platformer that will pretty much be a rip-off of Mario.
I've tried to make it stylish and original - I think it looks pretty cool, if I do say so myself.

It doesn't use any media so just slap this code into DBPro:

set display mode 800,600,32
hide mouse

dim player(7):dim jgraph(100,2)
player(2)=300
player(1)=400
player(5)=5

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()
grid()
drawplayer()
drawlevel()
jumpgraph()

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1),player(2),10
circle player(1)+player(4),player(2)-1,1
circle player(1)+player(4)*6,player(2)-1,1
line player(1),player(2)+10,player(1),player(2)+35
circle lhandx#,lhandy#,3
circle rhandx#,rhandy#,3
line player(1),player(2)+15,lhandx#,lhandy#
line player(1),player(2)+15,rhandx#,rhandy#

line player(1),player(2)+35,lkneex#,player(2)+45
line player(1),player(2)+35,rkneex#,player(2)+45
line lkneex#,player(2)+45,lfootx#,player(2)+60
line rkneex#,player(2)+45,rfootx#,player(2)+60

if player(4)=1
box lfootx#-player(4)*2,player(2)+60+rfootybounce#,lfootx#+player(4)*7,player(2)+65+rfootybounce#
box rfootx#-player(4)*2,player(2)+60+lfootybounce#,rfootx#+player(4)*7,player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7,player(2)+60+lfootybounce#,lfootx#-player(4)*2,player(2)+65+lfootybounce#
box rfootx#+player(4)*7,player(2)+60+rfootybounce#,rfootx#-player(4)*2,player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 then player(6)=1:player(7)=25
if player(6)>0 then player(6)=player(6)+2
if player(6)>100 then player(6)=0
player(2)=(((player(6)-50)^2)/20)+175

endfunction
function drawlevel()

ink rgb(150,185,150),0
line 0,365,800,365
center text 600,365,"y=5"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin(x*8)*40+200,(x+1)*8,sin((x+1)*8)*40+200
next x
center text 200,200,"y=sin x"

ink rgb(190,200,100),0
circle 700,50,80
center text 670,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+4

for x = 1 to 100 step 2

ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1),jgraph(x,2)+70

next x

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

dim player(7):dim jgraph(100,2)
player(2)=300
player(1)=400
player(5)=5

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()
grid()
drawplayer()
drawlevel()
jumpgraph()

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1),player(2),10
circle player(1)+player(4),player(2)-1,1
circle player(1)+player(4)*6,player(2)-1,1
line player(1),player(2)+10,player(1),player(2)+35
circle lhandx#,lhandy#,3
circle rhandx#,rhandy#,3
line player(1),player(2)+15,lhandx#,lhandy#
line player(1),player(2)+15,rhandx#,rhandy#

line player(1),player(2)+35,lkneex#,player(2)+45
line player(1),player(2)+35,rkneex#,player(2)+45
line lkneex#,player(2)+45,lfootx#,player(2)+60
line rkneex#,player(2)+45,rfootx#,player(2)+60

if player(4)=1
box lfootx#-player(4)*2,player(2)+60+rfootybounce#,lfootx#+player(4)*7,player(2)+65+rfootybounce#
box rfootx#-player(4)*2,player(2)+60+lfootybounce#,rfootx#+player(4)*7,player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7,player(2)+60+lfootybounce#,lfootx#-player(4)*2,player(2)+65+lfootybounce#
box rfootx#+player(4)*7,player(2)+60+rfootybounce#,rfootx#-player(4)*2,player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 then player(6)=1:player(7)=25
if player(6)>0 then player(6)=player(6)+2
if player(6)>100 then player(6)=0
player(2)=(((player(6)-50)^2)/20)+175

endfunction
function drawlevel()

ink rgb(150,185,150),0
line 0,365,800,365
center text 600,365,"y=5"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin(x*8)*40+200,(x+1)*8,sin((x+1)*8)*40+200
next x
center text 200,200,"y=sin x"

ink rgb(190,200,100),0
circle 700,50,80
center text 670,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+4

for x = 1 to 100 step 2

ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1),jgraph(x,2)+70

next x

endfunction

It's just a little, stationary screen demo to give an idea of what the game will look like. It will have a fake 3D, 3-layered effect (where the foreground scrolls faster).

Controls

Left/Right - Move
Space - Jump

One problem I've had is that when I add text of quite a large size (about 35) it completely kills the fps. The enemies are going to be numbers so this has pretty much stopped production on that aspect. Anyone have any ideas??

Back to top

Profile PM

John H

Retired Moderator

21

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Burlington, VT

Posted: 27th Mar 2004 22:09 Edited at: 27th Mar 2004 22:11

Link

For your problem about text - Use sprite based text

Get an image that has all the characters you need on it (it would kick butt if they were arranged by their ASCII values) then chop up the image (make sure all the characters are in nice, evenly dividable columns) and make all the images into sprites. Now, if you found an image where they were aranaged by ASCII value, showing them would be as easy as something like this

Function SpriteText(Msg$)
Length = Len(Msg$)
For X = 0 to Length
Show Sprite ASC(Mid$(Msg$,Lengh -x))
Next X
endfunction

Well something like that

We need help! Email us! join@eternaldestinyonline.com

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 27th Mar 2004 22:17

Link

Thanks a lot.

Why is it so slow with large text?

Back to top

Profile PM

Mussi

21

Years of Service

User Offline

Joined: 27th Jan 2003

Location: Netherlands

Posted: 27th Mar 2004 22:34

Link

HAHA SO COOL!!! like that style very much

Specs: AMD Athlon 1800, 256 DDRRam 266mhz, 80GB HD 7200rmp U133, Geforce 4 Ti4400 128mb

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 28th Mar 2004 11:49

Link

nice stuff

very cool for no media

In the beginning, the universe was created...
This made alot of people very angry and it has been widely regarded as a bad idea...
Visit http://redeye.dbspot.com

Back to top

Profile PM Email Website

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 13:30 Edited at: 28th Mar 2004 14:08

Link

Update -

I changed the code for jumping completely so the jumping line doesn't really work anymore.

I'll fix it sometime.

I added falling and blocks. It's feeling like Mario now.

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()
grid()
drawplayer()
drawlevel()
jumpgraph()
drawblocks()

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1),player(2),10
circle player(1)+player(4),player(2)-1,1
circle player(1)+player(4)*6,player(2)-1,1
line player(1),player(2)+10,player(1),player(2)+35
circle lhandx#,lhandy#,3
circle rhandx#,rhandy#,3
line player(1),player(2)+15,lhandx#,lhandy#
line player(1),player(2)+15,rhandx#,rhandy#

line player(1),player(2)+35,lkneex#,player(2)+45
line player(1),player(2)+35,rkneex#,player(2)+45
line lkneex#,player(2)+45,lfootx#,player(2)+60
line rkneex#,player(2)+45,rfootx#,player(2)+60

if player(4)=1
box lfootx#-player(4)*2,player(2)+60+rfootybounce#,lfootx#+player(4)*7,player(2)+65+rfootybounce#
box rfootx#-player(4)*2,player(2)+60+lfootybounce#,rfootx#+player(4)*7,player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7,player(2)+60+lfootybounce#,lfootx#-player(4)*2,player(2)+65+lfootybounce#
box rfootx#+player(4)*7,player(2)+60+rfootybounce#,rfootx#-player(4)*2,player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1))

endfunction
function drawlevel()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600,485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,ABS(sin(x*8))*(-40)+220,(x+1)*8,ABS(sin((x+1)*8))*(-40)+220
next x
center text 200,200,"y=sin x"

ink rgb(190,200,100),0
circle 700,50,80
center text 670,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX)

for y = player(2)/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20,y*40+100)
next y
next x
endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()
grid()
drawplayer()
drawlevel()
jumpgraph()
drawblocks()

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1),player(2),10
circle player(1)+player(4),player(2)-1,1
circle player(1)+player(4)*6,player(2)-1,1
line player(1),player(2)+10,player(1),player(2)+35
circle lhandx#,lhandy#,3
circle rhandx#,rhandy#,3
line player(1),player(2)+15,lhandx#,lhandy#
line player(1),player(2)+15,rhandx#,rhandy#

line player(1),player(2)+35,lkneex#,player(2)+45
line player(1),player(2)+35,rkneex#,player(2)+45
line lkneex#,player(2)+45,lfootx#,player(2)+60
line rkneex#,player(2)+45,rfootx#,player(2)+60

if player(4)=1
box lfootx#-player(4)*2,player(2)+60+rfootybounce#,lfootx#+player(4)*7,player(2)+65+rfootybounce#
box rfootx#-player(4)*2,player(2)+60+lfootybounce#,rfootx#+player(4)*7,player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7,player(2)+60+lfootybounce#,lfootx#-player(4)*2,player(2)+65+lfootybounce#
box rfootx#+player(4)*7,player(2)+60+rfootybounce#,rfootx#-player(4)*2,player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1))


endfunction
function drawlevel()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600,485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,ABS(sin(x*8))*(-40)+220,(x+1)*8,ABS(sin((x+1)*8))*(-40)+220
next x
center text 200,200,"y=sin x"

ink rgb(190,200,100),0
circle 700,50,80
center text 670,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX)

for y = player(2)/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20,y*40+100)
next y
next x
endfunction

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 15:55 Edited at: 28th Mar 2004 15:57

Link

Update -

Scrolling !!! (that was easier than I thought it would be)
Layered Effect

Have fun -

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()

grid()
drawbackground()
drawplayer()
jumpgraph()
drawblocks()
drawforeground()

scrolling()

ink 0,0
print screen#(1)

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX)

for y = player(2)/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300
next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

controls()

grid()
drawbackground()
drawplayer()
jumpgraph()
drawblocks()
drawforeground()

scrolling()

ink 0,0
print screen#(1)

sync
loop

function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and player(1)<790
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX)

for y = player(2)/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300
next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction

Still no media

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 17:37

Link

Enemies

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

everything()

ink 0,0
print floorheight(enemypos(1),enemypos(2))
print enemypos(2)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
jumpgraph()
drawblocks()
drawforeground()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+2000-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+2000-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

everything()

ink 0,0
print floorheight(enemypos(1),enemypos(2))
print enemypos(2)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
jumpgraph()
drawblocks()
drawforeground()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if spacekey()=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+2000-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+2000-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 28th Mar 2004 18:19

Link

yay! this is getting pretty good

In the beginning, the universe was created...
This made alot of people very angry and it has been widely regarded as a bad idea...
Visit http://redeye.dbspot.com

Back to top

Profile PM Email Website

MikeS

Retired Moderator

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 28th Mar 2004 18:43

Link

Chris, this is probably the best game I've ever seen that's been completly hard-coded. Heck, if you develop it enough I think it should be in the next TGC newsletter.

A book? I hate book. Book is stupid.

Back to top

Profile PM Email

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 21:18

Link

Thanks a lot.

New Controls

Jump ==> Right Bracket
Shoot Plus ==> +
Shoot Minus ==> -

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

everything()

ink 0,0
print scancode()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+2000-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+2000-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*6:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
next t

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 70
do
cls rgb(255,255,255)

everything()

ink 0,0
print scancode()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10
lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200

line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+2000-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+2000-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*6:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
next t

endfunction

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 22:15 Edited at: 28th Mar 2004 22:23

Link

Killable enemies

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 then poly(8,2)=-100:bullets(b,1)=0
next b

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 then poly(8,2)=-100:bullets(b,1)=0
next b

endfunction

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 22:46

Link

Reducable Polygon Enemy

(You have to play it to understand)

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

rem if poly(8,2)<0 then poly(9,2)=5

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)

for t = 0 to 500
level(2,t,10)=2
next t

for t = 7 to 10
level(2,t,4)=1
next t

for t = 2 to 5
level(2,t,7)=1
next t

for t = 13 to 15
level(2,t,2)=1
next t

for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 then poly(9,1)=poly(9,1)+2
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

rem if poly(8,2)<0 then poly(9,2)=5

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction

Back to top

Profile PM

medwayman

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: uk

Posted: 28th Mar 2004 22:52

Link

This is great! Well Done

You should make EXEâ€™s of this at various points so non Pro users can check it out.

Great stuff

Based on Amiga PD game Squigs. Early shots: http://www.custardsoft.pwp.blueyonder.co.uk/images/03.png

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 28th Mar 2004 22:58

Link

I would but the .exe would be about 4MB (rather than 15kb) and I can't be bothered to upload it anywhere.

It 'works' in DBC.

Back to top

Profile PM

MikeS

Retired Moderator

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 28th Mar 2004 23:29

Link

Whoa, Neat-O.

I still stand by what I said earlier, this should be in the next TGC newsletter if progress like this keeps going. Simple amazing for no media.

A book? I hate book. Book is stupid.

Back to top

Profile PM Email

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 30th Mar 2004 00:43 Edited at: 30th Mar 2004 00:46

Link

I added a new toy - trampoline

It's quite far right. It will fire you right as well and you'll be able to adjust it's angle with +'s and -'s.

Back to top

Profile PM

spooky

21

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 30th Mar 2004 01:01

Link

Really good!

Boo!

Back to top

Profile PM Website

Code Ninja

20

Years of Service

User Offline

Joined: 17th Dec 2003

Location: AZ, U.S.

Posted: 30th Mar 2004 01:32

Link

when you say it'll work in DBC do you mean normal DBC or enhanced DBC? really what im trying to ask is, will it work with DBC 1.10?

Dragael Software
Current Project: 2D RPG Editor (DragnEdit 2D)

Back to top

Profile PM Email Website

MikeS

Retired Moderator

21

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 30th Mar 2004 02:03

Link

Why not just go ahead and copy and paste?

A book? I hate book. Book is stupid.

Back to top

Profile PM Email

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 30th Mar 2004 11:49

Link

It runs it in DBC but it's pretty much unplayable.

I think I forgot to paste the trampoline code:

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

set cursor 0,0:ink 0,0
print player(6)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
tramp()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)
dim tramp#(5):tramp#(1)=1600:tramp#(2)=480:tramp#(3)=270-40

for t = 0 to 500
level(2,t,10)=2
next t
for t = 7 to 10
level(2,t,4)=1
next t
for t = 2 to 5
level(2,t,7)=1
next t
for t = 13 to 15
level(2,t,2)=1
next t
for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 and ABS(poly(8,1)-player(1))<4 then goto skippolyturn
if poly(9,2)>3 and poly(8,1)>player(1) then poly(9,1)=poly(9,1)+2
if poly(9,2)>3 and poly(8,1)<player(1) then poly(9,1)=poly(9,1)-2
skippolyturn:
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction
function tramp()

ink 0,0
line tramp#(1)-screen#(1),tramp#(2),newxvalue(tramp#(1),(tramp#(3)+tramp#(5)),80)-screen#(1),newzvalue(tramp#(2),(tramp#(3)+tramp#(5)),80)
line tramp#(1)-screen#(1),tramp#(2),tramp#(1)-80-screen#(1),tramp#(2)

for t = 0 to 5
startx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)
startx#=tramp#(1)+(tramp#(1)-startx#)
starty#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)

endx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
endx#=tramp#(1)+(tramp#(1)-endx#)
endy#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
ink rgb(180,180,180),0

line startx#-screen#(1),starty#,endx#-screen#(1),endy#
center text tramp#(1)-80-screen#(1),tramp#(2)-10,"arc"
next t

if ABS(player(1)-(tramp#(1)-20))<40 and ABS(player(2)-(tramp#(2)-40))<40 and player(6)<0 then tramp#(4)=1:player(6)=35:player(7)=0

if tramp#(4)>0 then tramp#(4)=tramp#(4)+8
if tramp#(4)>180 then tramp#(4)=0
tramp#(5)=sin(tramp#(4))*10

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

set cursor 0,0:ink 0,0
print player(6)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
tramp()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

if leftkey()=1 and player(1)>10
player(1)=player(1)-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1
player(1)=player(1)+4
player(4)=1
player(3)=player(3)+player(5)
endif

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(7):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)
dim tramp#(5):tramp#(1)=1600:tramp#(2)=480:tramp#(3)=270-40

for t = 0 to 500
level(2,t,10)=2
next t
for t = 7 to 10
level(2,t,4)=1
next t
for t = 2 to 5
level(2,t,7)=1
next t
for t = 13 to 15
level(2,t,2)=1
next t
for t = 24 to 31
level(2,t,7)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if rightkey()=1 and player(1)>screen#(1)+500 then screen#(1)=screen#(1)+4
if leftkey()=1 and player(1)<screen#(1)+300 then screen#(1)=screen#(1)-4

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 and ABS(poly(8,1)-player(1))<4 then goto skippolyturn
if poly(9,2)>3 and poly(8,1)>player(1) then poly(9,1)=poly(9,1)+2
if poly(9,2)>3 and poly(8,1)<player(1) then poly(9,1)=poly(9,1)-2
skippolyturn:
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=-100:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction
function tramp()

ink 0,0
line tramp#(1)-screen#(1),tramp#(2),newxvalue(tramp#(1),(tramp#(3)+tramp#(5)),80)-screen#(1),newzvalue(tramp#(2),(tramp#(3)+tramp#(5)),80)
line tramp#(1)-screen#(1),tramp#(2),tramp#(1)-80-screen#(1),tramp#(2)

for t = 0 to 5
startx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)
startx#=tramp#(1)+(tramp#(1)-startx#)
starty#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)

endx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
endx#=tramp#(1)+(tramp#(1)-endx#)
endy#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
ink rgb(180,180,180),0

line startx#-screen#(1),starty#,endx#-screen#(1),endy#
center text tramp#(1)-80-screen#(1),tramp#(2)-10,"arc"
next t

if ABS(player(1)-(tramp#(1)-20))<40 and ABS(player(2)-(tramp#(2)-40))<40 and player(6)<0 then tramp#(4)=1:player(6)=35:player(7)=0

if tramp#(4)>0 then tramp#(4)=tramp#(4)+8
if tramp#(4)>180 then tramp#(4)=0
tramp#(5)=sin(tramp#(4))*10

endfunction

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 30th Mar 2004 12:00 Edited at: 30th Mar 2004 12:00

Link

OK. Ideas pleadge time.

I need more ideas for enemies. So far I've got-

Integers - These are either positive or negative whole numbers. You have to make them equal to 0. If you hit them with the wrong sign they get stronger.

Polygons - You have to hit these with -'s to remove sides from them, adding sides to them makes them faster. When you have reduced them to a triangle they can't roll anymore and will become a spike on the floor which you can't destroy.

Right angled triangles - These are stationary and are basically cannons. They aim up and down and shoot at you. Hit them with anything.

If anyone can come up with anymore (maybe a flying one) It'd be greatly appreciated.

Back to top

Profile PM

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 30th Mar 2004 15:12 Edited at: 30th Mar 2004 15:15

Link

Adjustable, working trampolines.

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

set cursor 0,0:ink 0,0
print player(6)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
tramp()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

player(1)=player(1)+player(8)

if leftkey()=1 and player(1)>10 and tramp#(6)=0
player(8)=-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and tramp#(6)=0
player(8)=4
player(4)=1
player(3)=player(3)+player(5)
endif

if leftkey()=0 and rightkey()=0 and tramp#(6)=0 then player(8)=0

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))

endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(8):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)
dim tramp#(6):tramp#(1)=1600:tramp#(2)=480:tramp#(3)=270-40

for t = 0 to 500
level(2,t,10)=2
next t
for t = 7 to 10
level(2,t,4)=1
next t
for t = 2 to 5
level(2,t,7)=1
next t
for t = 13 to 15
level(2,t,2)=1
next t
for t = 24 to 31
level(2,t,7)=1
next t
for t = 41 to 43
level(2,t,3)=1
next t
for t = 46 to 48
level(2,t,3)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if player(1)>screen#(1)+500 then screen#(1)=screen#(1)+player(8)
if player(1)<screen#(1)+300 then screen#(1)=screen#(1)-player(8)

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 and ABS(poly(8,1)-player(1))<4 then goto skippolyturn
if poly(9,2)>3 and poly(8,1)>player(1) then poly(9,1)=poly(9,1)+2
if poly(9,2)>3 and poly(8,1)<player(1) then poly(9,1)=poly(9,1)-2
skippolyturn:
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=900:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction
function tramp()

ink 0,0
line tramp#(1)-screen#(1),tramp#(2),newxvalue(tramp#(1),(tramp#(3)+tramp#(5)),80)-screen#(1),newzvalue(tramp#(2),(tramp#(3)+tramp#(5)),80)
line tramp#(1)-screen#(1),tramp#(2),tramp#(1)-80-screen#(1),tramp#(2)

for t = 0 to 5
startx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)
startx#=tramp#(1)+(tramp#(1)-startx#)
starty#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)

endx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
endx#=tramp#(1)+(tramp#(1)-endx#)
endy#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
ink rgb(180,180,180),0

line startx#-screen#(1),starty#,endx#-screen#(1),endy#
center text tramp#(1)-80-screen#(1),tramp#(2)-10,"arc"
next t

if ABS(player(1)-(tramp#(1)-20))<40 and ABS(player(2)-(tramp#(2)-40))<40 and player(6)<0 then tramp#(4)=1:player(6)=35:player(7)=0:player(8)=(270-tramp#(3))/4:tramp#(6)=1
if tramp#(6)=1 and player(2)=floorheight(player(1),player(2)) then tramp#(6)=0

if tramp#(4)>0 then tramp#(4)=tramp#(4)+8
if tramp#(4)>180 then tramp#(4)=0
tramp#(5)=sin(tramp#(4))*10

for b = 0 to 7
if b=0 or b=2 or b=4 or b=6
if ABS(tramp#(1)-bullets(b,1))<60 and ABS(tramp#(2)-bullets(b,2))<60 and bullets(b,1)>10 and 270-tramp#(3)>10
tramp#(3)=tramp#(3)+10:bullets(b,1)=0
endif
endif

if b=1 or b=3 or b=5 or b=7
if ABS(tramp#(1)-bullets(b,1))<60 and ABS(tramp#(2)-bullets(b,2))<60 and bullets(b,1)>10 and 270-tramp#(3)<50
tramp#(3)=tramp#(3)-10:bullets(b,1)=0
endif
endif

next b

endfunction

+ Code Snippet

set display mode 800,600,32
hide mouse

setuparrays()

sync on
sync rate 0
do
cls rgb(255,255,255)

everything()

set cursor 0,0:ink 0,0
print player(6)

sync
loop

function everything()

controls()

grid()
drawbackground()
drawplayer()
enemy()
enemypoly()
jumpgraph()
shooting()
drawblocks()
tramp()
drawforeground()
enemyhit?()

scrolling()

endfunction
function drawplayer()

lhandx#=player(1)+(player(4)*(player(3)/4.5))-player(4)*20
skiphandpos:
lhandy#=player(2)+28+sin(player(3))*10
rhandx#=player(1)-(player(4)*(player(3)/4.5))+player(4)*20
rhandy#=player(2)+32+sin(player(3))*10

lkneex#=player(1)+(player(4)*(player(3)/15))-player(4)*5
rkneex#=player(1)-(player(4)*(player(3)/15))+player(4)*5
lfootx#=player(1)+(player(4)*(player(3)/5))-player(4)*20
lfootybounce#=sin(player(3))*(-5)
if player(5)>0 then lfootybounce#=0
rfootx#=player(1)-(player(4)*(player(3)/5))+player(4)*15
rfootybounce#=sin(player(3))*(-5)
if player(5)<0 then rfootybounce#=0

ink 0,0
circle player(1)-screen#(1),player(2),10
circle player(1)+player(4)-screen#(1),player(2)-1,1
circle player(1)+player(4)*6-screen#(1),player(2)-1,1
line player(1)-screen#(1),player(2)+10,player(1)-screen#(1),player(2)+35
circle lhandx#-screen#(1),lhandy#,3
circle rhandx#-screen#(1),rhandy#,3
line player(1)-screen#(1),player(2)+15,lhandx#-screen#(1),lhandy#
line player(1)-screen#(1),player(2)+15,rhandx#-screen#(1),rhandy#

line player(1)-screen#(1),player(2)+35,lkneex#-screen#(1),player(2)+45
line player(1)-screen#(1),player(2)+35,rkneex#-screen#(1),player(2)+45
line lkneex#-screen#(1),player(2)+45,lfootx#-screen#(1),player(2)+60
line rkneex#-screen#(1),player(2)+45,rfootx#-screen#(1),player(2)+60

if player(4)=1
box lfootx#-player(4)*2-screen#(1),player(2)+60+rfootybounce#,lfootx#+player(4)*7-screen#(1),player(2)+65+rfootybounce#
box rfootx#-player(4)*2-screen#(1),player(2)+60+lfootybounce#,rfootx#+player(4)*7-screen#(1),player(2)+65+lfootybounce#
endif

if player(4)=-1
box lfootx#+player(4)*7-screen#(1),player(2)+60+lfootybounce#,lfootx#-player(4)*2-screen#(1),player(2)+65+lfootybounce#
box rfootx#+player(4)*7-screen#(1),player(2)+60+rfootybounce#,rfootx#-player(4)*2-screen#(1),player(2)+65+rfootybounce#
endif

endfunction
function controls()

player(1)=player(1)+player(8)

if leftkey()=1 and player(1)>10 and tramp#(6)=0
player(8)=-4
player(4)=-1
player(3)=player(3)-player(5)
endif

if rightkey()=1 and tramp#(6)=0
player(8)=4
player(4)=1
player(3)=player(3)+player(5)
endif

if leftkey()=0 and rightkey()=0 and tramp#(6)=0 then player(8)=0

if player(3)>180 or player(3)<0 then player(5)=player(5)*(-1)

if keystate(11)=1 and player(6)=0 and player(2)=floorheight(player(1),player(2)) then player(6)=25:player(7)=40
player(6)=player(6)-1
player(2)=player(2)-(player(6)/2)
if player(2)>floorheight(player(1),player(2)) and player(6)<0 then player(6)=0:player(2)=floorheight(player(1),player(2))


endfunction
function drawbackground()

ink rgb(150,185,150),0
line 0,480,800,480
center text 600-screen#(1),485,"y=2"

ink rgb(185,150,150),0
for x=0 to 100
line x*8,sin((x+screen#(1)/15)*8)*(-40)+220,(x+1)*8,sin((x+1+screen#(1)/15)*8)*(-40)+220
next x
center text 200-screen#(1)/1.85,200,"y=sin x"

ink rgb(190,200,100),0
circle 700-screen#(1)/3,50,80
center text 670-screen#(1)/3,50,"y^2 + x^2 = r^2"

endfunction
function grid()

ink rgb(240,240,240),0

for x = 1 to 9
line x*80,0,x*80,600
next x

for y = 1 to 7
line 0,y*80,800,y*80
next y

endfunction
function jumpgraph()

jgraph(player(6),1)=player(1)
jgraph(player(6),2)=player(2)

if player(6)=0 then for t= 1 to 100:jgraph(t,1)=0:jgraph(t,2)=0:next t

if player(7)<254 then player(7)=player(7)+7

for x = 1 to 100

if player(6)>0
ink rgb(player(7),player(7),player(7)),0
dot jgraph(x,1)-screen#(1),jgraph(x,2)+70
endif

next x

endfunction
function setuparrays()

dim player(8):dim jgraph(100,2)
player(2)=0
player(1)=400
player(5)=5
dim level(3,500,30)
dim screen#(2)
dim enemypos(2)
dim poly(9,2):poly(9,2)=5
dim bullets(8,4)
dim tramp#(6):tramp#(1)=1600:tramp#(2)=480:tramp#(3)=270-40

for t = 0 to 500
level(2,t,10)=2
next t
for t = 7 to 10
level(2,t,4)=1
next t
for t = 2 to 5
level(2,t,7)=1
next t
for t = 13 to 15
level(2,t,2)=1
next t
for t = 24 to 31
level(2,t,7)=1
next t
for t = 41 to 43
level(2,t,3)=1
next t
for t = 46 to 48
level(2,t,3)=1
next t

endfunction
function block(PosX,PosY)

ink 0,0
line PosX-20,PosY-20,PosX-20,PosY+20
line PosX-20,PosY+20,PosX+20,PosY+20
line PosX+20,PosY+20,PosX+20,PosY-20
line PosX+20,PosY-20,PosX-20,PosY-20

endfunction
function floorheight(PosX, PosY)

for y = PosY/40 to 30
if level(2,PosX/40,y)=1 or level(2,PosX/40,y)=2 then Height = y*40+15:goto skip
next y

skip:
endfunction Height
function drawblocks()

for x = 1 to 500
for y = 1 to 30
if level(2,x,y)=1 then block(x*40+20-screen#(1),y*40+100)
next y
next x
endfunction
function scrolling()

if player(1)>screen#(1)+500 then screen#(1)=screen#(1)+player(8)
if player(1)<screen#(1)+300 then screen#(1)=screen#(1)-player(8)

endfunction
function drawforeground()

ink rgb(200,220,200),0
for x = -10 to 10
line x*10+400-screen#(1)*1.5,(x*10)^2/25+200,(x+1)*10+400-screen#(1)*1.5,((x+1)*10)^2/25+200
line x*10+200-screen#(1)*1.5,(x*10)^2/25+300,(x+1)*10+200-screen#(1)*1.5,((x+1)*10)^2/25+300

line x*30+1500-screen#(1)*1.5,(x*30)^2/265+300,(x+1)*30+1500-screen#(1)*1.5,((x+1)*30)^2/265+300

next x
center text 350-screen#(1)*1.5,550,"y = x^2"
center text 1550-screen#(1)*1.5,330,"y = (x^2)/2"

endfunction
function enemy()

if enemypos(1)<player(1) then enemypos(1)=enemypos(1)+2
if enemypos(1)>player(1) then enemypos(1)=enemypos(1)-2
if poly(8,1)<player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)+3
if poly(8,1)>player(1) and poly(9,2)>3 then poly(8,1)=poly(8,1)-3

if enemypos(2)<floorheight(enemypos(1),enemypos(2)) then enemypos(2)=enemypos(2)+5
if poly(8,2)<floorheight(poly(8,1),poly(8,2)) then poly(8,2)=poly(8,2)+5

ink 0,0
box enemypos(1)-15-screen#(1),enemypos(2)-15+45,enemypos(1)+15-screen#(1),enemypos(2)+15+45

endfunction
function enemypoly()

for t = 0 to poly(9,2)-1
poly(t,1)=newxvalue(poly(8,1),t*(360/poly(9,2))+poly(9,1),20)
poly(t,2)=newzvalue(poly(8,2),t*(360/poly(9,2))+poly(9,1),20)
next t

if poly(9,2)>3 and ABS(poly(8,1)-player(1))<4 then goto skippolyturn
if poly(9,2)>3 and poly(8,1)>player(1) then poly(9,1)=poly(9,1)+2
if poly(9,2)>3 and poly(8,1)<player(1) then poly(9,1)=poly(9,1)-2
skippolyturn:
if poly(9,2)<3.5 then poly(9,1)=180

for t = 0 to poly(9,2)-1
ink rgb(150,150,150),0
if t=poly(9,2)-1 then line poly(t,1)-screen#(1),poly(t,2)+40,poly(t-(poly(9,2)-1),1)-screen#(1),poly(t-(poly(9,2)-1),2)+40:goto skippoly
line poly(t,1)-screen#(1),poly(t,2)+40,poly(t+1,1)-screen#(1),poly(t+1,2)+40
ink 0,0
circle poly(8,1)-screen#(1),poly(8,2)+40,1
next t
skippoly:

endfunction
function drawbullet(PosX, PosY, Typ)

if Typ=1
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
endif

if Typ=2
ink 0,0
box PosX-10-screen#(1),PosY-3,PosX+10-screen#(1),PosY+3
box PosX-3-screen#(1),PosY-10,PosX+3-screen#(1),PosY+10
endif

endfunction
function shooting()

bullets(8,1)=bullets(8,1)-1

if keystate(12)=1 and bullets(8,1)<0
for t = 0 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=1
goto skipshoot
endif
next t
skipshoot:
endif

if keystate(13)=1 and bullets(8,1)<0
for t = 1 to 7 step 2
if bullets(t,1)=0
bullets(t,1)=player(1)
bullets(t,2)=player(2)+25
bullets(t,3)=player(4)
bullets(8,1)=30
bullets(t,4)=2
goto skipshoot2
endif
next t
skipshoot2:
endif

for t = 0 to 7
if bullets(t,1)>0 then bullets(t,1)=bullets(t,1)+bullets(t,3)*8:drawbullet(bullets(t,1),bullets(t,2),bullets(t,4))
if bullets(t,1)>player(1)+500 then bullets(t,1)=0
if bullets(t,1)<player(1)-500 then bullets(t,1)=0
next t

endfunction
function enemyhit?()

for b = 0 to 7
if ABS(enemypos(1)-bullets(b,1))<60 and ABS((enemypos(2)+45)-bullets(b,2))<60 then enemypos(2)=900:bullets(b,1)=0
if ABS(poly(8,1)-bullets(b,1))<60 and ABS((poly(8,2)+45)-bullets(b,2))<60 and poly(8,2)>10
poly(9,2)=poly(9,2)-1
bullets(b,1)=0
if poly(9,2)<3 then poly(9,2)=8:poly(8,2)=-10
endif
next b

endfunction
function tramp()

ink 0,0
line tramp#(1)-screen#(1),tramp#(2),newxvalue(tramp#(1),(tramp#(3)+tramp#(5)),80)-screen#(1),newzvalue(tramp#(2),(tramp#(3)+tramp#(5)),80)
line tramp#(1)-screen#(1),tramp#(2),tramp#(1)-80-screen#(1),tramp#(2)

for t = 0 to 5
startx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)
startx#=tramp#(1)+(tramp#(1)-startx#)
starty#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*t,70)

endx#=newxvalue(tramp#(1),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
endx#=tramp#(1)+(tramp#(1)-endx#)
endy#=newzvalue(tramp#(2),90+(270-(tramp#(3)+tramp#(5)))/6*(t+1),70)
ink rgb(180,180,180),0

line startx#-screen#(1),starty#,endx#-screen#(1),endy#
center text tramp#(1)-80-screen#(1),tramp#(2)-10,"arc"
next t

if ABS(player(1)-(tramp#(1)-20))<40 and ABS(player(2)-(tramp#(2)-40))<40 and player(6)<0 then tramp#(4)=1:player(6)=35:player(7)=0:player(8)=(270-tramp#(3))/4:tramp#(6)=1
if tramp#(6)=1 and player(2)=floorheight(player(1),player(2)) then tramp#(6)=0

if tramp#(4)>0 then tramp#(4)=tramp#(4)+8
if tramp#(4)>180 then tramp#(4)=0
tramp#(5)=sin(tramp#(4))*10

for b = 0 to 7
if b=0 or b=2 or b=4 or b=6
if ABS(tramp#(1)-bullets(b,1))<60 and ABS(tramp#(2)-bullets(b,2))<60 and bullets(b,1)>10 and 270-tramp#(3)>10
tramp#(3)=tramp#(3)+10:bullets(b,1)=0
endif
endif

if b=1 or b=3 or b=5 or b=7
if ABS(tramp#(1)-bullets(b,1))<60 and ABS(tramp#(2)-bullets(b,2))<60 and bullets(b,1)>10 and 270-tramp#(3)<50
tramp#(3)=tramp#(3)-10:bullets(b,1)=0
endif
endif

next b

endfunction

A Screenshot:

Back to top

Profile PM

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 1st Apr 2004 20:30

Link

This is good - smoooooth

Can't think of enemies, but maybe Pi as a health pick-up?

Back to top

Profile PM Email Website

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 8th Apr 2004 18:38

Link

Thanks.

I've been on holiday so I haven't been able to update it at all.

Back to top

Profile PM

TheOneRing

20

Years of Service

User Offline

Joined: 28th Aug 2003

Location: Right here.

Posted: 8th Apr 2004 20:15

Link

One of the coolest things I've seend in a long time.

Back to top

Profile PM Email Website

Chris K

20

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 9th Apr 2004 00:15

Link

What the hell?!?

When I run the code now it doesn't work properly. The sun is bright red and the screen scrolls the wrong way. Is this happening for anyone else?

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 17th Apr 2004 06:26

Link

Cool indeed. But I broke it and I don't know how yet ..... sometimes the walking animation locks up and he moves but no animation.

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Sorry your browser is not supported!

Work in Progress / Maths Land