The DB Classic Programming Challenge Thread

Author

Message

NanoGamez guy

18

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 27th Nov 2008 23:54

Link

@Phaelax

The site is looking really good! It's very well designed and nice to look at.

Quote: "The only issue I've seen with the line numbers is with Chrome and Safari, selecting the code selects the numbers as well."

I'm using Chrome, when you select it it does select the line numbers but when you copy it it only copies the code.

"To succeed is not enough, others must fail" - Gore Vidal

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 28th Nov 2008 02:39

Link

@nano,
Ah ok, good to know.

The login is mainly for me at the moment. I've built several other functions in only accessible to admins.

I'm open to feature suggestions. I was thinking of a challenge suggestion box so when a winner draws a blank we'll have a pre-existing list of possible challenges.

Back to top

Profile PM Email Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 29th Nov 2008 08:52

Link

Here is my final version.

Not much as far as updates go.

Added a menu

Misc Bug fixes

Came up with a stupid name (really, it IS bad)

RANDOMIZE Timer()
SYNC ON : SYNC RATE 33

`======================
`		INIT VARIABLES
`======================
GOSUB Arrays
GOSUB Vars

`======================
`		GEN IMAGES 
`======================
GOSUB Create_Gfx

`======================
`			MAIN LOOP
`======================
GOSUB GenMap
Create bitmap 1,640,480
Do
	REM State variable controls where the program should go for a main loop
	REM 3=Menu
	REM 1=The level design (gets images 1-30,000)
	REM 2=The game (gets images 30,001-60,000)
	IF state=1 THEN GOSUB S1_Lvl_Design
	IF state=2 THEN GOSUB S2_Play
	IF State=3 THEN GOSUB S3_Menu
	copy bitmap 1,0
	SYNC
	set current bitmap 1
	CLS
LOOP

END
`=====================
`		INIT SUBS
`=====================
Arrays:
	REM General State Arrays
		DIM Stars(1000,2)
	REM State 1 Arrays
		DIM S1_A1(2,2)
		DIM S1_A2(2,2)
		DIM S1_A3(2,2)
		DIM S1_Map(33,33)
		DIM S1_Tiles(2,6)
		DIM S1_Menu(3)

REM State 2 Arrays
		DIM S2_MAP(33,33)

REM State 3 Arrays
		DIM S3_Menu$(5)
RETURN

Vars:
	REM PLAYER LOCATION
	Player_X=0
	Player_Y=0
	LAND=0
	STATE=3
	CurrentLevel=1
	grav#=.1
	Land=0

REM State 1 Variables
	REM Area 1
	S1_A1(1,1)=0
	S1_A1(1,2)=639
	S1_A1(2,1)=0
	S1_A1(2,2)=20

REM Area 2
	S1_A2(1,1)=0
	S1_A2(1,2)=100
	S1_A2(2,1)=21
	S1_A2(2,2)=479

REM Area 3
	S1_A3(1,1)=150
	S1_A3(1,2)=598
	S1_A3(2,1)=25
	S1_A3(2,2)=473

REM State 3 Variables
	S3_Menu$(0)="Star Catcher"
	S3_Menu$(1)="Play"
	S3_Menu$(2)="Quit"
RETURN

Create_Gfx:
	GET IMAGE 20,0,0,13,13
	REM Tiles
	REM Floor
	INK RGB(255,255,255),0
	BOX 0,0,14,14
	GET IMAGE 21,0,0,14,14
	CLS
	REM Player
	SET TEXT SIZE 14
	INK rgb(255,0,0),0
	CENTER TEXT 7,0,"Y"
	GET IMAGE 22,0,0,13,13
	CLS
	REM COIN
	INK RGB(255,255,0),0
	CENTER TEXT 7,0,"*"
	GET IMAGE 23,0,0,13,13
	CLS

REM STATE 1 Stuff
	REM Area 1
	INK RGB(255,0,0),0
	BOX S1_A1(1,1),S1_A1(2,1),S1_A1(1,2),S1_A1(2,2)
	INK 0,0
	CENTER TEXT S1_A1(1,1)+(S1_A1(1,2)-S1_A1(1,1))/6,S1_A1(2,1),"START/STOP"
	CENTER TEXT S1_A1(1,1)+(S1_A1(1,2)-S1_A1(1,1))/2,S1_A1(2,1),"Reset"
	CENTER TEXT S1_A1(1,1)+5*(S1_A1(1,2)-S1_A1(1,1))/6,S1_A1(2,1),"END"
	GET IMAGE 1,S1_A1(1,1),S1_A1(2,1),S1_A1(1,2),S1_A1(2,2)
	CLS

REM Area 2
	INK RGB(0,255,0),0
	BOX S1_A2(1,1),S1_A2(2,1),S1_A2(1,2),S1_A2(2,2)
	GET IMAGE 2,S1_A2(1,1),S1_A2(2,1),S1_A2(1,2),S1_A2(2,2)
	CLS

REM Area 3
	INK RGB(0,0,255),0
	BOX S1_A3(1,1),S1_A3(2,1),S1_A3(1,2),S1_A3(2,2)
	GET IMAGE 3,S1_A3(1,1),S1_A3(2,1),S1_A3(1,2),S1_A3(2,2)
	CLS

REM State 3 Stuff
	REM Menu Background
	INK 0,RGB(127,127,127)
	CLS
	SET TEXT FONT "Arial",0
	SET TEXT SIZE 50
	CENTER TEXT 320,20,S3_Menu$(0)

INK RGB(255,255,255),0
	SET TEXT SIZE 24
	BOX 320-10-(Text Width(S3_Menu$(1))/2),190,330+(Text Width(S3_Menu$(1))/2),200+Text Size()+20
	BOX 320-10-(Text Width(S3_Menu$(2))/2),200+Text Size()+45,330+(Text Width(S3_Menu$(2))/2),200+(4*Text Size())+45

INK 0,0
	CENTER TEXT 320,200,S3_Menu$(1)
	CENTER TEXT 320,200+Text Size()+50,S3_Menu$(2)
	GET IMAGE 4,0,0,640,480
	CLS
RETURN

`=========================
`	RANDOM STAR PLACEMENT
`=========================
GenMap:
	FOR i=1 to CurrentLevel
		StarX=Rnd(31)+1
		StarY=Rnd(31)+1
		S1_Map(StarX,StarY)=3		
		Stars(i,1)=StarX
		Stars(i,2)=StarY
		Stars(i,0)=1
	NEXT i
RETURN

`===================================
`		STATE 1 (LEVEL DESIGN) SUBS
`===================================

S1_Lvl_Design:
	REM Parts:
	REM Gradient Map DONE
	REM Coin Loc. Generator DONE (See GenMap subroutine)
	REM Tile Selection (DONE)
	REM Tile placement (DONE)
	REM Drawing tools (take from DNG)
	
	`===============
	`		GUI
	`===============
	REM Generates the gui and saves it as image 
	GOSUB 1_Gen_Gui
	
	`===============
	`	LOC CHECK
	`===============
	REM MENU AREA
	IF MouseX()>=S1_A1(1,1) AND MouseX()<=S1_A1(1,2)
		IF MouseY()>=S1_A1(2,1) AND MouseY()<=S1_A1(2,2)
			s1_loc=1
		ENDIF
	ENDIF
	REM TILE SELECTION AREA
	IF MouseX()>=S1_A2(1,1) AND MouseX()<=S1_A2(1,2)
		IF MouseY()>=S1_A2(2,1) AND MouseY()<=S1_A2(2,2)
			s1_loc=2
		ENDIF
	ENDIF
	REM MAP AREA
	IF MouseX()>=S1_A3(1,1) AND MouseX()<=S1_A3(1,2)
		IF MouseY()>=S1_A3(2,1) AND MouseY()<=S1_A3(2,2)
			s1_loc=3
		ENDIF
	ENDIF
	
	`===============
	`   SELECTION
	`===============
	IF MouseClick()>0
		click=MouseClick()
		SELECT s1_loc
			CASE 1 : GOSUB 1_Menu : ENDCASE
			CASE 2 : GOSUB 1_TileSelect : ENDCASE
			CASE 3 : GOSUB 1_MapArea : ENDCASE
		ENDSELECT
	ENDIF

`===============
	`	MAP REGEN
	`===============
	GOSUB 1_Regen

`===============
	`	CLEAN UP
	`===============
	GOSUB 1_Clean

RETURN

1_Gen_Gui:
	PASTE IMAGE 1,S1_A1(1,1),S1_A1(2,1)
	PASTE IMAGE 2,S1_A2(1,1),S1_A2(2,1)
	PASTE IMAGE 3,S1_A3(1,1),S1_A3(2,1)

SPRITE 21,S1_A2(1,1)+1,S1_A2(2,1)+1,21
	SCALE SPRITE 21,700
	SPRITE 22,S1_A2(1,1)+1,S1_A2(2,1)+98,22
	SCALE SPRITE 22,700
RETURN

1_Menu:
REM Options: Start/Stop,Reset,Quit
	IF Click=1
		X=MouseX()-S1_A1(1,1)
		Selection=X/213
		INC Selection
		IF Selection=1
			GOSUB Setup_Map2
			State=2
		ENDIF
		IF Selection=2
			GOSUB 1_Clear
		ENDIF
		IF Selection=3
			INK 0,0
			CLS
			END
		ENDIF
	ENDIF
RETURN

1_TileSelect:
	Y=MouseY()-S1_A2(2,1)
	Tile=Y/98
	INC Tile
	IF Tile>2 THEN Tile=2
RETURN

1_MapArea:
	LocX=1+(MouseX()-S1_A3(1,1))/14
	LocY=1+(MouseY()-S1_A3(2,1))/14
	IF LocX<=32 AND LocY<=32 AND S1_Map(LocX,LocY)<3
		IF Click=1
			IF Tile=2 
				S1_Map(Player_X,Player_Y)=0
				Player_X=LocX : Player_Y=LocY
			ENDIF
			S1_Map(LocX,LocY)=Tile
		ENDIF
		IF Click=2
			S1_Map(LocX,LocY)=0
		ENDIF
	ENDIF
		
RETURN

1_Regen:
FOR X=1 to 32
	FOR Y=1 to 32
		PASTE IMAGE 20+S1_Map(X,Y),(X-1)*14+S1_A3(1,1),(Y-1)*14+S1_A3(2,1)
	NEXT Y
NEXT X
RETURN

1_Clean:
RETURN

1_Clear:
	FOR X=1 TO 32
		FOR Y=1 TO 32
			IF S1_Map(X,Y)<3
				S1_Map(X,Y)=0
			ENDIF
		NEXT Y
	NEXT X
	Player_X=0
	Player_Y=0
RETURN

Setup_Map2:
	CLS
	1_Player_X=Player_X
	1_Player_Y=Player_Y
	FOR X=1 TO 32
		FOR Y=1 TO 32
			S2_Map(X,Y)=S1_Map(X,Y)
		NEXT Y
	NEXT X
	REPEAT
	UNTIL MOUSECLICK()=0
RETURN

`========================
`	STATE 2 (PLAY) SUBS
`========================
S2_Play:
`KEY CONTROLS
`GRAVITY
`COLLISION CHECKS
scale=1

GOSUB 1_GEN_GUI
	IF MouseClick()=1
		Repeat
		until mouseclick()=0
		State=1
		Player_X=1_Player_X
		Player_Y=1_Player_Y
	ELSE
		GOSUB 2_MOVE
	ENDIF
	GOSUB 2_REGEN

RETURN

2_Move:
	IF RightKey()=1 THEN GOSUB 2_MoveRight
	IF LeftKey()=1 THEN Gosub 2_MoveLeft
	IF RightKey()=0 AND LeftKey()=0 THEN HORVEL=0
	IF Upkey()=1 then gosub 2_jump

S2_MAP(Player_X,Player_Y)=0

IF VertVel<=0
			IF S2_MAP(Player_X,Player_Y+1)<>1
				Inc Player_Y
				Land=0
			Else
				Land=1
				VertVel=0
			ENDIF
		ELSE
			If S2_Map(Player_X,Player_Y-1)<>1
				Dec Player_Y
				Land=0
				Dec VertVel
			Else
				VertVel=0
			ENDIF
		ENDIF
	If S2_Map(Player_X+HorVel,Player_Y)<>1
		INC Player_X,HorVel
	ENDIF
	If Player_X<1 then Player_X=1
	If Player_X>32 then Player_X=32
	If Player_Y<1 then Player_Y=1
	If Player_Y>32 then player_Y=32
	S2_Map(Player_X,Player_Y)=1

For I=1 to CurrentLevel
		If Player_X=Stars(I,1) and Player_Y=Stars(I,2) and Stars(I,0)=1
			Inc Stars_Collected
			Stars(I,0)=0
		Endif
	Next I
	
	If Stars_Collected=CurrentLevel
		Gosub 2_Complete_Level
	Endif
RETURN

2_MoveRight:
	HorVel=1
RETURN

2_MoveLeft:
	HorVel=-1
RETURN

2_Jump:
If Land=1
	land=0
	VertVel=5
Endif
RETURN

2_REGEN:
S2_MAP(PLAYER_X,PLAYER_Y)=2
`ClsPrint Land
FOR X=1 to 32
	FOR Y=1 to 32
		PASTE IMAGE 20+S2_Map(X,Y),(X-1)*14+S1_A3(1,1),(Y-1)*14+S1_A3(2,1)
	NEXT Y
NEXT X
RETURN

2_Complete_Level:
	Stars_Collected=0
	Inc CurrentLevel
	State=1
	Player_X=1_Player_X
	Player_Y=1_Player_Y
	GOSUB Clear_Map_1
	Gosub GenMap
RETURN

Clear_Map_1:
	For X=0 to 32
		For Y=0 to 32
			S1_Map(x,y)=0
		Next Y
	Next X
RETURN
S4:
	PLAYER_X=16
	PLAYER_Y=3
	S2_MAP(16,3)=2
	FOR I=0 TO 32
		S2_MAP(I,32)=1
	NEXT I

For i=0 to 32
		S2_Map(17,i)=1
	next i
	STATE=2
RETURN

`===================================
`				State 3-Menu
`===================================
S3_Menu:
	GOSUB 3_Gen_Menu
	Area=0
	GOSUB 3_Check_Area
	Click=MouseClick()
	GOSUB 3_Check_Click
RETURN

3_Gen_Menu:
	PASTE IMAGE 4,0,0
RETURN

3_Check_Area:
	IF MouseX()>=320-10-(Text Width(S3_Menu$(1))/2) AND MouseX()<=330+(Text Width(S3_Menu$(1))/2)
		IF MouseY()>=190 AND MouseY()<=200+Text Size()+20
			Area=1
		ENDIF
	ENDIF
	
	IF MouseX()>=320-10-(Text Width(S3_Menu$(2))/2) AND MouseX()<=330+(Text Width(S3_Menu$(2))/2)
		IF MouseY()>=200+Text Size()+45 AND MouseY()<=200+(4*Text Size())+45
			Area=2			
		ENDIF
	ENDIF
RETURN

3_Check_Click:
	IF Click=1
		SELECT Area
			CASE 1 : State=1 : CLS : SET TEXT SIZE 12 : ENDCASE
			CASE 2 : END : ENDCASE
		ENDSELECT
	ENDIF
RETURN
`====================================
`					FUNCTIONS
`====================================
FUNCTION Sign(x)
	IF x<0 THEN retval=-1
	If X>0 then retval=1
	If X=0 then retval=0
