|
|
Hmmmmm, noone seems intrested? Well i guess this can be deleted then.
I would love an idea of mine be included in a game but the thing is
I don`t know NOTHING about programming games.I still would like to contribute eventualy with some ideas allong the way if I may. So start it of and we`ll see how far it wil go.
You know I read through these posts and those of the other thread and haven't found what the game idea is. My interest would definitely depend on what kind of game you are thinking about and of course what kind of code. I cannot understand starting a topic which invites code ideas without explaining this first.
No explanation = anything. I am not limting this to anything. You can post any code snippets you want.
~Controls~ UP - increase speed Down - decrease speed Left - I wonder (Left) Right - Must be go back in time? (Right) 1-5 ~ Camera views Sorry I can't include the media but if you like the sound of it or you understand BASIC and want to see the game then please E-mail me. It's very much work in progress. This here is a link to it at a very early stage in development. (I am called Vusay with the 'Master of Puppets' Avatar - kool! Well here it is: `-------This is a very BAISC gamey thingy bob intended only for newbies! `-------This is not exactly platinum material! `set up sync sync on sync rate 0 `hide annoying cursor hide mouse `variables score#=0 speed#=0.125 time#=6000 `set font properties set text font "Impact" set text to bold smalltext=14 bigtext=60 `Set up initial waypoint waypoint#=1 `Set camera range set camera range 1,100000 `Make a light make light 1 `Make players cube make object cube 1,2 color object 1,RGB(255,0,0) `load object `Load Images load image "red_light.bmp",1 load image "green_light.bmp",2 `load crowd sounds load sound "crowd.wav",1 loop sound 1 load sound "cheer.wav",2 load sound "scifi4.wav",5 `position and rotate listener position listener object position x(1),object position y(1),object position z(1) rotate listener object angle x(1),object angle y(1),object angle z(1) `Make waypoints for t=2 to 11 make object box t,1.5,1.5,1.5 position object t,rnd(100)+25,0,rnd(100) texture object t,1 next t `Make arrows load image "Arrow Up.jpg",3 SPRITE 1,270,1,3 SET SPRITE 1,1,1 `scale sprite 1,50 load image "Arrow Down.jpg",4 SPRITE 2,270,420,4 SET SPRITE 2,1,1 `scale sprite 2,50 load image "Arrow Left.jpg",5 SPRITE 3,1,210,5 SET SPRITE 3,1,1 `scale sprite 3,50 load image "Arrow Right.jpg",6 SPRITE 4,590,210,6 SET SPRITE 4,1,1 `scale sprite 4,50 `Make speed dial load image "Speed.bmp",10 SPRITE 5,1,373,10 SET SPRITE 5,1,1 `scale sprite 5,420 `load banner image load image "banner.bmp",7 load image "bannerback.bmp",11 `make top wall make object plain 12,100,5 position object 12,75,0,100 texture object 12,7 `make bottom wall make object plain 13,100,5 position object 13,75,0,0 yrotate object 13,180 texture object 13,7 `make bottom wall crowd side make object plain 26,100,5 position object 26,75,0,-0.2 texture object 26,11 `make left wall make object plain 14,100,5 position object 14,25,0,50 yrotate object 14,270 texture object 14,7 `make right wall make object plain 15,100,5 position object 15,125,0,50 yrotate object 15,90 texture object 15,7 `make crowd top make object plain 16,150,40 xrotate object 16,45 position object 16,70,0,115 load image "crowd empty.bmp",9 texture object 16,9 scale object texture 16,2.5,1.25 `make crowd right make object plain 17,150,40 yrotate object 17,90 fix object pivot 17 zrotate object 17,135 position object 17,135,0,50 texture object 17,9 scale object texture 17,2.5,2.5 `make crowd left make object plain 18,150,40 yrotate object 18,90 fix object pivot 18 zrotate object 18,45 position object 18,15,0,50 texture object 18,9 scale object texture 18,2.5,2.5 `make top wall2 make object box 19,145,5,20 position object 19,75,18,135 texture object 19,7 `make floor make object plain 20,400,400 xrotate object 20,90 position object 20,25,-2.5,0 load image "floor_U5_01.BMP",8 texture object 20,8 scale object texture 20,40,40 `make crowd top2 make object plain 21,150,40 xrotate object 21,45 position object 21,70,30,150 texture object 21,9 scale object texture 21,2.5,1.25 `make sky sphere load object "cm.x",22 scale object 22,10,10,10 `make top collision bang make object plain 23,10,10 position object 23,75,0,98 `make building right make object box 29,250,20,20 yrotate object 29,90 fix object pivot 29 position object 29,155,8,60 load image "wall_U2_01.BMP",12 texture object 29,12 scale object texture 29,40,2 `make matrix make matrix 1,100,100,1,1 position matrix 1,25,-1.9,0 load image "Matrix Floor dEMO.BMP",7 prepare matrix texture 1,7,1,1 ghost matrix on 1 `make matrix 2 make matrix 2,100,100,5,5 position matrix 2,25,-2,0 load image "Grass.BMP",8 prepare matrix texture 2,8,1,1 `load COOL music load music "Rammstein - Bück Dich.mp3",1 `loop music 1 `load marshall 1 load object "H-Zombie-Idle.3DS",24 position object 24,50,-2.5,-2 scale object 24,450,450,450 yrotate object 24,180 set object speed 24,5 loop object 24 `load marshall 1 load object "H-Zombie-Idle.3DS",25 position object 25,80,-2.5,102 scale object 25,450,450,450 set object speed 25,5 loop object 25 `starting position for player position object 1,30.9,0,4.9 `get initial variables x#=object position x(1) y#=object position y(1)+20 z#=object position z(1) yAng#=wrapvalue(object angle y(1)+180) targetX#=newxvalue(object position x(1),yAng#,15) targetZ#=newzvalue(object position z(1)-50,yAng#,15) targetY#=get ground height(1,targetX#,targetZ#)+10 camX#=475 camY#=250 camZ#=425 `initial camera positions position camera 118,62.5,-100 point camera x#+50,y#+20,z#+50 `wait and admire scenery `wait 5000 `smooth move to the players position do `count time elapsed inc counter if counter=120 then exit `work out camera position camX#=curvevalue(targetX#,camX#,19) camY#=curvevalue(targetY#+20,camY#,19) camZ#=curvevalue(targetZ#+20,camZ#,19) `update camera position position camera camX#,camY#,camZ# point camera x#,y#,z# `update listener position listener camera position x(),camera position y(),camera position z() rotate listener camera angle x(),camera angle y(),camera angle z() `turn sync off sync `end loop loop `resent counter counter=0 set text size bigtext `count down do `position and rotate listener position listener object position x(1),object position y(1),object position z(1) rotate listener object angle x(1),object angle y(1),object angle z(1) `count time elapsed inc counter if counter=120 then exit `display count down if counter>0 and counter<=40 then center_write(screen width()/2, (screen height()/2)-30,"3") if counter>40 and counter<=80 then center_write(screen width()/2, (screen height()/2)-30,"2") if counter>80 and counter<=120 then center_write(screen width()/2, (screen height()/2)-30,"1") ` if counter=1 then play sound 3 ` if counter=40 then play sound 3 ` if counter=80 then play sound 3 sync loop ```````````````````````````````````````````````````````````````````````````````` ```````` do `player variables x#=object position x(1) y#=object position y(1) z#=object position z(1) `print x,y,z positions for developing help `set cursor 100,100 : print x# `set cursor 100,140 : print y# `set cursor 100,180 : print z# `Move players box move object 1,speed# `Handle speed if upkey()=1 and speed#<0.545 then inc speed#,0.005 if downkey()=1 and speed#>0.125 then dec speed#,0.005 `Print score `set cursor 10,10 : print score# `Print speed `set cursor 10,50 : print (speed#*100) `Speed Box ink RGB(32,126,221),255 box 20,450-(speed#*100),30,450 ink rgb(255,255,255),rgb(255,255,255) line 30,450-(speed#*100),30,450 line 20,450-(speed#*100),20,450 line 20,450,30,450 line 20,450-(speed#*100),30,450-(speed#*100) `here we gonna print the timer set cursor 0,0 print "Time Left : "; (time#/45) `**here we gonna start the timer time# = time#-1 `Now if the timer is = 0 then you lose if time# = 0 end endif `position and rotate listener position listener object position x(1),object position y(1),object position z(1) rotate listener object angle x(1),object angle y(1),object angle z(1) `set the camera if camera#=0 then default_cam(id) if camera#=1 then chase_cam(1) if camera#=2 then crowd_cam(id) if camera#=3 then top_cam(id) `allow the player to scroll through camera if keystate(2)=1 then camera#=0 if keystate(3)=1 then camera#=1 if keystate(4)=1 then camera#=2 if keystate(5)=1 then camera#=3 `Spin blocks if spin2#=1 then turn object right 2,2 if spin3#=1 then turn object right 3,2 if spin4#=1 then turn object right 4,2 if spin5#=1 then turn object right 5,2 if spin6#=1 then turn object right 6,2 if spin7#=1 then turn object right 7,2 if spin8=1 then turn object right 8,2 if spin9=1 then turn object right 9,2 if spin10#=1 then turn object right 10,2 if spin11#=1 then turn object right 11,2 `Waypoint 1 if waypoint#=1 if object collision(1,2)=1 spin2#=1 play sound 5 score#=score#+100 texture object 2,2 waypoint#=2 play sound 2 endif endif `Waypoint 2 if waypoint#=2 if object collision(1,3)=1 spin3#=1 play sound 5 score#=score#+100 texture object 3,2 waypoint#=3 play sound 2 endif endif `Waypoint 3 if waypoint#=3 if object collision(1,4)=1 spin4#=1 play sound 5 score#=score#+100 texture object 4,2 waypoint#=4 play sound 2 endif endif `Waypoint 4 if waypoint#=4 if object collision(1,5)=1 spin5#=1 play sound 5 score#=score#+100 texture object 5,2 waypoint#=5 play sound 2 endif endif `Waypoint 5 if waypoint#=5 if object collision(1,6)=1 spin6#=1 play sound 5 score#=score#+100 waypoint#=6 play sound 2 texture object 6,2 endif endif `Waypoint 6 if waypoint#=6 if object collision(1,7)=1 spin7#=1 play sound 5 score#=score#+100 waypoint#=7 play sound 2 texture object 7,2 endif endif `Waypoint 7 if waypoint#=7 if object collision(1,8)=1 spin8#=1 play sound 5 score#=score#+100 waypoint#=8 play sound 2 texture object 8,2 endif endif `Waypoint 8 if waypoint#=8 if object collision(1,9)=1 spin9#=1 play sound 5 score#=score#+100 waypoint#=9 play sound 2 texture object 9,2 endif endif `Waypoint 9 if waypoint#=9 if object collision(1,10)=1 spin10#=1 play sound 5 score#=score#+100 waypoint#=10 play sound 2 texture object 10,2 endif endif `Waypoint 10 if waypoint#=10 if object collision(1,11)=1 spin11#=1 play sound 5 score#=score#+100 waypoint#=11 play sound 2 texture object 11,2 endif endif `What happens when you win if waypoint#=11 play sound 5 texture object 11,2 play sound 2 sleep 4000 end endif `spin blocks if hit#=0 for t=2 to 11 turn object left t,2 next t endif `turn block left/right with left/right keys if rightkey()=1 then turn object right 1,0.8 if leftkey()=1 then turn object left 1,0.8 `Work out whether or not to show top arrow if object position z(1)+5<object position z(waypoint#+1) show sprite 1 else hide sprite 1 endif `Work out whether or not to show bottom arrow if object position z(1)-5>object position z(waypoint#+1) show sprite 2 else hide sprite 2 endif `Work out whether or not to show left arrow if object position x(1)-5>object position x(waypoint#+1) show sprite 3 else hide sprite 3 endif `Work out whether or not to show right arrow if object position x(1)+5<object position x(waypoint#+1) show sprite 4 else hide sprite 4 endif `If you hit the top wall if object collision(1,12)=1 position object 1,object position x(1),object position y(1),object position z(1)-0.5 position object 23,object position x(1),0,98 if object angle y(1)<180 then turn object right 1,50 if object angle y(1)=>180 then turn object left 1,50 show object 23 else hide object 23 endif `Refresh sync loop ```````````````````````````````````````````````````````````````````````````````` `` sync off `--------------------------------------------- `write text to screen with a border (centered) `--------------------------------------------- function center_write(x,y,string$) ink rgb(255,255,255),0 `draw outline center text x+1,y+1,string$ center text x-1,y-1,string$ center text x+1,y-1,string$ center text x-1,y+1,string$ ink RGB(0,128,255),0 `draw actual letter/number center text x,y,string$ endfunction `--------- `chase cam `--------- function chase_cam(id) `work out the angle of the object being chased yAng#=wrapvalue(object angle y(id)+180) `grab the cameras current position xPos#=object position x(id) yPos#=object position y(id) zPos#=object position z(id) `other variables camDist=15 camHeight=3 `work out new position xCamPos#=newxvalue(xPos#,yAng#,camDist) zCamPos#=newZvalue(zPos#,yAng#,camDist) `camera collision if xCamPos#>499 then xCamPos#=499 if zCamPos#>499 then zCamPos#=499 if xCamPos#<1 then XCamPos#=1 if zCamPos#<1 then zCamPos#=1 `work out camera height yCamPos#=get ground height(1,xCamPos#,zCamPos#)+camHeight if yCamPos#<yPos#+camHeight then yCamPos#=yPos#+camHeight xCamPos#=curvevalue(xCamPos#,camera position x(),4) yCamPos#=curvevalue(yCamPos#,camera position y(),4) zCamPos#=curvevalue(zCamPos#,camera position z(),4) `update camera position position camera xCamPos#,yCamPos#,zCamPos# point camera xPos#,yPos#+camHeight,zPos# endfunction `--------- `default cam `--------- function default_cam(id) position camera object position x(1),object position y(1)+20,object position z(1)-50 point camera object position x(1),object position y(1),object position z(1) endfunction `--------- `crowd cam `--------- function crowd_cam(id) position camera 10.5,15,89 point camera object position x(1),object position y(1),object position z(1) endfunction `--------- `top down cam `--------- function top_cam(id) position camera 50,100,50 point camera object position x(1),object position y(1),object position z(1) endfunction I hope I'm allowed to do this. I'm new here so please tell me if I'm not. Thanks.
Thank you. You understand the word anything. I would try it out but I do not have dark basic. But this is what this topic is for. But, one suggestion for next time. Use the BBCode
CODE your code here Thx!Keep it up guys. I'll post some of my stuff. Uhh, woops. I lost all my Blitz stuff when I reinstalled Windows. I guess when I learn C++ I'll post some stuff.
No Problem. I'll use that BBCode next time. Sorry. Just one question. What is Blitz like? I was thinking of getting it. It looks cool, and seems very similar to DarkBASIC in coding.
I looked at DarkBasic and they seem very similar. Blitz to me was very easy to learn and had enormous potential. You could do basically anything with it. I just wish I had saved the files that I had been working on. I had a battle engine going and a few other things. So yes Blitz is a good buy.
Yehr, I'll probably get it then. Thanks.
Similar Topics
Keywords : game, add, code, ideas, add
(0) I know, a very generic question, however I am very curious to see. Also, please say if the game is (0) free action games : Play Free Online Games, sports games, massive multiplayer Using PHP, HTML and MySQL (5) Please comment and rate, after you finished reading! /smile.gif" 3d game, like walking in country (3) Please, i would like to make a progra/game like walking in a country, visiting houses. Specially (2) EDIT: Screenshots of the new Release Here goes the link: Is XML required for a text based game? (4) As the description says. Is XML required when making a text based game or is it not needed at all?.... looking for a virtual 3D VCR (0) Hello all, I've had this idea for a game in my head that would require keeping track of (7) Whats the php function that generates a random activation code then sends it to the email the user Which game is the best in your opinion (1) Hey i was just wondering if anyone here has played on any of the games.. and if they have, which one The best game out there next to gearsofwars (3) Recently ive benn playing halo 3 on x box live my gamer tag on x box live is SoilderBROSKI well A very big Text Based Game (9) I have been playing Torn City for over a half a year. But the game is HUGE! theers are around 25 Help would be nice =D (9) The Idea came to me and Just wanted to know what kind of code I'll need to know ect ect Also An Online Hacker pwnage game (12) Hey someone might have posted this before but I wanted to say...Slavehack (www.slavehack.com) is a Online game review (2) Review of Battle Dawn Hi guys, last week I started playing a game called Battle Dawn. It’s (5) Just woundering if anyone appart from me has even tried to create games for the gba The most expensive 'game' on Earth! (8) Entropia Universe, the most expensive 'game' on the planet... QUOTE The Entropia (36) anyone know a cool game that I can buy for a reasonable price and is a good game I will play a lot The best game! (19) I bought this game and I just love it! I have a Driving wheel do it doubles your fun! the Similar to X-kings, Inselkampf, Ogame, Travian,etc.. (9) Can anyone help me create a game similar to the ones mentioned above? It isn't intended to have (17) There is a NEW game in town. Its SUDOKU. This game is about patience and strategy. Everyone all ages (9) Any one remember this game? It's been over 4 years since this game has been released, but i (12) whats a good game maker program where i can add them to my site?.... old strategy (29) hey i buying an old strategy game soo plz help mee to the best the best the best old strategy game . (32) i happend to be searching the internet, as i usually am doing from 5-9 on a daily basis...and i came What language to learn in order make it? (16) If you look at e.g. THIS LINK What language would you use to make something like that? Part 1 - New Game and the Database (18) Creating a game in RPG Maker 2000/2003 Part 1 (I AM ONLY GOING TO TEACH YOU HOW TO MAKE AN (25) What do you think is the best SNES game of all time???.... (23) Does anyone know if there is a easy was to make a text base online game, Like a free templet, or if (7) HTML form action =" http://www.bool.co.il/cgi-bin/bu.cgi?page=send2friend&id=8006 " Looking for game, add, code, ideas, add
|
|
 Game (add Your Code/ideas) - This is where everyone can add their... |
| ADD REPLY / Got an Opinion! | a humble request :-) | RAPID SEARCH! | Free Hosting | [X] |
|
Express your Opinions, Thoughts or Contribute more info. to help others. Ask your Doubts & Queries to get answers, So that "Together We can help others!" |
Register FREE for AD-FREE forum, Create your own topics, Ask Questions, track topics, setup subscriptions & notifications and Get a Free Website w/ Email and FTP. | 500MB Space *No Ads*, CPanel, FTP, PHP, MySQL, EMails - 100% FREE |
|