- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 26th Mar 2005 04:09

Link

Thanks ^^.

Challenge 10

Challenge : Make a game with a special gameplay (I can change if it's too hard).
Vote on : originality
Time limit: One week (until friday)

Some ideas :
Use completely your keyboard or your mouse (why not a microphone ?

) or don't use graphs, just sounds

Back to top

Profile PM

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 26th Mar 2005 05:28 Edited at: 26th Mar 2005 12:28

Link

Challenging! I like it!

Edit: Okay, here's entry #1.

Randomize Timer():Sync On: Sync Rate 60:Autocam Off:Color BackDrop 0:RL=200:RH=250:Make Object Plain 1,50,50:Pitch Object Down 1,90:Position Object 1,0,-50,150
Global Miss=0
Global Hits=0
Global Speed#=.2
Do:If rnd(100)=1:Ob=Make_Alpha_Block(RL,RH,Chr$(Rnd(25)+65)):If Ob>0 then Position Object Ob,Rnd(100)-Rnd(100),200,Rnd(50)+Rnd(50)+120
   Endif:k$=Inkey$():Move_Alpha_Block(RL,RH,k$):Ink Rgb(255,255,255),0:Set Cursor 0,0:Print "Hits: ";Hits:Print "Miss: ";Miss:Sync
Loop
Function Make_Alpha_Block(Range_L,Range_H,Letter$)
   For ObjectID= Range_L To Range_H:If Object Exist(ObjectID)=0 Then Exit
   Next ObjectID:If ObjectID>Range_H then ExitFunction 0
   Letter$=Upper$(Left$(Letter$,1)):If Object Exist(ObjectID) Then Delete Object ObjectID
   Make Object Triangle ObjectID,0,0,0,0,.1,0,0,0,0:Make Mesh From Object ObjectID,ObjectID:Delete Object ObjectID
   Make Object Cube ObjectID,15:Add Limb ObjectID,1,ObjectID:Delete Mesh ObjectID:Create Bitmap 1,128,128:Set Current Bitmap 1:Ink Rgb(0,0,255),0:Box 0,0,127,127:Ink Rgb(255,0,0),0
   ts=Text Size():Set Text Size 120:Center Text 64,4,Letter$:Set Text Size ts:Get Image ObjectID,0,0,127,127,1:Texture Object ObjectID,ObjectID:Set Current Bitmap 0:Delete Bitmap 1:ltr#=asc(Letter$):ltr#=ltr#/100.0:Offset Limb ObjectID,1,ltr#,0,0:Hide Limb ObjectID,1
EndFunction ObjectID
Function Move_Alpha_Block(Range_L,Range_H,Letter$)
   Letter$=Upper$(Left$(Letter$,1)):ltr#=Asc(Letter$):ltr#=ltr#/100.0:mx#=MouseMoveX():my#=MouseMoveY():For i = Range_L to Range_H:If Object Exist(i)
   Position Object i, Object Position X(i)+mx#*(ltr#=Limb Offset X(i,1)),Object Position Y(i),Object Position Z(i)-my#*(ltr#=Limb Offset X(i,1)):Position Object i,Object Position X(i),Object Position Y(i)-.2,Object Position Z(i):Miss=Miss+(Object Position Y(i)<-150):Hits=Hits+(Object Collision(i,1)<>0):Speed#=Speed#+.01*(Object Collision(i,1)<>0):If Object Position Y(i)<-150 Then Delete Object i Else If Object Collision(i,1) Then Delete Object i
   Endif:Next i
EndFunction

+ Code Snippet

Randomize Timer():Sync On: Sync Rate 60:Autocam Off:Color BackDrop 0:RL=200:RH=250:Make Object Plain 1,50,50:Pitch Object Down 1,90:Position Object 1,0,-50,150
Global Miss=0
Global Hits=0
Global Speed#=.2
Do:If rnd(100)=1:Ob=Make_Alpha_Block(RL,RH,Chr$(Rnd(25)+65)):If Ob>0 then Position Object Ob,Rnd(100)-Rnd(100),200,Rnd(50)+Rnd(50)+120
   Endif:k$=Inkey$():Move_Alpha_Block(RL,RH,k$):Ink Rgb(255,255,255),0:Set Cursor 0,0:Print "Hits: ";Hits:Print "Miss: ";Miss:Sync
Loop
Function Make_Alpha_Block(Range_L,Range_H,Letter$)
   For ObjectID= Range_L To Range_H:If Object Exist(ObjectID)=0 Then Exit
   Next ObjectID:If ObjectID>Range_H then ExitFunction 0
   Letter$=Upper$(Left$(Letter$,1)):If Object Exist(ObjectID) Then Delete Object ObjectID
   Make Object Triangle ObjectID,0,0,0,0,.1,0,0,0,0:Make Mesh From Object ObjectID,ObjectID:Delete Object ObjectID
   Make Object Cube ObjectID,15:Add Limb ObjectID,1,ObjectID:Delete Mesh ObjectID:Create Bitmap 1,128,128:Set Current Bitmap 1:Ink Rgb(0,0,255),0:Box 0,0,127,127:Ink Rgb(255,0,0),0
   ts=Text Size():Set Text Size 120:Center Text 64,4,Letter$:Set Text Size ts:Get Image ObjectID,0,0,127,127,1:Texture Object ObjectID,ObjectID:Set Current Bitmap 0:Delete Bitmap 1:ltr#=asc(Letter$):ltr#=ltr#/100.0:Offset Limb ObjectID,1,ltr#,0,0:Hide Limb ObjectID,1
EndFunction ObjectID
Function Move_Alpha_Block(Range_L,Range_H,Letter$)
   Letter$=Upper$(Left$(Letter$,1)):ltr#=Asc(Letter$):ltr#=ltr#/100.0:mx#=MouseMoveX():my#=MouseMoveY():For i = Range_L to Range_H:If Object Exist(i)
   Position Object i, Object Position X(i)+mx#*(ltr#=Limb Offset X(i,1)),Object Position Y(i),Object Position Z(i)-my#*(ltr#=Limb Offset X(i,1)):Position Object i,Object Position X(i),Object Position Y(i)-.2,Object Position Z(i):Miss=Miss+(Object Position Y(i)<-150):Hits=Hits+(Object Collision(i,1)<>0):Speed#=Speed#+.01*(Object Collision(i,1)<>0):If Object Position Y(i)<-150 Then Delete Object i Else If Object Collision(i,1) Then Delete Object i
   Endif:Next i
EndFunction

Edit2: You are a letterwrangler in someones computer. As they type letters on their keyboard, it's your job to make sure the letters get to the processor so they can be forwarded to the screen. Grab control of letters by using your keyboard and pressing the appropriate key. Then move the mouse to align the letter with the processor's gate (the grey-ish square). Your job rating depends on you making sure all the letters get to the processor. If you miss too many letters, expect someone to walk up behind you and hand you a pink slip of paper with your name on it.

"What happens if there are two of the same letters?" you ask? Well, they both move. It's not like you have a letterwrangler in your keyboard helping you out. Hey the job's tough, but it pays well. If you are good, we'll give you more work!

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 26th Mar 2005 18:20

Link

Nice idea. I like this game

Back to top

Profile PM

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 29th Mar 2005 16:12

Link

Hey Math, I hate to say it, but no one's posting. It might be a bit too tough of a challenge. I'd suggest keeping the Friday deadline, but change the challenge to something a little easier.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 29th Mar 2005 16:18

Link

I think these challenges are too hard generally. Not because they're hard to do, but because in 1 week if I wanted to do them I'd have to sacrific my social time with nearly everyone I know as I work during the day.

I prefered it when the challenges were simple. It gave scope to do something special and difference. When they're hard like "Make an original game" not only does it give no pointers what direction to go but making an origional game in a week is very hard for someone who only had 3-4 hours to themselves in the evening to eat, wash, and generally do everything else in the evening. Maybe even homework too if you're not a worker like me.

Just my thoughts..

My Website:

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 30th Mar 2005 00:08

Link

lol ya i agree that will be hard

I must say I am quite a »»ç¶´¬¬Géñíú§¬¬´¶««

Back to top

Profile PM Email Website

TEH_CODERER

21

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 30th Mar 2005 00:35

Link

I personally think it is a great, if vague, challenge. RiiDii's entry was pretty damn original! Good work.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Mar 2005 05:43

Link

111 hits: 25 misses, then I quit.

Your signature has been erased by IanM - Please get a shorter image in your sig

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 30th Mar 2005 05:58

Link

Mmh... ok... WHat about a particle system ? (2d or 3d)
(I havent got really good ideas this time

)

Back to top

Profile PM

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 30th Mar 2005 09:15 Edited at: 30th Mar 2005 09:19

Link

ok now im home from school and i have some time to type without the fear of being caught not doing what im supposed to

. anyways i have been working on a battle type game it "kinda kinda" fits challenge 10 but not rly. so i was wondering if i could get some help on special effects myself.

Plz help in the same "way" im coding with the all well known GOSUB!!!! commands cause its a good way to keep stuff organized. i know i have to throw an A.I. and story and health etc. but i just need some stuff to keep going. and until some1 helps i'll mess around with that sound function to get some sounds.

BTW-HAPPY EASTER EVERYONE. I got "The Incredibles" on DVD lol it's pretty funny especially "Jack Jack Attack" when syndrome is like the "S" stands for "Sitter" "originally i was going to go with "Baby Sitter" but than i was have been walking around with a big "BS" lol. Anyways i know im talking alot.

plz comment,suggest(stories,ideas),and help on this game and tell me if i can enter it in challenge

set display mode 1024,768,32
`load sounds
`load sound "colt45.wav",1
`camera stuff
set camera range 1,99999
position camera 0,0,-2000
color backdrop 0
`make human player and stuff
make object sphere 1,450,50,50
position object 1,2300,-1200,4500
color object 1,rgb(255,0,0)
ghost object on 1
`make weapon
`load object "thompson.x",12
make object cube 12,600
`yrotate object 12,-90
scale object 12,100,10,10
position object 12,2000,-1350,4250
`make bullet
make object sphere 11,40
position object 11,2300,-1200,4500
color object 11,rgb(227,189,55)
ghost object on 11
hide object 11
`make shield
make object sphere 13,900,50,50
scale object 13,168,130,120
position object 13,2300,-1200,4500
color object 13,rgb(192,192,192)
ghost object on 13
hide object 13
`make rocket
make object cone 50,200
zrotate object 50,90
scale object 50,80,150,80
position object 50,1700,1200,4500
color object 50,rgb(0,0,255)
ghost object on 50
hide object 50
`make health and energy bar
make object cube 14,200
scale object 14,1400,60,.001
position object 14,3700,300,4500
color object 14,rgb(255,0,0)
ghost object on 14
make object cube 15,200
scale object 15,1400,60,.001
position object 15,3700,100,4500
color object 15,rgb(0,0,255)
ghost object on 15
`menu stuff
`make menu background
make object cube 16,700
scale object 16,420,620,.1
position object 16,0,-3000,4500
ink 0,0
box 0,0,2,10:box 0,0,10,2:box 8,0,10,10:box 0,8,10,10
ink rgb(255,0,0),0
box 2,2,8,8
get image 1,0,0,10,10
texture object 16,1
ghost object on 16
`make buttons
`these are for the main menu
make object sphere 17,600
scale object 17,200,70,1
position object 17,0,-2300,4490
color object 17,rgb(0,155,0)
make object sphere 18,600
scale object 18,200,70,1
position object 18,0,-2750,4490
color object 18,rgb(0,155,0)
make object sphere 19,600
scale object 19,200,70,1
position object 19,0,-3200,4490
color object 19,rgb(0,155,0)
make object sphere 20,600
scale object 20,200,70,1
position object 20,0,-3650,4490
color object 20,rgb(0,155,0)
`these are for the power buttons
make object sphere 21,600
scale object 21,200,70,1
position object 21,1500,-2300,4490
color object 21,rgb(0,155,0)
make object sphere 22,600
scale object 22,200,70,1
position object 22,1500,-2750,4490
color object 22,rgb(0,155,0)
make object sphere 23,600
scale object 23,200,70,1
position object 23,1500,-3200,4490
color object 23,rgb(0,155,0)
make object sphere 24,600
scale object 24,200,70,1
position object 24,1500,-3650,4490
color object 24,rgb(0,155,0)
hide object 21:hide object 22:hide object 23:hide object 24
`these are for the attack power buttons
make object sphere 25,600
scale object 25,200,70,1
position object 25,3000,-2300,4490
color object 25,rgb(0,155,0)
make object sphere 26,600
scale object 26,200,70,1
position object 26,3020,-2750,4490
color object 26,rgb(0,155,0)
make object sphere 27,600
scale object 27,200,70,1
position object 27,3040,-3200,4490
color object 27,rgb(0,155,0)
make object sphere 28,600
scale object 28,200,70,1
position object 28,3060,-3650,4490
color object 28,rgb(0,155,0)
hide object 25:hide object 26:hide object 27:hide object 28
`these are for the defense power buttons
make object sphere 29,600
scale object 29,200,70,1
position object 29,3000,-2300,4490
color object 29,rgb(0,155,0)
make object sphere 30,600
scale object 30,200,70,1
position object 30,3000,-2750,4490
color object 30,rgb(0,155,0)
make object sphere 31,600
scale object 31,200,70,1
position object 31,3000,-3200,4490
color object 31,rgb(0,155,0)
make object sphere 32,600
scale object 32,200,70,1
position object 32,3000,-3650,4490
color object 32,rgb(0,155,0)
hide object 29:hide object 30:hide object 31:hide object 32

`make computer player and stuff
make object sphere 100,450,50,50
position object 100,-2300,-1200,4500
color object 100,rgb(0,0,255)
ghost object on 100
`make weapon
clone object 112,12
`yrotate object 112,90
scale object 112,100,10,10
position object 112,-2000,-1350,4250
`make bullet
make object sphere 111,40
position object 111,-2300,-1200,4500
color object 111,rgb(227,189,55)
ghost object on 111
hide object 111
`make shield
make object sphere 113,900,50,50
scale object 113,168,130,120
position object 113,-2300,-1200,4500
color object 113,rgb(192,192,192)
ghost object on 113
hide object 113
`more camera stuff
autocam off
`set up some global variables and identify them
global power
global comppower
global humanturn
global compturn
global humguny
global compguny
global humgunx
global compgunx
comppower=1
power=1
humanturn=1
compturn=0
humguny=-1350
compguny=-1350
humgunx=2000
compgunx=-2000
`the main battle loop
do
`these are for the powerups
gosub comppowerup
gosub powerup
`this is to keep the guns moving up and down
gosub gunmovecomp
gosub gunmovehum
`this controls the humans turn
if humanturn=1
gosub attack
gosub shield
gosub kick
gosub buttons
endif
`this controls computers turn
if compturn=1
gosub compattack
gosub buttons
gosub compshield
gosub compkick
endif
loop

attack:
if clickedatt=1 and humattack=0 then humattack=1:humbullet=1700:show object 11:hide object 13:gunkick=1
if humattack=1
position object 11,humbullet,object position y(12)+150,4500
dec humbullet,100
if humbullet=-2200 then hide object 11:humattack=0:clickedatt=0:compturn=1:humanturn=0
endif
return

kick:
if gunkick=1
position object 12,humgunx,object position y(12),4250
if humkick=0 then inc humgunx,50
if humkick=1 then dec humgunx,10
if humgunx=2200 then humkick=1
if humgunx=2000 then gunkick=0:humkick=0
endif
return

shield:
if clickedshield=1 then show object 13:humanturn=0:compturn=1:clickedshield=0
return

gunmovehum:
position object 12,2000,humguny,4250
inc hummove
if hummove=11 then hummove=0
if hummove=10
if humdown=0 then inc humguny
if humguny=-1300 then humdown=1
if humdown=1 then dec humguny
if humguny=-1350 then humdown=0
endif
return

powerup:
if shiftkey()=1 then humsuper=1
if power>1
if object exist(2)=0 then make object sphere 2,200,50,50:color object 2,rgb(0,255,0):position object 2,0,0,4500:ghost object on 2
human2x=360*sin(humrotate2#-100)
human2z=180*cos(humrotate2#-100)
position object 2,human2x+2300,-1100,human2z+4500
inc humrotate2#:if humsuper=1 then inc humrotate2#,10
endif
if power>2
if object exist(3)=0 then make object sphere 3,200,50,50:color object 3,rgb(0,255,0):position object 3,0,0,4500:ghost object on 3
human3x=360*sin(humrotate3#-100)
human3z=180*cos(humrotate3#-100)
position object 3,human3x+2300,-1300,human3z+4500
inc humrotate3#:if humsuper=1 then inc humrotate3#,10
endif
if power>3
if object exist(4)=0 then make object sphere 4,200,50,50:color object 4,rgb(0,255,0):position object 4,0,0,4500:ghost object on 4
human4x=360*sin(humrotate4#-100)
human4z=180*cos(humrotate4#-100)
position object 4,human4x+2300,-1200,human4z+4500
inc humrotate4#:if humsuper=1 then inc humrotate4#,10
endif
if power>4
if object exist(5)=0 then make object sphere 5,200,50,50:color object 5,rgb(0,255,0):position object 5,0,0,4500:ghost object on 5
human5x=180*sin(humrotate5#-100)
human5z=180*cos(humrotate5#-100)
human5y=360*sin(humrotate5#-100)
position object 5,human5x+2300,human5y-1200,human5z+4500
inc humrotate5#:if humsuper=1 then inc humrotate5#,10
endif
if power>5
if object exist(6)=0 then make object sphere 6,200,50,50:color object 6,rgb(0,255,0):position object 6,0,0,4500:ghost object on 6
human6x=180*sin(humrotate6#-300)
human6z=180*cos(humrotate6#-100)
human6y=360*sin(humrotate6#-100)
position object 6,human6x+2300,human6y-1200,human6z+4500
inc humrotate6#:if humsuper=1 then inc humrotate6#,10
endif
if power>6
if object exist(7)=0 then make object sphere 7,200,50,50:color object 7,rgb(255,0,255):position object 7,0,0,4500:ghost object on 7
human7x=400*sin(humrotate7#-100)
human7z=100*cos(humrotate7#-100)
position object 7,human7x+2300,-900,human7z+4500
inc humrotate7#,4:if humsuper=1 then inc humrotate7#,10
endif
if power>7
if object exist(8)=0 then make object sphere 8,200,50,50:color object 8,rgb(255,0,255):position object 8,0,0,4500:ghost object on 8
human8x=400*sin(humrotate8#-100)
human8z=100*cos(humrotate8#-100)
position object 8,human8x+2300,-1500,human8z+4500
inc humrotate8#,4:if humsuper=1 then inc humrotate8#,10
endif
if power>8
if object exist(9)=0 then make object sphere 9,200,50,50:color object 9,rgb(255,0,255):position object 9,0,0,4500:ghost object on 9
human9y=400*sin(humrotate9#-100)
human9z=100*cos(humrotate9#-100)
position object 9,2000,human9y-1200,human7z+4500
inc humrotate9#,4:if humsuper=1 then inc humrotate9#,10
endif
if power>9
if object exist(10)=0 then make object sphere 10,200,50,50:color object 10,rgb(255,0,255):position object 10,0,0,4500:ghost object on 10
human10y=400*sin(humrotate10#-100)
human10z=100*cos(humrotate10#-100)
position object 10,2600,human10y-1200,human10z+4500
inc humrotate10#,4:if humsuper=1 then inc humrotate10#,10
endif
return

compattack:
if returnkey()=1 and compattack=0 then compattack=1:compbullet=-1700:show object 111:compgunkick=1:kickcomp=0
if compattack=1
position object 111,compbullet,object position y(112)+150,4500
inc compbullet,100
if compbullet=2200 then hide object 111:compattack=0::humanturn=1:compturn=0:hide object 13
endif
return

compkick:
if compgunkick=1
position object 112,compgunx,object position y(112),4250
if kickcomp=0 then dec compgunx,50
if kickcomp=1 then inc compgunx,10
if compgunx=-2200 then kickcomp=1
if compgunx=-2000 then compgunkick=0:kickcomp=0
endif
return

compshield:
if compshield=1 then show object 113
return

gunmovecomp:
position object 112,-2000,compguny,4250
inc compmove
if compmove=11 then compmove=0
if compmove=10
if compdown=0 then inc compguny
if compguny=-1300 then compdown=1
if compdown=1 then dec compguny
if compguny=-1350 then compdown=0
endif
return

comppowerup:
if controlkey()=1 then inc comppower:sleep 200
if shiftkey()=1 then compsuper=1
if comppower>1
if object exist(102)=0 then make object sphere 102,200,50,50:color object 102,rgb(0,255,0):position object 102,0,0,4500:ghost object on 102
comp2x=360*sin(comprotate2#-100)
comp2z=180*cos(comprotate2#-100)
position object 102,comp2x-2300,-1100,comp2z+4500
inc comprotate2#:if compsuper=1 then inc comprotate2#,10
endif
if comppower>2
if object exist(103)=0 then make object sphere 103,200,50,50:color object 103,rgb(0,255,0):position object 103,0,0,4500:ghost object on 103
comp3x=360*sin(comprotate3#-100)
comp3z=180*cos(comprotate3#-100)
position object 103,comp3x-2300,-1300,comp3z+4500
inc comprotate3#:if compsuper=1 then inc comprotate3#,10
endif
if comppower>3
if object exist(104)=0 then make object sphere 104,200,50,50:color object 104,rgb(0,255,0):position object 104,0,0,4500:ghost object on 104
comp4x=360*sin(comprotate4#-100)
comp4z=180*cos(comprotate4#-100)
position object 104,comp4x-2300,-1200,comp4z+4500
inc comprotate4#:if compsuper=1 then inc comprotate4#,10
endif
if comppower>4
if object exist(105)=0 then make object sphere 105,200,50,50:color object 105,rgb(0,255,0):position object 105,0,0,4500:ghost object on 105
comp5x=180*sin(comprotate5#-100)
comp5z=180*cos(comprotate5#-100)
comp5y=360*sin(comprotate5#-100)
position object 105,comp5x-2300,comp5y-1200,comp5z+4500
inc comprotate5#:if compsuper=1 then inc comprotate5#,10
endif
if comppower>5
if object exist(106)=0 then make object sphere 106,200,50,50:color object 106,rgb(0,255,0):position object 106,0,0,4500:ghost object on 106
comp6x=180*sin(comprotate6#-300)
comp6z=180*cos(comprotate6#-100)
comp6y=360*sin(comprotate6#-100)
position object 106,comp6x-2300,comp6y-1200,comp6z+4500
inc comprotate6#:if compsuper=1 then inc comprotate6#,10
endif
if comppower>6
if object exist(107)=0 then make object sphere 107,200,50,50:color object 107,rgb(255,0,255):position object 107,0,0,4500:ghost object on 107
comp7x=400*sin(comprotate7#-100)
comp7z=100*cos(comprotate7#-100)
position object 107,comp7x-2300,-900,comp7z+4500
inc comprotate7#,4:if compsuper=1 then inc comprotate7#,10
endif
if comppower>7
if object exist(108)=0 then make object sphere 108,200,50,50:color object 108,rgb(255,0,255):position object 108,0,0,4500:ghost object on 108
comp8x=400*sin(comprotate8#-100)
comp8z=100*cos(comprotate8#-100)
position object 108,comp8x-2300,-1500,comp8z+4500
inc comprotate8#,4:if compsuper=1 then inc comprotate8#,10
endif
if comppower>8
if object exist(109)=0 then make object sphere 109,200,50,50:color object 109,rgb(255,0,255):position object 109,0,0,4500:ghost object on 109
comp9y=400*sin(comprotate9#-100)
comp9z=100*cos(comprotate9#-100)
position object 109,-2600,comp9y-1200,comp7z+4500
inc comprotate9#,4:if compsuper=1 then inc comprotate9#,10
endif
if comppower>9
if object exist(110)=0 then make object sphere 110,200,50,50:color object 110,rgb(255,0,255):position object 110,0,0,4500:ghost object on 110
comp10y=400*sin(comprotate10#-100)
comp10z=100*cos(comprotate10#-100)
position object 110,-2000,comp10y-1200,comp10z+4500
inc comprotate10#,4:if compsuper=1 then inc comprotate10#,10
endif
return

buttons:
ink 0,0
text 490,535,"Attack"
text 490,577,"Defend"
text 490,620,"Power"
text 478,662,"Inventory"
if over(1,449,520,575,565)
color object 17,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then clickedatt=1
else
color object 17,rgb(0,155,0)
endif
if over(1,449,565,575,610)
color object 18,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then clickedshield=1
else
color object 18,rgb(0,155,0)
endif
if over(1,449,608,575,650)
color object 19,rgb(100,155,100)
if mouseclick()=1 then showpower=1:show object 21:show object 22:show object 23:show object 24
if mouseclick()=2 then hide object 21:hide object 22:hide object 23:hide object 24:showpower=0:hide object 25:hide object 26:hide object 27:hide object 28
else
color object 19,rgb(0,155,0)
endif
if over(1,449,651,575,691) then color object 20,rgb(100,155,100) else color object 20,rgb(0,155,0)
if showpower=1
if over(1,603,520,725,565)
color object 21,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then inc power:humanturn=0:compturn=1
else
color object 21,rgb(0,155,0)
endif
if over(1,603,565,725,610)
color object 22,rgb(100,155,100)
if mouseclick()=1 then showattack=1:show object 25:show object 26:show object 27:show object 28
if mouseclick()=2 then showattack=0:hide object 25:hide object 26:hide object 27:hide object 28
else
color object 22,rgb(0,155,0)
endif
if over(1,603,608,725,650)
color object 23,rgb(100,155,100)
if mouseclick()=1 then showdefense=1
else
color object 23,rgb(0,155,0)
endif
if over(1,603,651,725,691)
color object 24,rgb(100,155,100)
else
color object 24,rgb(0,155,0)
endif
text 635,535,"Power Up"
text 616,577,"Attack Power"
text 613,620,"Defense Power"
text 613,662,"Special Power"
endif
if showattack=1
if over(1,758,520,885,565)
color object 25,rgb(100,155,100)
else
color object 25,rgb(0,155,0)
endif
if over(1,757,565,883,610)
color object 26,rgb(100,155,100)
else
color object 26,rgb(0,155,0)
endif
if over(1,756,608,881,650)
color object 27,rgb(100,155,100)
else
color object 27,rgb(0,155,0)
endif
if over(1,756,651,878,691)
color object 28,rgb(100,155,100)
else
color object 28,rgb(0,155,0)
endif
text 771,535,"Launch Rocket"
text 776,577,"Power Beam"
text 775,620,"Mega Charge"
text 776,662,"'GBE' 1000"
endif
if showdefense=1
endif
return

function over(but,x1,y1,x2,y2)
if mousex()>x1 and mousex()<X2
if mousey()>y1 and mousey()<Y2
over_area=1
endif
endif
endfunction over_area

+ Code Snippet

set display mode 1024,768,32
`load sounds
`load sound "colt45.wav",1
`camera stuff
set camera range 1,99999
position camera 0,0,-2000
color backdrop 0
`make human player and stuff
make object sphere 1,450,50,50
position object 1,2300,-1200,4500
color object 1,rgb(255,0,0)
ghost object on 1
`make weapon
`load object "thompson.x",12
make object cube 12,600
`yrotate object 12,-90
scale object 12,100,10,10
position object 12,2000,-1350,4250
`make bullet
make object sphere 11,40
position object 11,2300,-1200,4500
color object 11,rgb(227,189,55)
ghost object on 11
hide object 11
`make shield
make object sphere 13,900,50,50
scale object 13,168,130,120
position object 13,2300,-1200,4500
color object 13,rgb(192,192,192)
ghost object on 13
hide object 13
`make rocket
make object cone 50,200
zrotate object 50,90
scale object 50,80,150,80
position object 50,1700,1200,4500
color object 50,rgb(0,0,255)
ghost object on 50
hide object 50
`make health and energy bar
make object cube 14,200
scale object 14,1400,60,.001
position object 14,3700,300,4500
color object 14,rgb(255,0,0)
ghost object on 14
make object cube 15,200
scale object 15,1400,60,.001
position object 15,3700,100,4500
color object 15,rgb(0,0,255)
ghost object on 15
`menu stuff
`make menu background
make object cube 16,700
scale object 16,420,620,.1
position object 16,0,-3000,4500
ink 0,0
box 0,0,2,10:box 0,0,10,2:box 8,0,10,10:box 0,8,10,10
ink rgb(255,0,0),0
box 2,2,8,8
get image 1,0,0,10,10
texture object 16,1
ghost object on 16
`make buttons
`these are for the main menu
make object sphere 17,600
scale object 17,200,70,1
position object 17,0,-2300,4490
color object 17,rgb(0,155,0)
make object sphere 18,600
scale object 18,200,70,1
position object 18,0,-2750,4490
color object 18,rgb(0,155,0)
make object sphere 19,600
scale object 19,200,70,1
position object 19,0,-3200,4490
color object 19,rgb(0,155,0)
make object sphere 20,600
scale object 20,200,70,1
position object 20,0,-3650,4490
color object 20,rgb(0,155,0)
`these are for the power buttons
make object sphere 21,600
scale object 21,200,70,1
position object 21,1500,-2300,4490
color object 21,rgb(0,155,0)
make object sphere 22,600
scale object 22,200,70,1
position object 22,1500,-2750,4490
color object 22,rgb(0,155,0)
make object sphere 23,600
scale object 23,200,70,1
position object 23,1500,-3200,4490
color object 23,rgb(0,155,0)
make object sphere 24,600
scale object 24,200,70,1
position object 24,1500,-3650,4490
color object 24,rgb(0,155,0)
hide object 21:hide object 22:hide object 23:hide object 24
`these are for the attack power buttons
make object sphere 25,600
scale object 25,200,70,1
position object 25,3000,-2300,4490
color object 25,rgb(0,155,0)
make object sphere 26,600
scale object 26,200,70,1
position object 26,3020,-2750,4490
color object 26,rgb(0,155,0)
make object sphere 27,600
scale object 27,200,70,1
position object 27,3040,-3200,4490
color object 27,rgb(0,155,0)
make object sphere 28,600
scale object 28,200,70,1
position object 28,3060,-3650,4490
color object 28,rgb(0,155,0)
hide object 25:hide object 26:hide object 27:hide object 28
`these are for the defense power buttons
make object sphere 29,600
scale object 29,200,70,1
position object 29,3000,-2300,4490
color object 29,rgb(0,155,0)
make object sphere 30,600
scale object 30,200,70,1
position object 30,3000,-2750,4490
color object 30,rgb(0,155,0)
make object sphere 31,600
scale object 31,200,70,1
position object 31,3000,-3200,4490
color object 31,rgb(0,155,0)
make object sphere 32,600
scale object 32,200,70,1
position object 32,3000,-3650,4490
color object 32,rgb(0,155,0)
hide object 29:hide object 30:hide object 31:hide object 32

`make computer player and stuff
make object sphere 100,450,50,50
position object 100,-2300,-1200,4500
color object 100,rgb(0,0,255)
ghost object on 100
`make weapon
clone object 112,12
`yrotate object 112,90
scale object 112,100,10,10
position object 112,-2000,-1350,4250
`make bullet
make object sphere 111,40
position object 111,-2300,-1200,4500
color object 111,rgb(227,189,55)
ghost object on 111
hide object 111
`make shield
make object sphere 113,900,50,50
scale object 113,168,130,120
position object 113,-2300,-1200,4500
color object 113,rgb(192,192,192)
ghost object on 113
hide object 113
`more camera stuff
autocam off
`set up some global variables and identify them
global power
global comppower
global humanturn
global compturn
global humguny
global compguny
global humgunx
global compgunx
comppower=1
power=1
humanturn=1
compturn=0
humguny=-1350
compguny=-1350
humgunx=2000
compgunx=-2000
`the main battle loop
do
`these are for the powerups
gosub comppowerup
gosub powerup
`this is to keep the guns moving up and down
gosub gunmovecomp
gosub gunmovehum
`this controls the humans turn
if humanturn=1
gosub attack
gosub shield
gosub kick
gosub buttons
endif
`this controls computers turn
if compturn=1
gosub compattack
gosub buttons
gosub compshield
gosub compkick
endif
loop

attack:
if clickedatt=1 and humattack=0 then humattack=1:humbullet=1700:show object 11:hide object 13:gunkick=1
if humattack=1
position object 11,humbullet,object position y(12)+150,4500
dec humbullet,100
if humbullet=-2200 then hide object 11:humattack=0:clickedatt=0:compturn=1:humanturn=0
endif
return

kick:
if gunkick=1
position object 12,humgunx,object position y(12),4250
if humkick=0 then inc humgunx,50
if humkick=1 then dec humgunx,10
if humgunx=2200 then humkick=1
if humgunx=2000 then gunkick=0:humkick=0
endif
return

shield:
if clickedshield=1 then show object 13:humanturn=0:compturn=1:clickedshield=0
return

gunmovehum:
position object 12,2000,humguny,4250
inc hummove
if hummove=11 then hummove=0
if hummove=10
if humdown=0 then inc humguny
if humguny=-1300 then humdown=1
if humdown=1 then dec humguny
if humguny=-1350 then humdown=0
endif
return

powerup:
if shiftkey()=1 then humsuper=1
if power>1
if object exist(2)=0 then make object sphere 2,200,50,50:color object 2,rgb(0,255,0):position object 2,0,0,4500:ghost object on 2
human2x=360*sin(humrotate2#-100)
human2z=180*cos(humrotate2#-100)
position object 2,human2x+2300,-1100,human2z+4500
inc humrotate2#:if humsuper=1 then inc humrotate2#,10
endif
if power>2
if object exist(3)=0 then make object sphere 3,200,50,50:color object 3,rgb(0,255,0):position object 3,0,0,4500:ghost object on 3
human3x=360*sin(humrotate3#-100)
human3z=180*cos(humrotate3#-100)
position object 3,human3x+2300,-1300,human3z+4500
inc humrotate3#:if humsuper=1 then inc humrotate3#,10
endif
if power>3
if object exist(4)=0 then make object sphere 4,200,50,50:color object 4,rgb(0,255,0):position object 4,0,0,4500:ghost object on 4
human4x=360*sin(humrotate4#-100)
human4z=180*cos(humrotate4#-100)
position object 4,human4x+2300,-1200,human4z+4500
inc humrotate4#:if humsuper=1 then inc humrotate4#,10
endif
if power>4
if object exist(5)=0 then make object sphere 5,200,50,50:color object 5,rgb(0,255,0):position object 5,0,0,4500:ghost object on 5
human5x=180*sin(humrotate5#-100)
human5z=180*cos(humrotate5#-100)
human5y=360*sin(humrotate5#-100)
position object 5,human5x+2300,human5y-1200,human5z+4500
inc humrotate5#:if humsuper=1 then inc humrotate5#,10
endif
if power>5
if object exist(6)=0 then make object sphere 6,200,50,50:color object 6,rgb(0,255,0):position object 6,0,0,4500:ghost object on 6
human6x=180*sin(humrotate6#-300)
human6z=180*cos(humrotate6#-100)
human6y=360*sin(humrotate6#-100)
position object 6,human6x+2300,human6y-1200,human6z+4500
inc humrotate6#:if humsuper=1 then inc humrotate6#,10
endif
if power>6
if object exist(7)=0 then make object sphere 7,200,50,50:color object 7,rgb(255,0,255):position object 7,0,0,4500:ghost object on 7
human7x=400*sin(humrotate7#-100)
human7z=100*cos(humrotate7#-100)
position object 7,human7x+2300,-900,human7z+4500
inc humrotate7#,4:if humsuper=1 then inc humrotate7#,10
endif
if power>7
if object exist(8)=0 then make object sphere 8,200,50,50:color object 8,rgb(255,0,255):position object 8,0,0,4500:ghost object on 8
human8x=400*sin(humrotate8#-100)
human8z=100*cos(humrotate8#-100)
position object 8,human8x+2300,-1500,human8z+4500
inc humrotate8#,4:if humsuper=1 then inc humrotate8#,10
endif
if power>8
if object exist(9)=0 then make object sphere 9,200,50,50:color object 9,rgb(255,0,255):position object 9,0,0,4500:ghost object on 9
human9y=400*sin(humrotate9#-100)
human9z=100*cos(humrotate9#-100)
position object 9,2000,human9y-1200,human7z+4500
inc humrotate9#,4:if humsuper=1 then inc humrotate9#,10
endif
if power>9
if object exist(10)=0 then make object sphere 10,200,50,50:color object 10,rgb(255,0,255):position object 10,0,0,4500:ghost object on 10
human10y=400*sin(humrotate10#-100)
human10z=100*cos(humrotate10#-100)
position object 10,2600,human10y-1200,human10z+4500
inc humrotate10#,4:if humsuper=1 then inc humrotate10#,10
endif
return

compattack:
if returnkey()=1 and compattack=0 then compattack=1:compbullet=-1700:show object 111:compgunkick=1:kickcomp=0
if compattack=1
position object 111,compbullet,object position y(112)+150,4500
inc compbullet,100
if compbullet=2200 then hide object 111:compattack=0::humanturn=1:compturn=0:hide object 13
endif
return

compkick:
if compgunkick=1
position object 112,compgunx,object position y(112),4250
if kickcomp=0 then dec compgunx,50
if kickcomp=1 then inc compgunx,10
if compgunx=-2200 then kickcomp=1
if compgunx=-2000 then compgunkick=0:kickcomp=0
endif
return

compshield:
if compshield=1 then show object 113
return

gunmovecomp:
position object 112,-2000,compguny,4250
inc compmove
if compmove=11 then compmove=0
if compmove=10
if compdown=0 then inc compguny
if compguny=-1300 then compdown=1
if compdown=1 then dec compguny
if compguny=-1350 then compdown=0
endif
return

comppowerup:
if controlkey()=1 then inc comppower:sleep 200
if shiftkey()=1 then compsuper=1
if comppower>1
if object exist(102)=0 then make object sphere 102,200,50,50:color object 102,rgb(0,255,0):position object 102,0,0,4500:ghost object on 102
comp2x=360*sin(comprotate2#-100)
comp2z=180*cos(comprotate2#-100)
position object 102,comp2x-2300,-1100,comp2z+4500
inc comprotate2#:if compsuper=1 then inc comprotate2#,10
endif
if comppower>2
if object exist(103)=0 then make object sphere 103,200,50,50:color object 103,rgb(0,255,0):position object 103,0,0,4500:ghost object on 103
comp3x=360*sin(comprotate3#-100)
comp3z=180*cos(comprotate3#-100)
position object 103,comp3x-2300,-1300,comp3z+4500
inc comprotate3#:if compsuper=1 then inc comprotate3#,10
endif
if comppower>3
if object exist(104)=0 then make object sphere 104,200,50,50:color object 104,rgb(0,255,0):position object 104,0,0,4500:ghost object on 104
comp4x=360*sin(comprotate4#-100)
comp4z=180*cos(comprotate4#-100)
position object 104,comp4x-2300,-1200,comp4z+4500
inc comprotate4#:if compsuper=1 then inc comprotate4#,10
endif
if comppower>4
if object exist(105)=0 then make object sphere 105,200,50,50:color object 105,rgb(0,255,0):position object 105,0,0,4500:ghost object on 105
comp5x=180*sin(comprotate5#-100)
comp5z=180*cos(comprotate5#-100)
comp5y=360*sin(comprotate5#-100)
position object 105,comp5x-2300,comp5y-1200,comp5z+4500
inc comprotate5#:if compsuper=1 then inc comprotate5#,10
endif
if comppower>5
if object exist(106)=0 then make object sphere 106,200,50,50:color object 106,rgb(0,255,0):position object 106,0,0,4500:ghost object on 106
comp6x=180*sin(comprotate6#-300)
comp6z=180*cos(comprotate6#-100)
comp6y=360*sin(comprotate6#-100)
position object 106,comp6x-2300,comp6y-1200,comp6z+4500
inc comprotate6#:if compsuper=1 then inc comprotate6#,10
endif
if comppower>6
if object exist(107)=0 then make object sphere 107,200,50,50:color object 107,rgb(255,0,255):position object 107,0,0,4500:ghost object on 107
comp7x=400*sin(comprotate7#-100)
comp7z=100*cos(comprotate7#-100)
position object 107,comp7x-2300,-900,comp7z+4500
inc comprotate7#,4:if compsuper=1 then inc comprotate7#,10
endif
if comppower>7
if object exist(108)=0 then make object sphere 108,200,50,50:color object 108,rgb(255,0,255):position object 108,0,0,4500:ghost object on 108
comp8x=400*sin(comprotate8#-100)
comp8z=100*cos(comprotate8#-100)
position object 108,comp8x-2300,-1500,comp8z+4500
inc comprotate8#,4:if compsuper=1 then inc comprotate8#,10
endif
if comppower>8
if object exist(109)=0 then make object sphere 109,200,50,50:color object 109,rgb(255,0,255):position object 109,0,0,4500:ghost object on 109
comp9y=400*sin(comprotate9#-100)
comp9z=100*cos(comprotate9#-100)
position object 109,-2600,comp9y-1200,comp7z+4500
inc comprotate9#,4:if compsuper=1 then inc comprotate9#,10
endif
if comppower>9
if object exist(110)=0 then make object sphere 110,200,50,50:color object 110,rgb(255,0,255):position object 110,0,0,4500:ghost object on 110
comp10y=400*sin(comprotate10#-100)
comp10z=100*cos(comprotate10#-100)
position object 110,-2000,comp10y-1200,comp10z+4500
inc comprotate10#,4:if compsuper=1 then inc comprotate10#,10
endif
return

buttons:
ink 0,0
text 490,535,"Attack"
text 490,577,"Defend"
text 490,620,"Power"
text 478,662,"Inventory"
if over(1,449,520,575,565)
color object 17,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then clickedatt=1
else
color object 17,rgb(0,155,0)
endif
if over(1,449,565,575,610)
color object 18,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then clickedshield=1
else
color object 18,rgb(0,155,0)
endif
if over(1,449,608,575,650)
color object 19,rgb(100,155,100)
if mouseclick()=1 then showpower=1:show object 21:show object 22:show object 23:show object 24
if mouseclick()=2 then hide object 21:hide object 22:hide object 23:hide object 24:showpower=0:hide object 25:hide object 26:hide object 27:hide object 28
else
color object 19,rgb(0,155,0)
endif
if over(1,449,651,575,691) then color object 20,rgb(100,155,100) else color object 20,rgb(0,155,0)
if showpower=1
if over(1,603,520,725,565)
color object 21,rgb(100,155,100)
if mouseclick()=1 and humanturn=1 then inc power:humanturn=0:compturn=1
else
color object 21,rgb(0,155,0)
endif
if over(1,603,565,725,610)
color object 22,rgb(100,155,100)
if mouseclick()=1 then showattack=1:show object 25:show object 26:show object 27:show object 28
if mouseclick()=2 then showattack=0:hide object 25:hide object 26:hide object 27:hide object 28
else
color object 22,rgb(0,155,0)
endif
if over(1,603,608,725,650)
color object 23,rgb(100,155,100)
if mouseclick()=1 then showdefense=1
else
color object 23,rgb(0,155,0)
endif
if over(1,603,651,725,691)
color object 24,rgb(100,155,100)
else
color object 24,rgb(0,155,0)
endif
text 635,535,"Power Up"
text 616,577,"Attack Power"
text 613,620,"Defense Power"
text 613,662,"Special Power"
endif
if showattack=1
if over(1,758,520,885,565)
color object 25,rgb(100,155,100)
else
color object 25,rgb(0,155,0)
endif
if over(1,757,565,883,610)
color object 26,rgb(100,155,100)
else
color object 26,rgb(0,155,0)
endif
if over(1,756,608,881,650)
color object 27,rgb(100,155,100)
else
color object 27,rgb(0,155,0)
endif
if over(1,756,651,878,691)
color object 28,rgb(100,155,100)
else
color object 28,rgb(0,155,0)
endif
text 771,535,"Launch Rocket"
text 776,577,"Power Beam"
text 775,620,"Mega Charge"
text 776,662,"'GBE' 1000"
endif
if showdefense=1
endif
return

function over(but,x1,y1,x2,y2)
if mousex()>x1 and mousex()<X2
if mousey()>y1 and mousey()<Y2
over_area=1
endif
endif
endfunction over_area

P.S. - i had to quickly pull out sounds, and the original gun i had loaded as .x so plz dont mind the bad placing of the rectangle and the "rocket" that i tried to put into play is object number 50

Thx,
Kimo Sabi

I must say I am quite a »»ç¶´¬¬Géñíú§¬¬´¶««

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 30th Mar 2005 10:04 Edited at: 30th Mar 2005 10:07

Link

sry i had to post again but CHECK IT OUT

<edit> wait y can't i do html??????????????????????

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 30th Mar 2005 10:56

Link

I'm sick with the flu and can barely make sense of which way is up, let alone code, or figure what's a good challenge. Thanks to those that tried it. Particles might be tough too, but right now Print "Hello World" is tough! So I'm no judge. Suggestions for Math?

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Mar 2005 11:15

Link

I'd suggest more math based challenges. Something tricky, as thats the kind of stuff that we can really benefit from as coders.

Your signature has been erased by IanM - Please get a shorter image in your sig

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 30th Mar 2005 16:18

Link

Exactly. I cant personally see much to gain from this. Again - just my view.

btw: Nice sig Phaelax

My Website:

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Mar 2005 16:43

Link

Stupid sig. For some reason, my J-sig grew to like 1600 pixels so IanM erased it.

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 30th Mar 2005 18:12

Link

yeah - last i saw of that it had grown.. lol

My Website:

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 30th Mar 2005 19:55

Link

And what about recode some db math commands like abs, atanfull, sqrt, sin... ? Or maybe some physics function (but a little bit harder

)

Back to top

Profile PM

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 30th Mar 2005 20:01

Link

Exactly.

I thought the origional "point" of this thread was to produce some snippets that people can reuse for their own projects if they wish to, for example the particle effects and so on.

By setting challenges such as "make a fun game" you're less likely to produce usefull snippets, but just quickly hashed together games that probably have a good concept but seem rushed.

Dont get me wrong - creating a game is a good idea. Nothing at all wrong with it, I just dont think its fitting with the theme of the thread which, as I see it, has been getting quite far from its origional point.

Now I dont think its a good idea to have a challenge to make a better sin function or anything like that, but it might be a good idea to do a fractal one, or physics are always good for making interesting and reusable functions (maybe a realistic physics demo for a very basic ragdoll.. Something like the Dismount games (do a google for Truck Dismount, its SO SO fun.. In a sick way..

)

Thats my 2 cents.. Enjoy the compo

My Website:

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 30th Mar 2005 23:05

Link

ya i agree with ric resently ppl have been doing games and stuff not like functions or usefull snippets (even thought i think the strategy game one was great because that got alot of people involved) but anyways will some1 plllllz help me out a little

Back to top

Profile PM Email Website

Neofish

20

Years of Service

User Offline

Joined: 7th Apr 2004

Location: A swimming pool of coke

Posted: 30th Mar 2005 23:31 Edited at: 30th Mar 2005 23:34

Link

Trajectory? Then I could have a crack at it

:: AphoticVM oGL Plugin : 0.001% Complete (v0.0.0.1) ::

Back to top

Profile PM Email Website

robo cat

20

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: In a cat litter tray, near you...

Posted: 30th Mar 2005 23:56 Edited at: 30th Mar 2005 23:58

Link

To be honest, I agree that make an original game is a little too much to ask. I'm sure lots of people have really original ideas but don't want to waste them on a project made in a few days.

PS. For those who didn't realise how to make the files used in the picture drawing thing I made a few challenges back (its on Page 5), you use the same commands as the Basic 2D ones in Dark Basic. Just realised that you didn't know how to make the files.

Simple... yet fun!

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 31st Mar 2005 00:45 Edited at: 31st Mar 2005 00:47

Link

i like ur avatar neo lol
but ya maybe you should come up with a new challange

BTW EVERYONE PLEASE GO TO MY WEBSITE

<EDIT>Y CANT I EDIT MY SIG WITH HTML CODE!!!!!! AND IF I HAVE TO ADD MORE IT WILL DO THE DUMB LIMIT TO 200 CHARACTER THING

My Website:<br><a href="http://www.godlywingsentertainment.com" target="blank"><img src="http://www.godlywingsentertainment.com/g.bmp"></a>

Back to top

Profile PM Email Website

Neofish

20

Years of Service

User Offline

Joined: 7th Apr 2004

Location: A swimming pool of coke

Posted: 31st Mar 2005 01:32

Link

use this instead:

+ Code Snippet

My Website:
[href=http://www.godlywingsentertainment.com][img]http://www.godlywingsentertainment.com/g.bmp[/img][/href]

My Website:

I suggest you don't use bmps, they get too big

use jpg, gif or png

:: AphoticVM oGL Plugin : 0.001% Complete (v0.0.0.1) ::

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 31st Mar 2005 02:11

Link

PNG are also good for images with a single color (ie simple images)

My Website:

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 31st Mar 2005 10:42

Link

Been away for a few days - looks like the challenge thread is losing it's way a bit. I've realised that setting appropriate challenges is actually quite hard, so I've written a few guidelines to help people who need it. I've based the guidelines on comments made above, in particular from Nic - thanks. I've added a link to the guidelines on the first post, and you can also see them here.

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 31st Mar 2005 18:12 Edited at: 31st Mar 2005 18:27

Link

Thats brilliant Ric..
I like the Minigames idea. A LOT can be learned from making a demo of something as simple as Snake or Pacman, but with some modern techniques applied.

Things like the Labyrinth game I made, it contains a nice bit of maze generation code, etc.

I would like to participate in these compo's - I simply dont have the time right now though..

edit:
@KimoSabi:
Your sites quite nice. I like the layout. A few pointers.

unless you have no respect for your bandwidth, NEVER use BMP's for large images. Sometime's BMP's can be better for smaller images as there is not much overhead in terms of compression, etc (when I say small, I mean abuot 8x8).

What/who is hosting it? I find it quite slow to browse for such a "simple" site. By simple, I mean there is nothing special going on. Its just a site. It looks nice and its quite easy to browse, but there doesn't seem to be anything pointing at why I find it so slow to browse. It "feels" like its being hosted on a home broadband connection.

I like the way the code is "hidden". I just get lots of HTML comments. Dont suppose you know how thats done do you

My Website:

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 1st Apr 2005 03:40

Link

Thanks Ric, it's a really good idea. I think "Virtual Pet" is the best challenge to do ^^

Back to top

Profile PM

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 1st Apr 2005 04:55

Link

@nicholas- actually i use ixwebhosting and they are GREAT but no i dont know how to do hiding of the code i did my own html except for the template that they just do automatically

@everyone- where can i get something to convert bmp to smaller images?(now i have to reupload everything on a dial-up connection

My Website:<br><a href="http://www.godlywingsentertainment.com" target="blank"><img src="http://www.godlywingsentertainment.com/g.bmp"></a>

Back to top

Profile PM Email Website

robo cat

20

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: In a cat litter tray, near you...

Posted: 1st Apr 2005 05:08

Link

I've had a thought concerning the challenges.

Most games are made out of many components built onto a basic engine. What if each new component, such as collision, was a challenge. So the first challenge would be to make something simple, such as a moving model. The best engine would be carried forward, and the winner chooses the next feature to be added to the engine. Then everyone has a go modifying the engine to incorporate this new feature in the best way possible. The best new engine is chosen and that person chooses what is next to be added. The same could also apply to making media, so one challenge might be to make the best enemy model - the next to make the best room - the next to make the best textures etc. This might be quite good as near the end, there would be a fairly decent game, with each feature being done in the best way possible.

Simple... yet fun!

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Apr 2005 05:12

Link

a virtual pet? so... an AI contest?

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 1st Apr 2005 05:44

Link

Yes, but Robo cat's idea isn't bad too. Maybe your engine at next contest

Back to top

Profile PM

robo cat

20

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: In a cat litter tray, near you...

Posted: 1st Apr 2005 06:01

Link

If it was a platformer engine then there would be a lot of freedom as to how people approach things. The first challenge could be to create a cube jumping around other objects. Then the winner might decide that having an animated person to replace the cube. Next they might want a simple enemy added to the game. Next they might want moving objects. Next they might want a weapon to attack the enemy. This could go on until its a finished platforming game with lots of cool features.

Simple... yet fun!

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 1st Apr 2005 07:36

Link

That could work quite well.. Kinda.. Whatever is made would have to be made in an "expandable" and agreed fashion..

@Kimosabi: If you use WinXP, MSPaint can save in JPG. I use Jasc Paint Shop Pro, but thats not cheap. The Gimp is meant to be a nify free picture editor capable of basically everything Paint Shop Pro has to offer..

My Website:

Back to top

Profile PM Email Website

Neofish

20

Years of Service

User Offline

Joined: 7th Apr 2004

Location: A swimming pool of coke

Posted: 1st Apr 2005 10:38 Edited at: 1st Apr 2005 10:38

Link

paint compresses jpgs badly

+ im quite interested in this idea

:: AphoticVM oGL Plugin : 0.001% Complete (v0.0.0.1) ::

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 1st Apr 2005 11:18

Link

@ Robocat: Interesting spin off project. What you are describing (which is really a community project with a twist) is a good idea, but it would have to be separate from this thread.

The reason for that is that these challenges are meant to be varied, accessible for newcomers, without media, and short term, so that if one challenge isn’t your cup of tea, you can wait for the next one.

A community project, on the other hand, has a single theme (making it more/less interesting to some people), is not so easy to get involved with half way through, wouldn’t be much good without media, and requires a more long term commitment. These aren’t bad things, they are just different from the agreed framework of these challenges which seems to work quite well.

If you do start up a thread for your idea though, I’d certainly be in!

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 1st Apr 2005 18:12

Link

@Raven:
I agree - MS Paint sucks in terms of how "good" it is, but on its side, its free with windows! I was slightly concerned when I saw the filename MSPaint.exe appear when I was doing a service pack upgrade though.. What on earth could microsoft have done to MS Paint to make it have security holes?!

I agree with Ric too (Its a good day for agreeing). Community projects are a great idea - but they're not small varied challenges. In fact their completely the opposite

My Website:

Back to top

Profile PM Email Website

robo cat

20

Years of Service

User Offline

Joined: 23rd Feb 2004

Location: In a cat litter tray, near you...

Posted: 1st Apr 2005 18:49

Link

@Ric Your probably right about the unrelated challenges being the better option. Since you made those guidelines as to what challenges should be like, hopefully this thread will pick up again and there'll be no need to create another similar thread.

Simple... yet fun!

Back to top

Profile PM Email Website

Neofish

20

Years of Service

User Offline

Joined: 7th Apr 2004

Location: A swimming pool of coke

Posted: 1st Apr 2005 22:18

Link

Quote: " @Raven:"

Don't you mean @Neofish?

+ Pah to service pack upgrades!

:: AphoticVM oGL Plugin : 0.001% Complete (v0.0.0.1) ::

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 1st Apr 2005 22:25

Link

Whoopsie.. Where the hell did Raven come from?! Lol

Nah - it was a test.. Glad someone noticed

My Website:

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Apr 2005 01:34

Link

Raven? Hey, Neofish, stop changing tags - it's confusing!

Anyway, isn't today deadline day? Right - I'm going to put in a last minute entry ..... see you in an hour or so ......

P.S. Just tried Rii's 'Letter Wrangler' - 100 hits, 57 misses - took me a while getting the hang of it, but it's a really cool idea.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 2nd Apr 2005 02:28

Link

The only problem with building up to a game is that we aren't suppose to be using media. Without it though, a game seems dull.

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Apr 2005 05:59

Link

OK - here's my entry. It's not pretty, there are no graphics, and it takes some getting used to - but I think it's original!

sync on
sync rate 100
set display mode 800,600,32
autocam off
hide mouse
position camera 0,0,-10
set text font "arial"
set text size 30

createsound("sound1",1,500,50,8000,0,0,0.00,0.0,0,0)

make object cube 1,1
delete object 1

practice=1
level=1

restart:
changepitch=1
score=0
miss#=0

do

colour=colour-mousemovey()*100
if colour>80000 then colour=80000
if colour<5000 then colour=5000
color backdrop colour/350.0

if changepitch=1
  speed=rnd(75000)+5000
  set sound speed 1,speed
  changepitch=0
endif

if sound playing(1)=0 then play sound 1

if mouseclick()=1
  if colour>speed and colour<speed+10000
    changepitch=1
    inc score
  else
    inc miss#
  endif
endif

if practice=1 and inkey$()="s" then practice=0:goto restart
if practice=1
  if colour>speed and colour<speed+10000
    text 350,200,"Just right! ="
  else
    if colour>speed then text 350,200,"Go Down! v"
    if colour<speed+10000 then text 350,200,"Go Up! ^"
  endif

text 0,0,"TRAINING MODE !! (Press 's' to skip training.)"
  text 0,30,"Match the brightness to the sound."
  text 0,60,"Mouse up/down to change brightness"
  text 0,90,"Left mouse click to make an attempt."
  text 0,120,"Each attempt will increase my score.  First to 10 wins."
endif

text 350,300,"Your Score: "+str$(score)
text 350,350,"My Score: "+left$(str$(miss#/(100.0-level*15)),4)
`text 0,0,str$(screen fps())

if score>=10
  if practice=1
    text 0,500,"You win.  Now let's play for real - no help this time!  Press any key":sync:wait key
    practice=0
    goto restart
  else
    inc level
    if level<6 then text 0,500,"You win.  Moving to level "+str$(level)+" out of 5. Press any key":sync:wait key
    goto restart
  endif
endif

if miss#/(100.0-level*20)>=10 then text 0,500,"I win.  Game Over!  You got to level "+str$(level)+" out of 5":sync:wait key:end
if level>5 then text 0,500,"Congratulations - you have won!":sync:wait key:end
sync
loop

function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#)

if file exist(name$+".wav")=1 then delete file name$+".wav"
open to write 1,name$+".wav"
chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
samples=int((length#/1000)*44100) `length *44100
restore
for x=1 to 40
   read byte2
   write byte 1, byte2
next x
write long 1,chunk
rem generate and write wave
for x=1 to samples
  output#=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#+tremelodepth#*sin(phi#)))*3.0
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
  if loudness#>0 then dec loudness#,decay#
  write word 1,output#
next x
close file 1

load sound name$+".wav",soundnumber

data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
data 100:data 97:data 116:data 97

endfunction

+ Code Snippet

sync on
sync rate 100
set display mode 800,600,32
autocam off
hide mouse
position camera 0,0,-10
set text font "arial"
set text size 30


createsound("sound1",1,500,50,8000,0,0,0.00,0.0,0,0)

make object cube 1,1
delete object 1


practice=1
level=1

restart:
changepitch=1
score=0
miss#=0

do

colour=colour-mousemovey()*100
if colour>80000 then colour=80000
if colour<5000 then colour=5000
color backdrop colour/350.0

if changepitch=1
  speed=rnd(75000)+5000
  set sound speed 1,speed
  changepitch=0
endif

if sound playing(1)=0 then play sound 1

if mouseclick()=1
  if colour>speed and colour<speed+10000
    changepitch=1
    inc score
  else
    inc miss#
  endif
endif

if practice=1 and inkey$()="s" then practice=0:goto restart
if practice=1
  if colour>speed and colour<speed+10000
    text 350,200,"Just right! ="
  else
    if colour>speed then text 350,200,"Go Down! v"
    if colour<speed+10000 then text 350,200,"Go Up! ^"
  endif

  text 0,0,"TRAINING MODE !! (Press 's' to skip training.)"
  text 0,30,"Match the brightness to the sound."
  text 0,60,"Mouse up/down to change brightness"
  text 0,90,"Left mouse click to make an attempt."
  text 0,120,"Each attempt will increase my score.  First to 10 wins."
endif

text 350,300,"Your Score: "+str$(score)
text 350,350,"My Score: "+left$(str$(miss#/(100.0-level*15)),4)
`text 0,0,str$(screen fps())

if score>=10
  if practice=1
    text 0,500,"You win.  Now let's play for real - no help this time!  Press any key":sync:wait key
    practice=0
    goto restart
  else
    inc level
    if level<6 then text 0,500,"You win.  Moving to level "+str$(level)+" out of 5. Press any key":sync:wait key
    goto restart
  endif
endif

if miss#/(100.0-level*20)>=10 then text 0,500,"I win.  Game Over!  You got to level "+str$(level)+" out of 5":sync:wait key:end
if level>5 then text 0,500,"Congratulations - you have won!":sync:wait key:end
sync
loop


function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#)

if file exist(name$+".wav")=1 then delete file name$+".wav"
open to write 1,name$+".wav"
chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
samples=int((length#/1000)*44100) `length *44100
restore
for x=1 to 40
   read byte2
   write byte 1, byte2
next x
write long 1,chunk
rem generate and write wave
for x=1 to samples
  output#=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#+tremelodepth#*sin(phi#)))*3.0
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
  if loudness#>0 then dec loudness#,decay#
  write word 1,output#
next x
close file 1

load sound name$+".wav",soundnumber

data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
data 100:data 97:data 116:data 97

endfunction

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 2nd Apr 2005 06:18

Link

Hey - thats pretty cool!

My Website:

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 2nd Apr 2005 06:32

Link

Nice Yaffle. Good use of sounds

Back to top

Profile PM

Tom_d

20

Years of Service

User Offline

Joined: 3rd Jun 2004

Location:

Posted: 2nd Apr 2005 07:47

Link

this is my entry,
not a game as such, more a semi-interactive demonstration of how to draw a nice looking fractal. its pretty if nothing else!

randomize timer()

sync on
sync rate 60

type startpt
   x as integer
   y as integer
endtype

dim startpt(3) as startpt

type pt
   x as integer
   y as integer
endtype

dim pt(0) as pt

msg$="This is a demonstration of a Fractal - Click to begin"
stage=1

do

cls

if stage=1
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         stage=2
         msg$="Start by choosing the first point of the triangle"
      endif
   endif

if stage=2
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(1).x=mousex()
         startpt(1).y=mousey()
         stage=3
         msg$="Now the second point of the triangle"
      endif
   endif

if stage=3
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(2).x=mousex()
         startpt(2).y=mousey()
         stage=4
         msg$="And finally the third point of the triangle"
      endif
   endif

if stage=4
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(3).x=mousex()
         startpt(3).y=mousey()
         stage=5
         msg$="Now choose a point from where to start drawing the fractal"
      endif
   endif

if stage=5
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         array insert at bottom pt(0)
         pt(1).x=mousex()
         pt(1).y=mousey()
         stage=6
         msg$="The fractal is created by moving halfway from the current point..."
      endif
   endif

if stage=6
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         array insert at bottom pt(0)
         a=rnd(2)+1
         pt(2).x=(pt(1).x+startpt(a).x)/2
         pt(2).y=(pt(1).y+startpt(a).y)/2
         stage=7
         msg$="...to one of the three triangle points and drawing a dot"
      endif
   endif

if stage=7
      if mouseclick()=1 and waitmouse=0
         stage=8
         counter=timer()
         msg$="this is then continued many times..."
      endif
   endif

if stage=8
      if timer()>counter+200
         array insert at bottom pt(0)
         a=rnd(2)+1
         i=array count(pt(0))
         pt(i).x=(pt(i-1).x+startpt(a).x)/2
         pt(i).y=(pt(i-1).y+startpt(a).y)/2
         counter=timer()
      endif
      if array count(pt(0))=50
         stage=9
         msg$="and even faster..."
      endif
   endif

if stage=9
      if timer()>counter+10
         array insert at bottom pt(0)
         a=rnd(2)+1
         i=array count(pt(0))
         pt(i).x=(pt(i-1).x+startpt(a).x)/2
         pt(i).y=(pt(i-1).y+startpt(a).y)/2
         counter=timer()
      endif
      if array count(pt(0))=1000
         stage=10
         msg$="Click to repeat 30,000 times... (May take a few seconds!)"
      endif
   endif

if stage=10
      if mouseclick()=1 and waitmouse=0
         for i = 1001 to 30000
            array insert at bottom pt(0)
            a=rnd(2)+1
            i=array count(pt(0))
            pt(i).x=(pt(i-1).x+startpt(a).x)/2
            pt(i).y=(pt(i-1).y+startpt(a).y)/2
         next i
         stage=11
         msg$="and the fractal is shown!"
      endif
   endif

if stage=11
      if mouseclick()=1 and waitmouse=0 then end
   endif

ink rgb(255,0,0),1
   if stage>1 then dot startpt(1).x,startpt(1).y
   if stage>2 then dot startpt(2).x,startpt(2).y
   if stage>3 then dot startpt(3).x,startpt(3).y

ink rgb(255,255,255),1
   if stage>4
      for i = 1 to array count(pt(0))
         dot pt(i).x,pt(i).y
      next i
   endif

if waitmouse=1 and mouseclick()=0 then waitmouse=0

ink rgb(0,0,255),1
   center text 320,460,msg$

sync

loop

+ Code Snippet

randomize timer()

sync on
sync rate 60

type startpt
   x as integer
   y as integer
endtype

dim startpt(3) as startpt

type pt
   x as integer
   y as integer
endtype

dim pt(0) as pt

msg$="This is a demonstration of a Fractal - Click to begin"
stage=1

do

   cls

   if stage=1
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         stage=2
         msg$="Start by choosing the first point of the triangle"
      endif
   endif

   if stage=2
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(1).x=mousex()
         startpt(1).y=mousey()
         stage=3
         msg$="Now the second point of the triangle"
      endif
   endif

   if stage=3
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(2).x=mousex()
         startpt(2).y=mousey()
         stage=4
         msg$="And finally the third point of the triangle"
      endif
   endif

   if stage=4
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         startpt(3).x=mousex()
         startpt(3).y=mousey()
         stage=5
         msg$="Now choose a point from where to start drawing the fractal"
      endif
   endif

   if stage=5
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         array insert at bottom pt(0)
         pt(1).x=mousex()
         pt(1).y=mousey()
         stage=6
         msg$="The fractal is created by moving halfway from the current point..."
      endif
   endif

   if stage=6
      if mouseclick()=1 and waitmouse=0
         waitmouse=1
         array insert at bottom pt(0)
         a=rnd(2)+1
         pt(2).x=(pt(1).x+startpt(a).x)/2
         pt(2).y=(pt(1).y+startpt(a).y)/2
         stage=7
         msg$="...to one of the three triangle points and drawing a dot"
      endif
   endif

   if stage=7
      if mouseclick()=1 and waitmouse=0
         stage=8
         counter=timer()
         msg$="this is then continued many times..."
      endif
   endif

   if stage=8
      if timer()>counter+200
         array insert at bottom pt(0)
         a=rnd(2)+1
         i=array count(pt(0))
         pt(i).x=(pt(i-1).x+startpt(a).x)/2
         pt(i).y=(pt(i-1).y+startpt(a).y)/2
         counter=timer()
      endif
      if array count(pt(0))=50
         stage=9
         msg$="and even faster..."
      endif
   endif

   if stage=9
      if timer()>counter+10
         array insert at bottom pt(0)
         a=rnd(2)+1
         i=array count(pt(0))
         pt(i).x=(pt(i-1).x+startpt(a).x)/2
         pt(i).y=(pt(i-1).y+startpt(a).y)/2
         counter=timer()
      endif
      if array count(pt(0))=1000
         stage=10
         msg$="Click to repeat 30,000 times... (May take a few seconds!)"
      endif
   endif

   if stage=10
      if mouseclick()=1 and waitmouse=0
         for i = 1001 to 30000
            array insert at bottom pt(0)
            a=rnd(2)+1
            i=array count(pt(0))
            pt(i).x=(pt(i-1).x+startpt(a).x)/2
            pt(i).y=(pt(i-1).y+startpt(a).y)/2
         next i
         stage=11
         msg$="and the fractal is shown!"
      endif
   endif

   if stage=11
      if mouseclick()=1 and waitmouse=0 then end
   endif

   ink rgb(255,0,0),1
   if stage>1 then dot startpt(1).x,startpt(1).y
   if stage>2 then dot startpt(2).x,startpt(2).y
   if stage>3 then dot startpt(3).x,startpt(3).y

   ink rgb(255,255,255),1
   if stage>4
      for i = 1 to array count(pt(0))
         dot pt(i).x,pt(i).y
      next i
   endif


   if waitmouse=1 and mouseclick()=0 then waitmouse=0

   ink rgb(0,0,255),1
   center text 320,460,msg$


   sync

loop

enjoy

Back to top

Profile PM

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 2nd Apr 2005 11:39 Edited at: 2nd Apr 2005 11:49

Link

@Tom_d
Thats pretty cool dont see the point but cool lol

@Professor Yaffle
That is also cool but also dont see the point lol i dont rly get the point of the game

@Phaelax
I agree we arent supposed to use media but if we dont kinda dull

although u can make cool games without media

@robo cat
Personally i think that is a GREAT IDEA because than it is combining the best of everyones talents. I may start a thread and if so I think we should base it off of a game that covers alot of different things for everyones skills to be tested. You can find the game I find suitable for this at http://www.2flashgames.com/f/f-850.htm i posted my game that i tried at this earlier but i am limited to greatness and it would be nice to have a modeler come in the picture with some swords(what it actually should be). I hope u guys like this plan if it sounds ok plz say so and i'll start a thread.

@Nicholas Thompson
Yes i have MSPaint that is what i used i just used .gif cause that is smallest in size

thx. I'll go in on my website and change those screenshots to .gif also.

@Everyone
HI, lol i haven't been on for a while been quite busy i wont enter this challenge cause i kinda suck lol(in fact i forgot what it was even on).

My Website:

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Apr 2005 14:20 Edited at: 2nd Apr 2005 14:26

Link

@ Tom D: Cool, but wait for the fractal challenge! (I'm sure there'll be one soon.)

@ Math89: Deadlines up - judging time ........... then we can get the next challenge going.

Back to top

Profile PM Email Website

Math89

20

Years of Service

User Offline

Joined: 23rd Jan 2004

Location: UK

Posted: 2nd Apr 2005 20:17

Link

You are the winner Ric

. It was a great idea to use your sounds like that

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 3rd Apr 2005 00:20 Edited at: 3rd Apr 2005 07:01

Link

Thanks Math89

Ok, next challenge - already got some interest in this theme, so:

Challenge 11

* Make a virtual pet
* Time limit - <edit> 7 days (until Saturday night, 9/4/05)

___________________________________________________________________

If you hadn't guessed, this is an AI contest. The idea is to design your pet so it responds in different ways to user input - for example, you might set up characteristics such as happiness, greediness, behaviour, etc. which are affected in certain ways when you feed it, kick it, exercise it etc....... you get the idea!

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 3rd Apr 2005 00:23

Link

Ok - my opinion again. I think its too big.

Its a great project if you have nothing else to do with your time, but for those of us that dont get home till late and have other stuff to do, 5 days is not enough.

Yet again - another one I am going to have to miss out on, and I think quite a few other people too.

Although it is specific, it is great.

Enjoy the compo - I look forward to seeing what people produce.

My Website:

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / - DBPro Coding Challenges -