ENDFUNCTION retval

+ Code Snippet

RANDOMIZE Timer()
SYNC ON : SYNC RATE 33


`======================
`		INIT VARIABLES
`======================
GOSUB Arrays
GOSUB Vars

`======================
`		GEN IMAGES 
`======================
GOSUB Create_Gfx

`======================
`			MAIN LOOP
`======================
GOSUB GenMap
Create bitmap 1,640,480
Do
	REM State variable controls where the program should go for a main loop
	REM 3=Menu
	REM 1=The level design (gets images 1-30,000)
	REM 2=The game (gets images 30,001-60,000)
	IF state=1 THEN GOSUB S1_Lvl_Design
	IF state=2 THEN GOSUB S2_Play
	IF State=3 THEN GOSUB S3_Menu
	copy bitmap 1,0
	SYNC
	set current bitmap 1
	CLS
LOOP

END
`=====================
`		INIT SUBS
`=====================
Arrays:
	REM General State Arrays
		DIM Stars(1000,2)
	REM State 1 Arrays
		DIM S1_A1(2,2)
		DIM S1_A2(2,2)
		DIM S1_A3(2,2)
		DIM S1_Map(33,33)
		DIM S1_Tiles(2,6)
		DIM S1_Menu(3)

	REM State 2 Arrays
		DIM S2_MAP(33,33)	

	REM State 3 Arrays
		DIM S3_Menu$(5)
RETURN

Vars:
	REM PLAYER LOCATION
	Player_X=0
	Player_Y=0
	LAND=0
	STATE=3
	CurrentLevel=1
	grav#=.1
	Land=0

	REM State 1 Variables
	REM Area 1
	S1_A1(1,1)=0
	S1_A1(1,2)=639
	S1_A1(2,1)=0
	S1_A1(2,2)=20

	REM Area 2
	S1_A2(1,1)=0
	S1_A2(1,2)=100
	S1_A2(2,1)=21
	S1_A2(2,2)=479

	REM Area 3
	S1_A3(1,1)=150
	S1_A3(1,2)=598
	S1_A3(2,1)=25
	S1_A3(2,2)=473

	REM State 3 Variables
	S3_Menu$(0)="Star Catcher"
	S3_Menu$(1)="Play"
	S3_Menu$(2)="Quit"
RETURN

Create_Gfx:
	GET IMAGE 20,0,0,13,13
	REM Tiles
	REM Floor
	INK RGB(255,255,255),0
	BOX 0,0,14,14
	GET IMAGE 21,0,0,14,14
	CLS
	REM Player
	SET TEXT SIZE 14
	INK rgb(255,0,0),0
	CENTER TEXT 7,0,"Y"
	GET IMAGE 22,0,0,13,13
	CLS
	REM COIN
	INK RGB(255,255,0),0
	CENTER TEXT 7,0,"*"
	GET IMAGE 23,0,0,13,13
	CLS


	REM STATE 1 Stuff
	REM Area 1
	INK RGB(255,0,0),0
	BOX S1_A1(1,1),S1_A1(2,1),S1_A1(1,2),S1_A1(2,2)
	INK 0,0
	CENTER TEXT S1_A1(1,1)+(S1_A1(1,2)-S1_A1(1,1))/6,S1_A1(2,1),"START/STOP"
	CENTER TEXT S1_A1(1,1)+(S1_A1(1,2)-S1_A1(1,1))/2,S1_A1(2,1),"Reset"
	CENTER TEXT S1_A1(1,1)+5*(S1_A1(1,2)-S1_A1(1,1))/6,S1_A1(2,1),"END"
	GET IMAGE 1,S1_A1(1,1),S1_A1(2,1),S1_A1(1,2),S1_A1(2,2)
	CLS

	REM Area 2
	INK RGB(0,255,0),0
	BOX S1_A2(1,1),S1_A2(2,1),S1_A2(1,2),S1_A2(2,2)
	GET IMAGE 2,S1_A2(1,1),S1_A2(2,1),S1_A2(1,2),S1_A2(2,2)
	CLS

	REM Area 3
	INK RGB(0,0,255),0
	BOX S1_A3(1,1),S1_A3(2,1),S1_A3(1,2),S1_A3(2,2)
	GET IMAGE 3,S1_A3(1,1),S1_A3(2,1),S1_A3(1,2),S1_A3(2,2)
	CLS


	REM State 3 Stuff
	REM Menu Background
	INK 0,RGB(127,127,127)
	CLS
	SET TEXT FONT "Arial",0
	SET TEXT SIZE 50
	CENTER TEXT 320,20,S3_Menu$(0)

	INK RGB(255,255,255),0
	SET TEXT SIZE 24
	BOX 320-10-(Text Width(S3_Menu$(1))/2),190,330+(Text Width(S3_Menu$(1))/2),200+Text Size()+20
	BOX 320-10-(Text Width(S3_Menu$(2))/2),200+Text Size()+45,330+(Text Width(S3_Menu$(2))/2),200+(4*Text Size())+45

	INK 0,0
	CENTER TEXT 320,200,S3_Menu$(1)
	CENTER TEXT 320,200+Text Size()+50,S3_Menu$(2)
	GET IMAGE 4,0,0,640,480
	CLS
RETURN

`=========================
`	RANDOM STAR PLACEMENT
`=========================
GenMap:
	FOR i=1 to CurrentLevel
		StarX=Rnd(31)+1
		StarY=Rnd(31)+1
		S1_Map(StarX,StarY)=3		
		Stars(i,1)=StarX
		Stars(i,2)=StarY
		Stars(i,0)=1
	NEXT i
RETURN


`===================================
`		STATE 1 (LEVEL DESIGN) SUBS
`===================================

S1_Lvl_Design:
	REM Parts:
	REM Gradient Map DONE
	REM Coin Loc. Generator DONE (See GenMap subroutine)
	REM Tile Selection (DONE)
	REM Tile placement (DONE)
	REM Drawing tools (take from DNG)
	
	`===============
	`		GUI
	`===============
	REM Generates the gui and saves it as image 
	GOSUB 1_Gen_Gui
	
	`===============
	`	LOC CHECK
	`===============
	REM MENU AREA
	IF MouseX()>=S1_A1(1,1) AND MouseX()<=S1_A1(1,2)
		IF MouseY()>=S1_A1(2,1) AND MouseY()<=S1_A1(2,2)
			s1_loc=1
		ENDIF
	ENDIF
	REM TILE SELECTION AREA
	IF MouseX()>=S1_A2(1,1) AND MouseX()<=S1_A2(1,2)
		IF MouseY()>=S1_A2(2,1) AND MouseY()<=S1_A2(2,2)
			s1_loc=2
		ENDIF
	ENDIF
	REM MAP AREA
	IF MouseX()>=S1_A3(1,1) AND MouseX()<=S1_A3(1,2)
		IF MouseY()>=S1_A3(2,1) AND MouseY()<=S1_A3(2,2)
			s1_loc=3
		ENDIF
	ENDIF
	
	`===============
	`   SELECTION
	`===============
	IF MouseClick()>0
		click=MouseClick()
		SELECT s1_loc
			CASE 1 : GOSUB 1_Menu : ENDCASE
			CASE 2 : GOSUB 1_TileSelect : ENDCASE
			CASE 3 : GOSUB 1_MapArea : ENDCASE
		ENDSELECT
	ENDIF

	`===============
	`	MAP REGEN
	`===============
	GOSUB 1_Regen

	`===============
	`	CLEAN UP
	`===============
	GOSUB 1_Clean

RETURN

1_Gen_Gui:
	PASTE IMAGE 1,S1_A1(1,1),S1_A1(2,1)
	PASTE IMAGE 2,S1_A2(1,1),S1_A2(2,1)
	PASTE IMAGE 3,S1_A3(1,1),S1_A3(2,1)

	SPRITE 21,S1_A2(1,1)+1,S1_A2(2,1)+1,21
	SCALE SPRITE 21,700
	SPRITE 22,S1_A2(1,1)+1,S1_A2(2,1)+98,22
	SCALE SPRITE 22,700
RETURN

1_Menu:
REM Options: Start/Stop,Reset,Quit
	IF Click=1
		X=MouseX()-S1_A1(1,1)
		Selection=X/213
		INC Selection
		IF Selection=1
			GOSUB Setup_Map2
			State=2
		ENDIF
		IF Selection=2
			GOSUB 1_Clear
		ENDIF
		IF Selection=3
			INK 0,0
			CLS
			END
		ENDIF
	ENDIF
RETURN

1_TileSelect:
	Y=MouseY()-S1_A2(2,1)
	Tile=Y/98
	INC Tile
	IF Tile>2 THEN Tile=2
RETURN

1_MapArea:
	LocX=1+(MouseX()-S1_A3(1,1))/14
	LocY=1+(MouseY()-S1_A3(2,1))/14
	IF LocX<=32 AND LocY<=32 AND S1_Map(LocX,LocY)<3
		IF Click=1
			IF Tile=2 
				S1_Map(Player_X,Player_Y)=0
				Player_X=LocX : Player_Y=LocY
			ENDIF
			S1_Map(LocX,LocY)=Tile
		ENDIF
		IF Click=2
			S1_Map(LocX,LocY)=0
		ENDIF
	ENDIF
		
RETURN

1_Regen:
FOR X=1 to 32
	FOR Y=1 to 32
		PASTE IMAGE 20+S1_Map(X,Y),(X-1)*14+S1_A3(1,1),(Y-1)*14+S1_A3(2,1)
	NEXT Y
NEXT X
RETURN

1_Clean:
RETURN

1_Clear:
	FOR X=1 TO 32
		FOR Y=1 TO 32
			IF S1_Map(X,Y)<3
				S1_Map(X,Y)=0
			ENDIF
		NEXT Y
	NEXT X
	Player_X=0
	Player_Y=0
RETURN

Setup_Map2:
	CLS
	1_Player_X=Player_X
	1_Player_Y=Player_Y
	FOR X=1 TO 32
		FOR Y=1 TO 32
			S2_Map(X,Y)=S1_Map(X,Y)
		NEXT Y
	NEXT X
	REPEAT
	UNTIL MOUSECLICK()=0
RETURN



`========================
`	STATE 2 (PLAY) SUBS
`========================
S2_Play:
`KEY CONTROLS
`GRAVITY
`COLLISION CHECKS
scale=1

	GOSUB 1_GEN_GUI
	IF MouseClick()=1
		Repeat
		until mouseclick()=0
		State=1
		Player_X=1_Player_X
		Player_Y=1_Player_Y
	ELSE
		GOSUB 2_MOVE
	ENDIF
	GOSUB 2_REGEN

RETURN

2_Move:
	IF RightKey()=1 THEN GOSUB 2_MoveRight
	IF LeftKey()=1 THEN Gosub 2_MoveLeft
	IF RightKey()=0 AND LeftKey()=0 THEN HORVEL=0
	IF Upkey()=1 then gosub 2_jump

	
	S2_MAP(Player_X,Player_Y)=0

		IF VertVel<=0
			IF S2_MAP(Player_X,Player_Y+1)<>1
				Inc Player_Y
				Land=0
			Else
				Land=1
				VertVel=0
			ENDIF
		ELSE
			If S2_Map(Player_X,Player_Y-1)<>1
				Dec Player_Y
				Land=0
				Dec VertVel
			Else
				VertVel=0
			ENDIF
		ENDIF
	If S2_Map(Player_X+HorVel,Player_Y)<>1
		INC Player_X,HorVel
	ENDIF
	If Player_X<1 then Player_X=1
	If Player_X>32 then Player_X=32
	If Player_Y<1 then Player_Y=1
	If Player_Y>32 then player_Y=32
	S2_Map(Player_X,Player_Y)=1

	For I=1 to CurrentLevel
		If Player_X=Stars(I,1) and Player_Y=Stars(I,2) and Stars(I,0)=1
			Inc Stars_Collected
			Stars(I,0)=0
		Endif
	Next I
	
	If Stars_Collected=CurrentLevel
		Gosub 2_Complete_Level
	Endif
RETURN


2_MoveRight:
	HorVel=1
RETURN

2_MoveLeft:
	HorVel=-1
RETURN

2_Jump:
If Land=1
	land=0
	VertVel=5
Endif
RETURN

2_REGEN:
S2_MAP(PLAYER_X,PLAYER_Y)=2
`ClsPrint Land
FOR X=1 to 32
	FOR Y=1 to 32
		PASTE IMAGE 20+S2_Map(X,Y),(X-1)*14+S1_A3(1,1),(Y-1)*14+S1_A3(2,1)
	NEXT Y
NEXT X
RETURN

2_Complete_Level:
	Stars_Collected=0
	Inc CurrentLevel
	State=1
	Player_X=1_Player_X
	Player_Y=1_Player_Y
	GOSUB Clear_Map_1
	Gosub GenMap
RETURN


Clear_Map_1:
	For X=0 to 32
		For Y=0 to 32
			S1_Map(x,y)=0
		Next Y
	Next X
RETURN
S4:
	PLAYER_X=16
	PLAYER_Y=3
	S2_MAP(16,3)=2
	FOR I=0 TO 32
		S2_MAP(I,32)=1
	NEXT I

	For i=0 to 32
		S2_Map(17,i)=1
	next i
	STATE=2
RETURN

`===================================
`				State 3-Menu
`===================================
S3_Menu:
	GOSUB 3_Gen_Menu
	Area=0
	GOSUB 3_Check_Area
	Click=MouseClick()
	GOSUB 3_Check_Click
RETURN

3_Gen_Menu:
	PASTE IMAGE 4,0,0
RETURN

3_Check_Area:
	IF MouseX()>=320-10-(Text Width(S3_Menu$(1))/2) AND MouseX()<=330+(Text Width(S3_Menu$(1))/2)
		IF MouseY()>=190 AND MouseY()<=200+Text Size()+20
			Area=1
		ENDIF
	ENDIF
	
	IF MouseX()>=320-10-(Text Width(S3_Menu$(2))/2) AND MouseX()<=330+(Text Width(S3_Menu$(2))/2)
		IF MouseY()>=200+Text Size()+45 AND MouseY()<=200+(4*Text Size())+45
			Area=2			
		ENDIF
	ENDIF
RETURN

3_Check_Click:
	IF Click=1
		SELECT Area
			CASE 1 : State=1 : CLS : SET TEXT SIZE 12 : ENDCASE
			CASE 2 : END : ENDCASE
		ENDSELECT
	ENDIF
RETURN
`====================================
`					FUNCTIONS
`====================================
FUNCTION Sign(x)
	IF x<0 THEN retval=-1
	If X>0 then retval=1
	If X=0 then retval=0
