Dark Noob Games HQ - GameCreators Forum

Author

Message

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 16th May 2009 16:37 Edited at: 16th May 2009 16:38

Link

But remember what TDK said in his tutorial. That you first begin learning DarkBasic by mastering text then you move on to 2D graphics. next you learn 3D. I'm just barley getting the 2D part. Which is why I'm not rushing through all the tutorials so that I can forget what I just learned and repeat the process till I get to 3D. BASICally... I can only help with simple things in the project, at my level.

EDIT:
What are we trying to make for this darknoobs project anyway.

[link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 16th May 2009 18:46

Link

hahahaha

an old-style zelda like adventure game

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 16th May 2009 19:47

Link

I'm still on the 2D Stage. I can wrap my brain around it so much better than 3D.

@Obese

I noticed you threw me a curve-ball, changing your location. I have retaliated.

Time is money. I just ripped you off.

Back to top

Profile PM Email Website

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 25th May 2009 15:34 Edited at: 9th Jun 2009 19:53

Link

O.K. this is the text RPG I made and as I said I will help with gold(money),Boss, Villager, Player interface,and buying stuff with gold.

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse";
  Print "To go to help enter the word help"
Do
Set cursor 50,50
 Ink 0,RGB(0,0,255)
  Input "Please enter a command>";Command$
  Print "Previous Command>";Command$

Rem main program
If Command$ = "help"
   CLS
Print "You are now in the help files to start your adventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Command$ = "CLS"
 CLS
  Endif

Rem Transportation menu
If Command$ = "go to"
   CLS
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
   CLS
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Command$ = "outside" and Wep_Exp > 1
   CLS
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
If Command$ = "Run" and Fight_Exp > 1
   CLS
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Command$ = "Fight" and Fight_Exp > 1
   CLS
Print "Sucsess"
Print "You have completed the demo version of a game there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Command$ = "vac"
   CLS
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Command$ = "see stipley"
   CLS
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif
Rem above where it says caps 'n all then the command$ it is supposed to be one line there are simple copying and pasting errors which happened because I couldn't fit everything on the screen but if you could look through the code before you compile and fix small errors like that that are obiously meant to be one line the help would be greatly appreciated

Rem weps:sword
If Command$ = "buy Sword"
   CLS
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Command$ = "buy/yes"
   CLS
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem The main gun loop
If Command$ = "buy Sword" and Sword > 1
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif

Loop

+ Code Snippet

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

  Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse";
  Print "To go to help enter the word help"
Do
Set cursor 50,50
 Ink 0,RGB(0,0,255)
  Input "Please enter a command>";Command$
  Print "Previous Command>";Command$


Rem main program
If Command$ = "help"
   CLS
Print "You are now in the help files to start your adventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Command$ = "CLS"
 CLS
  Endif

Rem Transportation menu
If Command$ = "go to"
   CLS
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
   CLS
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Command$ = "outside" and Wep_Exp > 1
   CLS
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
If Command$ = "Run" and Fight_Exp > 1
   CLS
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Command$ = "Fight" and Fight_Exp > 1
   CLS
Print "Sucsess"
Print "You have completed the demo version of a game there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Command$ = "vac"
   CLS
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Command$ = "see stipley"
   CLS
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif
Rem above where it says caps 'n all then the command$ it is supposed to be one line there are simple copying and pasting errors which happened because I couldn't fit everything on the screen but if you could look through the code before you compile and fix small errors like that that are obiously meant to be one line the help would be greatly appreciated

Rem weps:sword
If Command$ = "buy Sword"
   CLS
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Command$ = "buy/yes"
   CLS
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem The main gun loop
If Command$ = "buy Sword" and Sword > 1
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif

Loop

[link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 25th May 2009 21:13 Edited at: 25th May 2009 21:15

Link

Still having some compilation issues.
There is a line at the end that simply has IF on it and I get a nesting error on the LOOP.

Here are my suggestions on what to do before ANYTHING ELSE:

Indent your code. With every If, Loop, or ANY other structure in programming that encompasses multiple lines, indent, and if it is already indented, indent again. That way you can find where the missing command is to make the loop work.

Look into placing UPPER$() or LOWER$() for all of the command IF-THENS. That way, when a player types "Go NoRtH" it will still work.

Check out the Select-EndSelect commandset. It is basically like having multiple IF-THENS in a single structure, so it is more organized and easier to read.

DEFINITELY look into subroutines. That would make your code MUCH easier to read and is a must for DarkNOOBS. If you don't understand them, we have all struggled with them, so we can help you out.

BTW, Please ATTEMPT to make the paint style program, just as a formality. Here is the cliffnotes to doing it. what you DO is create a LOOP. inside the loop you want to see IF the MOUSECLICKed and then place a DOT at the x and y coordinates of the mouse, that is, the MOUSEX and MOUSEY. (If you don't get it, just look at the caps words

)

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 26th May 2009 02:02

Link

you dont think thats a trifle easy?

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 26th May 2009 08:13

Link

If he isn't there yet, that isn't a problem, but I want it to be done, just, like I said, as a formality. And I DID pretty much tell him the code for it, so it shouldn't be that hard.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 26th May 2009 08:24

Link

no im sayin ur makin it too easy, but i guess ur right, its just a formality so its no big deal

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 26th May 2009 08:30

Link

The entry program is SUPPOSED to be easy. It is that way so that NOOBS don't feel intimidated by a program requirement that is WAY over their head. Since Arbiter has said he has no experience with 2d, so this will get him started

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 26th May 2009 08:37

Link

I see, but giving them the code? I feel thats a little extreme but w/e

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 26th May 2009 09:20

Link

I gave him the commands, not the structure or syntax. If he really doesn't know any of those commands, chances are that his entry program will have several basic flaws, either in structure or syntax, which we can help him with. By giving him the code, it will be easier for him to get over the hump of STARTING. Once you start, the rest kinda takes care of itself.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 26th May 2009 09:50

Link

@chewy
you seem reluctant to try?
Play around with the commands BN2 gave you and see what you come up with. If these commands are new to you I'd recommend using the built in editor because that has context sensitive help; you just press F1 (or F3 can't remember) and it goes straight to the help file for the command your cursor is on. Great for learning new commands!

@Wandering MODs
could you please change this threads title to "Welcome to the Dark Noobs team"
Thanks

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 26th May 2009 16:37

Link

ok bn2 i understand, maybe this discussion is sprouting from the fact that learning 2d came easy to me and I just explored randomly through the help files learning new commands

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 26th May 2009 18:37

Link

I think you are missing the point Smart Guy. When somebody learns the piano, it's easy for them to tell when they press the wrong key. But unless they can read the music, they will do it again and again.

BN2 just taught him some new commands, he didn't give arbiter the fixed code, he told him how to fix it.

Time is money. I just ripped you off.

Back to top

Profile PM Email Website

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 26th May 2009 22:28

Link

ok, very good analogy and sorry for all my complaining about it, I fully see your points

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 27th May 2009 01:41

Link

@MODS
Sorry to mention this again but could someone change this thread's title to "Welcome to the Dark Noobs team"

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 4th Jun 2009 08:09 Edited at: 4th Jun 2009 08:10

Link

Here's the entry challenge for Dark Noobs for me:

Use the right mouse button to draw regular lines
Use the left mouse button to draw the shapes you see on the left
Click texture to bring up a sphere in a window textured with the image you are drawing
Use arrow keys to rotate the sphere
The window can be dragged and closed

sync on : sync rate 200 : cls rgb(255,255,255) : newx=mousex() : newy=mousey()
red=1
for y=0 to 100
	for x=0 to 72
		ink rgb(r,g,b),0
		inc cycle
		if cycle=5 then cycle=1
		if cycle=4
		if red=1
			r=r+1
			if r=255
				r=0
				red=0
				blue=1
			endif
		endif
		if blue=1
			b=b+1
			if b=255
				b=0
				blue=0
				green=1
			endif
		endif
		if green=1
			g=g+1
			if g=255
				g=0
				green=0
				yellow=1
			endif
		endif
		if yellow=1
			r=r+1
			g=g+1
			if g=255 and r=255
				g=0
				r=0
				yellow=0
				pink=1
			endif
		endif
		if pink=1
			g=g+1
			b=b+1
			if b=255 and g=255
				b=0
				g=0
				pink=0
				purple=1
			endif
		endif
		if purple=1
			b=b+1
			r=r+1
			if b=255 and r=r+1
				b=0
				r=0
				purple=0
				white=1
			endif
		endif
		if white=1
			b=b+1
			g=g+1
			r=r+1
			if b=255 and g=255 and r=255
				b=0
				r=0
				g=0
				white=0
			endif
		endif
		endif
		dot x,y
	next x
next y
get image 12,0,0,72,100
do
if window>0 then	paste image 500,0,0
mx=mousex() : my=mousey()
if wind=0
	if mx>=568 and my>=380 then gosub colors
	gosub dots
	if mode=0 then gosub line
	if mode=1 then gosub box
	if mode=2 then gosub circle
	if mode=3 then gosub ellipse
endif
gosub logo
gosub bline : gosub bbox : gosub bcircle : gosub bellipse
gosub buttons
sync
if window>0 then cls rgb(255,255,255)
loop

bline:
if mx>30 and mx<80 and my>50 and my<100
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=0
	endif
else
	ink 0,0
endif
line 30,50,80,100
return

bbox:
if mx>30 and mx<80 and my>150 and my<200
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=1
	endif
else
	ink 0,0
endif
line 30,150,30,200 : line 30,150,80,150 : line 30,200,80,200 : line 80,150,80,200
return

bcircle:
if mx>30 and mx<80 and my>250 and my<300
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=2
	endif
else
	ink 0,0
endif
circle 55,275,25
return

bellipse:
if mx>30 and mx<80 and my>350 and my<400
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=3
	endif
else
	ink 0,0
endif
ellipse 55,375,15,25
return

dots:
oldx=newx-0.0001
oldy=newy-0.0001
newx=mousex()
newy=mousey()
if mouseclick()=2
	ink color,0
	line oldx,oldy,newx,newy
endif
return

line:
	if lclicked=0
		if mouseclick()=1
			lx=mousex()
			ly=mousey()
			lclicked=1
		endif
	endif
	if lclicked=1
		if mouseclick()=0
			xl=mousex()
			yl=mousey()
			lclicked=2
		endif
	endif
	if lclicked=2
		ink color,0
		line lx,ly,xl,yl
		lclicked=0
	endif
return

box:
	if bclicked=0
		if mouseclick()=1
			bx=mousex()
			by=mousey()
			bclicked=1
		endif
	endif
	if bclicked=1
		if mouseclick()=0
			xb=mousex()
			yb=mousey()
			bclicked=2
		endif
	endif
	if bclicked=2
		ink color,0
		line bx,by,xb,by : line bx,by,bx,yb : line bx,yb,xb,yb : line xb,by,xb,yb
		bclicked=0
	endif
return

circle:
	if cclicked=0
		if mouseclick()=1
			cx=mousex()
			cy=mousey()
			cclicked=1
		endif
	endif
	if cclicked=1
		if mouseclick()=0
			xc=mousex()
			yc=mousey()
			sizex=abs(xc-cx)/2
			sizey=abs(yc-cy)/2
			if sizex>sizey then size=sizex
			if sizex<sizey then size=sizey
			cclicked=2
		endif
	endif
	if cclicked=2
		ink color,0
		if cx<xc and cy<yc then circle cx+size,cy+size,size
		if cx<xc and cy>yc then circle cx+size,cy-size,size
		if cx>xc and cy<yc then circle cx-size,cy+size,size
		if cx>xc and cy>yc then circle cx-size,cy-size,size
		cclicked=0
	endif
return

ellipse:
	if eclicked=0
		if mouseclick()=1
			ex=mousex()
			ey=mousey()
			eclicked=1
		endif
	endif
	if eclicked=1
		if mouseclick()=0
			xe=mousex()
			ye=mousey()
			sizew=abs(xe-ex)/2
			sizeh=abs(ye-ey)/2
			eclicked=2
		endif
	endif
	if eclicked=2
		ink color,0
		if ex<xe and ey<ye then ellipse ex+sizew,ey+sizeh,sizew,sizeh
		if ex<xe and ey>ye then ellipse ex+sizew,ey-sizeh,sizew,sizeh
		if ex>xe and ey<ye then ellipse ex-sizew,ey+sizeh,sizew,sizeh
		if ex>xe and ey>ye then ellipse ex-sizew,ey-sizeh,sizew,sizeh
		eclicked=0
	endif
return

logo:
ink rgb(255,255,255),0 : box 0,0,110,479 : box 294,3,336,12 : box 567,0,639,479
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 320,0,"a"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 313,0,"P"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 305,0,"B"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 297,0,"D"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 325,0,"i"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 330,0,"n"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 336,0,"t"
ink 0,0  : line 110,0,110,479 : line 567,0,567,479
paste image 12,568,380
return

colors:
	color=point(mx,my)
return

buttons:
	if mx>588 and mx<623 and my>153 and my<164
		ink rgb(255,0,0),0
		center text 605,150,"SAVE"
		if wind=0
			if mouseclick()=1
				if window>0 then gosub closes
				get image 300,111,0,566,479
				if file exist("DBPaint.bmp")=1 then delete file "DBPaint.bmp"
				save image "DBPaint.bmp",300
				delete image 300
				window=1
			endif
		endif
	else
		ink 0,0
		center text 605,150,"SAVE"
	endif
	if mx>577 and mx<634 and my>53 and my<64
		ink rgb(255,0,0),0
		center text 605,50,"TEXTURE"
		if wind=0
			if window=0
				if mouseclick()=1 then window=1
			endif
		endif
	else
		ink 0,0
		center text 605,50,"TEXTURE"
	endif
	if mx>593 and mx<620 and my>253 and my<264
		ink rgb(255,0,0),0
		center text 605,250,"EXIT"
		if wind=0
			if mouseclick()=1 then end
		endif
	else
		ink 0,0
		center text 605,250,"EXIT"
	endif
	if window>0
		gosub texture
	endif
return

closes:
	window=0
	delete object 1
	draw to front
	cls rgb(255,255,255)
	paste image 500,0,0
	backdrop off
return

texture:
	if wind=0 then get image 500,0,0,639,479
	if window=1
		backdrop on
		get image 200,111,0,567,479
		make object sphere 1,50
		texture object 1,200
		for x=1 to 256
				ink rgb(rr,gg,255),0
				line x,1,x,16
				rr=rr+1
				gg=gg+1
		next x
		ink rgb(128,128,128),0
		line 0,0,257,0 : line 0,0,0,273 : line 0,273,257,273 : line 257,0,257,273 : line 0,17,257,17
		box 241,2,254,15
		ink 0,0
		center text 31,1,"WINDOW"
		line 241,2,254,2 : line 241,2,241,15 : line 241,15,254,15 : line 254,2,254,15 : line 241,2,254,15 : line 242,15,254,3
		ink rgb(0,0,128),0 : box 1,18,256,272
		get image 100,0,0,258,274
		window=2
	endif
	if wind=1
			xpos=mousex()-mxpos
			ypos=mousey()-mypos
			if xpos<=0 then xpos=0
			if xpos>=640-258 then xpos=640-258
			if ypos<=0 then ypos=0
			if ypos>=480-274 then ypos=480-274
	endif
	if mouseclick()=0 then clicked=0:wind=0
	set camera view xpos+1,ypos+18,xpos+257,ypos+273
	paste image 100,xpos,ypos
	if rightkey()=1 then mmy#=wrapvalue(mmy#-5)
	if leftkey()=1 then mmy#=wrapvalue(mmy#+5)
	if upkey()=1 then mmx#=wrapvalue(mmx#+5)
	if downkey()=1 then mmx#=wrapvalue(mmx#-5)
	rotate object 1,mmx#,mmy#,0
	draw to back
	if mx>xpos and mx<xpos+257 and my>ypos and my<ypos+17
		if wind=0
			if mx>xpos+240 and mx<xpos+255 and my>ypos+1 and my<ypos+16
				if mouseclick()=1 then gosub closes
			endif
		endif
		if window>0
			if mouseclick()=1
				if clicked=0
					wind=1
					mxpos=mousex()-xpos
					mypos=mousey()-ypos
					clicked=1
				endif
			endif
		endif
	endif
return

+ Code Snippet

sync on : sync rate 200 : cls rgb(255,255,255) : newx=mousex() : newy=mousey()
red=1
for y=0 to 100
	for x=0 to 72
		ink rgb(r,g,b),0
		inc cycle
		if cycle=5 then cycle=1
		if cycle=4
		if red=1
			r=r+1
			if r=255
				r=0
				red=0
				blue=1
			endif
		endif
		if blue=1
			b=b+1
			if b=255
				b=0
				blue=0
				green=1
			endif
		endif
		if green=1
			g=g+1
			if g=255
				g=0
				green=0
				yellow=1
			endif
		endif
		if yellow=1
			r=r+1
			g=g+1
			if g=255 and r=255
				g=0
				r=0
				yellow=0
				pink=1
			endif
		endif
		if pink=1
			g=g+1
			b=b+1
			if b=255 and g=255
				b=0
				g=0
				pink=0
				purple=1
			endif
		endif
		if purple=1
			b=b+1
			r=r+1
			if b=255 and r=r+1
				b=0
				r=0
				purple=0
				white=1
			endif
		endif
		if white=1
			b=b+1
			g=g+1
			r=r+1
			if b=255 and g=255 and r=255
				b=0
				r=0
				g=0
				white=0
			endif
		endif
		endif
		dot x,y
	next x
next y
get image 12,0,0,72,100
do
if window>0 then	paste image 500,0,0
mx=mousex() : my=mousey()
if wind=0
	if mx>=568 and my>=380 then gosub colors
	gosub dots
	if mode=0 then gosub line
	if mode=1 then gosub box
	if mode=2 then gosub circle
	if mode=3 then gosub ellipse
endif
gosub logo
gosub bline : gosub bbox : gosub bcircle : gosub bellipse
gosub buttons
sync
if window>0 then cls rgb(255,255,255)
loop

bline:
if mx>30 and mx<80 and my>50 and my<100
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=0
	endif
else
	ink 0,0
endif
line 30,50,80,100
return

bbox:
if mx>30 and mx<80 and my>150 and my<200
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=1
	endif
else
	ink 0,0
endif
line 30,150,30,200 : line 30,150,80,150 : line 30,200,80,200 : line 80,150,80,200
return

bcircle:
if mx>30 and mx<80 and my>250 and my<300
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=2
	endif
else
	ink 0,0
endif
circle 55,275,25
return

bellipse:
if mx>30 and mx<80 and my>350 and my<400
	ink rgb(255,255,0),0
	if wind=0
		if mouseclick()=1 then mode=3
	endif
else
	ink 0,0
endif
ellipse 55,375,15,25
return

dots:
oldx=newx-0.0001
oldy=newy-0.0001
newx=mousex()
newy=mousey()
if mouseclick()=2
	ink color,0
	line oldx,oldy,newx,newy
endif
return

line:
	if lclicked=0
		if mouseclick()=1
			lx=mousex()
			ly=mousey()
			lclicked=1
		endif
	endif
	if lclicked=1
		if mouseclick()=0
			xl=mousex()
			yl=mousey()
			lclicked=2
		endif
	endif
	if lclicked=2
		ink color,0
		line lx,ly,xl,yl
		lclicked=0
	endif
return

box:
	if bclicked=0
		if mouseclick()=1
			bx=mousex()
			by=mousey()
			bclicked=1
		endif
	endif
	if bclicked=1
		if mouseclick()=0
			xb=mousex()
			yb=mousey()
			bclicked=2
		endif
	endif
	if bclicked=2
		ink color,0
		line bx,by,xb,by : line bx,by,bx,yb : line bx,yb,xb,yb : line xb,by,xb,yb
		bclicked=0
	endif
return

circle:
	if cclicked=0
		if mouseclick()=1
			cx=mousex()
			cy=mousey()
			cclicked=1
		endif
	endif
	if cclicked=1
		if mouseclick()=0
			xc=mousex()
			yc=mousey()
			sizex=abs(xc-cx)/2
			sizey=abs(yc-cy)/2
			if sizex>sizey then size=sizex
			if sizex<sizey then size=sizey
			cclicked=2
		endif
	endif
	if cclicked=2
		ink color,0
		if cx<xc and cy<yc then circle cx+size,cy+size,size
		if cx<xc and cy>yc then circle cx+size,cy-size,size
		if cx>xc and cy<yc then circle cx-size,cy+size,size
		if cx>xc and cy>yc then circle cx-size,cy-size,size
		cclicked=0
	endif
return

ellipse:
	if eclicked=0
		if mouseclick()=1
			ex=mousex()
			ey=mousey()
			eclicked=1
		endif
	endif
	if eclicked=1
		if mouseclick()=0
			xe=mousex()
			ye=mousey()
			sizew=abs(xe-ex)/2
			sizeh=abs(ye-ey)/2
			eclicked=2
		endif
	endif
	if eclicked=2
		ink color,0
		if ex<xe and ey<ye then ellipse ex+sizew,ey+sizeh,sizew,sizeh
		if ex<xe and ey>ye then ellipse ex+sizew,ey-sizeh,sizew,sizeh
		if ex>xe and ey<ye then ellipse ex-sizew,ey+sizeh,sizew,sizeh
		if ex>xe and ey>ye then ellipse ex-sizew,ey-sizeh,sizew,sizeh
		eclicked=0
	endif
return

logo:
ink rgb(255,255,255),0 : box 0,0,110,479 : box 294,3,336,12 : box 567,0,639,479
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 320,0,"a"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 313,0,"P"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 305,0,"B"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 297,0,"D"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 325,0,"i"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 330,0,"n"
ink rgb(rnd(255),rnd(255),rnd(255)),0 : center text 336,0,"t"
ink 0,0  : line 110,0,110,479 : line 567,0,567,479
paste image 12,568,380
return

colors:
	color=point(mx,my)
return

buttons:
	if mx>588 and mx<623 and my>153 and my<164
		ink rgb(255,0,0),0
		center text 605,150,"SAVE"
		if wind=0
			if mouseclick()=1
				if window>0 then gosub closes
				get image 300,111,0,566,479
				if file exist("DBPaint.bmp")=1 then delete file "DBPaint.bmp"
				save image "DBPaint.bmp",300
				delete image 300
				window=1
			endif
		endif
	else
		ink 0,0
		center text 605,150,"SAVE"
	endif
	if mx>577 and mx<634 and my>53 and my<64
		ink rgb(255,0,0),0
		center text 605,50,"TEXTURE"
		if wind=0
			if window=0
				if mouseclick()=1 then window=1
			endif
		endif
	else
		ink 0,0
		center text 605,50,"TEXTURE"
	endif
	if mx>593 and mx<620 and my>253 and my<264
		ink rgb(255,0,0),0
		center text 605,250,"EXIT"
		if wind=0
			if mouseclick()=1 then end
		endif
	else
		ink 0,0
		center text 605,250,"EXIT"
	endif
	if window>0
		gosub texture
	endif
return

closes:
	window=0
	delete object 1
	draw to front
	cls rgb(255,255,255)
	paste image 500,0,0
	backdrop off
return

texture:
	if wind=0 then get image 500,0,0,639,479
	if window=1
		backdrop on
		get image 200,111,0,567,479
		make object sphere 1,50
		texture object 1,200
		for x=1 to 256
				ink rgb(rr,gg,255),0
				line x,1,x,16
				rr=rr+1
				gg=gg+1
		next x
		ink rgb(128,128,128),0
		line 0,0,257,0 : line 0,0,0,273 : line 0,273,257,273 : line 257,0,257,273 : line 0,17,257,17
		box 241,2,254,15
		ink 0,0
		center text 31,1,"WINDOW"
		line 241,2,254,2 : line 241,2,241,15 : line 241,15,254,15 : line 254,2,254,15 : line 241,2,254,15 : line 242,15,254,3
		ink rgb(0,0,128),0 : box 1,18,256,272
		get image 100,0,0,258,274
		window=2
	endif
	if wind=1
			xpos=mousex()-mxpos
			ypos=mousey()-mypos
			if xpos<=0 then xpos=0
			if xpos>=640-258 then xpos=640-258
			if ypos<=0 then ypos=0
			if ypos>=480-274 then ypos=480-274
	endif
	if mouseclick()=0 then clicked=0:wind=0
	set camera view xpos+1,ypos+18,xpos+257,ypos+273
	paste image 100,xpos,ypos
	if rightkey()=1 then mmy#=wrapvalue(mmy#-5)
	if leftkey()=1 then mmy#=wrapvalue(mmy#+5)
	if upkey()=1 then mmx#=wrapvalue(mmx#+5)
	if downkey()=1 then mmx#=wrapvalue(mmx#-5)
	rotate object 1,mmx#,mmy#,0
	draw to back
	if mx>xpos and mx<xpos+257 and my>ypos and my<ypos+17
		if wind=0
			if mx>xpos+240 and mx<xpos+255 and my>ypos+1 and my<ypos+16
				if mouseclick()=1 then gosub closes
			endif
		endif
		if window>0
			if mouseclick()=1
				if clicked=0
					wind=1
					mxpos=mousex()-xpos
					mypos=mousey()-ypos
					clicked=1
				endif
			endif
		endif
	endif
return

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 4th Jun 2009 11:02

Link

Thats pretty impressive Pictionary. I would say you are in. I don't have time to go through your code and give you pointers right now, but I will definitely get back to you tomorrow afternoon in my hour or so of free time. Some things to look into if you are in the right timezone and have daylight to kill:

Check out the SELECT command. You seem far enough along that you should be able to grasp it and it could probably clean up your code quite a bit

You seem to get the idea of subroutines, but in your code it looks like there are several places it could be cleaner by using some more. A trick I learned from Ashingda is your main loop is little more than a branch that checks a variable. If the variable is 1, then do intro stuff, if it is 2, do the main loop code, if it is 3 etc etc. It REALLY keeps things organized.

I will get back to you with some more, but for now, you can check out those things and you probably should read Obese's tut for writing clear and concise code (Good read, very good tips in there that everyone can benefit from reading). Also, read through our current project thread to get an idea for what we are doing and then you can either jump in working on a map maker or jump in working on maps.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 9th Jun 2009 21:05 Edited at: 10th Jun 2009 01:12

Link

Ok here is just as you asked all commands uppercase using the upper$ command but there is one problem a glitch in specific. Copy and paste it into the editor compile it,as you see it compiles fine then execute your probably thinking what is he talking about it looks fine to me then type in your name you see it overlaps not a big deal right now type in a command oh no agianst what I specifically told the program to do it dosn't clear the screen. Its like the program is a little kid not doing what you told them to do. I don't know why it is doing this but can you please help.

Sincerely,your friend the arbiterchewbaccahybrid

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse";
  Print "To go to help enter the word help"
  Print "Set to caps this whole game and never press shift"
  Print "type all commands except for your name in caps"
Do
Set cursor 50,50
 Ink 0,RGB(0,0,255)
  Input "Please enter a command>";Command$
  Print "Previous Command>";Command$

Rem main program
If Upper$(Command$) = "help"
   CLS
Print "You are now in the help files to start youradventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Upper$(Command$) = "cls"
 CLS
  Endif

Rem Transportation menu
If Upper$(Command$) = "go to"
   CLS
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
   CLS
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Upper$(Command$) = "outside" and Wep_Exp > 1
   CLS
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
  Endif
If Upper$(Command$) = "run" and Fight_Exp > 1
   CLS
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Upper$(Command$) = "fight" and Fight_Exp > 1
   CLS
Print "Sucsess"
Print "You have completed the demo version of a game"
Print "there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Upper$(Command$) = "vac"
   CLS
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Upper$(Command$) = "see stipley"
   CLS
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif

Rem weps:sword
If Upper$(Command$) = "buy sword"
   CLS
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Upper$(Command$) = "buy/yes"
   CLS
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem glock and mp5
If Upper$(Command$) = "glock"
   CLS
Print "Sorry mate we'e all out anything else"
Input "so...>";Command$
  Endif

If Upper$(Command$) = "mp5"
   CLS
Print "Sorry mate ain't got no mp5's anything else"
Input "what do you want now>";Command$
  Endif

Rem The main gun loop
If Sword > 1 and Upper$(Command$) = "buy Sword"
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif

Loop

+ Code Snippet

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

  Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse";
  Print "To go to help enter the word help"
  Print "Set to caps this whole game and never press shift"
  Print "type all commands except for your name in caps"
Do
Set cursor 50,50
 Ink 0,RGB(0,0,255)
  Input "Please enter a command>";Command$
  Print "Previous Command>";Command$


Rem main program
If Upper$(Command$) = "help"
   CLS
Print "You are now in the help files to start youradventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Upper$(Command$) = "cls"
 CLS
  Endif

Rem Transportation menu
If Upper$(Command$) = "go to"
   CLS
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
   CLS
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Upper$(Command$) = "outside" and Wep_Exp > 1
   CLS
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
  Endif
If Upper$(Command$) = "run" and Fight_Exp > 1
   CLS
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Upper$(Command$) = "fight" and Fight_Exp > 1
   CLS
Print "Sucsess"
Print "You have completed the demo version of a game"
Print "there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Upper$(Command$) = "vac"
   CLS
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Upper$(Command$) = "see stipley"
   CLS
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif

Rem weps:sword
If Upper$(Command$) = "buy sword"
   CLS
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Upper$(Command$) = "buy/yes"
   CLS
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem glock and mp5
If Upper$(Command$) = "glock"
   CLS
Print "Sorry mate we'e all out anything else"
Input "so...>";Command$
  Endif

If Upper$(Command$) = "mp5"
   CLS
Print "Sorry mate ain't got no mp5's anything else"
Input "what do you want now>";Command$
  Endif

Rem The main gun loop
If Sword > 1 and Upper$(Command$) = "buy Sword"
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif

Loop

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 9th Jun 2009 21:33

Link

You are changing the input to UPPER case and then checking for LOWER case letters. It's facepalm time

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 9th Jun 2009 22:14

Link

Also, having run it, it looks like you put black text on a black background, making it hard to do anything.

Quote: " Print "m' name is 'aptain Stipley" "

hmmm interesting word choice here. I would expect Captain to be shortened as Cap'n rather than 'aptain.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 10th Jun 2009 01:10 Edited at: 10th Jun 2009 01:13

Link

But the thing is I typed in CLS after every function but its not working everything just writes over each other.

Edit:
It also writes black text on a black backround and I didn't tell it to.

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Jun 2009 01:40

Link

Quote: "Do
Set cursor 50,50
Ink 0,RGB(0,0,255) "

Yeah you did. Ink 0,... means that the color is black. I believe that if you want the background color to be displayed behind the text, you have to set a specific flag, not sure where it is though. Try searching around in the text/print command set help files. See if you can find a SET TEXT OPAQUE or something.

All of your CLS commands seem to be within your if thens. What does that mean? It means that it won't refresh until you type a correct command (pretty hard since you are still writing black on black).

As far as writing over itself, thats because you used SET CURSOR 50,50. You probably should have either just continued the Print commands or you need to adjust your x and y values for that command to a point UNDER all of the previously displayed text.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

gamer0

15

Years of Service

User Offline

Joined: 9th Jun 2009

Location:

Posted: 10th Jun 2009 02:41

Link

Hey, I'd love to join, if it's not to late, but I realize that it probably is.
I'm certainly a noob.
I've only made a few 2D games with game maker7.0.
So I'm not that experienced.
That is why I would like to join, to learn more.

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Jun 2009 02:46

Link

ya bn2,

set text opaque turns on the blue background

set text transparent turns it off

its off by default, I personally use set text opaque when making option buttons, but one thing you have to remember about using it in a loop like this:

do
if mousex()<100
set text opaque
else
set text transparent
endif
text 0,320,"This Area is under the Mouse"
sync
loop

is that when you remove the mouse, nothing is clearing off the background, so only the actual text is rewritten and the background is still there

so to solve this have a cls after sync or change the background color to blue if mouse is over and black if not

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 10th Jun 2009 03:26

Link

@Gamer0
It's never too late, this is an ongoing thing.
Look at the first post it will tell you all you need to know, and you can try the coding challenge.

BN2 is in charge of the current project so I can't say if you'll have a position for this one, but I'm sure there'll be enough work to go round.

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Jun 2009 04:16

Link

@Gamer
We would be glad to have you. Take a shot at the paint program entry program. It doesn't have to be complex, just give us an idea of where you are so that we can give you appropriate jobs.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 10th Jun 2009 14:03

Link

I wrote black text on a blue backround 0,0,255
@gamer any one can join darknoobs at anytime as obese said it is an ongoing program hope you come

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Jun 2009 18:01

Link

this is what you did:

black = 0
blue = rgb(0,0,255)

ink black,blue

black on blue

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Jun 2009 18:53

Link

the background will only work if you use set text opaque. i think that is the whole command but doublle check the helps. i ewould but i am on my dsi right now and cant

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 10th Jun 2009 21:25

Link

@Chewy
Your code does set background to blue but it never got to the CLS command so the screen wasn't wiped. Setting text to opaque like BN2 suggested will give your text a coloured border, it's a quick way to make sure your text is readable especially if you're using 3D as well.
CLS will colour the screen whatever you set the background (second value of ink) unless you specify a colour. Not a lot of people seem to know that, not even TDK knew that!

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Jun 2009 22:07

Link

good points, although i did in fact cover set text opaque and set text transparent above

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 10th Jun 2009 22:11

Link

@Smartguy
Yes you wrote a good example but from the text it looked like you were saying those commands alter the entire backdrop, which I know you didn't intend.

There is an eight letter word. You can insert a letter into it or remove a letter from it without changing its meaning. Answer

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 10th Jun 2009 22:52

Link

ok, i get ya, ill be the first to admit both in real life and online i often misword things and say things i dont intend to

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 11th Jun 2009 15:49 Edited at: 12th Jun 2009 01:26

Link

when I remove the Upper$command from the if statment it works fine. Can I just capitalize the commands you have to enter to make anything work.

Edit:

Obese I finally understand something you said and learned a new command useage In pictionary jr's entry program he said cls rbg(255,255,255)

YOU CLS RBG ONLY SETS THE SCREEN TO A PRESET COLOR WHICH IS GENERALLY BLACK BUT YOU CAN CHANGE THAT COLOR AND IN 3D IT DELETES THAT TEXT BY CHANGING THE PIXELS TO MATCH WHATEVER IS IN THE BACKROUND OF THE 3D SCREEN !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(omg I get it now.)

Edit:

@gamer you might know but when I left game maker 7.0 was one of the languages I bought just to be able to edit the fps tutorial because I wanted to make an fps quickly and easily now I realize it is impossible to make a good fps the way you want it without knowing how to code and the yoyo gamemaker is horrible for making 3D games it aimed toward 2D just has some 3D capabilities(can't even load models)

Edit:
I made this and it dosn't work I can't figure out why
Rem my first paint program made by me
Rem main loop
Do
Set display mode 800,600,32
MValuex=mousex()
MValuey=mousey()

Rem the mouseclicking making a dot
If mouseclick() = 1
Dot MValuex,MValuey

Loop

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 11th Jun 2009 17:21 Edited at: 11th Jun 2009 17:32

Link

This is for the first code, Apocalypse:

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse"
  Print "To go to help enter the word help"
  Print "Set to caps this whole game and never press shift"
  Print "type all commands except for your name in caps"
  Print "Press spacekey to continue"
	repeat : until spacekey()=1
	CLS
Do
Set cursor 50,50
 Ink rgb(0,0,255),0
  text 0,100,"Previous Command>"+Command$
  Input "Please enter a command>";Command$

Rem main program
If Upper$(Command$) = "help"
Print "You are now in the help files to start youradventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Upper$(Command$) = "cls"
  Endif

Rem Transportation menu
If Upper$(Command$) = "go to"
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Upper$(Command$) = "outside" and Wep_Exp > 1
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
  Endif
If Upper$(Command$) = "run" and Fight_Exp > 1
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Upper$(Command$) = "fight" and Fight_Exp > 1
Print "Sucsess"
Print "You have completed the demo version of a game"
Print "there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Upper$(Command$) = "vac"
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Upper$(Command$) = "see stipley"
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif

Rem weps:sword
If Upper$(Command$) = "buy sword"
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Upper$(Command$) = "buy/yes"
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem glock and mp5
If Upper$(Command$) = "glock"
Print "Sorry mate we'e all out anything else"
Input "so...>";Command$
  Endif

If Upper$(Command$) = "mp5"
Print "Sorry mate ain't got no mp5's anything else"
Input "what do you want now>";Command$
  Endif

Rem The main gun loop
If Sword > 1 and Upper$(Command$) = "buy Sword"
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif
cls

Loop

+ Code Snippet

Rem :Apocalyse a text RPG by the arbiter chewbacca hybrid
Rem sets the cursor to a specific location on the screen

Rem variables
Sword = 0
Glock = 0
MP5 = 0
Wep_Exp = 0
Credits = 0
Fight_Exp = 0

  Input "What is your name>";name$
  Print "Hello>"; name$
  Print "Welcome to apocalypse"
  Print "To go to help enter the word help"
  Print "Set to caps this whole game and never press shift"
  Print "type all commands except for your name in caps"
  Print "Press spacekey to continue"
	repeat : until spacekey()=1
	CLS
Do
Set cursor 50,50
 Ink rgb(0,0,255),0
  text 0,100,"Previous Command>"+Command$
  Input "Please enter a command>";Command$


Rem main program
If Upper$(Command$) = "help"
Print "You are now in the help files to start youradventure input (go to)"
Print "then it will give you a list of options"
Print "input either vac which is the only safe area in the game or world to go to a list of options outside areas."
Print "To start the game go to the vac"
Print "type in CLS to clear the screen"
Print "To see someone enter (see (the person name here)"
Input "Please enter a command>";Command$
  Endif

Rem Clearing the screen
If Upper$(Command$) = "cls"
  Endif

Rem Transportation menu
If Upper$(Command$) = "go to"
Print "list of places ,vac"
Input "go to vac>";Command$
  Endif
If Command$ = "go to" and Wep_Exp > 1
Print "list of places, vac, outside"
Input "where to>";Command$
  Endif

Rem the real world(outside)
If Upper$(Command$) = "outside" and Wep_Exp > 1
Print "You are now outside"
Print " you see a creature in the distance"
Print "It looks terrifing"
Print "To fight input fight1"
Print "To run input run1"
Fight_Exp = Fight_Exp + 2
Input "Run/orFight>";Command$
  Endif
If Upper$(Command$) = "run" and Fight_Exp > 1
Print "This is you mind think about the decision you're"
Print "making if you really wanna run type go to"
Print "Then type vac you know it"
Print "but sooner or later your gonna have to face it"
Print "Besides its only one zombie"
Input "Just go back to the vac then come back and fight it>";Command$
  Endif
If Upper$(Command$) = "fight" and Fight_Exp > 1
Print "Sucsess"
Print "You have completed the demo version of a game"
Print "there will never be a full version of"
Print "Thank you play again"
  Endif

Rem vaccination center
If Upper$(Command$) = "vac"
Print "Hello welcome to the vaccination center"
Print "go see captain. Stipley to get a weapon"
Print "to go see captain stipley enter see stipley"
Input "Please enter a command>";Command$
  Endif

Rem captain Stipleys weapon shop
If Upper$(Command$) = "see stipley"
Print "'ello mate";
Print "m' name is 'aptain Stipley"
Print "Here's my S'ock"
Print "Sword Glock MP5";
Print "'rry mate ain't got much but i' was the best I could salvage"
Print " Say 're you Austrilain"
Print "to buy a wep' say 'buy (weapon name here)"
Print "You'r n'me's>";name$
Print "right"
Input "Say the name of the wep' to buy it exactly as said here Cap's 'n all>";Command$
  Endif

Rem weps:sword
If Upper$(Command$) = "buy sword"
Print "1st achievment unlocked"
Print "you've just bought a sword"
Sword = Sword + 2
Wep_Exp = Wep_Exp + 2
Print "Capt. Stipley: anything else mate"
Print "now that you have a weapon you can go into the outside world"
Input "Please enter a command>";Command$
  Endif

Rem Back to stipley
If Upper$(Command$) = "buy/yes"
Print "So y'o back fo' mo' mate"
Print "Say Sword Glock or MP5"
Input "got gun's>";Command$
  Endif

Rem glock and mp5
If Upper$(Command$) = "glock"
Print "Sorry mate we'e all out anything else"
Input "so...>";Command$
  Endif

If Upper$(Command$) = "mp5"
Print "Sorry mate ain't got no mp5's anything else"
Input "what do you want now>";Command$
  Endif

Rem The main gun loop
If Sword > 1 and Upper$(Command$) = "buy Sword"
Print " you already own a sword s're you want 'nother one"
Input "Want any more weps>";Command$
  Endif
cls

Loop

I just changed a few things.

I wasn't really sure what it was supposed to do, i just helped with the cls problem.

This is for the little mouse dot thing:

+ Code Snippet

Rem my first program made by me
Set display mode 800,600,32
Rem main loop
Do
MValuex=mousex()
MValuey=mousey()

Rem the mouseclicking making a dot
If mouseclick() = 1
Dot MValuex,MValuey
endif

Loop

You forgot an endif and put the set display mode command in the main loop, so it just kept resetting the screen

If this was your paint entry and you were trying to make it draw good lines, don't use dots. I normally use the line command and it makes the line attach like this.

+ Code Snippet

Rem my first program made by me
Set display mode 800,600,32
Rem main loop
Do
oldx=MValuex-0.0001
oldy=MValuey-0.0001
MValuex=mousex()
MValuey=mousey()

Rem the mouseclicking making a dot
If mouseclick() = 1
line oldx,oldy,MValuex,MValuey
endif

Loop

Back to top

Profile PM Email

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 11th Jun 2009 17:52 Edited at: 12th Jun 2009 01:53

Link

wow thanks thats pretty impressive your a better programmer than me I I've been here longer the endif was just a a mistake but your still the better programmer and I want to give you creds for that

Edit: my first program is an FPS engine I made that I just edited from the monster hunt tutorial(it is an edit and I didn't understand any of it

Edit:Here is my entry program

Rem my first program made by me
 Sync on
Sync rate 0
  Set display mode 800,600,32
Rem main loop
cls rgb(255,255,255)
  Do
 Print "to go to help say help"
Input "what color do you want for the backround>";command$
 Print "what you said>";command

Rem
oldx=MValuex-0.0001
oldy=MValuey-0.0001
  MValuex=mousex()
  MValuey=mousey()

Rem if command$ = "help"
 Print "to change the backround color say changebackround"
Input "say something>";command$

Rem if command$ = "changbackround"
 Print "say red, blue, green or white"
Input "say something>";command$

Rem red
    if command$ = "red"
cls rgb(255,0,0)
Input "say something>";command$

Rem indigo
    if command$ = "blue"
cls rgb(0,0,255)
Input "say something>";command$

Rem grass
    if command$ = "green"
cls rgb(0,255,0)
Input "say something>";command$

Rem whitey
    if command$ = "white"
cls rgb(255,255,255)
Input "say something>";command$

Rem the mouseclicking making a dot
    if mouseclick() = 1
  Ink rgb(0,0,0)
 line oldx,oldy,MValuex,MValuey
endif

Sync
Loop

+ Code Snippet

Rem my first program made by me
 Sync on
Sync rate 0
  Set display mode 800,600,32
Rem main loop
cls rgb(255,255,255)
  Do
 Print "to go to help say help"
Input "what color do you want for the backround>";command$
 Print "what you said>";command

 Rem
oldx=MValuex-0.0001
oldy=MValuey-0.0001
  MValuex=mousex()
  MValuey=mousey()

Rem if command$ = "help"
 Print "to change the backround color say changebackround"
Input "say something>";command$

Rem if command$ = "changbackround"
 Print "say red, blue, green or white"
Input "say something>";command$

Rem red
    if command$ = "red"
cls rgb(255,0,0)
Input "say something>";command$

Rem indigo
    if command$ = "blue"
cls rgb(0,0,255)
Input "say something>";command$

Rem grass
    if command$ = "green"
cls rgb(0,255,0)
Input "say something>";command$

Rem whitey
    if command$ = "white"
cls rgb(255,255,255)
Input "say something>";command$

Rem the mouseclicking making a dot
    if mouseclick() = 1
  Ink rgb(0,0,0)
 line oldx,oldy,MValuex,MValuey
endif

Sync
Loop

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 11th Jun 2009 18:13 Edited at: 11th Jun 2009 18:17

Link

I was programming for a bit before i found out about the forums, but shhh dont tell anyone

But thanks for the compliment anyways

EDIT:
The whole line thing was just a suggestion because the first time i tried to make a drawing thing, the dots weren't connected, so i decided to find a way to make the lines work. haha

Back to top

Profile PM Email

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 11th Jun 2009 18:21

Link

Why does the screen always flash in most 2d programs

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 11th Jun 2009 18:41

Link

normally just use the cls command before the program starts and while its running and it wont flash. Thats what i do anyways

Back to top

Profile PM Email

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 11th Jun 2009 19:12

Link

It makes the line green
but how do I change the color should I use RGB or Ink

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 11th Jun 2009 19:48

Link

first read my post on the other thread

and you will actually use both, to change it to:

red - ink rgb(255,0,0),0

green - ink rgb(0,255,0),0

blue - ink rgb(0,0,255),0

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 11th Jun 2009 20:33

Link

Quote: "Why does the screen always flash in most 2d programs"

Could have to do with the sync rate. If the screen is cleared and then everything gets drawn on top of it refreshing the screen after every change, it will appear to flicker.

To fix it do this:

At the stop put
SYNC ON
and
SYNC RATE 0

Then at the end of your main loop but before the LOOP command, put SYNC

Sync refreshes the screen. By turning sync on, it will not refresh the screen until you manually do it, which can speed up programs exponentially.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 11th Jun 2009 20:55

Link

idk why the flash occurs but a cls at the top of ur program will also end it if i recall correctly

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 12th Jun 2009 00:21 Edited at: 12th Jun 2009 00:24

Link

the clear screen command is either
cls
or
cls rgb(red,green,blue)

If you use the second one, you can control the color of the background. If you use the first one, it comes up the last color you set the second one as. If you didn't set the screen to be any certain color, it comes up black.

The ink command controls the color of the text or shapes that appear on the screen.

You use it as
ink rgb(red,green,blue),0

Here's an example:

rem manual sync on and setting how many times the screen refreshes
sync on : sync rate 60

rem help
gosub help

rem original cls, since i haven't set it yet using cls rgb(red,green,blue)
rem it will come up black
cls

rem just some variables
r=255:g=255:b=255:rr=0:gg=0:bb=0

rem main loop
do

rem just for the help menu
if inkey$()="h" then gosub help

rem *the ink color that we are setting*
ink rgb(r,g,b),0

rem just for the help menu
Text 0,50,"If you need to see the commands again, just press the "h" key"

rem box that shows the current color
box 320-50,240-50,320+50,240+50

rem IGNORE ALL THIS, THESE ARE JUST THE COMMANDS USED FOR THE PROGRAM
If c=0
	if color=0
		Text 0,10,"Ink rgb(|"+str$(r)+"|,"+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc r
			if r>255 then r=255
		endif
		if downkey()=1
			dec r
			if r<0 then r=0
		endif
	endif
	if color=1
		Text 0,10,"Ink rgb("+str$(r)+",|"+str$(g)+"|,"+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc g
			if g>255 then g=255
		endif
		if downkey()=1
			dec g
			if g<0 then g=0
		endif
	endif
	if color=2
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+",|"+str$(b)+"|),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc b
			if b>255 then b=255
		endif
		if downkey()=1
			dec b
			if b<0 then b=0
		endif
	endif
endif
if c=1
	if color=0
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb(|"+str$(rr)+"|,"+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc rr
			if rr>255 then rr=255
		endif
		if downkey()=1
			dec rr
			if rr<0 then rr=0
		endif
	endif
	if color=1
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+",|"+str$(gg)+"|,"+str$(bb)+")"
		if upkey()=1
			inc gg
			if gg>255 then gg=255
		endif
		if downkey()=1
			dec gg
			if gg<0 then gg=0
		endif
	endif
	if color=2
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+",|"+str$(bb)+"|)"
		if upkey()=1
			inc bb
			if bb>255 then bb=255
		endif
		if downkey()=1
			dec bb
			if bb<0 then bb=0
		endif
	endif
endif
if cont=0
	if controlkey()=1
		color=0
		cont=1
		c=c+1
		if c>1 then c=0
	endif
else
	if controlkey()=0 then cont=0
endif
if change=0
	if rightkey()=1
		change=1
		inc color
		if color>2 then color=0
	endif
	if leftkey()=1
		change=1
		dec color
		if color<0 then color=2
	endif
else
	if rightkey()=0 and leftkey()=0 then change=0
endif

rem refresh the screen
sync

rem *the background color that we are setting*
cls rgb(rr,gg,bb)

rem head back to the top of the main loop
loop

rem gosub
help:
rem this cls will be set to the last color i used with cls rgb(red,green,blue)
cls

rem IGNORE THIS PART, ITS JUST THE INSTRUCTIONS
repeat
Text 0,10,"Press the control key to switch between changing the background color and the ink color"
Text 0,30,"Press the right or left key to change between the amount of red, green, and blue"
Text 0,50,"Press the up or down key to increase or decrease the amount of color that your on"
Text 0,90,"Press the spacebar to continue"
sync
until inkey$()=""
suspend for key
return

+ Code Snippet

rem manual sync on and setting how many times the screen refreshes
sync on : sync rate 60

rem help
gosub help

rem original cls, since i haven't set it yet using cls rgb(red,green,blue)
rem it will come up black
cls

rem just some variables
r=255:g=255:b=255:rr=0:gg=0:bb=0

rem main loop
do

rem just for the help menu
if inkey$()="h" then gosub help

rem *the ink color that we are setting*
ink rgb(r,g,b),0

rem just for the help menu
Text 0,50,"If you need to see the commands again, just press the "h" key"

rem box that shows the current color
box 320-50,240-50,320+50,240+50

rem IGNORE ALL THIS, THESE ARE JUST THE COMMANDS USED FOR THE PROGRAM
If c=0
	if color=0
		Text 0,10,"Ink rgb(|"+str$(r)+"|,"+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc r
			if r>255 then r=255
		endif
		if downkey()=1
			dec r
			if r<0 then r=0
		endif
	endif
	if color=1
		Text 0,10,"Ink rgb("+str$(r)+",|"+str$(g)+"|,"+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc g
			if g>255 then g=255
		endif
		if downkey()=1
			dec g
			if g<0 then g=0
		endif
	endif
	if color=2
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+",|"+str$(b)+"|),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc b
			if b>255 then b=255
		endif
		if downkey()=1
			dec b
			if b<0 then b=0
		endif
	endif
endif
if c=1
	if color=0
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb(|"+str$(rr)+"|,"+str$(gg)+","+str$(bb)+")"
		if upkey()=1
			inc rr
			if rr>255 then rr=255
		endif
		if downkey()=1
			dec rr
			if rr<0 then rr=0
		endif
	endif
	if color=1
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+",|"+str$(gg)+"|,"+str$(bb)+")"
		if upkey()=1
			inc gg
			if gg>255 then gg=255
		endif
		if downkey()=1
			dec gg
			if gg<0 then gg=0
		endif
	endif
	if color=2
		Text 0,10,"Ink rgb("+str$(r)+","+str$(g)+","+str$(b)+"),0"
		Text 0,30,"Cls rgb("+str$(rr)+","+str$(gg)+",|"+str$(bb)+"|)"
		if upkey()=1
			inc bb
			if bb>255 then bb=255
		endif
		if downkey()=1
			dec bb
			if bb<0 then bb=0
		endif
	endif
endif
if cont=0
	if controlkey()=1
		color=0
		cont=1
		c=c+1
		if c>1 then c=0
	endif
else
	if controlkey()=0 then cont=0
endif
if change=0
	if rightkey()=1
		change=1
		inc color
		if color>2 then color=0
	endif
	if leftkey()=1
		change=1
		dec color
		if color<0 then color=2
	endif
else
	if rightkey()=0 and leftkey()=0 then change=0
endif

rem refresh the screen
sync

rem *the background color that we are setting*
cls rgb(rr,gg,bb)

rem head back to the top of the main loop
loop



rem gosub
help:
rem this cls will be set to the last color i used with cls rgb(red,green,blue)
cls

rem IGNORE THIS PART, ITS JUST THE INSTRUCTIONS
repeat
Text 0,10,"Press the control key to switch between changing the background color and the ink color"
Text 0,30,"Press the right or left key to change between the amount of red, green, and blue"
Text 0,50,"Press the up or down key to increase or decrease the amount of color that your on"
Text 0,90,"Press the spacebar to continue"
sync
until inkey$()=""
suspend for key
return

Just post the code into DBC and run it.

Look more at the program while running to see how the effect works then at the code, because the code is just a jumbled mess.

EDIT:
@Smart Guy
Yeah, you do just put it at the beginning of the code to stop the flash.

Back to top

Profile PM Email

That1Smart Guy

15

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 12th Jun 2009 00:25 Edited at: 12th Jun 2009 00:27

Link

r u sure cls uses the last color you cleared teh screen with, i thought just cls always turned it black

edit:

u r right, i tested it and it does use the last cls color

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

arbiter chewbacca hybrid

15

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 12th Jun 2009 01:33 Edited at: 12th Jun 2009 18:22

Link

I took my first step into 2D land the thing is I actually understand what I wrote and I'm not just copying and editing code making somthing yourself is a good feeling I feel better now then when I made apocalyse sure apocalypse might have been closer to an actual game but two D beats text and is the next step up I do still realize I have a long way to go before I even think about coding 3D again.

Next in the program I'll figure out how to make a feature to change the backround color by saying its name

Edit: K I did it here it is

Rem my first paint program made by me
 Sync on
Sync rate 0
  Set display mode 800,600,32
Rem main loop
cls rgb(255,255,255)
  Do
 Print "to go to help say help"
Input "what color do you want for the backround>";command$
 Print "what you said>";command

Rem
oldx=MValuex-0.0001
oldy=MValuey-0.0001
  MValuex=mousex()
  MValuey=mousey()

Rem help
if command$ = "help"
 Print "to change the backround color say changebackround"
Input "say something>";command$
endif

Rem changebackround
 if command$ = "changbackround"
 Print "say red, blue, green or white"
Input "say something>";command$
endif

Rem red
    if command$ = "red"
cls rgb(255,0,0)
Input "say something>";command$
endif

Rem indigo
    if command$ = "blue"
cls rgb(0,0,255)
Input "say something>";command$
endif

Rem grass
    if command$ = "green"
cls rgb(0,255,0)
Input "say something>";command$
endif

Rem whitey
    if command$ = "white"
cls rgb(255,255,255)
Input "say something>";command$
endif

Rem the mouseclicking making a dot
    if mouseclick() = 1
 line oldx,oldy,MValuex,MValuey
endif

Sync
Loop

+ Code Snippet

Rem my first paint program made by me
 Sync on
Sync rate 0
  Set display mode 800,600,32
Rem main loop
cls rgb(255,255,255)
  Do
 Print "to go to help say help"
Input "what color do you want for the backround>";command$
 Print "what you said>";command

 Rem
oldx=MValuex-0.0001
oldy=MValuey-0.0001
  MValuex=mousex()
  MValuey=mousey()

Rem help
if command$ = "help"
 Print "to change the backround color say changebackround"
Input "say something>";command$
endif

Rem changebackround
 if command$ = "changbackround"
 Print "say red, blue, green or white"
Input "say something>";command$
endif

Rem red
    if command$ = "red"
cls rgb(255,0,0)
Input "say something>";command$
endif

Rem indigo
    if command$ = "blue"
cls rgb(0,0,255)
Input "say something>";command$
endif

Rem grass
    if command$ = "green"
cls rgb(0,255,0)
Input "say something>";command$
endif

Rem whitey
    if command$ = "white"
cls rgb(255,255,255)
Input "say something>";command$
endif

Rem the mouseclicking making a dot
    if mouseclick() = 1
 line oldx,oldy,MValuex,MValuey
endif

Sync
Loop

Vista is a paradox created by Bill Gates to force the noble pc gamers of america to console I am here to change that. [link]www.kdlproductions.webs.com[link]

Back to top

Profile PM

bobbyd

15

Years of Service

User Offline

Joined: 17th Jan 2009

Location:

Posted: 16th Jun 2009 18:47

Link

can i join

Back to top

Profile PM

pictionaryjr

15

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 16th Jun 2009 18:50

Link

Just post an entry of a paint program, so they can see your skill level Bobbyd.

Back to top

Profile PM Email

bobbyd

15

Years of Service

User Offline

Joined: 17th Jan 2009

Location:

Posted: 16th Jun 2009 20:08

Link

here it is

+ Code Snippet

cls 0
do
if spacekey()=1 then cls 0

oldx=x
oldy=y
if mouseclick()=1

	x=mousex()
	y=mousey()
	z=mousez()
	ink rgb(100+z,100+z,100+z),0
	line oldx, oldy,x,y
	endif



loop

im not very good at paint programms

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Dark Noob Games HQ