ENDFUNCTION retval

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 29th Nov 2008 16:49 Edited at: 29th Nov 2008 17:01

Link

Well it's a pretty good program. I like how I cannot place the characters cursor on the stars.

@Phaelax

On the DBCC Website, I highlighted the codes, and copied it, however it copied it into one line.

I download memory.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Nov 2008 01:14

Link

I won't be able to enter. I've been out of town for the turkey day, and now that I've been home I've had friends back home from chicago and CA, so I haven't had much time to do anything new.

Irojo, I noticed that IE did this but Chrome does not. Which browser did you use? I'm looking at Geshi updates now about this.

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 30th Nov 2008 02:48

Link

Okay Phaelax.

It is IE.

I download memory.

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 30th Nov 2008 16:17

Link

Hey,

I know the deadline is already over, but could you give me like 1 more hour to finish my entry?

Thanks, TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 30th Nov 2008 17:11 Edited at: 30th Nov 2008 18:43

Link

OK, I finished!

here is the code:

+ Code Snippet

Look at my next post :P

Click the mouse to draw lines, and drag the player by clicking and dragging it.

Press "Play" to play and use the arrow keys to steer.

Press "Stop" to go back to the editor.

Press "Reset" in the editor to reset all lines

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Quirkyjim

16

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 30th Nov 2008 17:44

Link

Whoa... Amazing...

~QJ

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 30th Nov 2008 18:41 Edited at: 30th Nov 2008 19:25

Link

update!

code:

rem by TheComet

rem setup screen
set camera view 0,0,screen width(),screen height()
sync on
sync rate 0
backdrop on
color backdrop 0
show mouse

rem dimensions
dim dotx(10000)
dim doty(10000)
dim dont_draw(10000)
dim cx(1000)
dim cy(1000)
dim cs(1000)
dim pixel(screen width(),screen height())
dim pushed(3)

rem create user bar
create bitmap 1,screen width(),26
ink rgb(128,128,128),0
box 0,0,screen width()-1,25
ink rgb(200,200,200),0
line 0,0,screen width()-1,0
line screen width(),0,screen width()-1,26
ink rgb(90,90,90),0
line 0,0,0,26
line 0,25,screen width(),25
get image 1,0,0,screen width(),26
delete bitmap 1

rem create play button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Play"
get image 2,0,0,80,22
delete bitmap 1

rem create stop button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Stop"
get image 3,0,0,80,22
delete bitmap 1

rem create reset button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Reset"
get image 4,0,0,80,22
delete bitmap 1

rem create exit button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Exit"
get image 5,0,0,80,22
delete bitmap 1

rem create play button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Play"
get image 6,0,0,80,22
delete bitmap 1

rem create stop button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Stop"
get image 7,0,0,80,22
delete bitmap 1

rem create reset button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Reset"
get image 8,0,0,80,22
delete bitmap 1

rem create exit button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Exit"
get image 9,0,0,80,22
delete bitmap 1

rem player sprite
create bitmap 1,10,20
ink rgb(255,0,0),0
circle 5,5,4
line 5,10,5,15
line 0,11,10,11
line 5,15,10,20
line 5,15,0,20
get image 11,0,0,10,20
delete bitmap 1

rem goal
create bitmap 1,10,10
ink rgb(0,255,0),0
circle 5,5,4
dot 5,5
get image 12,0,0,10,10
delete bitmap 1

rem main loop
pushed=0
waypoint=0
px=20
py=60
gx=20
gy=100
circles=0
do

rem what mode?
ink rgb(255,255,0),0
center text screen width()/2,25,"Edit Mode"

rem print menu
paste image 1,0,0
sprite 2,50,2,2
sprite 3,200,2,3
sprite 4,350,2,4
sprite 5,500,2,5

rem control buttons pushed
for t=0 to 3
   if mousex()>sprite x(t+2) and mousex()<sprite x(t+2)+sprite width(t+2) and mousey()>sprite y(t+2) and mousey()<sprite y(t+2)+sprite height(t+2) and mouseclick()=1 then pushed(t)=1 else pushed(t)=0
   if pushed(t)=1 then sprite t+2,sprite x(t+2),sprite y(t+2),t+6
next t

rem play
if pushed(0)=1 then gosub play_game

rem reset
if pushed(2)=1
   for t=0 to 10000
      dotx(t)=0
      doty(t)=0
      dont_draw(t)=0
   next t
   waypoint=0
   circles=0
endif

rem exit
if pushed(3)=1 then end

rem position player
ink rgb(255,0,0),0
center text px,py-20,"Player"
sprite 11,px,py,11
if mousex()>sprite x(11) and mousex()<sprite x(11)+sprite width(11) and mousey()>sprite y(11) and mousey()<sprite y(11)+sprite height(11)
   if mouseclick()=1
      if player_select=0
         offx=mousex()-sprite x(11)
         offy=mousey()-sprite y(11)
         player_select=1
      endif
      repeat
         paste image 1,0,0
         sprite 11,mousex()-offx,mousey()-offy,11
         px=sprite x(11)
         py=sprite y(11)
         if py<22 then sprite 11,px,22,11
         ink rgb(255,0,0),0
         center text px,py-20,"Player"
         ink rgb(255,255,255),0
         for t=2 to waypoint
            if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
         next t
         for t=1 to circles
            circle cx(t),cy(t),cs(t)
         next t
         sync
      until mouseclick()=0
   endif
endif
if mouseclick()=0 then player_select=0

rem position goal
sprite 12,gx,gy,12
ink rgb(0,255,0),0
center text gx,gy-20,"Goal"
if mousex()>sprite x(12) and mousex()<sprite x(12)+sprite width(12) and mousey()>sprite y(12) and mousey()<sprite y(12)+sprite height(12)
   if mouseclick()=1
      if goal_select=0
         offx=mousex()-sprite x(12)
         offy=mousey()-sprite y(12)
         goal_select=1
      endif
      repeat
         paste image 1,0,0
         sprite 12,mousex()-offx,mousey()-offy,12
         gx=sprite x(12)
         gy=sprite y(12)
         if gy<22 then sprite 12,gx,22,12
         ink rgb(0,255,0),0
         center text gx,gy-20,"Goal"
         ink rgb(255,255,255),0
         for t=2 to waypoint
            if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
         next t
         for t=1 to circles
            circle cx(t),cy(t),cs(t)
         next t
         sync
      until mouseclick()=0
   endif
endif
if mouseclick()=0 then goal_select=0

rem set waypoints for lines
if player_select=0
   if mouseclick()=1 and mousey()>22
      if mousemovex()<>0 or mousemovey()<>0
         if pushed=0
            inc waypoint
            if waypoint>10000 then waypoint=10000
            dotx(waypoint)=mousex():doty(waypoint)=mousey()
            dont_draw(waypoint)=1
            pushed=1
         endif
         inc waypoint
         if waypoint>10000 then waypoint=10000
         dotx(waypoint)=mousex():doty(waypoint)=mousey()
      endif

rem how many waypoints are there currently?
      ink rgb(255,255,255),0
      center text mousex(),mousey()-12,"Waypoints : "+str$(waypoint)

else
      if pushed=1
         inc waypoint
         if waypoint>10000 then waypoint=10000
         dont_draw(waypoint)=1
         pushed=0
      endif
   endif
endif

rem draw circles
if mouseclick()=2 and mousey()>22
   if draw_circle=0
      inc circles
      cx(circles)=mousex()
      cy(circles)=mousey()
      draw_circle=1
   endif
   cs(circles)=(abs(cx(circles)-mousex()))+(abs(cy(circles)-mousey()))
endif
if mouseclick()=0 then draw_circle=0

rem draw lines
ink rgb(255,255,255),0
for t=2 to waypoint
   if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
next t

rem draw circles
for t=1 to circles
   circle cx(t),cy(t),cs(t)
next t

rem refresh screen
sync

rem end of main loop
loop

rem Subroutines --------------------------------------------------------------------------------------------------------------------------------

play_game:

rem setup game

rem get level image and save it
if file exist("level.bmp")=1 then delete file "level.bmp"
create bitmap 1,screen width(),screen height()
ink rgb(255,255,255),0
for t=2 to waypoint
   if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
next t
for t=1 to circles
   circle cx(t),cy(t),cs(t)
next t
save bitmap "level.bmp",1
get image 10,0,0,screen width(),screen height()
delete bitmap 1

rem import bitmap and see which pixels are white(Thankyou TDK! :-)
Open to read 1,"level.bmp":   Rem Colour Image
   Read word 1,Discard:       Rem Identifier
   Read long 1,Discard:       Rem File Size
   Read long 1,Discard:       Rem Reserved
   Read long 1,Discard:       Rem Bitmap Data Offset
   Read long 1,Discard:       Rem Bitmap Header Size
   Read long 1,ImageWidth:    Rem Width
   Read long 1,ImageHeight:   Rem Height
   Read word 1,Discard:       Rem Planes
   Read word 1,bitsperpixel:  Rem Bits Per Pixel
   Read long 1,Discard:       Rem Compression
   Read long 1,bmpdatasize:   Rem Bitmap Data Size
   Read long 1,Discard:       Rem HResolution
   Read long 1,Discard:       Rem VResolution
   Read long 1,Discard:       Rem Colors
   Read long 1,Discard:       Rem Important Colors

Rem Read in the pixel data into the array
   For By = ImageHeight-1 to 0 step-1
      For Bx=0 to ImageWidth-1
         read byte 1,Blue
         read byte 1,Green
         read byte 1,Red
         if blue>0 and green>0 and red>0 and by-20>22 then pixel(bx,by-20)=1
      Next Bx
   Next By
Close File 1

rem main loop
sx#=sprite x(11)
sy#=sprite y(11)
win_time=0
do

rem paste level
paste image 10,0,0

rem print menu
paste image 1,0,0
sprite 2,50,2,2
sprite 3,200,2,3
sprite 4,350,2,4
sprite 5,500,2,5

rem what mode?
ink rgb(255,255,0),0
center text screen width()/2,25,"Play Mode"

rem control buttons pushed
for t=0 to 3
   if mousex()>sprite x(t+2) and mousex()<sprite x(t+2)+sprite width(t+2) and mousey()>sprite y(t+2) and mousey()<sprite y(t+2)+sprite height(t+2) and mouseclick()=1 then pushed(t)=1 else pushed(t)=0
   if pushed(t)=1 then sprite t+2,sprite x(t+2),sprite y(t+2),t+6
next t

rem stop game
if pushed(1)=1 then exit

rem get player positions
oldsy#=sy#

rem player
if upkey()=1 and grav#=0.0 then grav#=-1
if leftkey()=1 then dec sx#,0.4
if rightkey()=1 then inc sx#,0.4

rem gravity
inc grav#,0.005:if grav#>10 then grav#=10
inc sy#,grav#

rem screen boundaries
if sy#>screen height()-21 then sy#=screen height()-21:grav#=0.0
if sy#<22 then sy#=22
if sx#<0 then sx#=0
if sx#>screen width()-10 then sx#=screen width()-10

rem collision
for x=sprite x(11) to sprite x(11)+10
   for y=sprite y(11)-10 to sprite y(11)
      if grav#>0 and pixel(x,y)=1 then sy#=y:grav#=0.0
   next y
next x

rem update player positions
sx=sx#
sy=sy#
sprite 11,sx,sy,11

rem win
if sprite x(11)+10>sprite x(12) and sprite x(11)<sprite x(12)+sprite width(12)
   if sprite y(11)+20>sprite y(12) and sprite y(11)<sprite y(12)+sprite height(12)
      win_time=screen fps()*3
   endif
endif
dec win_time
ink rgb(255,255,0),0
if win_time>0 then center text screen width()/2,screen height()/2,"WINNER!!!"

rem refresh screen
sync

rem end of main loop
loop

for x=0 to screen width()
   for y=0 to screen height()
      pixel(x,y)=0
   next y
next x

return

+ Code Snippet

rem by TheComet

rem setup screen
set camera view 0,0,screen width(),screen height()
sync on
sync rate 0
backdrop on
color backdrop 0
show mouse

rem dimensions
dim dotx(10000)
dim doty(10000)
dim dont_draw(10000)
dim cx(1000)
dim cy(1000)
dim cs(1000)
dim pixel(screen width(),screen height())
dim pushed(3)

rem create user bar
create bitmap 1,screen width(),26
ink rgb(128,128,128),0
box 0,0,screen width()-1,25
ink rgb(200,200,200),0
line 0,0,screen width()-1,0
line screen width(),0,screen width()-1,26
ink rgb(90,90,90),0
line 0,0,0,26
line 0,25,screen width(),25
get image 1,0,0,screen width(),26
delete bitmap 1

rem create play button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Play"
get image 2,0,0,80,22
delete bitmap 1

rem create stop button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Stop"
get image 3,0,0,80,22
delete bitmap 1

rem create reset button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Reset"
get image 4,0,0,80,22
delete bitmap 1

rem create exit button
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(200,200,200),0
line 0,0,79,0
line 79,0,79,22
ink rgb(90,90,90),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 40,1,"Exit"
get image 5,0,0,80,22
delete bitmap 1

rem create play button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Play"
get image 6,0,0,80,22
delete bitmap 1

rem create stop button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Stop"
get image 7,0,0,80,22
delete bitmap 1

rem create reset button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Reset"
get image 8,0,0,80,22
delete bitmap 1

rem create exit button pushed
create bitmap 1,80,22
ink rgb(128,128,128),0
box 0,0,79,21
ink rgb(90,90,90),0
line 0,0,79,0
line 79,0,79,22
ink rgb(200,200,200),0
line 0,0,0,22
line 0,21,79,21
ink rgb(10,10,10),0
set text size 10
center text 41,0,"Exit"
get image 9,0,0,80,22
delete bitmap 1

rem player sprite
create bitmap 1,10,20
ink rgb(255,0,0),0
circle 5,5,4
line 5,10,5,15
line 0,11,10,11
line 5,15,10,20
line 5,15,0,20
get image 11,0,0,10,20
delete bitmap 1

rem goal
create bitmap 1,10,10
ink rgb(0,255,0),0
circle 5,5,4
dot 5,5
get image 12,0,0,10,10
delete bitmap 1

rem main loop
pushed=0
waypoint=0
px=20
py=60
gx=20
gy=100
circles=0
do

rem what mode?
ink rgb(255,255,0),0
center text screen width()/2,25,"Edit Mode"

rem print menu
paste image 1,0,0
sprite 2,50,2,2
sprite 3,200,2,3
sprite 4,350,2,4
sprite 5,500,2,5

rem control buttons pushed
for t=0 to 3
   if mousex()>sprite x(t+2) and mousex()<sprite x(t+2)+sprite width(t+2) and mousey()>sprite y(t+2) and mousey()<sprite y(t+2)+sprite height(t+2) and mouseclick()=1 then pushed(t)=1 else pushed(t)=0
   if pushed(t)=1 then sprite t+2,sprite x(t+2),sprite y(t+2),t+6
next t

rem play
if pushed(0)=1 then gosub play_game

rem reset
if pushed(2)=1
   for t=0 to 10000
      dotx(t)=0
      doty(t)=0
      dont_draw(t)=0
   next t
   waypoint=0
   circles=0
endif

rem exit
if pushed(3)=1 then end

rem position player
ink rgb(255,0,0),0
center text px,py-20,"Player"
sprite 11,px,py,11
if mousex()>sprite x(11) and mousex()<sprite x(11)+sprite width(11) and mousey()>sprite y(11) and mousey()<sprite y(11)+sprite height(11)
   if mouseclick()=1
      if player_select=0
         offx=mousex()-sprite x(11)
         offy=mousey()-sprite y(11)
         player_select=1
      endif
      repeat
         paste image 1,0,0
         sprite 11,mousex()-offx,mousey()-offy,11
         px=sprite x(11)
         py=sprite y(11)
         if py<22 then sprite 11,px,22,11
         ink rgb(255,0,0),0
         center text px,py-20,"Player"
         ink rgb(255,255,255),0
         for t=2 to waypoint
            if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
         next t
         for t=1 to circles
            circle cx(t),cy(t),cs(t)
         next t
         sync
      until mouseclick()=0
   endif
endif
if mouseclick()=0 then player_select=0

rem position goal
sprite 12,gx,gy,12
ink rgb(0,255,0),0
center text gx,gy-20,"Goal"
if mousex()>sprite x(12) and mousex()<sprite x(12)+sprite width(12) and mousey()>sprite y(12) and mousey()<sprite y(12)+sprite height(12)
   if mouseclick()=1
      if goal_select=0
         offx=mousex()-sprite x(12)
         offy=mousey()-sprite y(12)
         goal_select=1
      endif
      repeat
         paste image 1,0,0
         sprite 12,mousex()-offx,mousey()-offy,12
         gx=sprite x(12)
         gy=sprite y(12)
         if gy<22 then sprite 12,gx,22,12
         ink rgb(0,255,0),0
         center text gx,gy-20,"Goal"
         ink rgb(255,255,255),0
         for t=2 to waypoint
            if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
         next t
         for t=1 to circles
            circle cx(t),cy(t),cs(t)
         next t
         sync
      until mouseclick()=0
   endif
endif
if mouseclick()=0 then goal_select=0

rem set waypoints for lines
if player_select=0
   if mouseclick()=1 and mousey()>22
      if mousemovex()<>0 or mousemovey()<>0
         if pushed=0
            inc waypoint
            if waypoint>10000 then waypoint=10000
            dotx(waypoint)=mousex():doty(waypoint)=mousey()
            dont_draw(waypoint)=1
            pushed=1
         endif
         inc waypoint
         if waypoint>10000 then waypoint=10000
         dotx(waypoint)=mousex():doty(waypoint)=mousey()
      endif

      rem how many waypoints are there currently?
      ink rgb(255,255,255),0
      center text mousex(),mousey()-12,"Waypoints : "+str$(waypoint)

   else
      if pushed=1
         inc waypoint
         if waypoint>10000 then waypoint=10000
         dont_draw(waypoint)=1
         pushed=0
      endif
   endif
endif

rem draw circles
if mouseclick()=2 and mousey()>22
   if draw_circle=0
      inc circles
      cx(circles)=mousex()
      cy(circles)=mousey()
      draw_circle=1
   endif
   cs(circles)=(abs(cx(circles)-mousex()))+(abs(cy(circles)-mousey()))
endif
if mouseclick()=0 then draw_circle=0

rem draw lines
ink rgb(255,255,255),0
for t=2 to waypoint
   if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
next t

rem draw circles
for t=1 to circles
   circle cx(t),cy(t),cs(t)
next t

rem refresh screen
sync

rem end of main loop
loop

rem Subroutines --------------------------------------------------------------------------------------------------------------------------------

play_game:

rem setup game

rem get level image and save it
if file exist("level.bmp")=1 then delete file "level.bmp"
create bitmap 1,screen width(),screen height()
ink rgb(255,255,255),0
for t=2 to waypoint
   if dont_draw(t)=0 then line dotx(t),doty(t),dotx(t-1),doty(t-1)
next t
for t=1 to circles
   circle cx(t),cy(t),cs(t)
next t
save bitmap "level.bmp",1
get image 10,0,0,screen width(),screen height()
delete bitmap 1

rem import bitmap and see which pixels are white(Thankyou TDK! :-)
Open to read 1,"level.bmp":   Rem Colour Image
   Read word 1,Discard:       Rem Identifier
   Read long 1,Discard:       Rem File Size
   Read long 1,Discard:       Rem Reserved
   Read long 1,Discard:       Rem Bitmap Data Offset
   Read long 1,Discard:       Rem Bitmap Header Size
   Read long 1,ImageWidth:    Rem Width
   Read long 1,ImageHeight:   Rem Height
   Read word 1,Discard:       Rem Planes
   Read word 1,bitsperpixel:  Rem Bits Per Pixel
   Read long 1,Discard:       Rem Compression
   Read long 1,bmpdatasize:   Rem Bitmap Data Size
   Read long 1,Discard:       Rem HResolution
   Read long 1,Discard:       Rem VResolution
   Read long 1,Discard:       Rem Colors
   Read long 1,Discard:       Rem Important Colors

   Rem Read in the pixel data into the array
   For By = ImageHeight-1 to 0 step-1
      For Bx=0 to ImageWidth-1
         read byte 1,Blue
         read byte 1,Green
         read byte 1,Red
         if blue>0 and green>0 and red>0 and by-20>22 then pixel(bx,by-20)=1
      Next Bx
   Next By
Close File 1

rem main loop
sx#=sprite x(11)
sy#=sprite y(11)
win_time=0
do

rem paste level
paste image 10,0,0

rem print menu
paste image 1,0,0
sprite 2,50,2,2
sprite 3,200,2,3
sprite 4,350,2,4
sprite 5,500,2,5

rem what mode?
ink rgb(255,255,0),0
center text screen width()/2,25,"Play Mode"

rem control buttons pushed
for t=0 to 3
   if mousex()>sprite x(t+2) and mousex()<sprite x(t+2)+sprite width(t+2) and mousey()>sprite y(t+2) and mousey()<sprite y(t+2)+sprite height(t+2) and mouseclick()=1 then pushed(t)=1 else pushed(t)=0
   if pushed(t)=1 then sprite t+2,sprite x(t+2),sprite y(t+2),t+6
next t

rem stop game
if pushed(1)=1 then exit

rem get player positions
oldsy#=sy#

rem player
if upkey()=1 and grav#=0.0 then grav#=-1
if leftkey()=1 then dec sx#,0.4
if rightkey()=1 then inc sx#,0.4

rem gravity
inc grav#,0.005:if grav#>10 then grav#=10
inc sy#,grav#

rem screen boundaries
if sy#>screen height()-21 then sy#=screen height()-21:grav#=0.0
if sy#<22 then sy#=22
if sx#<0 then sx#=0
if sx#>screen width()-10 then sx#=screen width()-10

rem collision
for x=sprite x(11) to sprite x(11)+10
   for y=sprite y(11)-10 to sprite y(11)
      if grav#>0 and pixel(x,y)=1 then sy#=y:grav#=0.0
   next y
next x

rem update player positions
sx=sx#
sy=sy#
sprite 11,sx,sy,11

rem win
if sprite x(11)+10>sprite x(12) and sprite x(11)<sprite x(12)+sprite width(12)
   if sprite y(11)+20>sprite y(12) and sprite y(11)<sprite y(12)+sprite height(12)
      win_time=screen fps()*3
   endif
endif
dec win_time
ink rgb(255,255,0),0
if win_time>0 then center text screen width()/2,screen height()/2,"WINNER!!!"

rem refresh screen
sync

rem end of main loop
loop

for x=0 to screen width()
   for y=0 to screen height()
      pixel(x,y)=0
   next y
next x

return

VERY IMPORTANT! THE CODE WILL ONLY RUN IF YOU SAVE THE CODE TO A DBA FILE! WHEN YOU COPY AND PASTE THE CODE INTO YOUR EDITOR, SAVE THE CODE BEFORE RUNNING!

The drag player glitch is fixed. Now you have a goal to drag too!

click and hold left mouse button on player to drag. The same with the goal.

Left click the mouse on the black and drag to draw lines.
Right click, hold and drag to draw a circle.
Play will switch to play mode.
Stop will switch to edit mode.
reset will reset everything in edit mode.
exit will exit.

Use left and right arrow keys to move, up to jump. Try to reach the goal.

Have fun!

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 1st Dec 2008 01:09

Link

@Phaelax
When I copy code from the site it either has the line numbers too (with Ctrl+A) or # in between the lines (dragging mouse to select).
Is there a way to get just the code on it's own?
Oh I'm using FireFox btw.

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 1st Dec 2008 04:09

Link

No more entries!

I am judging now...

I download memory.

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 1st Dec 2008 04:18

Link

Okay! The results...
Phaelax's- Looked like it was well thought out, however it didn't have any character controls.

BN2 Proudction's- Good controls, ran well, and nice to be able to add where the player starts.

TheComet's-
Quite impressive entry, although using a file to control the physics lost a point. I also couldn't move the character, or the goal. The jumping and falling weren't very realilistic.

Thanks to everyone for entering!

Winner

+ Code Snippet

TheComet- Darn you, you are going to be first place at this rate. Make the challenge something you know I will win. ;) heehee.

Runner-up

+ Code Snippet

BN2 Productions- Quality entry.

Congratulations to everyone.

To you winner!

I download memory.

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 1st Dec 2008 08:59 Edited at: 1st Dec 2008 09:05

Link

Wow, Thanks!

What? You couldn`t move the character? Did you download the latest code? Did you leftclik on the character, hold down the left mouse button and drag?

The theory behind my collision is, that I have a dimension (pixel(640,480)) that defines every pixel on the screen. That`s where I import the image and check, which pixel is white. I it`s white, the dimension pixel(x,y) will be one, else zero. And when the player moves, I check if the player is on any of those dimensions, and if yes, I position it above the dimension.

So, to check every pixel on the screen, you could use Point(), but that would take about 3 hours. So the quickest solution I could think of, was to save the screen to a bitmap, and import the rgb values from there.

But that`s a different story.

Challenge

-What could you do with a spiral?

first off, the sentence was inspired by these videos:

Pimp Cup
Wii Mote
PIKACHU

This is the code that will make a spiral:

+ Code Snippet

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem make spiral
gosub _create_spiral

rem main loop
do

rem paste spiral image to screen
paste image 1,0,0

rem refresh screen
sync

rem end of main loop
loop

rem end
end

rem subroutines ---------------------------------------------------------------------------------------------------

_create_spiral:

rem make spiral
create bitmap 1,480,480
ink 0,0
box 0,0,479,479
ink rgb(255,255,255),0
a=0
x=240
y=240
for r=0 to 240
   inc a,5
   oldx=x
   oldy=y
   x=(cos(a)*r)+240
   y=(sin(a)*r)+240
   line oldx,oldy,x,y
next r
get image 1,0,0,480,480
delete bitmap 1

return

Whoever comes up with the most innovative game that uses the spiral above wins! Your game has to use the spiral, and it has to be on the screen.

Deadline

A week should be enough, so:

7th December 2008 12:00 midday CET

So, what do you think?

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 1st Dec 2008 15:09

Link

That's true POINT takes a ridiculusly long time.

I think that's quite challenging, cant seem to think of any idea right now for it lol.

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 1st Dec 2008 16:35

Link

Quote: "I think that's quite challenging, cant seem to think of any idea right now for it lol."

Well, that`s why I came up with that

After all, it is the Dark Basic Classic Challenge Thread, right?

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 1st Dec 2008 22:11 Edited at: 1st Dec 2008 23:29

Link

I've stripped down your snippet a bit, taking out stuff that wasn't needed - unless you have a specific reason for those things.

+ Code Snippet

rem setup screen
hide mouse
sync on
sync rate 60

rem make spiral
gosub _create_spiral
cls

rem paste spiral image to screen
paste image 1,0,0

rem refresh screen
sync

rem end
end

rem subroutines ---------------------------------------------------------------------------------------------------

_create_spiral:
  rem make spiral
  ink rgb(255,255,255),0
  a= 0
  x= 240
  y= 240
  for r= 0 to 240
     inc a,5
     oldx= x
     oldy= y
     x= cos(a) * r + 240
     y= sin(a) * r + 240
     line oldx,oldy,x,y
  next r
  get image 1,0,0,480,480
return

I made a function to give more flexibility to the spiral size...

+ Code Snippet

rem setup screen
hide mouse
sync on
sync rate 60

rem make spiral
ink rgb(0,0,255),0
spiral(300,160,220)

ink rgb(255,0,0),0
spiral(400,320,200)

ink rgb(255,255,0),0
spiral(200,200,100)

rem refresh screen
sync

rem end
wait key
end

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,radius)
  xx=x
  yy=y
  a= 0
  for r= 0 to radius
     inc a,5
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
  next r
Endfunction

can this be my entry? I'm going to make it so you can define how coiled the spiral is, and it's rotation.

[edit]
scrub that last one I've improved it greatly, now you can set the angle, radius and coil. I had a bit of a dilemma; I could either make it so tightening the coil would reduce the radius of the spiral (like in real life) or whatever happens to the coil the length of the line adjusts to maintain the radius. I chose to maintain the radius as A) it's easier to code, B) easier for the user to specify a radius than try to work out the correct length.

+ Code Snippet

rem setup screen
hide mouse
sync on
sync rate 60



For radius= 50 to 200 step 10
  For coil= 0 to 16
    cls
    `red
    ink rgb(255,0,0),0
    spiral(320,240,0,radius,coil)
    `green
    ink rgb(0,255,0),0
    spiral(320,240,120,radius,coil)
    `blue
    ink rgb(0,0,255),0
    spiral(320,240,240,radius,coil)
    sync
    wait 100
  Next coil
Next radius

print "Seizure Over! Press any key..."
sync
Wait Key
End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
  next r
Endfunction

This better shows what you can do with it...

+ Code Snippet

REM *********************
REM  Schwang by OBese87
REM *********************

rem setup screen
hide mouse
sync on
sync rate 30

ink rgb(255,0,0),0

For coil= 0 to 360 step 10
  c= sin(coil)*8
  spiral(320,240,0,160,c)
  wait 100
  sync:cls
Next coil

sync
Wait Key
End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
  next r
Endfunction

Here's a hypnotic one...

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
hide mouse
sync on
sync rate 60
ink rgb(255,0,0),0

DO
  For angle= 0 to 360 step 16
    spiral(320,240,angle,600,8)
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
  next r
Endfunction

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 2nd Dec 2008 01:26

Link

Wow those are neat Obese, I've been thinking for a while now, still got no good idea to use a spiral with lol.

Back to top

Profile PM Email

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 2nd Dec 2008 02:43

Link

Well I was debating whether or not to post this question (for fear you'd guess what I am doing and get some ideas), but I couldn't figure it out.

Heehee.

So why isn't the box on the tip of the spiral?

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
ink rgb(255,0,0),0

DO
  For angle= 0 to 360 step 1
    spiral(mousex(),mousey(),angle,50,8)
    x=mousex()+cos(angle)*50:y=mousey()+sin(angle)*50
    box x-4,y-4,x+4,y+4
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction

I download memory.

Back to top

Profile PM Email Website

Sinani201

18

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 2nd Dec 2008 04:51

Link

lol, the videos were fuh-nee.
Anyways, I'll try out the challenge.

"I reveal my trap card, GEORGE DUBYA BUSH!
America loses 2000 Life Points! America loses." -Deucalion2

Back to top

Profile PM

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 2nd Dec 2008 23:18

Link

Question:

Can we use the MATH from the spiral? Or do we have to use the image itself?

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 2nd Dec 2008 23:47 Edited at: 3rd Dec 2008 00:10

Link

@Irojo

Quote: "So why isn't the box on the tip of the spiral?"

Because the angle gets altered by the coil value, what you've done is position the box on the edge of a circle with a 50 radius.
I added to your x and y variables.
Since in the function the coil is added every cycle I added the coil (8) multiplied by the radius (50+1 as the extra 1 seemed to work better)

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
ink rgb(255,0,0),0

DO
  For angle= 0 to 360 step 1
    spiral(mousex(),mousey(),angle,50,8)
    x=mousex()+cos(angle+8*51)*50:y=mousey()+sin(angle+8*51)*50
    box x-4,y-4,x+4,y+4
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction

[edit]

I've added two functions to make it easier to place stuff on the spiral. Here's an example to show how to use them, any questions just ask.
The radius parameter in SPIRAL_X and SPIRAL_Y will place the object at the appropriate place on the spiral for the radius specified, this can be different to the spiral's radius.

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
box_size= 4

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 50
      x= spiral_x(mousex(),angle,boxes,8)
      y= spiral_y(mousey(),angle,boxes,8)
      box x-box_size,y-box_size,x+box_size,y+box_size
    next boxes

ink rgb(255,0,0),0
    spiral(mousex(),mousey(),angle,50,8)

sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil)
  ans= x + cos(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil)
  ans= y + sin(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction
`//

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
box_size= 4

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 50
      x= spiral_x(mousex(),angle,boxes,8)
      y= spiral_y(mousey(),angle,boxes,8)
      box x-box_size,y-box_size,x+box_size,y+box_size
    next boxes

    ink rgb(255,0,0),0
    spiral(mousex(),mousey(),angle,50,8)

    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil)
  ans= x + cos(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil)
  ans= y + sin(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction
`//

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 3rd Dec 2008 00:37

Link

Thank you Obese!

That will help me a bundle....

This is going to be by FAR my most creative entry yet.

I download memory.

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 3rd Dec 2008 01:05 Edited at: 3rd Dec 2008 01:15

Link

@Irojo
glad to be of help

I stuck a spiral on every point of the spiral and it made something that looks like a fossil.

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
box_size= 1

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 80
      x= spiral_x(mousex(),angle,boxes,8)
      y= spiral_y(mousey(),angle,boxes,8)
      box x-box_size,y-box_size,x+box_size,y+box_size

spiral(x,y,angle,40,16)
    next boxes

sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil)
  ans= x + cos(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil)
  ans= y + sin(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction
`//

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
sync on
sync rate 60
box_size= 1

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 80
      x= spiral_x(mousex(),angle,boxes,8)
      y= spiral_y(mousey(),angle,boxes,8)
      box x-box_size,y-box_size,x+box_size,y+box_size

      spiral(x,y,angle,40,16)
    next boxes

    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil)
  ans= x + cos(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil)
  ans= y + sin(angle+coil*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     dot xx,yy
  next r
Endfunction
`//

Wow! Check these out...

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
hide mouse
sync on
sync rate 60
box_size= 1

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 80
      `spiral animal 1
      x= spiral_x(200,0,boxes,cos(angle*4)*8)
      y= spiral_y(240,0,boxes,cos(angle*4)*8)
      box x-box_size,y-box_size,x+box_size,y+box_size
      spiral(x,y,0,40,cos(angle*4)*8)

`spiral animal 2
      x= spiral_x(440,0,boxes,cos(angle*4)*8)
      y= spiral_y(240,0,boxes,cos(angle*4)*8)
      box x-box_size,y-box_size,x+box_size,y+box_size
      spiral(x,y,0,40,sin(angle*4)*8)
    next boxes

sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil#)
  ans= x + cos(angle+coil#*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil#)
  ans= y + sin(angle+coil#*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil#)
  xx=x
  yy=y
  a#= angle
  for r= 0 to radius
     inc a#,coil#
     oldx= xx
     oldy= yy
     xx= x + cos(a#) * r
     yy= y + sin(a#) * r
     dot xx,yy
  next r
Endfunction
`//

+ Code Snippet

REM ************************************************
REM  You Will Obey The Almighty Spiral! by OBese87
REM ************************************************

rem setup screen
`hide mouse
hide mouse
sync on
sync rate 60
box_size= 1

DO
  For angle= 0 to 360
    ink rgb(0,255,255),0
    for boxes= 1 to 80
      `spiral animal 1
      x= spiral_x(200,0,boxes,cos(angle*4)*8)
      y= spiral_y(240,0,boxes,cos(angle*4)*8)
      box x-box_size,y-box_size,x+box_size,y+box_size
      spiral(x,y,0,40,cos(angle*4)*8)

      `spiral animal 2
      x= spiral_x(440,0,boxes,cos(angle*4)*8)
      y= spiral_y(240,0,boxes,cos(angle*4)*8)
      box x-box_size,y-box_size,x+box_size,y+box_size
      spiral(x,y,0,40,sin(angle*4)*8)
    next boxes

    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------

Function spiral_x(x,angle,radius,coil#)
  ans= x + cos(angle+coil#*(radius+1)) * radius
Endfunction ans
`//

Function spiral_y(y,angle,radius,coil#)
  ans= y + sin(angle+coil#*(radius+1)) * radius
Endfunction ans
`//

Function spiral(x,y,angle,radius,coil#)
  xx=x
  yy=y
  a#= angle
  for r= 0 to radius
     inc a#,coil#
     oldx= xx
     oldy= yy
     xx= x + cos(a#) * r
     yy= y + sin(a#) * r
     dot xx,yy
  next r
Endfunction
`//

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 3rd Dec 2008 04:21

Link

@Obese
LOL you never fail to amaze me. That looks so cool.

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 3rd Dec 2008 10:15

Link

Quote: "Can we use the MATH from the spiral? Or do we have to use the image itself?"

Anything you want, the spiral just has to be somewhere visible on the screen and have a reasonable size. (Not a small speck on the screen)

Cool, obese!

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 4th Dec 2008 20:42

Link

In case anyone else needs to figure this out, here's how you can traverse along a spiral in even increments. I needed this for my game, and using time along the spiral wouldn't work because objects appear to move faster the further from the center you get.

Find the overall length of the spiral first.

+ Code Snippet

angle = 0
midX = screen width()/2
midY = screen height()/2
x = midX
y = midY

for r = 0 to 220
   angle = wrapvalue(angle+5)
   oldx = x
   oldy = y
   x = midX + cos(a)*r
   y = midY + sin(a)*r
   line x, y, oldX, oldY
   length# = length# + sqrt((oldX-x)^2 + (oldY-y)^2)
next r


t# = p# / length#
a# = wrapvalue((220*5)*t#)
r = a# / 5

px# = midX + cos(a#)*r
py# = midY + sin(a#)*r

Where p# is between 0 and length#. I left (220*5) as is instead of making it 1100 to show where the value came from.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th Dec 2008 00:21

Link

I take that back, it's not accurate.

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 5th Dec 2008 18:40

Link

So, hows it all going?

2 more days until the Deadline, and only obese has entered an entry. Is anyone having trouble?

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th Dec 2008 20:16

Link

my whole plan is depends on me incrementing along the spiral in even amounts accurately

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 5th Dec 2008 22:51

Link

I'm trying to put as much into the entry as possible before I post it.

It's pretty

lame,
laggy,
easy,
uneffeciently coded.
Although the concept is rather good, if I do say so myself.

I download memory.

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Dec 2008 01:11

Link

@Phaelax
Are my Spiral_X and Spiral_Y functions (that I posted earlier as an edit) any use to you?

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Dec 2008 14:19 Edited at: 7th Dec 2008 14:21

Link

I could end the challenge now, but I am disappointed that no one entered (except obese).

Irojo, you have a challenge, right? I will leave you some time to enter it.

@all

What`s wrong? Was it too short? Should I extend the Deadline? Or is there something wrong with the challenge?

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 7th Dec 2008 15:46

Link

Thanks for letting me still enter TheComet.
Personally, I liked the challenge, and think I got a good concept off it, however my program is very rough.

The scoring system doesn't work, but the idea is to click on the circles, while not hitting the box. You'll figure it out after a few tries. I can't remember if the box's health is working properly again. It got buggy for some reason that I couldn't find in the time I had.

I have been insanely busy lately, so sorry it's so buggy, and doesn't have anything pretty, i.g. a menu, but here it is:

REM ************************************************
REM  Spiral Game by Irojo - DBC Challenge Thread
REM ************************************************

rem Dont have it make a hitme every loop
rem setup screen
`hide mouse
sync on
sync rate 0
red=rgb(255,0,0)
rem boxlocate (x1,y1,x2,y2)
sw=screen width()-1
sh=screen height()-1
DIM bxl(sw,sh,sw)
health=100
hitx=rnd(screen width())
hity=rnd(screen height())
rem (Hit-me's.)
rem These should be hit.
ink rgb(255,255,255),0
dim hitmes(screen width()+100,screen height()+100)
rem (/)
gosub Make_images
input difficulty
gosub Target_Locate
DO
  For angle= 0 to 360 step 6
    ink red,0
    spiral(mousex(),mousey(),angle,50,8)
    box hitx-20,hity-20,hitx+20,hity+20
    text 0,0,str$(health)
    x=mousex()+cos(angle+8*51)*50:y=mousey()+sin(angle+8*51)*50
    gosub targets
    ink rgb(255,255,255),0
    newx=mousex()
    newy=mousey()
    if mouseclick()=1
       for checkx=newx-22 to newx-4
         for checky=newy-22 to newy-4
           if hitmes(checkx,checky)=1 then hitmes(checkx,checky)=0:inc score,1
         next checky
        next checkx
     for fire=1 to 200
       inc x,cos(angle+140)*6
       inc y,sin(angle+140)*6
       dot x,y
       if x>hitx-20 and x<hitx+20 and y>hity-20 and y<hity+20:dec health,10:exit
        if heatlh=0 then gosub death
       endif
     next fire
    endif
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------
death:
cls
wait key
print "You have failed."
end
targets:
if difficulty>2
 for make=1 to 3
   hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
 next make
endif
if difficulty>0
    hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
endif

for scanx=0 to screen width()
  for scany=0 to screen height()
    if hitmes(scanx,scany)=1 then paste image 1,scanx+7,scany+7:inc total,1
  next scany
next scanx
hitcount=total
total=0
return

Make_images:
SBFillCircle(10,10,7)
get image 1,0,0,18,18
cls
return

Target_Locate:
for targets=1 to difficulty*10
  hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
next targets
return

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
   next r
Endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

+ Code Snippet

REM ************************************************
REM  Spiral Game by Irojo - DBC Challenge Thread
REM ************************************************








rem Dont have it make a hitme every loop
rem setup screen
`hide mouse
sync on
sync rate 0
red=rgb(255,0,0)
rem boxlocate (x1,y1,x2,y2)
sw=screen width()-1
sh=screen height()-1
DIM bxl(sw,sh,sw)
health=100
hitx=rnd(screen width())
hity=rnd(screen height())
rem (Hit-me's.)
rem These should be hit.
ink rgb(255,255,255),0
dim hitmes(screen width()+100,screen height()+100)
rem (/)
gosub Make_images
input difficulty
gosub Target_Locate
DO
  For angle= 0 to 360 step 6
    ink red,0
    spiral(mousex(),mousey(),angle,50,8)
    box hitx-20,hity-20,hitx+20,hity+20
    text 0,0,str$(health)
    x=mousex()+cos(angle+8*51)*50:y=mousey()+sin(angle+8*51)*50
    gosub targets
    ink rgb(255,255,255),0
    newx=mousex()
    newy=mousey()
    if mouseclick()=1
       for checkx=newx-22 to newx-4
         for checky=newy-22 to newy-4
           if hitmes(checkx,checky)=1 then hitmes(checkx,checky)=0:inc score,1
         next checky
        next checkx
     for fire=1 to 200
       inc x,cos(angle+140)*6
       inc y,sin(angle+140)*6
       dot x,y
       if x>hitx-20 and x<hitx+20 and y>hity-20 and y<hity+20:dec health,10:exit
        if heatlh=0 then gosub death
       endif
     next fire
    endif
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------
death:
cls
wait key
print "You have failed."
end
targets:
if difficulty>2
 for make=1 to 3
   hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
 next make
endif
if difficulty>0
    hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
endif

for scanx=0 to screen width()
  for scany=0 to screen height()
    if hitmes(scanx,scany)=1 then paste image 1,scanx+7,scany+7:inc total,1
  next scany
next scanx
hitcount=total
total=0
return

Make_images:
SBFillCircle(10,10,7)
get image 1,0,0,18,18
cls
return

Target_Locate:
for targets=1 to difficulty*10
  hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
next targets
return


Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
   next r
Endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

I download memory.

Back to top

Profile PM Email Website

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 7th Dec 2008 15:58

Link

@TheComet
Your challenge is actually pretty good and requires alot of creativity, but personally I'd be more active if it's something that is more related to the kind of projects I'm working on right now.

For say if I'm working on an RPG and I get a change to improve my skills on something related to a FPS, although it'll be usefull my mind just wont be on it.

Well that's my opinion anyways and don't take it too hard on yourself.

Back to top

Profile PM Email

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Dec 2008 18:05

Link

That`s fine Ashingda. So the next challenge I make will be based on an RPG, OK?

Thanks, Irojo, for still entering. I will check it out.

The Challenge is OVER!!!
========================

Calculating results...

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 7th Dec 2008 18:23

Link

OK, Irojo, I edited your game and the scoring works. At places you wrote "heatlh" instead of "health", and the part where you check if health=0, is just under the command "exit", which means it doesn`t even get there.

Here is the edited code:

REM ************************************************
REM  Spiral Game by Irojo - DBC Challenge Thread
REM ************************************************

rem Dont have it make a hitme every loop
rem setup screen
`hide mouse
sync on
sync rate 0
red=rgb(255,0,0)
rem boxlocate (x1,y1,x2,y2)
sw=screen width()-1
sh=screen height()-1
DIM bxl(sw,sh,sw)
health=100
hitx=rnd(screen width())
hity=rnd(screen height())
rem (Hit-me's.)
rem These should be hit.
ink rgb(255,255,255),0
dim hitmes(screen width()+100,screen height()+100)
rem (/)
gosub Make_images
input "please enter difficulty (1=easy, 10=hard)-->",difficulty:if difficulty>10 then difficulty=10
gosub Target_Locate
DO
  For angle= 0 to 360 step 6
    ink rgb(red,255,255),0
    spiral(mousex(),mousey(),angle,50,8)
    box hitx-20,hity-20,hitx+20,hity+20
    set cursor 0,0
    ink rgb(255,0,0),0:printc "Health : ":ink rgb(0,0,255),0:printc health:ink rgb(255,0,0),0:printc "    Score : ":ink rgb(0,0,255),0:print score
    x=mousex()+cos(angle+8*51)*50:y=mousey()+sin(angle+8*51)*50
    gosub targets
    ink rgb(255,255,255),0
    newx=mousex()
    newy=mousey()
    if mouseclick()=1
       for checkx=newx-22 to newx-4
         for checky=newy-22 to newy-4
           if hitmes(checkx,checky)=1 then hitmes(checkx,checky)=0:inc score,1
         next checky
        next checkx
     for fire=1 to 200
       inc x,cos(angle+140)*6
       inc y,sin(angle+140)*6
       dot x,y
       if x>hitx-20 and x<hitx+20 and y>hity-20 and y<hity+20:dec health,10:exit
       endif
     next fire
     if health<0 then gosub death
    endif
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------
death:
cls
repeat:until scancode()=0
print "You have failed.  Score : "+str$(score)
wait key
end
return

targets:
if difficulty>2
 for make=1 to 3
   hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
 next make
endif
if difficulty>0
    hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
endif

for scanx=0 to screen width()
  for scany=0 to screen height()
    if hitmes(scanx,scany)=1 then paste image 1,scanx+7,scany+7:inc total,1
  next scany
next scanx
hitcount=total
total=0
return

Make_images:
SBFillCircle(10,10,7)
get image 1,0,0,18,18
cls
return

Target_Locate:
for targets=1 to difficulty*10
  hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
next targets
return

Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
   next r
Endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

+ Code Snippet

REM ************************************************
REM  Spiral Game by Irojo - DBC Challenge Thread
REM ************************************************








rem Dont have it make a hitme every loop
rem setup screen
`hide mouse
sync on
sync rate 0
red=rgb(255,0,0)
rem boxlocate (x1,y1,x2,y2)
sw=screen width()-1
sh=screen height()-1
DIM bxl(sw,sh,sw)
health=100
hitx=rnd(screen width())
hity=rnd(screen height())
rem (Hit-me's.)
rem These should be hit.
ink rgb(255,255,255),0
dim hitmes(screen width()+100,screen height()+100)
rem (/)
gosub Make_images
input "please enter difficulty (1=easy, 10=hard)-->",difficulty:if difficulty>10 then difficulty=10
gosub Target_Locate
DO
  For angle= 0 to 360 step 6
    ink rgb(red,255,255),0
    spiral(mousex(),mousey(),angle,50,8)
    box hitx-20,hity-20,hitx+20,hity+20
    set cursor 0,0
    ink rgb(255,0,0),0:printc "Health : ":ink rgb(0,0,255),0:printc health:ink rgb(255,0,0),0:printc "    Score : ":ink rgb(0,0,255),0:print score
    x=mousex()+cos(angle+8*51)*50:y=mousey()+sin(angle+8*51)*50
    gosub targets
    ink rgb(255,255,255),0
    newx=mousex()
    newy=mousey()
    if mouseclick()=1
       for checkx=newx-22 to newx-4
         for checky=newy-22 to newy-4
           if hitmes(checkx,checky)=1 then hitmes(checkx,checky)=0:inc score,1
         next checky
        next checkx
     for fire=1 to 200
       inc x,cos(angle+140)*6
       inc y,sin(angle+140)*6
       dot x,y
       if x>hitx-20 and x<hitx+20 and y>hity-20 and y<hity+20:dec health,10:exit
       endif
     next fire
     if health<0 then gosub death
    endif
    sync:cls
  Next angle
LOOP

End

rem subroutines ---------------------------------------------------------------------------------------------------
death:
cls
repeat:until scancode()=0
print "You have failed.  Score : "+str$(score)
wait key
end
return

targets:
if difficulty>2
 for make=1 to 3
   hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
 next make
endif
if difficulty>0
    hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
endif

for scanx=0 to screen width()
  for scany=0 to screen height()
    if hitmes(scanx,scany)=1 then paste image 1,scanx+7,scany+7:inc total,1
  next scany
next scanx
hitcount=total
total=0
return

Make_images:
SBFillCircle(10,10,7)
get image 1,0,0,18,18
cls
return

Target_Locate:
for targets=1 to difficulty*10
  hitmes(rnd(screen width()-100)+50,rnd(screen height()-100)+50=1
next targets
return


Function spiral(x,y,angle,radius,coil)
  xx=x
  yy=y
  a= angle
  for r= 0 to radius
     inc a,coil
     oldx= xx
     oldy= yy
     xx= x + cos(a) * r
     yy= y + sin(a) * r
     line oldx,oldy,xx,yy
   next r
Endfunction

function SBFillCircle( CX, CY, R )
   sR = R*R
   for i = 1 to R
      h = sqrt( sR - i*i )
      box CX - i, CY - h, CX + i, CY + h
   next i
endfunction

Obese, I loved the fossil effect and the other weird effect. I could just stare at that for hours.

Irojo, your game was pretty fun once you get the hang of it and has quite a lot of inspiration.

The runner up iiiiiiiiss :

+ Code Snippet

Obese87

And the WINNER iiiiiiiiiiiiiiiiisssss :

+ Code Snippet

Irojo!! Congrats, Irojo!

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 7th Dec 2008 22:12

Link

Congrats Irojo! This time I WILL be able to enter (probably won't be able to work on it for a week, but then school is over).

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Dec 2008 00:40

Link

Thanks everybody!!!

That puts me tied with Obese.

Heehee.

I'll be putting up the new challenge as soon as I can think of one.

It'll be cool to see you competing BN2.

I download memory.

Back to top

Profile PM Email Website

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 8th Dec 2008 02:30

Link

Congrats Irojo, your spiral game was pretty cool.

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 8th Dec 2008 02:56

Link

Quote: "Or is there something wrong with the challenge?"

Here's a spiral, make something? I think challenges should be a little more focused. Agreed it did require a lot of creativity. My problem was what I mentioned earlier about finding equal points along the spiral. I tried Obese's code but it couldn't help me.

If anyone is curious, here's the game I was trying to make:
http://www.tbs.com/stories/storywide/0,,97599,00.html

DB Code Corner

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 8th Dec 2008 06:22

Link

Thanks Ashingda.

Ahhh Phaelax.... the Zuma style game. I wish I had thought of that. Not that I could have coded it.

Coming up with a challenge was difficult, (I literally have been thinking for hours, we've done 'em all

) but hopefully this one will attract some competition.

--
New Challenge!

Challenge
Balancing Skills
Create a game that requires the user to 'balance' this can be as simple as the screen scrolling, and the user staying on the line, to the user keeping a character from falling of their unicycle.
Points go to:
- Creativity
- Scoring System (Put this as your last priority)
- Entertainment (is it fun, or boring?)
----

Deadline - December 21st Midnight

Good luck guys!

I download memory.

Back to top

Profile PM Email Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 8th Dec 2008 08:01

Link

Hmmmm...this could be fun. Will get to working on it now.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 8th Dec 2008 16:34

Link

I have an idea for it

Back to top

Profile PM Email

Phaelax

DBPro Master

22

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Dec 2008 20:54

Link

I changed the logo of the website a little bit, hope bamber doesn't mind. Also, I added a search feature for the codebase with a few searchable easter eggs for you "classic" users.

DB Code Corner

Back to top

Profile PM Email Website

Irojo

16

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 12th Dec 2008 22:53

Link

Cool Phaelax!

Mind updating the Rankings? (heeheehee)

I download memory.

Back to top

Profile PM Email Website

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 13th Dec 2008 23:02 Edited at: 14th Dec 2008 00:47

Link

Here is my entry:

+ Code Snippet

Go download the new version below! :P

Beer Balancing!

My score is 3521. Who can beat that?

Executable attached for those without DBC...

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 13th Dec 2008 23:35

Link

@TheComet
WOW!!
Fun and Funny!

Good Job.

Enjoy your day.

Back to top

Profile PM

TheComet

17

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 14th Dec 2008 00:35 Edited at: 14th Dec 2008 00:47

Link

I made it much harder now, and added a small new feature to it. After playing, it will say how many beers you eared in the last game!

I earned 3 Beers, who can beet me?

You also have levels, and I got to level 3. Each level you get higher, the bigger the chance is that a beer will tip.

code:

rem DBC Challenge
rem Ballancing Challenge
rem by TheComet

rem setup screen
set display mode 1024,768,32
randomize timer()
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem dimensions
dim beer(7)

rem generate everything
gosub _create_images
gosub _create_objects

rem menu
menu:
gosub _menu

rem main loop
dx=-59
level=0
tx1=(screen width()/4)-(screen width()/8)
tx2=(screen width()/4)+(screen width()/8)
tx3=(screen width()/4)+((screen width()/8)*3)
tx4=(screen width()/4)+((screen width()/8)*5)
time=0
loser=0
level=0
do

rem time
oldtime=time/1000
inc time
if time<80 then for t=1000 to 1003:rotate object t,0,0,0:next t
if time/1000<>oldtime then inc level

rem alarm
ink rgb(0,0,255),0
line 0,40,screen width(),40
line screen width()/4,0,screen width()/4,40
line screen width()/2,0,screen width()/2,40
line screen width()/4*3,0,screen width()/4*3,40
if object angle z(1000)>1 and object angle z(1000)<180 or object angle z(1000)<359 and object angle z(1000)>180 then ink rgb(255,0,0),0:center text tx1,10,"Alarm!" else ink rgb(0,255,0),0:center text tx1,10,"OK"
if object angle z(1001)>1 and object angle z(1001)<180 or object angle z(1001)<359 and object angle z(1001)>180 then ink rgb(255,0,0),0:center text tx2,10,"Alarm!" else ink rgb(0,255,0),0:center text tx2,10,"OK"
if object angle z(1002)>1 and object angle z(1002)<180 or object angle z(1002)<359 and object angle z(1002)>180 then ink rgb(255,0,0),0:center text tx3,10,"Alarm!" else ink rgb(0,255,0),0:center text tx3,10,"OK"
if object angle z(1003)>1 and object angle z(1003)<180 or object angle z(1003)<359 and object angle z(1003)>180 then ink rgb(255,0,0),0:center text tx4,10,"Alarm!" else ink rgb(0,255,0),0:center text tx4,10,"OK"
text 20,50,"Level : "+str$(level)+"/10"

rem move
if leftkey()=1 and pushed=0
   if dx=-19 then dx=-59
   if dx=19 then dx=-19
   if dx=59 then dx=19
   pushed=1
endif
if rightkey()=1 and pushed=0
   if dx=19 then dx=59
   if dx=-19 then dx=19
   if dx=-59 then dx=-19
   pushed=1
endif
if rightkey()=0 and leftkey()=0 then pushed=0

rem control camera
cx#=curvevalue(dx,cx#,20)
position camera cx#,5,-30

rem tip boards back and forth
for t=1000 to 1003

comon=(10-level)*100
   if object angle z(t)<1 or object angle z(t)>359 and rnd(comon)=5:if rnd(1)=0:zrotate object t,358:else:zrotate object t,2:endif:endif
   if object angle z(t)>1 and object angle z(t)<80 then zrotate object t,wrapvalue(object angle z(t)+0.1)
   if object angle z(t)<359 and object angle z(t)>280 then zrotate object t,wrapvalue(object angle z(t)-0.1)

rem position beers
   position object beer((t-1000)*2),limb position x(t,1),limb position y(t,1),-9:zrotate object beer((t-1000)*2),object angle z(t)
   position object beer(((t-1000)*2)+1),limb position x(t,2),limb position y(t,2),-9:zrotate object beer(((t-1000)*2)+1),object angle z(t)

rem lose
   if object angle z(t)>79 and object angle z(t)<180 then loser=1
   if object angle z(t)<281 and object angle z(t)>180 then loser=1

next t

rem rotate them back correctly
if keystate(30)=1
   if dx=-59 then zrotate object 1000,wrapvalue(object angle z(1000)+0.4)
   if dx=-19 then zrotate object 1001,wrapvalue(object angle z(1001)+0.4)
   if dx=19 then zrotate object 1002,wrapvalue(object angle z(1002)+0.4)
   if dx=59 then zrotate object 1003,wrapvalue(object angle z(1003)+0.4)
endif
if keystate(32)=1
   if dx=-59 then zrotate object 1000,wrapvalue(object angle z(1000)-0.4)
   if dx=-19 then zrotate object 1001,wrapvalue(object angle z(1001)-0.4)
   if dx=19 then zrotate object 1002,wrapvalue(object angle z(1002)-0.4)
   if dx=59 then zrotate object 1003,wrapvalue(object angle z(1003)-0.4)
endif

rem lose
if loser=1

for x=1 to 180

rem beer falls to ground
      for t=1000 to 1003
         if object angle z(t)>79 and object angle z(t)<180 or object angle z(t)<281 and object angle z(t)>180
            if object position y(beer((t-1000)*2))>-4.5 then position object beer((t-1000)*2),object position x(beer((t-1000)*2)),object position y(beer((t-1000)*2))-0.1,-9
            if object position y(beer(((t-1000)*2)+1))>-4.5 then position object beer(((t-1000)*2)+1),object position x(beer(((t-1000)*2)+1)),object position y(beer(((t-1000)*2)+1))-0.1,-9
            zrotate object beer((t-1000)*2),curveangle(90,object angle z(beer((t-1000)*2)),30)
            zrotate object beer(((t-1000)*2)+1),curveangle(90,object angle z(beer(((t-1000)*2)+1)),30)

rem position camera
            set camera to follow object position x(t),0,0,0,50,5,60,0
         endif
      next t

sync
   next x

time1=0
   repeat
      set camera to follow 0,0,0,0,120,20,20,0
      inc time1
      center text screen width()/2,50,"LOOSER! Press any key to return to menu"
      center text screen width()/2,70,"Your Score : "+str$(time)
      sync
   until scancode()>0 and time1>100

goto menu

endif

rem refresh screen
sync

rem end of main loop
loop

_menu:

rem make beers according to score
beers=time/1000
o=5000
for x=1 to beers
   limb=0
   inc o
   make object plain o,0,0
   inc o
   restore beer
   read obj
   for t=1 to obj
      read x1
      read y1
      read z1
      read x2
      read y2
      read z2
      read x3
      read y3
      read z3
      read r
      read g
      read b
      inc limb
      make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
      make mesh from object 1,o
      delete object o
      add limb o-1,limb,1
      delete mesh 1
      color limb o-1,limb,rgb(r,g,b)
   next t
   scale object o-1,5,5,5
   position object o-1,-28+((x-1)*4),-20,40
   lock object on o-1
next x

show mouse
set text size 15
do

rem control camera
inc s
s#=sin(s)*45
set camera to follow 0,0,0,wrapvalue(s#),120,10,40,0

rem sprite logo
sprite 1,screen width()/2-320,40,1

rem control menu
ink rgb(255,255,255),0
text screen width()/2-320,280,"Controls : Use Left and Right Arrow Keys to Switch between boards."
text screen width()/2-320,300,"Use <a> and <d> to re-balance the boards. Don`t let the beer fall off!"
text screen width()/2-320,320,"How many beers can you earn?Have Fun! TheComet"
center text screen width()/2,350,"Play"
center text screen width()/2,370,"Exit"
if mousey()>340 and mousey()<360 then ink rgb(0,255,0),0:center text screen width()/2,350,"Play":if mouseclick()=1 then exit
if mousey()>360 and mousey()<380 then ink rgb(0,255,0),0:center text screen width()/2,370,"Exit":if mouseclick()=1 then end

rem last score
text 20,screen height()-200,"Your Last Score : "+str$(time)
text 20,screen height()-180,"You Have Earned "+str$(beers)+" Beers!"
for t=1 to beers
   obj=5000+((t*2)-1)
   yrotate object obj,wrapvalue(object angle y(obj)+2)
next t

sync
loop
rotate camera 0,0,0
hide mouse

delete sprite 1

rem delete beers
for t=1 to beers
   obj=5000+((t*2)-1)
   delete object obj
next t

return

_create_images:

rem balancing logo
create bitmap 1,640,100
ink 0,0
box 0,0,319,99
ink rgb(255,120,10),0
set text size 60
set text font "arial"
center text 320,10,"Beer Balancing"
get image 1,0,0,640,100
delete bitmap 1

return

_create_objects:

rem make level
o=0
restore level
read obj
for t=1 to obj
   read x1
   read y1
   read z1
   read x2
   read y2
   read z2
   read x3
   read y3
   read z3
   read r
   read g
   read b
   inc o
   make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
   color object o,rgb(r,g,b)
next t

rem make 8 beers
for x=0 to 7
   limb=0
   inc o
   make object plain o,0,0
   beer(x)=o
   inc o
   restore beer
   read obj
   for t=1 to obj
      read x1
      read y1
      read z1
      read x2
      read y2
      read z2
      read x3
      read y3
      read z3
      read r
      read g
      read b
      inc limb
      make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
      make mesh from object 1,o
      delete object o
      add limb o-1,limb,1
      delete mesh 1
      color limb o-1,limb,rgb(r,g,b)
   next t

scale object o-1,5,5,5
next x

rem create 4 boards
for t=1000 to 1003
   make object box t,12,1,2
   color object t,rgb(40,0,0)
next t

rem make two dummy objects at each end of board
for t=1000 to 1003
   make object plain 1004,0,0
   make mesh from object 1,1004
   delete object 1004
   make object plain 1004,0,0
   make mesh from object 2,1004
   delete object 1004
   add limb t,1,1
   add limb t,2,2
   offset limb t,1,-5,0.5,0
   offset limb t,2,5,0.5,0
   delete mesh 1
   delete mesh 2
next t

rem position boards
position object 1000,-59,7,-9
position object 1001,-19,7,-9
position object 1002,19,7,-9
position object 1003,59,7,-9

return

rem Data Statements ------------------------------

level:
data 68,-60,-5,5,-60,-5,-5,-60,5,-5,50,0,0,-60,-5,5,-60,5,5,-60,5,-5,50,0,0,-60,5,5,-60,5,-5
data 60,5,-5,80,0,0,-60,5,5,60,5,-5,60,5,5,80,0,0,-60,-5,-5,-60,5,-5,60,5,-5,100,0,0,-60,-5
data -5,60,-5,-5,60,5,-5,100,0,0,60,-5,5,60,-5,-5,60,5,-5,110,0,0,60,-5,5,60,5,5,60,5,-5,110
data 0,0,-60,5,-5,-60,3,-5,-60,3,-10,120,0,0,-60,5,-5,-60,5,-10,-60,3,-10,120,0,0,-60,3,-5,-60
data 3,-10,-58,3,-10,120,0,0,-60,3,-5,-58,3,-5,-58,3,-10,120,0,0,-58,3,-5,-58,5,-5,-58,5,-10
data 160,0,0,-58,3,-5,-58,3,-10,-58,5,-10,160,0,0,-60,5,-10,-60,3,-10,-58,3,-10,150,0,0,-60,5
data -10,-58,5,-10,-58,3,-10,150,0,0,-60,5,-5,-60,5,-10,-59,7,-10,130,0,0,-60,5,-5,-59,7,-5
data -59,7,-10,130,0,0,-58,5,-5,-58,5,-10,-59,7,-10,160,0,0,-58,5,-5,-59,7,-5,-59,7,-10,160,0
data 0,-60,5,-10,-59,7,-10,-58,5,-10,170,0,0,-20,5,-5,-20,3,-5,-20,3,-10,120,0,0,-20,5,-5,-20
data 5,-10,-20,3,-10,120,0,0,-20,3,-5,-20,3,-10,-18,3,-10,120,0,0,-20,3,-5,-18,3,-5,-18,3,-10
data 120,0,0,-18,3,-5,-18,5,-5,-18,5,-10,160,0,0,-18,3,-5,-18,3,-10,-18,5,-10,160,0,0,-20,5,-10
data -20,3,-10,-18,3,-10,150,0,0,-20,5,-10,-18,5,-10,-18,3,-10,150,0,0,-20,5,-5,-20,5,-10,-19,7
data -10,130,0,0,-20,5,-5,-19,7,-5,-19,7,-10,130,0,0,-18,5,-5,-18,5,-10,-19,7,-10,160,0,0,-18,5
data -5,-19,7,-5,-19,7,-10,160,0,0,-20,5,-10,-19,7,-10,-18,5,-10,170,0,0,20,5,-5,20,3,-5,20,3
data -10,120,0,0,20,5,-5,20,5,-10,20,3,-10,120,0,0,20,3,-5,20,3,-10,18,3,-10,120,0,0,20,3,-5,18
data 3,-5,18,3,-10,120,0,0,18,3,-5,18,5,-5,18,5,-10,160,0,0,18,3,-5,18,3,-10,18,5,-10,160,0,0
data 20,5,-10,20,3,-10,18,3,-10,150,0,0,20,5,-10,18,5,-10,18,3,-10,150,0,0,20,5,-5,20,5,-10,19
data 7,-10,130,0,0,20,5,-5,19,7,-5,19,7,-10,130,0,0,18,5,-5,18,5,-10,19,7,-10,160,0,0,18,5
data -5,19,7,-5,19,7,-10,160,0,0,20,5,-10,19,7,-10,18,5,-10,170,0,0,60,5,-5,60,3,-5,60,3
data -10,120,0,0,60,5,-5,60,5,-10,60,3,-10,120,0,0,60,3,-5,60,3,-10,58,3,-10,120,0,0,60
data 3,-5,58,3,-5,58,3,-10,120,0,0,58,3,-5,58,5,-5,58,5,-10,160,0,0,58,3,-5,58,3,-10,58
data 5,-10,160,0,0,60,5,-10,60,3,-10,58,3,-10,150,0,0,60,5,-10,58,5,-10,58,3,-10,150,0,0
data 60,5,-5,60,5,-10,59,7,-10,130,0,0,60,5,-5,59,7,-5,59,7,-10,130,0,0,58,5,-5,58,5
data -10,59,7,-10,160,0,0,58,5,-5,59,7,-5,59,7,-10,160,0,0,60,5,-10,59,7,-10,58,5,-10
data 170,0,0,-200,-5,-200,200,-5,-200,200,-5,200,0,0,50,-200,-5,-200,-200,-5,200,200,-5,200
data 0,0,50,-200,-5,-200,-200,-5,200,-200,200,200,0,0,70,-200,-5,-200,-200,200,-200,-200
data 200,200,0,0,70,200,-5,-200,200,-5,200,200,200,200,0,0,70,200,-5,-200,200,200,-200,200
data 200,200,0,0,70,-200,-5,200,200,-5,200,200,200,200,0,0,30,-200,-5,200,-200,200,200,200,200,200,0,0,30

beer:
data 36,-20,0,0,0,0,20,0,10,0,200,200,200,0,0,20,20,0,0,0,10,0,190,190,190,20,0,0,0,0,-20
data 0,10,0,200,200,200,0,0,-20,-20,0,0,0,10,0,210,210,210,-2,0,-2,2,0,-2,2,20,-2,190,190
data 190,-2,0,-2,-2,20,-2,2,20,-2,190,190,190,-2,0,-2,-2,0,2,-2,20,2,200,200,200,-2,0,-2
data -2,20,-2,-2,20,2,200,200,200,-2,0,2,2,0,2,2,20,2,210,210,210,-2,0,2,-2,20,2,2,20,2
data 210,210,210,2,0,-2,2,0,2,2,20,2,200,200,200,2,0,-2,2,20,-2,2,20,2,200,200,200,-2,20
data -2,2,20,-2,8,40,-8,239,139,3,-2,20,-2,-8,40,-8,8,40,-8,239,139,3,-2,20,-2,-2,20,2,-8
data 40,8,249,149,3,-2,20,-2,-8,40,-8,-8,40,8,249,149,3,-2,20,2,2,20,2,8,40,8,239,139,3
data -2,20,2,-8,40,8,8,40,8,239,139,3,2,20,-2,2,20,2,8,40,8,229,129,3,2,20,-2,8,40,-8,8
data 40,8,229,129,3,-8,40,-8,8,40,-8,10,60,-10,239,139,3,-8,40,-8,-10,60,-10,10,60,-10,239,139,3,-8
data 40,-8,-8,40,8,-10,60,10,249,149,3,-8,40,-8,-10,60,-10,-10,60,10,249,149,3,-8,40,8,8,40,8,10,60,10
data 239,139,3,-8,40,8,-10,60,10,10,60,10,239,139,3,8,40,-8,8,40,8,10,60,10,229,129,3,8,40,-8
data 10,60,-10,10,60,10,229,129,3,-10,60,-10,10,60,-10,9,70,-9,190,190,190,-10,60,-10,-9,70,-9,9,70,-9,190,190
data 190,-10,60,-10,-10,60,10,-9,70,9,200,200,200,-10,60,-10,-9,70,-9,-9,70,9,200,200,200,-10,60,10,10
data 60,10,9,70,9,210,210,210,-10,60,10,-9,70,9,9,70,9,210,210,210,10,60,-10,10,60,10,9,70,9,200,200
data 200,10,60,-10,9,70,-9,9,70,9,200,200,200

+ Code Snippet

rem DBC Challenge
rem Ballancing Challenge
rem by TheComet

rem setup screen
set display mode 1024,768,32
randomize timer()
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse

rem dimensions
dim beer(7)

rem generate everything
gosub _create_images
gosub _create_objects

rem menu
menu:
gosub _menu

rem main loop
dx=-59
level=0
tx1=(screen width()/4)-(screen width()/8)
tx2=(screen width()/4)+(screen width()/8)
tx3=(screen width()/4)+((screen width()/8)*3)
tx4=(screen width()/4)+((screen width()/8)*5)
time=0
loser=0
level=0
do

rem time
oldtime=time/1000
inc time
if time<80 then for t=1000 to 1003:rotate object t,0,0,0:next t
if time/1000<>oldtime then inc level

rem alarm
ink rgb(0,0,255),0
line 0,40,screen width(),40
line screen width()/4,0,screen width()/4,40
line screen width()/2,0,screen width()/2,40
line screen width()/4*3,0,screen width()/4*3,40
if object angle z(1000)>1 and object angle z(1000)<180 or object angle z(1000)<359 and object angle z(1000)>180 then ink rgb(255,0,0),0:center text tx1,10,"Alarm!" else ink rgb(0,255,0),0:center text tx1,10,"OK"
if object angle z(1001)>1 and object angle z(1001)<180 or object angle z(1001)<359 and object angle z(1001)>180 then ink rgb(255,0,0),0:center text tx2,10,"Alarm!" else ink rgb(0,255,0),0:center text tx2,10,"OK"
if object angle z(1002)>1 and object angle z(1002)<180 or object angle z(1002)<359 and object angle z(1002)>180 then ink rgb(255,0,0),0:center text tx3,10,"Alarm!" else ink rgb(0,255,0),0:center text tx3,10,"OK"
if object angle z(1003)>1 and object angle z(1003)<180 or object angle z(1003)<359 and object angle z(1003)>180 then ink rgb(255,0,0),0:center text tx4,10,"Alarm!" else ink rgb(0,255,0),0:center text tx4,10,"OK"
text 20,50,"Level : "+str$(level)+"/10"

rem move
if leftkey()=1 and pushed=0
   if dx=-19 then dx=-59
   if dx=19 then dx=-19
   if dx=59 then dx=19
   pushed=1
endif
if rightkey()=1 and pushed=0
   if dx=19 then dx=59
   if dx=-19 then dx=19
   if dx=-59 then dx=-19
   pushed=1
endif
if rightkey()=0 and leftkey()=0 then pushed=0

rem control camera
cx#=curvevalue(dx,cx#,20)
position camera cx#,5,-30

rem tip boards back and forth
for t=1000 to 1003

   comon=(10-level)*100
   if object angle z(t)<1 or object angle z(t)>359 and rnd(comon)=5:if rnd(1)=0:zrotate object t,358:else:zrotate object t,2:endif:endif
   if object angle z(t)>1 and object angle z(t)<80 then zrotate object t,wrapvalue(object angle z(t)+0.1)
   if object angle z(t)<359 and object angle z(t)>280 then zrotate object t,wrapvalue(object angle z(t)-0.1)

   rem position beers
   position object beer((t-1000)*2),limb position x(t,1),limb position y(t,1),-9:zrotate object beer((t-1000)*2),object angle z(t)
   position object beer(((t-1000)*2)+1),limb position x(t,2),limb position y(t,2),-9:zrotate object beer(((t-1000)*2)+1),object angle z(t)

   rem lose
   if object angle z(t)>79 and object angle z(t)<180 then loser=1
   if object angle z(t)<281 and object angle z(t)>180 then loser=1

next t

rem rotate them back correctly
if keystate(30)=1
   if dx=-59 then zrotate object 1000,wrapvalue(object angle z(1000)+0.4)
   if dx=-19 then zrotate object 1001,wrapvalue(object angle z(1001)+0.4)
   if dx=19 then zrotate object 1002,wrapvalue(object angle z(1002)+0.4)
   if dx=59 then zrotate object 1003,wrapvalue(object angle z(1003)+0.4)
endif
if keystate(32)=1
   if dx=-59 then zrotate object 1000,wrapvalue(object angle z(1000)-0.4)
   if dx=-19 then zrotate object 1001,wrapvalue(object angle z(1001)-0.4)
   if dx=19 then zrotate object 1002,wrapvalue(object angle z(1002)-0.4)
   if dx=59 then zrotate object 1003,wrapvalue(object angle z(1003)-0.4)
endif

rem lose
if loser=1

   for x=1 to 180

      rem beer falls to ground
      for t=1000 to 1003
         if object angle z(t)>79 and object angle z(t)<180 or object angle z(t)<281 and object angle z(t)>180
            if object position y(beer((t-1000)*2))>-4.5 then position object beer((t-1000)*2),object position x(beer((t-1000)*2)),object position y(beer((t-1000)*2))-0.1,-9
            if object position y(beer(((t-1000)*2)+1))>-4.5 then position object beer(((t-1000)*2)+1),object position x(beer(((t-1000)*2)+1)),object position y(beer(((t-1000)*2)+1))-0.1,-9
            zrotate object beer((t-1000)*2),curveangle(90,object angle z(beer((t-1000)*2)),30)
            zrotate object beer(((t-1000)*2)+1),curveangle(90,object angle z(beer(((t-1000)*2)+1)),30)

            rem position camera
            set camera to follow object position x(t),0,0,0,50,5,60,0
         endif
      next t

      sync
   next x

   time1=0
   repeat
      set camera to follow 0,0,0,0,120,20,20,0
      inc time1
      center text screen width()/2,50,"LOOSER! Press any key to return to menu"
      center text screen width()/2,70,"Your Score : "+str$(time)
      sync
   until scancode()>0 and time1>100

   goto menu

endif

rem refresh screen
sync

rem end of main loop
loop

_menu:

rem make beers according to score
beers=time/1000
o=5000
for x=1 to beers
   limb=0
   inc o
   make object plain o,0,0
   inc o
   restore beer
   read obj
   for t=1 to obj
      read x1
      read y1
      read z1
      read x2
      read y2
      read z2
      read x3
      read y3
      read z3
      read r
      read g
      read b
      inc limb
      make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
      make mesh from object 1,o
      delete object o
      add limb o-1,limb,1
      delete mesh 1
      color limb o-1,limb,rgb(r,g,b)
   next t
   scale object o-1,5,5,5
   position object o-1,-28+((x-1)*4),-20,40
   lock object on o-1
next x

show mouse
set text size 15
do

rem control camera
inc s
s#=sin(s)*45
set camera to follow 0,0,0,wrapvalue(s#),120,10,40,0

rem sprite logo
sprite 1,screen width()/2-320,40,1

rem control menu
ink rgb(255,255,255),0
text screen width()/2-320,280,"Controls : Use Left and Right Arrow Keys to Switch between boards."
text screen width()/2-320,300,"Use <a> and <d> to re-balance the boards. Don`t let the beer fall off!"
text screen width()/2-320,320,"How many beers can you earn?Have Fun! TheComet"
center text screen width()/2,350,"Play"
center text screen width()/2,370,"Exit"
if mousey()>340 and mousey()<360 then ink rgb(0,255,0),0:center text screen width()/2,350,"Play":if mouseclick()=1 then exit
if mousey()>360 and mousey()<380 then ink rgb(0,255,0),0:center text screen width()/2,370,"Exit":if mouseclick()=1 then end

rem last score
text 20,screen height()-200,"Your Last Score : "+str$(time)
text 20,screen height()-180,"You Have Earned "+str$(beers)+" Beers!"
for t=1 to beers
   obj=5000+((t*2)-1)
   yrotate object obj,wrapvalue(object angle y(obj)+2)
next t

sync
loop
rotate camera 0,0,0
hide mouse

delete sprite 1

rem delete beers
for t=1 to beers
   obj=5000+((t*2)-1)
   delete object obj
next t

return

_create_images:

rem balancing logo
create bitmap 1,640,100
ink 0,0
box 0,0,319,99
ink rgb(255,120,10),0
set text size 60
set text font "arial"
center text 320,10,"Beer Balancing"
get image 1,0,0,640,100
delete bitmap 1

return

_create_objects:

rem make level
o=0
restore level
read obj
for t=1 to obj
   read x1
   read y1
   read z1
   read x2
   read y2
   read z2
   read x3
   read y3
   read z3
   read r
   read g
   read b
   inc o
   make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
   color object o,rgb(r,g,b)
next t

rem make 8 beers
for x=0 to 7
   limb=0
   inc o
   make object plain o,0,0
   beer(x)=o
   inc o
   restore beer
   read obj
   for t=1 to obj
      read x1
      read y1
      read z1
      read x2
      read y2
      read z2
      read x3
      read y3
      read z3
      read r
      read g
      read b
      inc limb
      make object triangle o,x1,y1,z1,x2,y2,z2,x3,y3,z3
      make mesh from object 1,o
      delete object o
      add limb o-1,limb,1
      delete mesh 1
      color limb o-1,limb,rgb(r,g,b)
   next t

   scale object o-1,5,5,5
next x

rem create 4 boards
for t=1000 to 1003
   make object box t,12,1,2
   color object t,rgb(40,0,0)
next t

rem make two dummy objects at each end of board
for t=1000 to 1003
   make object plain 1004,0,0
   make mesh from object 1,1004
   delete object 1004
   make object plain 1004,0,0
   make mesh from object 2,1004
   delete object 1004
   add limb t,1,1
   add limb t,2,2
   offset limb t,1,-5,0.5,0
   offset limb t,2,5,0.5,0
   delete mesh 1
   delete mesh 2
next t

rem position boards
position object 1000,-59,7,-9
position object 1001,-19,7,-9
position object 1002,19,7,-9
position object 1003,59,7,-9

return


rem Data Statements ------------------------------

level:
data 68,-60,-5,5,-60,-5,-5,-60,5,-5,50,0,0,-60,-5,5,-60,5,5,-60,5,-5,50,0,0,-60,5,5,-60,5,-5
data 60,5,-5,80,0,0,-60,5,5,60,5,-5,60,5,5,80,0,0,-60,-5,-5,-60,5,-5,60,5,-5,100,0,0,-60,-5
data -5,60,-5,-5,60,5,-5,100,0,0,60,-5,5,60,-5,-5,60,5,-5,110,0,0,60,-5,5,60,5,5,60,5,-5,110
data 0,0,-60,5,-5,-60,3,-5,-60,3,-10,120,0,0,-60,5,-5,-60,5,-10,-60,3,-10,120,0,0,-60,3,-5,-60
data 3,-10,-58,3,-10,120,0,0,-60,3,-5,-58,3,-5,-58,3,-10,120,0,0,-58,3,-5,-58,5,-5,-58,5,-10
data 160,0,0,-58,3,-5,-58,3,-10,-58,5,-10,160,0,0,-60,5,-10,-60,3,-10,-58,3,-10,150,0,0,-60,5
data -10,-58,5,-10,-58,3,-10,150,0,0,-60,5,-5,-60,5,-10,-59,7,-10,130,0,0,-60,5,-5,-59,7,-5
data -59,7,-10,130,0,0,-58,5,-5,-58,5,-10,-59,7,-10,160,0,0,-58,5,-5,-59,7,-5,-59,7,-10,160,0
data 0,-60,5,-10,-59,7,-10,-58,5,-10,170,0,0,-20,5,-5,-20,3,-5,-20,3,-10,120,0,0,-20,5,-5,-20
data 5,-10,-20,3,-10,120,0,0,-20,3,-5,-20,3,-10,-18,3,-10,120,0,0,-20,3,-5,-18,3,-5,-18,3,-10
data 120,0,0,-18,3,-5,-18,5,-5,-18,5,-10,160,0,0,-18,3,-5,-18,3,-10,-18,5,-10,160,0,0,-20,5,-10
data -20,3,-10,-18,3,-10,150,0,0,-20,5,-10,-18,5,-10,-18,3,-10,150,0,0,-20,5,-5,-20,5,-10,-19,7
data -10,130,0,0,-20,5,-5,-19,7,-5,-19,7,-10,130,0,0,-18,5,-5,-18,5,-10,-19,7,-10,160,0,0,-18,5
data -5,-19,7,-5,-19,7,-10,160,0,0,-20,5,-10,-19,7,-10,-18,5,-10,170,0,0,20,5,-5,20,3,-5,20,3
data -10,120,0,0,20,5,-5,20,5,-10,20,3,-10,120,0,0,20,3,-5,20,3,-10,18,3,-10,120,0,0,20,3,-5,18
data 3,-5,18,3,-10,120,0,0,18,3,-5,18,5,-5,18,5,-10,160,0,0,18,3,-5,18,3,-10,18,5,-10,160,0,0
data 20,5,-10,20,3,-10,18,3,-10,150,0,0,20,5,-10,18,5,-10,18,3,-10,150,0,0,20,5,-5,20,5,-10,19
data 7,-10,130,0,0,20,5,-5,19,7,-5,19,7,-10,130,0,0,18,5,-5,18,5,-10,19,7,-10,160,0,0,18,5
data -5,19,7,-5,19,7,-10,160,0,0,20,5,-10,19,7,-10,18,5,-10,170,0,0,60,5,-5,60,3,-5,60,3
data -10,120,0,0,60,5,-5,60,5,-10,60,3,-10,120,0,0,60,3,-5,60,3,-10,58,3,-10,120,0,0,60
data 3,-5,58,3,-5,58,3,-10,120,0,0,58,3,-5,58,5,-5,58,5,-10,160,0,0,58,3,-5,58,3,-10,58
data 5,-10,160,0,0,60,5,-10,60,3,-10,58,3,-10,150,0,0,60,5,-10,58,5,-10,58,3,-10,150,0,0
data 60,5,-5,60,5,-10,59,7,-10,130,0,0,60,5,-5,59,7,-5,59,7,-10,130,0,0,58,5,-5,58,5
data -10,59,7,-10,160,0,0,58,5,-5,59,7,-5,59,7,-10,160,0,0,60,5,-10,59,7,-10,58,5,-10
data 170,0,0,-200,-5,-200,200,-5,-200,200,-5,200,0,0,50,-200,-5,-200,-200,-5,200,200,-5,200
data 0,0,50,-200,-5,-200,-200,-5,200,-200,200,200,0,0,70,-200,-5,-200,-200,200,-200,-200
data 200,200,0,0,70,200,-5,-200,200,-5,200,200,200,200,0,0,70,200,-5,-200,200,200,-200,200
data 200,200,0,0,70,-200,-5,200,200,-5,200,200,200,200,0,0,30,-200,-5,200,-200,200,200,200,200,200,0,0,30

beer:
data 36,-20,0,0,0,0,20,0,10,0,200,200,200,0,0,20,20,0,0,0,10,0,190,190,190,20,0,0,0,0,-20
data 0,10,0,200,200,200,0,0,-20,-20,0,0,0,10,0,210,210,210,-2,0,-2,2,0,-2,2,20,-2,190,190
data 190,-2,0,-2,-2,20,-2,2,20,-2,190,190,190,-2,0,-2,-2,0,2,-2,20,2,200,200,200,-2,0,-2
data -2,20,-2,-2,20,2,200,200,200,-2,0,2,2,0,2,2,20,2,210,210,210,-2,0,2,-2,20,2,2,20,2
data 210,210,210,2,0,-2,2,0,2,2,20,2,200,200,200,2,0,-2,2,20,-2,2,20,2,200,200,200,-2,20
data -2,2,20,-2,8,40,-8,239,139,3,-2,20,-2,-8,40,-8,8,40,-8,239,139,3,-2,20,-2,-2,20,2,-8
data 40,8,249,149,3,-2,20,-2,-8,40,-8,-8,40,8,249,149,3,-2,20,2,2,20,2,8,40,8,239,139,3
data -2,20,2,-8,40,8,8,40,8,239,139,3,2,20,-2,2,20,2,8,40,8,229,129,3,2,20,-2,8,40,-8,8
data 40,8,229,129,3,-8,40,-8,8,40,-8,10,60,-10,239,139,3,-8,40,-8,-10,60,-10,10,60,-10,239,139,3,-8
data 40,-8,-8,40,8,-10,60,10,249,149,3,-8,40,-8,-10,60,-10,-10,60,10,249,149,3,-8,40,8,8,40,8,10,60,10
data 239,139,3,-8,40,8,-10,60,10,10,60,10,239,139,3,8,40,-8,8,40,8,10,60,10,229,129,3,8,40,-8
data 10,60,-10,10,60,10,229,129,3,-10,60,-10,10,60,-10,9,70,-9,190,190,190,-10,60,-10,-9,70,-9,9,70,-9,190,190
data 190,-10,60,-10,-10,60,10,-9,70,9,200,200,200,-10,60,-10,-9,70,-9,-9,70,9,200,200,200,-10,60,10,10
data 60,10,9,70,9,210,210,210,-10,60,10,-9,70,9,9,70,9,210,210,210,10,60,-10,10,60,10,9,70,9,200,200
data 200,10,60,-10,9,70,-9,9,70,9,200,200,200

Ah, yeah, I did something really freaky in my code. Every object you see there(level, beer) is made out of triangles with the "make object triangle" command. I store every position of them in data statements, and it was really hard to imagine everything and then do it.

So, the statement "data 0,0,0,10,0,0,10,10,0,255,0,0" will make a triangle on the x1=0,y1=0,z1=0,x2=10,y2=0,z2=0,x3=10,y3=10,z3=0 colored red (r=255,g=0,b=0)

Executable attached for those that don`t own DBC.

TheComet

Peachy, and the Chaos of the Gems

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 14th Dec 2008 17:14

Link

@The Comet
That was cool!
The camera movement was especially good and fluid.

A small program that works is better than a large one that doesn't.

DBC Challenge Rank: Rookie

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread

Attachments