- DBPro Coding Challenges - - GameCreators Forum

Author

Message

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 10th Oct 2005 15:00

Link

sizer:

A little tip - don't use PRINT, use Text X,Y,String$...

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 11th Oct 2005 03:48 Edited at: 14th Oct 2005 17:15

Link

Heres a work in progress for my entry - similar stage I think to the other entries in that there's no collision yet - just lots of moving traffic and a green little froggie.

randomize timer()
sync on
make object cube 1,1
delete object 1
lorry$="Lorry"
car$="Car"
log$="---Log---"
turtle$="--Turtle--"
line$="______________________________________________________________________________________________________________"
dash$="____        ____        ____        ____        ____        ____        ____        ____        ____        "
frog$="<^>"
numberofvehicles=10
dim vehiclex(numberofvehicles)
dim vehicley(numberofvehicles)
dim speed#(numberofvehicles)
dim typeofvehicle(numberofvehicles)
for vehicle=1 to numberofvehicles
typeofvehicle(vehicle)=rnd(1)
speed#(vehicle)=(rnd(10)/10.0)+1.0
vehiclex(vehicle)=rnd(screen width())
if vehicle*2<=numberofvehicles
  vehicley(vehicle)=screen height()/2.0+rnd((screen height()/4.0))-text height(car$)*2
else
  vehicley(vehicle)=3*screen height()/4.0+rnd((screen height()/4.0))-text height(car$)*2
endif
next vehicle

numberoffloaters=10
dim floaterx(numberoffloaters)
dim floatery(numberoffloaters)
dim speedf#(numberoffloaters)
dim typeoffloater(numberoffloaters)
for floater=1 to numberoffloaters
typeoffloater(floater)=rnd(1)
speedf#(floater)=(rnd(10)/10.0)+1.0
floaterx(floater)=rnd(screen width())
if floater*2<=numberoffloaters
  floatery(floater)=rnd((screen height()/4.0))-text height(log$)*2
else
  floatery(floater)=screen height()/4.0+rnd((screen height()/4.0))-text height(log$)*2
endif
next floater

frogx=screen width()/2
frogy=screen height()-text height(frog$)
do

text 0,screen height()/2-text height(car$)*2-text height(line$),line$
text 0,3*screen height()/4-text height(car$)*2-text height(dash$),dash$
text 0,screen height()-text height(car$)-text height(line$),line$

for vehicle=1 to numberofvehicles
if typeofvehicle(vehicle)=0
  ink rgb(255,0,0),0
  text vehiclex(vehicle),vehicley(vehicle),car$
else
  ink rgb(255,255,0),0
  text vehiclex(vehicle),vehicley(vehicle),lorry$
endif
if vehicle*2<=numberofvehicles
  inc vehiclex(vehicle),speed#(vehicle)
else
  dec vehiclex(vehicle),speed#(vehicle)
endif
if vehiclex(vehicle)>screen width() then vehiclex(vehicle)=0-text width(car$)
if vehiclex(vehicle)<0-text width(car$) then vehiclex(vehicle)=screen width()
next vehicle
for floater=1 to numberoffloaters
if typeoffloater(floater)=0
  ink rgb(255,0,0),0
  text floaterx(floater),floatery(floater),log$
else
  ink rgb(255,255,0),0
  text floaterx(floater),floatery(floater),turtle$
endif
if floater*2<=numberoffloaters
  inc floaterx(floater),speedf#(floater)
else
  dec floaterx(floater),speedf#(floater)
endif
if floaterx(floater)>screen width() then floaterx(floater)=-40
if floaterx(floater)<-40 then floaterx(floater)=screen width()
next floater
ink rgb(0,255,0),0
text frogx,frogy,frog$
if upkey()=1 then dec frogy
if downkey()=1 then inc frogy
if leftkey()=1 then dec frogx
if rightkey()=1 then inc frogx

sync
loop

+ Code Snippet

randomize timer()
sync on
make object cube 1,1
delete object 1
lorry$="Lorry"
car$="Car"
log$="---Log---"
turtle$="--Turtle--"
line$="______________________________________________________________________________________________________________"
dash$="____        ____        ____        ____        ____        ____        ____        ____        ____        "
frog$="<^>"
numberofvehicles=10
dim vehiclex(numberofvehicles)
dim vehicley(numberofvehicles)
dim speed#(numberofvehicles)
dim typeofvehicle(numberofvehicles)
for vehicle=1 to numberofvehicles
typeofvehicle(vehicle)=rnd(1)
speed#(vehicle)=(rnd(10)/10.0)+1.0
vehiclex(vehicle)=rnd(screen width())
if vehicle*2<=numberofvehicles
  vehicley(vehicle)=screen height()/2.0+rnd((screen height()/4.0))-text height(car$)*2
else
  vehicley(vehicle)=3*screen height()/4.0+rnd((screen height()/4.0))-text height(car$)*2
endif
next vehicle

numberoffloaters=10
dim floaterx(numberoffloaters)
dim floatery(numberoffloaters)
dim speedf#(numberoffloaters)
dim typeoffloater(numberoffloaters)
for floater=1 to numberoffloaters
typeoffloater(floater)=rnd(1)
speedf#(floater)=(rnd(10)/10.0)+1.0
floaterx(floater)=rnd(screen width())
if floater*2<=numberoffloaters
  floatery(floater)=rnd((screen height()/4.0))-text height(log$)*2
else
  floatery(floater)=screen height()/4.0+rnd((screen height()/4.0))-text height(log$)*2
endif
next floater

frogx=screen width()/2
frogy=screen height()-text height(frog$)
do


text 0,screen height()/2-text height(car$)*2-text height(line$),line$
text 0,3*screen height()/4-text height(car$)*2-text height(dash$),dash$
text 0,screen height()-text height(car$)-text height(line$),line$

for vehicle=1 to numberofvehicles
if typeofvehicle(vehicle)=0
  ink rgb(255,0,0),0
  text vehiclex(vehicle),vehicley(vehicle),car$
else
  ink rgb(255,255,0),0
  text vehiclex(vehicle),vehicley(vehicle),lorry$
endif
if vehicle*2<=numberofvehicles
  inc vehiclex(vehicle),speed#(vehicle)
else
  dec vehiclex(vehicle),speed#(vehicle)
endif
if vehiclex(vehicle)>screen width() then vehiclex(vehicle)=0-text width(car$)
if vehiclex(vehicle)<0-text width(car$) then vehiclex(vehicle)=screen width()
next vehicle
for floater=1 to numberoffloaters
if typeoffloater(floater)=0
  ink rgb(255,0,0),0
  text floaterx(floater),floatery(floater),log$
else
  ink rgb(255,255,0),0
  text floaterx(floater),floatery(floater),turtle$
endif
if floater*2<=numberoffloaters
  inc floaterx(floater),speedf#(floater)
else
  dec floaterx(floater),speedf#(floater)
endif
if floaterx(floater)>screen width() then floaterx(floater)=-40
if floaterx(floater)<-40 then floaterx(floater)=screen width()
next floater
ink rgb(0,255,0),0
text frogx,frogy,frog$
if upkey()=1 then dec frogy
if downkey()=1 then inc frogy
if leftkey()=1 then dec frogx
if rightkey()=1 then inc frogx

sync
loop

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 11th Oct 2005 15:52

Link

Ok, so I don't have cars, or lorries, or indeed any kind of level.

What I DO have is the cutest ascii frog the world has ever seen!

sync on
sync rate 60

#CONSTANT faceup 0
#CONSTANT facedown 1
#CONSTANT faceleft 2
#CONSTANT faceright 3

type coordXY

X as float
   Y as float

endtype

type frog
   Pos as coordXY
   blinktime as Float
   state as Integer
   walktime as Float
endtype

Froggie as frog

Froggie.Pos.X = 100
Froggie.Pos.Y = 100
Froggie.blinktime = 0
state = faceup
Froggie.walktime = 0

ink rgb(0,255,0),0

`****************** MAIN LOOP ******************

do
cls
get_movement()

select Froggie.state
   case faceup
      draw_frog()
   endcase

case facedown
      draw_upsidedownfrog()
   endcase

case default
      draw_frog()
   endcase
endselect

`print_ascii()
sync
loop

`***************** END OF MAIN LOOP ***********

Function get_movement()

if keystate(17) = 1  `W for up
   Froggie.Pos.Y = Froggie.Pos.Y -2
   Froggie.walktime = Froggie.walktime +1
   Froggie.state = faceup
endif

if keystate(31) = 1  `S for down
   Froggie.Pos.Y = Froggie.Pos.Y +2
   Froggie.walktime = Froggie.walktime +1
   Froggie.state = facedown
endif

if keystate(30) = 1  `A for left
   Froggie.Pos.X = Froggie.Pos.X -2
   Froggie.walktime = Froggie.walktime +1
endif

if keystate(32) = 1  `D for right
   Froggie.Pos.X = Froggie.Pos.X +2
   Froggie.walktime = Froggie.walktime +1
endif

collide_screen()

endfunction

Function collide_screen()

if Froggie.Pos.X <0+5
   Froggie.Pos.X = 0+5
endif

if Froggie.Pos.X > screen width() -10
   Froggie.Pos.X = screen width() -10
endif

if Froggie.Pos.Y < 0+5
   Froggie.Pos.Y = 0+5
endif

if Froggie.Pos.Y > screen height() -15
   Froggie.Pos.Y = screen height() -15
endif

endfunction

Function draw_frog()

ink rgb(0,255,0),0

if Froggie.walktime <15
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y-1,"\"
   text Froggie.Pos.X+6,Froggie.Pos.Y-1,"/"
endif

if Froggie.walktime >14
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X-2,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X+5,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X+2,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X-7,Froggie.Pos.Y-1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y-1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_frogeyes()

endfunction

Function print_ascii()

for i = 130 to 160

print "Ascii:",i," = ",chr$(i)

next i

endfunction

Function draw_frogeyes()

ink rgb(255,255,255),0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y-1,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y-1,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y-4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y-4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction

Function draw_upsidedownfrog()

ink rgb(0,255,0),0

if Froggie.walktime <15
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y+1,"/"
   text Froggie.Pos.X+6,Froggie.Pos.Y+1,"\"
endif

if Froggie.walktime >14
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X-2,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X+5,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X+2,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X-7,Froggie.Pos.Y+1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y+1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_upsidedownfrogeyes()

endfunction

Function draw_upsidedownfrogeyes()

ink rgb(255,255,255),0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y+8,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y+8,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y+4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y+4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction

+ Code Snippet

sync on
sync rate 60

#CONSTANT faceup 0
#CONSTANT facedown 1
#CONSTANT faceleft 2
#CONSTANT faceright 3

type coordXY

   X as float
   Y as float

endtype

type frog
   Pos as coordXY
   blinktime as Float
   state as Integer
   walktime as Float
endtype

Froggie as frog

Froggie.Pos.X = 100
Froggie.Pos.Y = 100
Froggie.blinktime = 0
state = faceup
Froggie.walktime = 0

ink rgb(0,255,0),0

`****************** MAIN LOOP ******************

do
cls
get_movement()

select Froggie.state
   case faceup
      draw_frog()
   endcase

   case facedown
      draw_upsidedownfrog()
   endcase

   case default
      draw_frog()
   endcase
endselect

`print_ascii()
sync
loop

`***************** END OF MAIN LOOP ***********


Function get_movement()

if keystate(17) = 1  `W for up
   Froggie.Pos.Y = Froggie.Pos.Y -2
   Froggie.walktime = Froggie.walktime +1
   Froggie.state = faceup
endif

if keystate(31) = 1  `S for down
   Froggie.Pos.Y = Froggie.Pos.Y +2
   Froggie.walktime = Froggie.walktime +1
   Froggie.state = facedown
endif

if keystate(30) = 1  `A for left
   Froggie.Pos.X = Froggie.Pos.X -2
   Froggie.walktime = Froggie.walktime +1
endif

if keystate(32) = 1  `D for right
   Froggie.Pos.X = Froggie.Pos.X +2
   Froggie.walktime = Froggie.walktime +1
endif

collide_screen()


endfunction


Function collide_screen()

if Froggie.Pos.X <0+5
   Froggie.Pos.X = 0+5
endif

if Froggie.Pos.X > screen width() -10
   Froggie.Pos.X = screen width() -10
endif

if Froggie.Pos.Y < 0+5
   Froggie.Pos.Y = 0+5
endif

if Froggie.Pos.Y > screen height() -15
   Froggie.Pos.Y = screen height() -15
endif

endfunction


Function draw_frog()

ink rgb(0,255,0),0

if Froggie.walktime <15
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y-1,"\"
   text Froggie.Pos.X+6,Froggie.Pos.Y-1,"/"
endif

if Froggie.walktime >14
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X-2,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X+5,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X+2,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X-7,Froggie.Pos.Y-1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y-1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_frogeyes()

endfunction


Function print_ascii()

for i = 130 to 160

print "Ascii:",i," = ",chr$(i)

next i

endfunction


Function draw_frogeyes()

ink rgb(255,255,255),0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y-1,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y-1,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y-4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y-4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction



Function draw_upsidedownfrog()

ink rgb(0,255,0),0

if Froggie.walktime <15
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y+1,"/"
   text Froggie.Pos.X+6,Froggie.Pos.Y+1,"\"
endif

if Froggie.walktime >14
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X-2,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X+5,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X+2,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X-7,Froggie.Pos.Y+1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y+1,"-"
endif


if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_upsidedownfrogeyes()

endfunction


Function draw_upsidedownfrogeyes()

ink rgb(255,255,255),0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y+8,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y+8,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y+4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y+4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction

Oh yes, fear little froggie and his cuteness...

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 12th Oct 2005 00:57

Link

Wow! I would never have thought that was possible in Ascii! Nice one!

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 12th Oct 2005 01:08 Edited at: 12th Oct 2005 01:08

Link

Yikes!

If i didn't know better i'd say you loaded a picture!!!

great use of colors!

"We make the worst games in the universe."

Back to top

Profile PM Email

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 12th Oct 2005 03:07 Edited at: 13th Oct 2005 08:09

Link

that is definitely a CRAZY little froggy.
--[EDIT]
code, mostly done... still have to throw in landing on lilly's.
BTW, have removed debug screen.
here is a screenie also.

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
setup_game()
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   Collide()
   ChkGoal()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10
   if keystate(208) then fy#(1)=fy#(1)+10
   if keystate(203) then fx#(1)=fx#(1)-10
   if keystate(205) then fx#(1)=fx#(1)+10
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 16 step 2
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 15 step 2
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`Collision handleing
function Collide()
   for i = 1 to 22
      if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      if fy#(1) <= y_col#(i,2)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,2)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
   next i
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   score#(1)=0
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
      score#(1)=score#(1)+goal#(i,1)
   next i
   if score#(1) = 9
      level#(1) = level#(1) + 1
      score#(1) = 0
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   sync
   wait 3000
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

+ Code Snippet

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
setup_game()
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   Collide()
   ChkGoal()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10
   if keystate(208) then fy#(1)=fy#(1)+10
   if keystate(203) then fx#(1)=fx#(1)-10
   if keystate(205) then fx#(1)=fx#(1)+10
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 16 step 2
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 15 step 2
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`Collision handleing
function Collide()
   for i = 1 to 22
      if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      if fy#(1) <= y_col#(i,2)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,2)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
   next i
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   score#(1)=0
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
      score#(1)=score#(1)+goal#(i,1)
   next i
   if score#(1) = 9
      level#(1) = level#(1) + 1
      score#(1) = 0
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   sync
   wait 3000
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

happy dodging

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 13th Oct 2005 20:48

Link

Looking good Sizer. The positions of the vehicles at the beginning could do with some randomization though!

Hope to get time to finish mine tomorrow.

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 13th Oct 2005 21:40 Edited at: 13th Oct 2005 22:21

Link

Remaking this post:

Ok, I've checked out this whole thread and I've found it very interesting, so I'm trying out some stuff..

Here is a crappy little frog, and cars whiz across the road. You try to cross the road(duh).

You can get squished and you can win, everytime you win the cars get faster..

I tried something that I've never seen before... making ascii "particles".. it looks pretty crap but I thought I'd try it anyway

here you go

`Setup
Sync on : Sync rate 60
Hide mouse

`Arrays
dim carx(2,5)
Dim cary(2,5)
dim ocarx(2,5)
dim carspd(2,5)
dim carpartx(2,5)
dim carparty(2,5)
dim ocarpartx(2,5)
dim ocarparty(2,5)
dim car$(2)

`Create vehicles
car$(1)="/S\"
car$(2)="/Z\"

`Create Frog
frog$="\/"

`Init
x=screen width()/2
y=screen height()-10
carx(1,1)=0
carx(1,2)=-10
carx(1,3)=-100
carx(1,4)=-150
carx(1,5)=-50
cary(1,1)=110
cary(1,2)=150
cary(1,3)=200
cary(1,4)=210
cary(1,5)=160
carspd(1,1)=3
carspd(1,2)=2
carspd(1,3)=4
carspd(1,4)=5
carspd(1,5)=3

carx(2,1)=640
carx(2,2)=670
carx(2,3)=700
carx(2,4)=650
carx(2,5)=800
cary(2,1)=350
cary(2,2)=370
cary(2,3)=360
cary(2,4)=340
cary(2,5)=330
carspd(2,1)=3
carspd(2,2)=2
carspd(2,3)=4
carspd(2,4)=5
carspd(2,5)=3

for c=1 to 5
ocarx(1,c)=carx(1,c)
ocarx(2,c)=carx(2,c)
carpartx(1,c)=0
carparty(1,c)=0
ocarpartx(1,c)=carpartx(1,c)
ocarparty(1,c)=carparty(1,c)
carpartx(2,c)=0
carparty(2,c)=0
ocarpartx(2,c)=carpartx(2,c)
ocarparty(2,c)=carparty(2,c)
next c

`**Main Loop**
Do

`Create Road
ink rgb(128,128,128),0
text 1,100,"—————————————————————————————————————————————————————————————————————————————————"
ink rgb(255,255,255),0
text 1,screen height()/2,"---------------------------------------------------------------------------------"
ink rgb(128,128,128),0
text 1,screen height()-100,"—————————————————————————————————————————————————————————————————————————————————"

`Control Player
if upkey()=1 then dec y
if downkey()=1 then inc y
if leftkey()=1 then dec x
if rightkey()=1 then inc x

`Draw Player
ink rgb(0,255,0),0
text x,y,frog$

`Trucks and cars
for c=1 to 5: carx(1,c)=carx(1,c)+carspd(1,c) : next c
for c=1 to 5: carx(2,c)=carx(2,c)-carspd(2,c) : next c

`Draw Trucks and Cars
ink rgb(255,255,255),0
for c=1 to 5
text carx(1,c),cary(1,c),car$(1)
if carx(1,c)>screen width()+text width(car$(1)) then carx(1,c)=ocarx(1,c)

text carx(2,c),cary(2,c),car$(2)
if carx(2,c)<0-text width(car$(2)) then carx(2,c)=ocarx(2,c)

next c

`Draw car particles
ink rgb(100,100,100),0
for c=1 to 5
inc life
if life>0 and life<20
carpartx(1,c)=carpartx(1,c)-1
carparty(1,c)=carparty(1,c)-1
carpartx(2,c)=carpartx(2,c)+1
carparty(2,c)=carparty(2,c)-1
endif
if life>20 then life=0 : carpartx(1,c)=ocarpartx(1,c) : carparty(1,c)=ocarparty(1,c) : carpartx(2,c)=ocarpartx(2,c) : carparty(2,c)=ocarparty(2,c)
text carx(1,c)+carpartx(1,c),cary(1,c)+carparty(1,c),"#"
text carx(2,c)+carpartx(2,c)+text width(car$(2)),cary(2,c)+carparty(2,c),"#"
next c

`Die
for c=1 to 5
if x>carx(1,c)-text width(car$(1)) and x<carx(1,c)+text width(car$(1))
if y>cary(1,c)-5 and y<cary(1,c)+5
y=squish_frog()
endif
endif
if x>carx(2,c)-text width(car$(2)) and x<carx(2,c)+text width(car$(2))
if y>cary(2,c)-5 and y<cary(2,c)+5
y=squish_frog()
endif
endif
next c

`Win
if y<90
y=win()
for c=1 to 5
carspd(1,c)=carspd(1,c)+1
carspd(2,c)=carspd(2,c)+1
next c
endif

`**End Loop**
Sync
cls
Loop

`**Functions**
Function Squish_frog()

do
ink rgb(255,0,0),0
center text 320,50,"Squish!!!"
inc lose
if lose>50 then exit
sync
loop

endfunction 470

Function win()

ink rgb(0,255,0),0

do
center text 320,50,"YAY! You won!!"
inc won
if won>50 then exit
sync
loop

Endfunction 470

+ Code Snippet

`Setup
Sync on : Sync rate 60
Hide mouse

`Arrays
dim carx(2,5)
Dim cary(2,5)
dim ocarx(2,5)
dim carspd(2,5)
dim carpartx(2,5)
dim carparty(2,5)
dim ocarpartx(2,5)
dim ocarparty(2,5)
dim car$(2)

`Create vehicles
car$(1)="/S\"
car$(2)="/Z\"

`Create Frog
frog$="\/"

`Init
x=screen width()/2
y=screen height()-10
carx(1,1)=0
carx(1,2)=-10
carx(1,3)=-100
carx(1,4)=-150
carx(1,5)=-50
cary(1,1)=110
cary(1,2)=150
cary(1,3)=200
cary(1,4)=210
cary(1,5)=160
carspd(1,1)=3
carspd(1,2)=2
carspd(1,3)=4
carspd(1,4)=5
carspd(1,5)=3

carx(2,1)=640
carx(2,2)=670
carx(2,3)=700
carx(2,4)=650
carx(2,5)=800
cary(2,1)=350
cary(2,2)=370
cary(2,3)=360
cary(2,4)=340
cary(2,5)=330
carspd(2,1)=3
carspd(2,2)=2
carspd(2,3)=4
carspd(2,4)=5
carspd(2,5)=3

for c=1 to 5
ocarx(1,c)=carx(1,c)
ocarx(2,c)=carx(2,c)
carpartx(1,c)=0
carparty(1,c)=0
ocarpartx(1,c)=carpartx(1,c)
ocarparty(1,c)=carparty(1,c)
carpartx(2,c)=0
carparty(2,c)=0
ocarpartx(2,c)=carpartx(2,c)
ocarparty(2,c)=carparty(2,c)
next c

`**Main Loop**
Do

`Create Road
ink rgb(128,128,128),0
text 1,100,"—————————————————————————————————————————————————————————————————————————————————"
ink rgb(255,255,255),0
text 1,screen height()/2,"---------------------------------------------------------------------------------"
ink rgb(128,128,128),0
text 1,screen height()-100,"—————————————————————————————————————————————————————————————————————————————————"

`Control Player
if upkey()=1 then dec y
if downkey()=1 then inc y
if leftkey()=1 then dec x
if rightkey()=1 then inc x

`Draw Player
ink rgb(0,255,0),0
text x,y,frog$

`Trucks and cars
for c=1 to 5: carx(1,c)=carx(1,c)+carspd(1,c) : next c
for c=1 to 5: carx(2,c)=carx(2,c)-carspd(2,c) : next c

`Draw Trucks and Cars
ink rgb(255,255,255),0
for c=1 to 5
text carx(1,c),cary(1,c),car$(1)
if carx(1,c)>screen width()+text width(car$(1)) then carx(1,c)=ocarx(1,c)

text carx(2,c),cary(2,c),car$(2)
if carx(2,c)<0-text width(car$(2)) then carx(2,c)=ocarx(2,c)

next c

`Draw car particles
ink rgb(100,100,100),0
for c=1 to 5
inc life
if life>0 and life<20
carpartx(1,c)=carpartx(1,c)-1
carparty(1,c)=carparty(1,c)-1
carpartx(2,c)=carpartx(2,c)+1
carparty(2,c)=carparty(2,c)-1
endif
if life>20 then life=0 : carpartx(1,c)=ocarpartx(1,c) : carparty(1,c)=ocarparty(1,c) : carpartx(2,c)=ocarpartx(2,c) : carparty(2,c)=ocarparty(2,c)
text carx(1,c)+carpartx(1,c),cary(1,c)+carparty(1,c),"#"
text carx(2,c)+carpartx(2,c)+text width(car$(2)),cary(2,c)+carparty(2,c),"#"
next c

`Die
for c=1 to 5
if x>carx(1,c)-text width(car$(1)) and x<carx(1,c)+text width(car$(1))
if y>cary(1,c)-5 and y<cary(1,c)+5
y=squish_frog()
endif
endif
if x>carx(2,c)-text width(car$(2)) and x<carx(2,c)+text width(car$(2))
if y>cary(2,c)-5 and y<cary(2,c)+5
y=squish_frog()
endif
endif
next c

`Win
if y<90
y=win()
for c=1 to 5
carspd(1,c)=carspd(1,c)+1
carspd(2,c)=carspd(2,c)+1
next c
endif


`**End Loop**
Sync
cls
Loop

`**Functions**
Function Squish_frog()

do
ink rgb(255,0,0),0
center text 320,50,"Squish!!!"
inc lose
if lose>50 then exit
sync
loop

endfunction 470


Function win()

ink rgb(0,255,0),0

do
center text 320,50,"YAY! You won!!"
inc won
if won>50 then exit
sync
loop

Endfunction 470

Back to top

Profile PM Email

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 14th Oct 2005 00:05 Edited at: 14th Oct 2005 00:09

Link

Love the exhaust fumes, Zotoaster!

As for me, I got a little sidetracked. Convinced that my little frog couldn't leap around just ANYwhere, I decided I'd need a really special looking place for him. So I wrote an ASCII art program!

Controls:

any key (i.e. "qwerty+") - Choose your 'ascii stamp'.
SPACE - Brings up the colour box. (Hold it)
RMB - Colour picker. (Hold it to read the RGB values)
LMB - Apply stamp.
DEL - UNDO (There isn't currently a redo, sorry).
ENTER - Save to file in DB format (named asciisave01.txt)

It could be much better, but apart from the extended symbols, it did what I wanted it to. Who knows, I might even get back to actually doing Frogger!

colourvalue as DWORD
red as byte
green as byte
blue as byte
red = 255
green = 255
blue = 255
waittimer = 0
colorvalue = rgb(128,128,0)

`**************************** MY USER TYPES **********************
type CoordXY
   X as Integer
   Y as Integer
endtype

type colourtype
   redval as Byte
   greenval as Byte
   blueval as Byte
endtype

type textstash
   Pos as CoordXY
   Colour as colourtype
   symbol as String
endtype
`*************************** NO MORE USER TYPES ******************

dim ASCIIlist(0) as textstash

sync on
sync rate 60
do

waittimer = waittimer + 1

cls

`********************************************DRAW THE LIST OF COLOURS AND SYMBOLS ON THE SCREEN.
for i = 0 to Array count (ASCIIlist(0))

ink rgb(ASCIIlist(i).Colour.redval,ASCIIlist(i).Colour.greenval,ASCIIlist(i).Colour.blueval),0
   text ASCIIlist(i).Pos.X,ASCIIlist(i).Pos.Y,ASCIIlist(i).symbol
next i

`********************************************SPACE - Bring up the rough colour box.
if inkey$() <> ""
   if inkey$() = " "
      box 0,0,screen width(),screen height(),rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,255)
      ink rgb(255,255,255),0
   else
      KEYPRESS$ = inkey$()
   endif
endif

`********************************************BACKSPACE - Undo.
if keystate(14)= 1
   array delete element ASCIIlist(0),Array count(ASCIIlist(0))
   wait 100
endif

`********************************************LEFT MOUSE BUTTON - Paint with stamp.
if waittimer > 20
   if mouseclick() = 1
      ink rgb(red,green,blue),0
      Array insert at bottom ASCIIlist(0)
      temp = Array count(ASCIIlist(0))
      ASCIIlist(temp).Pos.X = mousex()
      ASCIIlist(temp).Pos.Y = mousey()
      ASCIIlist(temp).Colour.redval = red
      ASCIIlist(temp).Colour.greenval = green
      ASCIIlist(temp).Colour.blueval = blue
      ASCIIlist(temp).symbol = KEYPRESS$
      waittimer = 0
   endif
endif

`**********************************************RIGHT MOUSE BUTTON - Colour Picker
if mouseclick() = 2
   lock pixels
   colourvalue = POINT(mousex(),mousey())
   make memblock 1,4
   write memblock dword 1,0,colourvalue
   red = memblock byte (1,2)
   green = memblock byte (1,1)
   blue = memblock byte (1,0)
   delete memblock 1
   unlock pixels

set cursor 0,0
   print red,",",green,",",blue
endif

`*********************************************ENTER - Save to file.
if returnkey() = 1
   if file exist("asciisave01.txt") then delete file "asciisave01.txt"
   open to write 1, "asciisave01.txt"
   for i = 0 to Array count (ASCIIlist(0))
      string1$ = "ink rgb("+str$(ASCIIlist(i).Colour.redval)+","+str$(ASCIIlist(i).Colour.greenval)+","+str$(ASCIIlist(i).Colour.blueval)+"),0"
      string2$ = "text "+str$(ASCIIlist(i).Pos.X)+","+str$(ASCIIlist(i).Pos.Y)+","+chr$(34)+ASCIIlist(i).symbol+chr$(34)
      write string 1,string1$
      write string 1,string2$
   next i

close file 1
   ink rgb(255,255,255),0
   text (screen width()/2)-(text width("SAVING!")/2),screen height()/2,"SAVING!"
   sync
   wait 800
endif

sync
loop

+ Code Snippet

colourvalue as DWORD
red as byte
green as byte
blue as byte
red = 255
green = 255
blue = 255
waittimer = 0
colorvalue = rgb(128,128,0)

`**************************** MY USER TYPES **********************
type CoordXY
   X as Integer
   Y as Integer
endtype

type colourtype
   redval as Byte
   greenval as Byte
   blueval as Byte
endtype

type textstash
   Pos as CoordXY
   Colour as colourtype
   symbol as String
endtype
`*************************** NO MORE USER TYPES ******************

dim ASCIIlist(0) as textstash


sync on
sync rate 60
do

waittimer = waittimer + 1

cls

`********************************************DRAW THE LIST OF COLOURS AND SYMBOLS ON THE SCREEN.
for i = 0 to Array count (ASCIIlist(0))

   ink rgb(ASCIIlist(i).Colour.redval,ASCIIlist(i).Colour.greenval,ASCIIlist(i).Colour.blueval),0
   text ASCIIlist(i).Pos.X,ASCIIlist(i).Pos.Y,ASCIIlist(i).symbol
next i

`********************************************SPACE - Bring up the rough colour box.
if inkey$() <> ""
   if inkey$() = " "
      box 0,0,screen width(),screen height(),rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,255)
      ink rgb(255,255,255),0
   else
      KEYPRESS$ = inkey$()
   endif
endif


`********************************************BACKSPACE - Undo.
if keystate(14)= 1
   array delete element ASCIIlist(0),Array count(ASCIIlist(0))
   wait 100
endif

`********************************************LEFT MOUSE BUTTON - Paint with stamp.
if waittimer > 20
   if mouseclick() = 1
      ink rgb(red,green,blue),0
      Array insert at bottom ASCIIlist(0)
      temp = Array count(ASCIIlist(0))
      ASCIIlist(temp).Pos.X = mousex()
      ASCIIlist(temp).Pos.Y = mousey()
      ASCIIlist(temp).Colour.redval = red
      ASCIIlist(temp).Colour.greenval = green
      ASCIIlist(temp).Colour.blueval = blue
      ASCIIlist(temp).symbol = KEYPRESS$
      waittimer = 0
   endif
endif


`**********************************************RIGHT MOUSE BUTTON - Colour Picker
if mouseclick() = 2
   lock pixels
   colourvalue = POINT(mousex(),mousey())
   make memblock 1,4
   write memblock dword 1,0,colourvalue
   red = memblock byte (1,2)
   green = memblock byte (1,1)
   blue = memblock byte (1,0)
   delete memblock 1
   unlock pixels

   set cursor 0,0
   print red,",",green,",",blue
endif

`*********************************************ENTER - Save to file.
if returnkey() = 1
   if file exist("asciisave01.txt") then delete file "asciisave01.txt"
   open to write 1, "asciisave01.txt"
   for i = 0 to Array count (ASCIIlist(0))
      string1$ = "ink rgb("+str$(ASCIIlist(i).Colour.redval)+","+str$(ASCIIlist(i).Colour.greenval)+","+str$(ASCIIlist(i).Colour.blueval)+"),0"
      string2$ = "text "+str$(ASCIIlist(i).Pos.X)+","+str$(ASCIIlist(i).Pos.Y)+","+chr$(34)+ASCIIlist(i).symbol+chr$(34)
      write string 1,string1$
      write string 1,string2$
   next i

   close file 1
   ink rgb(255,255,255),0
   text (screen width()/2)-(text width("SAVING!")/2),screen height()/2,"SAVING!"
   sync
   wait 800
endif

sync
loop

(Yes it's clunky, yes it's fairly unuser friendly, and yes I'm sure you could do evil things if you tried to undo too far, or something (and yes, the colour selection window could be greatly improved, there's a LOT of colours missing) but hey

) (Oh, and it has one use of 'box' in it - for the colour options, but making a colour picker in ascii was beyond my patience tonight

)

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 14th Oct 2005 00:11 Edited at: 14th Oct 2005 00:47

Link

hey thats pretty good

[edit]

you know what would rule, if you played whereever i may roam by metallica suring the game

kinda makes sense

Back to top

Profile PM Email

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 14th Oct 2005 19:06

Link

Cool this looks good but can we do it in 3d?

Platformer soon to be wip

you'll like it

Back to top

Profile PM Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 14th Oct 2005 19:17

Link

No. It's

+ Code Snippet

print

or

+ Code Snippet

text

only.

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 14th Oct 2005 20:15

Link

Unless you really want a challenge, in which case you can try and make a 3-d game using the text command!

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 14th Oct 2005 20:33

Link

that would rule!

Back to top

Profile PM Email

Whistlin Trev

19

Years of Service

User Offline

Joined: 11th Feb 2005

Location: Battle of Nevermore

Posted: 14th Oct 2005 21:31

Link

well this is my entry so far, but theres still no collision (which fully works) and still trying to make that right but here it is at the moment

`start screen
set text size 75
text 70,120, "Traffic Frog"
set text size 10
text 80,320, "Direct the frog safely across the road using the arrow keys"
text 230,450, "Press any key to start"
wait key

`hide mouse
hide mouse

`dimensions
dim speed# (12)
dim place# (12)

do

`clearscreen
cls

`make the road and the markings
text 0,10,"________________________________________________________________________________"
text 0,440,"________________________________________________________________________________"
text 0,70,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,130,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,190,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,250,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,310,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,370,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"

`make the sheep
ink rgb(0,255,0),0
text 300+x#,460+y#,"<o>"

ink rgb(255,255,255),0
`make the cars going to the right
for carright=1 to 6
speed#(carright)=speed#(carright)+(rnd(800/100.00))+rnd(2.00)
place#(carright)=(60*carright)
text speed#(carright),place#(carright),"[ ]"
if speed#(carright)>620 then speed#(carright)=0-rnd(20)
if x# = speed#(carright) and if -y# = place#(carright)
cls
text 0,0,"Game Over"
x#=0
y#=0
text 0,10,"Hit Any Key To Restart"
wait key
endif
`print speed#(carright)
`print place#(carright)
next carright

`print x#
`print -y#

`make the cars going to the left
for carleft=7 to 12
speed#(carleft)=speed#(carleft)-(rnd(800/100.00))-rnd(2.00)
place#(carleft)=40+(60*(13-carleft))
text speed#(carleft),place#(carleft),"[ ]"
if speed#(carleft)<0 then speed#(carleft)=620+rnd(20)
if x# = speed#(carleft) and if -y#= place#(carleft)
cls
text 0,0,"Game Over"
x#=0
y#=0
text 0,10,"Hit Any Key To Restart"
wait key
endif
`print speed#(carleft)
`print place#(carleft)
next carleft

`set controls for the sheep
if upkey()=1
y#=y#-2
endif

if downkey()=1
y#=y#+2
endif

if leftkey()=1
x#=x#-2
endif

if rightkey()=1
x#=x#+2
endif

`set screen limits
if x#>320
x#=320
endif

if x#<-300
x#=-300
endif

if y#>0
y#=0
endif

if y#<-460
y#=-460
endif

loop

+ Code Snippet

`start screen
set text size 75
text 70,120, "Traffic Frog"
set text size 10
text 80,320, "Direct the frog safely across the road using the arrow keys"
text 230,450, "Press any key to start"
wait key

`hide mouse
hide mouse

`dimensions
dim speed# (12)
dim place# (12)

do

`clearscreen
cls

`make the road and the markings
text 0,10,"________________________________________________________________________________"
text 0,440,"________________________________________________________________________________"
text 0,70,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,130,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,190,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,250,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,310,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"
text 0,370,"___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___ ___"

`make the sheep
ink rgb(0,255,0),0
text 300+x#,460+y#,"<o>"

ink rgb(255,255,255),0
`make the cars going to the right
for carright=1 to 6
speed#(carright)=speed#(carright)+(rnd(800/100.00))+rnd(2.00)
place#(carright)=(60*carright)
text speed#(carright),place#(carright),"[ ]"
if speed#(carright)>620 then speed#(carright)=0-rnd(20)
if x# = speed#(carright) and if -y# = place#(carright)
cls
text 0,0,"Game Over"
x#=0
y#=0
text 0,10,"Hit Any Key To Restart"
wait key
endif
`print speed#(carright)
`print place#(carright)
next carright

`print x#
`print -y#

`make the cars going to the left
for carleft=7 to 12
speed#(carleft)=speed#(carleft)-(rnd(800/100.00))-rnd(2.00)
place#(carleft)=40+(60*(13-carleft))
text speed#(carleft),place#(carleft),"[ ]"
if speed#(carleft)<0 then speed#(carleft)=620+rnd(20)
if x# = speed#(carleft) and if -y#= place#(carleft)
cls
text 0,0,"Game Over"
x#=0
y#=0
text 0,10,"Hit Any Key To Restart"
wait key
endif
`print speed#(carleft)
`print place#(carleft)
next carleft

`set controls for the sheep
if upkey()=1
y#=y#-2
endif

if downkey()=1
y#=y#+2
endif

if leftkey()=1
x#=x#-2
endif

if rightkey()=1
x#=x#+2
endif

`set screen limits
if x#>320
x#=320
endif

if x#<-300
x#=-300
endif

if y#>0
y#=0
endif

if y#<-460
y#=-460
endif

loop

Back to top

Profile PM

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 14th Oct 2005 21:32 Edited at: 14th Oct 2005 21:32

Link

Quote: "Unless you really want a challenge, in which case you can try and make a 3-d game using the text command! "

That reminds me of underlord's avatar. (coding yourself into a bloody pulp)

"We make the worst games in the universe."

Back to top

Profile PM Email

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 15th Oct 2005 11:40

Link

*trys to find function* i can make 3d text on to a plane and hide the plain would that be ok?

Where i would like to be
http://www.portaventura.es
vid: http://english.rides.nl/attractie/info/525

Back to top

Profile PM Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 15th Oct 2005 21:34

Link

Approx. 4 and a half hours to go!!

(And Darkbasic MAD, probably not - if you hid the plain, you'd not be able to see the text anyway

)

Back to top

Profile PM

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 15th Oct 2005 21:38

Link

ok best leave that out

Where i would like to be
http://www.portaventura.es
vid: http://english.rides.nl/attractie/info/525

Back to top

Profile PM Website

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 15th Oct 2005 23:55

Link

is this compo over at midnight server time or local time for the challenge setter?
---------------

+

=

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 16th Oct 2005 00:05

Link

I believe it states midnight tonight, GMT. So that'll be somewhere in the afternoon for Texans and such.

2hrs to go, by my computers clock (well, give or take 5 mins)

Back to top

Profile PM

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 16th Oct 2005 01:09 Edited at: 16th Oct 2005 02:10

Link

well, here goes nothin'.
i can't quite figure out how to get the anti-collision working
in the water area. but everything else works if you rem out those
parts of the collision code. will be working on this for a while
'cause my clock says i have an hour left. but good luck to
everyone else...

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
setup_game()
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1)) + "    x:" + str$(fx#(1)) + "     y:" + str$(fy#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   if fy#(1) > 190
      Collide()
   else
      watercollision()
   endif
   ChkGoal()
   ChkLvl()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">\===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10`up
   if keystate(208) then fy#(1)=fy#(1)+10`down
   if keystate(203) then fx#(1)=fx#(1)-10`left
   if keystate(205) then fx#(1)=fx#(1)+10`right
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 15 step 2 `move gator left, lilly right
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 16 step 2 `move lilly right, gator left
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`Collision handleing
function Collide()
   if fy#(1) >= 228
      for i = 1 to 22
         ` if on road die if hit by car
         if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      next i
   endif
endfunction
`-------------------------------------------
function watercollision()
` anti-collision for hoping on lilly and gator
   for i = 1 to 15 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(3,i)+25) `set x to center of gator / lilly
          fy#(1) = y_col#(i,2)  `set y to center of gator / lilly
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(4,i)+7) `set x to center of lilly
          fy#(1) = y_col#(i,2)  `set y to center of lilly
      endif
   next i
   for i = 2 to 16 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
         fx#(1) = (x_col#(3,i)+7) `set x to center of lilly
         fy#(1) = y_col#(i,2)  `set y to center of lilly
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator
         fx#(1) = (x_col#(4,i)+25) `set x to center of gator
         fy#(1) = y_col#(i,2)  `set y to center of gator
      endif
   next i
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
         inc score#(1)
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
   next i
endfunction
`-------------------------------------------
`check goals if full inc level add bonus for lives left
function ChkLvl()
   for i = 1 to 9
      if goal#(i,1) = 1 then inc t#
   next i
   if t# = 9
      score#(1) = score#(1) + lives#(1)
      inc level#(1)
      inc lives#(1)
      for i = 1 to 9
         goal#(i,1) = 0
      next i
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
   sync
   wait 500
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

+ Code Snippet

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
setup_game()
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1)) + "    x:" + str$(fx#(1)) + "     y:" + str$(fy#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   if fy#(1) > 190
      Collide()
   else
      watercollision()
   endif
   ChkGoal()
   ChkLvl()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">\===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10`up
   if keystate(208) then fy#(1)=fy#(1)+10`down
   if keystate(203) then fx#(1)=fx#(1)-10`left
   if keystate(205) then fx#(1)=fx#(1)+10`right
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 15 step 2 `move gator left, lilly right
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 16 step 2 `move lilly right, gator left
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`Collision handleing
function Collide()
   if fy#(1) >= 228
      for i = 1 to 22
         ` if on road die if hit by car
         if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      next i
   endif
endfunction
`-------------------------------------------
function watercollision()
` anti-collision for hoping on lilly and gator
   for i = 1 to 15 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(3,i)+25) `set x to center of gator / lilly
          fy#(1) = y_col#(i,2)  `set y to center of gator / lilly
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(4,i)+7) `set x to center of lilly
          fy#(1) = y_col#(i,2)  `set y to center of lilly
      endif
   next i
   for i = 2 to 16 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
         fx#(1) = (x_col#(3,i)+7) `set x to center of lilly
         fy#(1) = y_col#(i,2)  `set y to center of lilly
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator
         fx#(1) = (x_col#(4,i)+25) `set x to center of gator
         fy#(1) = y_col#(i,2)  `set y to center of gator
      endif
   next i
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
         inc score#(1)
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
   next i
endfunction
`-------------------------------------------
`check goals if full inc level add bonus for lives left
function ChkLvl()
   for i = 1 to 9
      if goal#(i,1) = 1 then inc t#
   next i
   if t# = 9
      score#(1) = score#(1) + lives#(1)
      inc level#(1)
      inc lives#(1)
      for i = 1 to 9
         goal#(i,1) = 0
      next i
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
   sync
   wait 500
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

line count upto 260
the reason for everything being in arrays instead of normal vars is that for some reason my dbp refuses to accept vars declared unless they are defined emidiatly(sp).
[edit] finally got the frog to stay on lilly and gator, just gotta get it to die when it hits water.

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 16th Oct 2005 02:15

Link

Okie! Here's mine, though I fear I'm a tiny bit late :/

sync on
sync rate 60

#CONSTANT faceup 0
#CONSTANT facedown 1
#CONSTANT faceleft 2
#CONSTANT faceright 3
#CONSTANT jumpup 4
#CONSTANT jumpdown 5

global RED as DWORD
global GREEN as DWORD
global BLUE as DWORD
global YELLOW as DWORD
global WHITE as DWORD
global PALEBLUE as DWORD
global PALEGREEN as DWORD
global DARKBLUE as DWORD
global DARKGREEN as DWORD
global MIDGREEN as DWORD
global BROWN as DWORD
global LIGHTBROWN as DWORD

RED = rgb(255,0,0)
GREEN = rgb(0,255,0)
BLUE = rgb(0,0,255)
YELLOW = rgb(255,255,0)
WHITE = rgb(255,255,255)
PALEBLUE = rgb(128,128,255)
PALEGREEN = rgb(128,255,128)
DARKBLUE = rgb(0,0,128)
DARKGREEN = rgb(0,80,0)
MIDGREEN = rgb(0,140,0)
BROWN = rgb(128,64,0)
LIGHTBROWN = rgb(128,64,32)

type coordXY

X as float
   Y as float

endtype

type frog
   Pos as coordXY
   blinktime as Float
   state as Integer
   walktime as Float
   jumptime as Float
   target as coordXY
endtype

type vehicle
   Pos as coordXY
   Colour as Integer
endtype

global Froggie as frog
dim Car(5) as vehicle
dim Truck(5) as vehicle
dim LogSmall(27) as vehicle

Froggie.Pos.X = screen width()/2
Froggie.Pos.Y = 500
Froggie.blinktime = 0
Froggie.state = faceup
Froggie.walktime = 0
Froggie.jumptime = 0

for i = 0 to array count(Car())/2
   Car(i).Pos.X = rnd(screen width())
   Car(i).Pos.Y = 410
   Car(i).Colour = rnd(2)
next i
for i = array count(Car())/2 to array count(Car())
   Car(i).Pos.X = rnd(screen width())
   Car(i).Pos.Y = 374
   Car(i).Colour = rnd(2)
next 1

for i = 0 to array count(Truck())/2
   Truck(i).Pos.X = rnd(screen width())
   Truck(i).Pos.Y = 290
   Truck(i).Colour = rnd(2)
next i

for i = array count(Truck())/2 to array count(Truck())
   Truck(i).Pos.X = rnd(screen width())
   Truck(i).Pos.Y = 318
   Truck(i).Colour = rnd(2)
next i

for i = 0 to 3
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 200
   LogSmall(i).Colour = 0
next i

for i = 4 to 7
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 176
   LogSmall(i).Colour = 1
next i

for i = 8 to 11
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 152
      LogSmall(i).Colour = 0
next i

for i = 12 to 15
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 128
   LogSmall(i).Colour = 1
next i

for i = 16 to 19
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 104
      LogSmall(i).Colour = 0
next i

for i = 20 to 23
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 80
   LogSmall(i).Colour = 1
next i

for i = 24 to 27
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 56
      LogSmall(i).Colour = 0
next i

ink GREEN,0

`****************** MAIN LOOP ******************

do
cls
draw_staticcomponents()
get_movement()
move_cars()
draw_cars()
move_trucks()
draw_trucks()
move_logs()
draw_logs()

select Froggie.state
   case faceup                `************* FROGGIE STATE = FACEUP *************
      draw_frog()
   endcase

case facedown              `************* FROGGIE STATE = FACEDOWN ***********
      draw_upsidedownfrog()
   endcase

case jumpup                `************* FROGGIE STATE = JUMPUP *************
      do_jumpup()
      draw_frog()
   endcase

case jumpdown              `************* FROGGIE STATE = JUMPDOWN ***********
      draw_upsidedownfrog()
      do_jumpdown()
   endcase

case default
      draw_frog()
   endcase
endselect

check_collision()

`print_ascii()
sync
loop

`************************************************ END OF MAIN LOOP ***********
`*****************************************************************************

`Check the keys for WASD movement.
Function get_movement()

if keystate(17) = 1 AND Froggie.state = faceup     `If 'W' pressed and facing up - JUMP!
   Froggie.state = jumpup
endif

if keystate(31) = 1 AND Froggie.state = facedown   `If 'S' pressed and facing down - JUMP!
   Froggie.state = jumpdown
endif

if Froggie.state < jumpup
   if keystate(17) = 1                          `W for up
      Froggie.walktime = Froggie.walktime +1
      Froggie.state = faceup
   endif

if keystate(31) = 1                          `S for down
      Froggie.walktime = Froggie.walktime +1
      Froggie.state = facedown
   endif

if keystate(30) = 1                          `A for left
      Froggie.Pos.X = Froggie.Pos.X -2
      Froggie.walktime = Froggie.walktime +1
   endif

if keystate(32) = 1                          `D for right
      Froggie.Pos.X = Froggie.Pos.X +2
      Froggie.walktime = Froggie.walktime +1
   endif
endif

collide_screen()        `Do not allow outside screen boundries.

endfunction

`Stop Froggie from moving outside the screen shape.
Function collide_screen()

if Froggie.Pos.X <0+5
   Froggie.Pos.X = 0+5
endif

if Froggie.Pos.X > screen width() -10
   Froggie.Pos.X = screen width() -10
endif

if Froggie.Pos.Y < 0+5
   Froggie.Pos.Y = 0+5
endif

if Froggie.Pos.Y > screen height() -15
   Froggie.Pos.Y = screen height() -15
endif

endfunction

`Draw our froggie the right way up.  There are two animated states - leap and rest.
Function draw_frog()

ink GREEN,0

if Froggie.state = faceup     `Animation for 'rest'
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y-1,"\"
   text Froggie.Pos.X+6,Froggie.Pos.Y-1,"/"
endif

if Froggie.state = jumpup     `Animation for 'leap'
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X-2,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X+5,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X+2,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X-7,Froggie.Pos.Y-1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y-1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_frogeyes()            `Draw the eyes!  (Froggie blinks, so a different function for this)

endfunction

`Draw Froggies eyes (right way up)  He blinks over time.
Function draw_frogeyes()

ink WHITE,0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y-1,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y-1,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y-4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y-4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction

`Draw Froggie upsidedown.  Again, two animated 'frames'.
Function draw_upsidedownfrog()

ink GREEN,0

if Froggie.state = FACEDOWN
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y+1,"/"
   text Froggie.Pos.X+6,Froggie.Pos.Y+1,"\"
endif

if Froggie.state = JUMPDOWN
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X-2,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X+5,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X+2,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X-7,Froggie.Pos.Y+1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y+1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_upsidedownfrogeyes()

endfunction

Function draw_upsidedownfrogeyes()

ink WHITE,0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y+8,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y+8,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y+4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y+4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction

Function do_jumpup()

if Froggie.jumptime = 0
   Froggie.target.Y = Froggie.Pos.Y - 30
   Froggie.target.X = Froggie.Pos.X
endif

Froggie.jumptime = Froggie.jumptime + 1

if Froggie.jumptime < 5
   Froggie.Pos.Y = Froggie.Pos.Y - 6
endif

if Froggie.jumptime = 20
   Froggie.jumptime = 0
   Froggie.state = faceup
endif

endfunction

Function do_jumpdown()

if Froggie.jumptime = 0
   Froggie.target.Y = Froggie.Pos.Y + 30
   Froggie.target.X = Froggie.Pos.X
endif

Froggie.jumptime = Froggie.jumptime + 1

if Froggie.jumptime < 5
   Froggie.Pos.Y = Froggie.Pos.Y + 6
endif

if Froggie.jumptime = 20
   Froggie.jumptime = 0
   Froggie.state = facedown
endif

endfunction

Function draw_staticcomponents()

halfsolidline$ = CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
solidline$ = halfsolidline$ + halfsolidline$ + halfsolidline$ + halfsolidline$
halfgrassverge$ = "\\/|\\/\|//|/\||/|/\/||\\\\/|/\\//||\\/|\\/\|//|/\||/|/\/||\\\\/|/\\\||/|/\/||\\\\/|/\\/\/||\\\\/|/\\\||/|/"
grassverge$ = halfgrassverge$ + halfgrassverge$ + halfgrassverge$
halfriverbank$ = "           ~            ~          ~           ~          ~            ~            ~"
riverbank$ = halfriverbank$ + halfriverbank$  + halfriverbank$

ink YELLOW,0
text 0,440,solidline$               `Draw the bottom road edge
text 5,440,solidline$

ink DARKGREEN,0                     `Draw the bottommost grass verge
text 0,444,grassverge$
ink MIDGREEN,0
text -20,448,grassverge$
ink WHITE,0

for i = 0 to (screen width()/80)    `Draw the dotted road lines.
   text i*80,340,"___"
   text i*80,341,"___"
next i

ink DARKGREEN,0                     `Draw the other verge to the road, the upper one.
text 0,250,grassverge$
ink MIDGREEN,0
text -20,247,grassverge$
ink YELLOW,0

text 0,260,solidline$               `Draw the top road edge
text 5,260,solidline$

ink DARKBLUE,0                      `Draw some randomish river blueness.
text 0,220,riverbank$
text -30,200,riverbank$
text 10,180,riverbank$
text -15,160,riverbank$
text -60,140,riverbank$
text 8,120,riverbank$
text -18,100,riverbank$
text -78,80,riverbank$
text 2,60,riverbank$
text -65,40,riverbank$
if rnd(10) = 1
   ink PALEBLUE,0
   text rnd(screen width()),rnd(100)+100,"^"
endif
ink DARKGREEN,0
text 0,217,grassverge$
ink MIDGREEN,0
text -20,220,grassverge$
ink WHITE,0

ink DARKGREEN,0

`********** FIRST LILLYPAD! ***********
text 50,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 53,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 45,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 50,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 45,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 50,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 50,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 53,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 54,47,CHR$(130)+"  "+CHR$(130)
text 57,47,CHR$(130)+"  "+CHR$(130)

`********** SECOND LILLYPAD!! ************
text 200,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 203,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 195,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 200,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 195,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 200,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 200,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 203,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 204,47,CHR$(130)+"  "+CHR$(130)
text 207,47,CHR$(130)+"  "+CHR$(130)

`********** THIRD LILLYPAD!! ************
text 350,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 353,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 345,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 350,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 345,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 350,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 350,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 353,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 354,47,CHR$(130)+"  "+CHR$(130)
text 357,47,CHR$(130)+"  "+CHR$(130)

`********** FOURTH LILLYPAD!! ************
text 500,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 503,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 495,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 500,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 495,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 500,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 500,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 503,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 504,47,CHR$(130)+"  "+CHR$(130)
text 507,47,CHR$(130)+"  "+CHR$(130)

endfunction

Function check_collision()

temp_check = 0

if Froggie.Pos.Y < 220
   temp_check = 1
endif

` CHECK FOR FIRST LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 43 AND Froggie.Pos.X < 93
   temp_check = 2
endif

` CHECK FOR SECOND LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 193 AND Froggie.Pos.X < 243
   temp_check = 2
endif

` CHECK FOR THIRD LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 343 AND Froggie.Pos.X < 393
   temp_check = 2
endif

` CHECK FOR FOURTH LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 493 AND Froggie.Pos.X < 543
   temp_check = 2
endif

`CHECK CAR COLLISION!!
for i = 0 to array count(Car())

if Froggie.Pos.Y > Car(i).Pos.Y-20 AND Froggie.Pos.Y < Car(i).Pos.Y+10 AND Froggie.Pos.X > Car(i).Pos.X - 18 AND Froggie.Pos.X < Car(i).Pos.X + 36
   temp_check = 3
endif
next i

`CHECK TRUCK COLLISION!!
for i = 0 to array count(Truck())

if Froggie.Pos.Y > Truck(i).Pos.Y-20 AND Froggie.Pos.Y < Truck(i).Pos.Y+10 AND Froggie.Pos.X > Truck(i).Pos.X - 18 AND Froggie.Pos.X < Truck(i).Pos.X + 63
   temp_check = 3
endif
next i

`CHECK LOG COLLISION!!
for i = 0 to array count(LogSmall())

if Froggie.Pos.Y > LogSmall(i).Pos.Y-20 AND Froggie.Pos.Y < LogSmall(i).Pos.Y+20 AND Froggie.Pos.X > LogSmall(i).Pos.X - 60 AND Froggie.Pos.X < LogSmall(i).Pos.X + 10
   temp_check = 0
endif
next i

if temp_check = 1
   ink BLUE,0
   set cursor screen width()/2-(text width("SPLOOSH!")/2),screen height()/2
   Print "SPLOOSH!"
   reset_player()
endif

if temp_check = 2
   set cursor screen width()/2-(text width("WIN WIN WIN WIN WIN!")/2),screen height()/2
   Print "WIN WIN WIN WIN WIN!"
endif

if temp_check = 3
   set cursor screen width()/2-(text width("SQUISH!")/2),screen height()/2
   ink RED,0
   PRINT "SQUISH!"
   reset_player()
endif

endfunction

Function draw_cars()

for i = 0 to array count(Car())
   if Car(i).Colour = 0
      ink RED,0
   else
      if Car(i).Colour = 1
         ink YELLOW,0
      else
         if Car(i).Colour = 2
            ink PALEBLUE,0
         endif
      endif
   endif
   text Car(i).Pos.X,Car(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text Car(i).Pos.X-3,Car(i).Pos.Y,"("+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text Car(i).Pos.X+6,Car(i).Pos.Y-9,"/"+CHR$(130)+CHR$(130)+"\"
   text Car(i).Pos.X+3,Car(i).Pos.Y-9," "+CHR$(130)+CHR$(130)+CHR$(130)
   ink DARKBLUE,0
   text Car(i).Pos.X+2,Car(i).Pos.Y+3,"o  o"

next i

ink WHITE,0

endfunction

Function move_cars()

for i = 0 to array count(Car())

if Car(i).Colour = 0
   speed = 3
else
   speed = 2
endif

Car(i).Pos.X = Car(i).Pos.X - speed

if Car(i).Pos.X < -30
   Car(i).Pos.X = screen width()+10+rnd(20)
   Car(i).Colour = rnd(2)
endif

next i

endfunction

Function draw_trucks()

for i = 0 to array count(Truck())
   if Truck(i).Colour = 0
      ink RED,0
   else
      if Truck(i).Colour = 1
         ink YELLOW,0
      else
         if Truck(i).Colour = 2
            ink PALEBLUE,0
         endif
      endif
   endif
   text Truck(i).Pos.X,Truck(i).Pos.Y-9,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+" "+CHR$(130)
   text Truck(i).Pos.X-3,Truck(i).Pos.Y-9,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+" "+CHR$(130)+"\"

text Truck(i).Pos.X,Truck(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+"="+CHR$(130)
   text Truck(i).Pos.X-3,Truck(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+"="+CHR$(130)+CHR$(130)
   ink DARKBLUE,0
   text Truck(i).Pos.X-2,Truck(i).Pos.Y+4,"O   O O"

next i

ink WHITE,0

endfunction

Function move_trucks()

for i = 0 to array count(Truck())

if Truck(i).Colour = 0
   speed = 3
else
   speed = 2
endif

Truck(i).Pos.X = Truck(i).Pos.X + speed

if Truck(i).Pos.X > screen width()+30
   Truck(i).Pos.X = -30-(rnd(10))
   Truck(i).Colour = rnd(2)
endif

next i

endfunction

Function reset_player()
wait 100
Froggie.Pos.X = screen width()/2
Froggie.Pos.Y = 500
Froggie.State = FACEUP

endfunction

Function draw_logs()

for i = 0 to array count(LogSmall())
   ink BROWN,0
   text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y-4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y-4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y+4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y+4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
next i

endfunction

Function move_logs()

for i = 0 to array count(LogSmall())

if LogSmall(i).Colour = 0
   speed = -1
else
   speed = 1
endif

LogSmall(i).Pos.X = LogSmall(i).Pos.X + speed

if LogSmall(i).Colour = 1
   if LogSmall(i).Pos.X > screen width()+30
      LogSmall(i).Pos.X = -30-(rnd(10))
   endif
endif

if LogSmall(i).Colour = 0
   if LogSmall(i).Pos.X < -30
      LogSmall(i).Pos.X = screen width()+10+rnd(20)
   endif
endif

next i

endfunction

Function print_ascii()

for i = 130 to 160
print "Ascii:",i," = ",chr$(i)
next i

endfunction

+ Code Snippet

sync on
sync rate 60

#CONSTANT faceup 0
#CONSTANT facedown 1
#CONSTANT faceleft 2
#CONSTANT faceright 3
#CONSTANT jumpup 4
#CONSTANT jumpdown 5


global RED as DWORD
global GREEN as DWORD
global BLUE as DWORD
global YELLOW as DWORD
global WHITE as DWORD
global PALEBLUE as DWORD
global PALEGREEN as DWORD
global DARKBLUE as DWORD
global DARKGREEN as DWORD
global MIDGREEN as DWORD
global BROWN as DWORD
global LIGHTBROWN as DWORD

RED = rgb(255,0,0)
GREEN = rgb(0,255,0)
BLUE = rgb(0,0,255)
YELLOW = rgb(255,255,0)
WHITE = rgb(255,255,255)
PALEBLUE = rgb(128,128,255)
PALEGREEN = rgb(128,255,128)
DARKBLUE = rgb(0,0,128)
DARKGREEN = rgb(0,80,0)
MIDGREEN = rgb(0,140,0)
BROWN = rgb(128,64,0)
LIGHTBROWN = rgb(128,64,32)


type coordXY

   X as float
   Y as float

endtype

type frog
   Pos as coordXY
   blinktime as Float
   state as Integer
   walktime as Float
   jumptime as Float
   target as coordXY
endtype

type vehicle
   Pos as coordXY
   Colour as Integer
endtype

global Froggie as frog
dim Car(5) as vehicle
dim Truck(5) as vehicle
dim LogSmall(27) as vehicle

Froggie.Pos.X = screen width()/2
Froggie.Pos.Y = 500
Froggie.blinktime = 0
Froggie.state = faceup
Froggie.walktime = 0
Froggie.jumptime = 0

for i = 0 to array count(Car())/2
   Car(i).Pos.X = rnd(screen width())
   Car(i).Pos.Y = 410
   Car(i).Colour = rnd(2)
next i
for i = array count(Car())/2 to array count(Car())
   Car(i).Pos.X = rnd(screen width())
   Car(i).Pos.Y = 374
   Car(i).Colour = rnd(2)
next 1

for i = 0 to array count(Truck())/2
   Truck(i).Pos.X = rnd(screen width())
   Truck(i).Pos.Y = 290
   Truck(i).Colour = rnd(2)
next i

for i = array count(Truck())/2 to array count(Truck())
   Truck(i).Pos.X = rnd(screen width())
   Truck(i).Pos.Y = 318
   Truck(i).Colour = rnd(2)
next i

for i = 0 to 3
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 200
   LogSmall(i).Colour = 0
next i

for i = 4 to 7
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 176
   LogSmall(i).Colour = 1
next i

for i = 8 to 11
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 152
      LogSmall(i).Colour = 0
next i

for i = 12 to 15
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 128
   LogSmall(i).Colour = 1
next i

for i = 16 to 19
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 104
      LogSmall(i).Colour = 0
next i

for i = 20 to 23
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 80
   LogSmall(i).Colour = 1
next i

for i = 24 to 27
   LogSmall(i).Pos.X = rnd(screen width())
   LogSmall(i).Pos.Y = 56
      LogSmall(i).Colour = 0
next i

ink GREEN,0

`****************** MAIN LOOP ******************

do
cls
draw_staticcomponents()
get_movement()
move_cars()
draw_cars()
move_trucks()
draw_trucks()
move_logs()
draw_logs()


select Froggie.state
   case faceup                `************* FROGGIE STATE = FACEUP *************
      draw_frog()
   endcase

   case facedown              `************* FROGGIE STATE = FACEDOWN ***********
      draw_upsidedownfrog()
   endcase

   case jumpup                `************* FROGGIE STATE = JUMPUP *************
      do_jumpup()
      draw_frog()
   endcase

   case jumpdown              `************* FROGGIE STATE = JUMPDOWN ***********
      draw_upsidedownfrog()
      do_jumpdown()
   endcase

   case default
      draw_frog()
   endcase
endselect

check_collision()

`print_ascii()
sync
loop

`************************************************ END OF MAIN LOOP ***********
`*****************************************************************************

`Check the keys for WASD movement.
Function get_movement()

if keystate(17) = 1 AND Froggie.state = faceup     `If 'W' pressed and facing up - JUMP!
   Froggie.state = jumpup
endif

if keystate(31) = 1 AND Froggie.state = facedown   `If 'S' pressed and facing down - JUMP!
   Froggie.state = jumpdown
endif

if Froggie.state < jumpup
   if keystate(17) = 1                          `W for up
      Froggie.walktime = Froggie.walktime +1
      Froggie.state = faceup
   endif

   if keystate(31) = 1                          `S for down
      Froggie.walktime = Froggie.walktime +1
      Froggie.state = facedown
   endif

   if keystate(30) = 1                          `A for left
      Froggie.Pos.X = Froggie.Pos.X -2
      Froggie.walktime = Froggie.walktime +1
   endif

   if keystate(32) = 1                          `D for right
      Froggie.Pos.X = Froggie.Pos.X +2
      Froggie.walktime = Froggie.walktime +1
   endif
endif

collide_screen()        `Do not allow outside screen boundries.

endfunction

`Stop Froggie from moving outside the screen shape.
Function collide_screen()

if Froggie.Pos.X <0+5
   Froggie.Pos.X = 0+5
endif

if Froggie.Pos.X > screen width() -10
   Froggie.Pos.X = screen width() -10
endif

if Froggie.Pos.Y < 0+5
   Froggie.Pos.Y = 0+5
endif

if Froggie.Pos.Y > screen height() -15
   Froggie.Pos.Y = screen height() -15
endif

endfunction

`Draw our froggie the right way up.  There are two animated states - leap and rest.
Function draw_frog()

ink GREEN,0

if Froggie.state = faceup     `Animation for 'rest'
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y+4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y-1,"\"
   text Froggie.Pos.X+6,Froggie.Pos.Y-1,"/"
endif

if Froggie.state = jumpup     `Animation for 'leap'
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X-2,Froggie.Pos.Y+3,"/"
   text Froggie.Pos.X+5,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X+2,Froggie.Pos.Y+3,"\"
   text Froggie.Pos.X-7,Froggie.Pos.Y-1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y-1,"-"
endif

if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_frogeyes()            `Draw the eyes!  (Froggie blinks, so a different function for this)

endfunction


`Draw Froggies eyes (right way up)  He blinks over time.
Function draw_frogeyes()

ink WHITE,0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y-1,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y-1,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y-4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y-4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction


`Draw Froggie upsidedown.  Again, two animated 'frames'.
Function draw_upsidedownfrog()

ink GREEN,0

if Froggie.state = FACEDOWN
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X+6,Froggie.Pos.Y-4,"="
   text Froggie.Pos.X-6,Froggie.Pos.Y+1,"/"
   text Froggie.Pos.X+6,Froggie.Pos.Y+1,"\"
endif

if Froggie.state = JUMPDOWN
   text Froggie.Pos.X-2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X+2,Froggie.Pos.Y,CHR$(130)
   text Froggie.Pos.X-5,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X-2,Froggie.Pos.Y-3,"\"
   text Froggie.Pos.X+5,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X+2,Froggie.Pos.Y-3,"/"
   text Froggie.Pos.X-7,Froggie.Pos.Y+1,"-"
   text Froggie.Pos.X+7,Froggie.Pos.Y+1,"-"
endif


if Froggie.walktime > 30
   Froggie.walktime = 0
endif

draw_upsidedownfrogeyes()

endfunction


Function draw_upsidedownfrogeyes()

ink WHITE,0
Froggie.blinktime = Froggie.blinktime +1

if Froggie.blinktime<200
   text Froggie.Pos.X-3,Froggie.Pos.Y+8,CHR$(176)
   text Froggie.Pos.X+3,Froggie.Pos.Y+8,CHR$(176)
else
   if Froggie.blinktime>200
      text Froggie.Pos.X-3,Froggie.Pos.Y+4,CHR$(172)
      text Froggie.Pos.X+3,Froggie.Pos.Y+4,CHR$(172)
   endif
endif

if Froggie.blinktime>205+rnd(10)
   Froggie.blinktime = 0
endif

endfunction



Function do_jumpup()

if Froggie.jumptime = 0
   Froggie.target.Y = Froggie.Pos.Y - 30
   Froggie.target.X = Froggie.Pos.X
endif

Froggie.jumptime = Froggie.jumptime + 1

if Froggie.jumptime < 5
   Froggie.Pos.Y = Froggie.Pos.Y - 6
endif

if Froggie.jumptime = 20
   Froggie.jumptime = 0
   Froggie.state = faceup
endif

endfunction


Function do_jumpdown()

if Froggie.jumptime = 0
   Froggie.target.Y = Froggie.Pos.Y + 30
   Froggie.target.X = Froggie.Pos.X
endif

Froggie.jumptime = Froggie.jumptime + 1

if Froggie.jumptime < 5
   Froggie.Pos.Y = Froggie.Pos.Y + 6
endif

if Froggie.jumptime = 20
   Froggie.jumptime = 0
   Froggie.state = facedown
endif

endfunction


Function draw_staticcomponents()

halfsolidline$ = CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
solidline$ = halfsolidline$ + halfsolidline$ + halfsolidline$ + halfsolidline$
halfgrassverge$ = "\\/|\\/\|//|/\||/|/\/||\\\\/|/\\//||\\/|\\/\|//|/\||/|/\/||\\\\/|/\\\||/|/\/||\\\\/|/\\/\/||\\\\/|/\\\||/|/"
grassverge$ = halfgrassverge$ + halfgrassverge$ + halfgrassverge$
halfriverbank$ = "           ~            ~          ~           ~          ~            ~            ~"
riverbank$ = halfriverbank$ + halfriverbank$  + halfriverbank$

ink YELLOW,0
text 0,440,solidline$               `Draw the bottom road edge
text 5,440,solidline$

ink DARKGREEN,0                     `Draw the bottommost grass verge
text 0,444,grassverge$
ink MIDGREEN,0
text -20,448,grassverge$
ink WHITE,0

for i = 0 to (screen width()/80)    `Draw the dotted road lines.
   text i*80,340,"___"
   text i*80,341,"___"
next i

ink DARKGREEN,0                     `Draw the other verge to the road, the upper one.
text 0,250,grassverge$
ink MIDGREEN,0
text -20,247,grassverge$
ink YELLOW,0

text 0,260,solidline$               `Draw the top road edge
text 5,260,solidline$

ink DARKBLUE,0                      `Draw some randomish river blueness.
text 0,220,riverbank$
text -30,200,riverbank$
text 10,180,riverbank$
text -15,160,riverbank$
text -60,140,riverbank$
text 8,120,riverbank$
text -18,100,riverbank$
text -78,80,riverbank$
text 2,60,riverbank$
text -65,40,riverbank$
if rnd(10) = 1
   ink PALEBLUE,0
   text rnd(screen width()),rnd(100)+100,"^"
endif
ink DARKGREEN,0
text 0,217,grassverge$
ink MIDGREEN,0
text -20,220,grassverge$
ink WHITE,0


ink DARKGREEN,0

`********** FIRST LILLYPAD! ***********
text 50,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 53,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 45,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 50,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 45,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 50,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 50,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 53,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 54,47,CHR$(130)+"  "+CHR$(130)
text 57,47,CHR$(130)+"  "+CHR$(130)

`********** SECOND LILLYPAD!! ************
text 200,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 203,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 195,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 200,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 195,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 200,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 200,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 203,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 204,47,CHR$(130)+"  "+CHR$(130)
text 207,47,CHR$(130)+"  "+CHR$(130)


`********** THIRD LILLYPAD!! ************
text 350,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 353,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 345,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 350,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 345,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 350,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 350,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 353,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 354,47,CHR$(130)+"  "+CHR$(130)
text 357,47,CHR$(130)+"  "+CHR$(130)


`********** FOURTH LILLYPAD!! ************
text 500,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 503,20,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 495,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 500,28,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 495,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 500,36,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 500,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
text 503,44,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

text 504,47,CHR$(130)+"  "+CHR$(130)
text 507,47,CHR$(130)+"  "+CHR$(130)

endfunction


Function check_collision()

temp_check = 0

if Froggie.Pos.Y < 220
   temp_check = 1
endif

` CHECK FOR FIRST LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 43 AND Froggie.Pos.X < 93
   temp_check = 2
endif

` CHECK FOR SECOND LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 193 AND Froggie.Pos.X < 243
   temp_check = 2
endif

` CHECK FOR THIRD LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 343 AND Froggie.Pos.X < 393
   temp_check = 2
endif

` CHECK FOR FOURTH LILLYPAD
if Froggie.Pos.Y <48 AND Froggie.Pos.X > 493 AND Froggie.Pos.X < 543
   temp_check = 2
endif

`CHECK CAR COLLISION!!
for i = 0 to array count(Car())

if Froggie.Pos.Y > Car(i).Pos.Y-20 AND Froggie.Pos.Y < Car(i).Pos.Y+10 AND Froggie.Pos.X > Car(i).Pos.X - 18 AND Froggie.Pos.X < Car(i).Pos.X + 36
   temp_check = 3
endif
next i

`CHECK TRUCK COLLISION!!
for i = 0 to array count(Truck())

if Froggie.Pos.Y > Truck(i).Pos.Y-20 AND Froggie.Pos.Y < Truck(i).Pos.Y+10 AND Froggie.Pos.X > Truck(i).Pos.X - 18 AND Froggie.Pos.X < Truck(i).Pos.X + 63
   temp_check = 3
endif
next i

`CHECK LOG COLLISION!!
for i = 0 to array count(LogSmall())

if Froggie.Pos.Y > LogSmall(i).Pos.Y-20 AND Froggie.Pos.Y < LogSmall(i).Pos.Y+20 AND Froggie.Pos.X > LogSmall(i).Pos.X - 60 AND Froggie.Pos.X < LogSmall(i).Pos.X + 10
   temp_check = 0
endif
next i

if temp_check = 1
   ink BLUE,0
   set cursor screen width()/2-(text width("SPLOOSH!")/2),screen height()/2
   Print "SPLOOSH!"
   reset_player()
endif

if temp_check = 2
   set cursor screen width()/2-(text width("WIN WIN WIN WIN WIN!")/2),screen height()/2
   Print "WIN WIN WIN WIN WIN!"
endif

if temp_check = 3
   set cursor screen width()/2-(text width("SQUISH!")/2),screen height()/2
   ink RED,0
   PRINT "SQUISH!"
   reset_player()
endif

endfunction


Function draw_cars()

for i = 0 to array count(Car())
   if Car(i).Colour = 0
      ink RED,0
   else
      if Car(i).Colour = 1
         ink YELLOW,0
      else
         if Car(i).Colour = 2
            ink PALEBLUE,0
         endif
      endif
   endif
   text Car(i).Pos.X,Car(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text Car(i).Pos.X-3,Car(i).Pos.Y,"("+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text Car(i).Pos.X+6,Car(i).Pos.Y-9,"/"+CHR$(130)+CHR$(130)+"\"
   text Car(i).Pos.X+3,Car(i).Pos.Y-9," "+CHR$(130)+CHR$(130)+CHR$(130)
   ink DARKBLUE,0
   text Car(i).Pos.X+2,Car(i).Pos.Y+3,"o  o"

next i

ink WHITE,0

endfunction


Function move_cars()

for i = 0 to array count(Car())

if Car(i).Colour = 0
   speed = 3
else
   speed = 2
endif

Car(i).Pos.X = Car(i).Pos.X - speed

if Car(i).Pos.X < -30
   Car(i).Pos.X = screen width()+10+rnd(20)
   Car(i).Colour = rnd(2)
endif

next i

endfunction


Function draw_trucks()

for i = 0 to array count(Truck())
   if Truck(i).Colour = 0
      ink RED,0
   else
      if Truck(i).Colour = 1
         ink YELLOW,0
      else
         if Truck(i).Colour = 2
            ink PALEBLUE,0
         endif
      endif
   endif
   text Truck(i).Pos.X,Truck(i).Pos.Y-9,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+" "+CHR$(130)
   text Truck(i).Pos.X-3,Truck(i).Pos.Y-9,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+" "+CHR$(130)+"\"

   text Truck(i).Pos.X,Truck(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+"="+CHR$(130)
   text Truck(i).Pos.X-3,Truck(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+"="+CHR$(130)+CHR$(130)
   ink DARKBLUE,0
   text Truck(i).Pos.X-2,Truck(i).Pos.Y+4,"O   O O"

next i

ink WHITE,0

endfunction



Function move_trucks()

for i = 0 to array count(Truck())

if Truck(i).Colour = 0
   speed = 3
else
   speed = 2
endif


Truck(i).Pos.X = Truck(i).Pos.X + speed

if Truck(i).Pos.X > screen width()+30
   Truck(i).Pos.X = -30-(rnd(10))
   Truck(i).Colour = rnd(2)
endif

next i

endfunction


Function reset_player()
wait 100
Froggie.Pos.X = screen width()/2
Froggie.Pos.Y = 500
Froggie.State = FACEUP

endfunction




Function draw_logs()

for i = 0 to array count(LogSmall())
   ink BROWN,0
   text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y-4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y-4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

   text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)

   text LogSmall(i).Pos.X-50,LogSmall(i).Pos.Y+4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
   text LogSmall(i).Pos.X-47,LogSmall(i).Pos.Y+4,CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)+CHR$(130)
next i

endfunction


Function move_logs()

for i = 0 to array count(LogSmall())

if LogSmall(i).Colour = 0
   speed = -1
else
   speed = 1
endif


LogSmall(i).Pos.X = LogSmall(i).Pos.X + speed


if LogSmall(i).Colour = 1
   if LogSmall(i).Pos.X > screen width()+30
      LogSmall(i).Pos.X = -30-(rnd(10))
   endif
endif

if LogSmall(i).Colour = 0
   if LogSmall(i).Pos.X < -30
      LogSmall(i).Pos.X = screen width()+10+rnd(20)
   endif
endif

next i


endfunction






Function print_ascii()

for i = 130 to 160
print "Ascii:",i," = ",chr$(i)
next i

endfunction

Didn't manage to get things like 'lives' in, or the turtles, or the logs dragging you along, but I tried

Back to top

Profile PM

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 16th Oct 2005 02:20

Link

you are the ascii ninja

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 16th Oct 2005 02:24

Link

I liked your synchonised swimming crocodiles/alligators, actualy

Back to top

Profile PM

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 16th Oct 2005 02:25

Link

@Tinkergirl - that's just brilliant! Go to be a winner surely.

I still haven't finished last week's terrain challenge, let alone have a stab at this one. Where does everyone get the time?

Boo!

Back to top

Profile PM Website

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 16th Oct 2005 03:57

Link

@tinkergirl: thanks, that was actually completely accidental.
Thought i had it set right for randomized placement on x axis.
Oh, well.

@spooky: well, i get up at 5am and am back home after work by 5pm, and don't really have much to do here in ElPaso.
But am usually up until 12am.

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Oct 2005 04:29

Link

I forgot about the fact that with a midnight (my time) deadline, then much of the 24 hours judging time for me will be spent asleep!

So, with your permission, I'll give you another few hours to finish of and test what you've done. I can then check out all the entries during the day (Sunday) and announce the winner Sunday evening (GMT).

Hope that's OK?

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 16th Oct 2005 04:35

Link

works for me. will post a final entry in a few.

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

xCept

21

Years of Service

User Offline

Joined: 15th Dec 2002

Location:

Posted: 16th Oct 2005 05:07

Link

Tinkergirl, WOW!

Back to top

Profile PM Email Website

sizer

20

Years of Service

User Offline

Joined: 11th Mar 2004

Location: texas

Posted: 16th Oct 2005 07:28

Link

ok, i think this is about as far as i'm going to get before TDK wakes up, so here it goes.
MY FINAL ENTRY FOR FROGGER....

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
text 275,300,"Initializing Game"
sync
setup_game()
cls
text 285,300,"Use arrow keys to move"
text 225,315,"Press [END] or [ESCAPE] key to quit"
text 275,330,"Press any key to continue"
sync
wait key
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   if fy#(1) > 190
      Collide()
   else
      watercollision()
   endif
   ChkGoal()
   ChkLvl()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">\===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
   sync
   for i=1 to 300
      Con_Traffic()
      Con_Agua()
   next i
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10`up
   if keystate(208) then fy#(1)=fy#(1)+10`down
   if keystate(203) then fx#(1)=fx#(1)-10`left
   if keystate(205) then fx#(1)=fx#(1)+10`right
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 15 step 2 `move gator left, lilly right
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 16 step 2 `move lilly right, gator left
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`road collision
function Collide()
   if fy#(1) >= 228
      for i = 1 to 22
         ` if on road die if hit by car
         if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      next i
   endif
endfunction
`-------------------------------------------
function watercollision()
` anti-collision for hoping on lilly and gator
   splash#=1
   for i = 1 to 15 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(3,i)+25) `set x to center of gator / lilly
          fy#(1) = y_col#(i,2)  `set y to center of gator / lilly
          splash#=0
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(4,i)+7) `set x to center of lilly
          fy#(1) = y_col#(i,2)  `set y to center of lilly
          splash#=0
      endif
   next i
   for i = 2 to 16 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
         fx#(1) = (x_col#(3,i)+7) `set x to center of lilly
         fy#(1) = y_col#(i,2)  `set y to center of lilly
         splash#=0
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator
         fx#(1) = (x_col#(4,i)+25) `set x to center of gator
         fy#(1) = y_col#(i,2)  `set y to center of gator
         splash#=0
      endif
   next i
   if splash#=1 then dead(fx#(1),fy#(1))
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
         inc score#(1)
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
   next i
endfunction
`-------------------------------------------
`check goals if full inc level add bonus for lives left
function ChkLvl()
   for i = 1 to 9
      if goal#(i,1) = 1 then inc t#
   next i
   if t# = 9
      score#(1) = score#(1) + lives#(1)
      inc level#(1)
      inc lives#(1)
      for i = 1 to 9
         goal#(i,1) = 0
      next i
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
   sync
   wait 500
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

+ Code Snippet

Rem Project: frogger
Rem Created: 10/9/2005 7:10:44 PM
Rem Creator: sizer : gregory.sizer@us.army.mil
`-------------------------------------------
cls
sync on
sync rate 0
set display mode 800,600,32
set text size 10
`game variables
dim fx#(1)
dim fy#(1)
dim lives#(1)
dim goal#(9,3)
dim level#(1)
dim score#(1)
dim y_col#(27,2)
dim x_col#(4,22)
dim gator$(2)
dim lilly$(1)
dim car$(1)
dim l_semi$(1)
dim r_semi$(1)
dim l_start#(1)
dim r_start#(1)
`initialize hazards
text 275,300,"Initializing Game"
sync
setup_game()
cls
text 285,300,"Use arrow keys to move"
text 225,315,"Press [END] or [ESCAPE] key to quit"
text 275,330,"Press any key to continue"
sync
wait key
`-------------------------------------------
`main loop
do
   cls
   text 20,550,"Lives Left:" + str$(lives#(1)) + "    Level:" + str$(level#(1)) + "    FPS:" + str$(screen fps()) + "      Score:" + str$(score#(1))
   Draw_BG()
   Con_Frog()
   Con_Traffic()
   Con_Agua()
   if fy#(1) > 190
      Collide()
   else
      watercollision()
   endif
   ChkGoal()
   ChkLvl()
   if lives#(1)<0 then GameOver()
   ` end program when [END] key is pressed
   if keystate(207) then end
   sync
loop
`-------------------------------------------
`setup game
function setup_game()
   gator$(1)=">\===----"
   gator$(2)="----===/<"
   lilly$(1)="%%%"
   car$(1)="[#]"
   l_semi$(1)="[#]=[#####]"
   r_semi$(1)="[#####]=[#]"
   l_start#(1)=len(l_semi$)
   l_start#(1)=800-l_start#
   r_start#(1)=len(r_semi$)
   fx#(1)=400
   fy#(1)=500
   lives#(1)=9
   level#(1)=1
   for i = 1 to 22
      y_col#(i,1)=462-(i*10)
      y_col#(i,2)=190-(i*10)
      x_col#(1,i)=(i*10)+r_start#(1)
      x_col#(2,i)=l_start#(1)-(i*10)
   next i
   for i = 1 to 9
      goal#(i,1)=0
   next i
   goal#(1,2)=65
   goal#(1,3)=105
   goal#(2,2)=145
   goal#(2,3)=185
   goal#(3,2)=225
   goal#(3,3)=265
   goal#(4,2)=305
   goal#(4,3)=345
   goal#(5,2)=385
   goal#(5,3)=425
   goal#(6,2)=465
   goal#(6,3)=505
   goal#(7,2)=545
   goal#(7,3)=585
   goal#(8,2)=625
   goal#(8,3)=665
   goal#(9,2)=705
   goal#(9,3)=745
   sync
   for i=1 to 300
      Con_Traffic()
      Con_Agua()
   next i
endfunction
`-------------------------------------------
`main screen
function Draw_BG()
   ink RGB(0,64,0),RGB(0,0,0)
   for s2=1 to 3
      print "########     #####     #####     #####     #####     #####     #####     #####     #####     ########"
   next s2
   ink RGB(0,0,255),RGB(255,255,255)
   for w=1 to 10
      print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
   next i
   ink RGB(108,80,40),RGB(240,216,40)
   for s1=1 to 3
      print ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
   next s1
   ink RGB(255,255,0),RGB(0,0,0)
   for r=1 to 15
      select r
         case 4 : print "=====================================================================================================" :endcase
         case 8 : print "=====================================================================================================" :endcase
         case 12 : print "=====================================================================================================" :endcase
         case default : print "" : endcase
      endselect
   next r
   ink RGB(108,80,40),RGB(108,80,40)
   for s0=1 to 3
      print "*****************************************************************************************************"
   next s0
   print "-----------------------------------------------------------------------------------------------------"
endfunction
`-------------------------------------------4
`control frogger
function Con_Frog()
   if keystate(200) then fy#(1)=fy#(1)-10`up
   if keystate(208) then fy#(1)=fy#(1)+10`down
   if keystate(203) then fx#(1)=fx#(1)-10`left
   if keystate(205) then fx#(1)=fx#(1)+10`right
   if fy#(1) >= 499 then fy#(1)=498
   if fx#(1) >= 791 then fx#(1)=790
   if fx#(1) <= 9 then fx#(1)=10
   if fy#(1) <= 9 then fy#(1)=10
   ink RGB(0,255,0),RGB(0,0,0)
   text fx#(1),fy#(1),"@"
endfunction
`-------------------------------------------
`control traffic
function Con_Traffic()
   ink RGB(255,255,255),RGB(0,0,0)
   for i = 1 to 22
` sets current vehicle moving left position
      x_col#(1,i)=x_col#(1,i)-(i*0.5)
      if x_col#(1,i)<=1 then x_col#(1,i)=l_start#(1)
` sets current vehicle moving right position
      x_col#(2,i)=x_col#(2,i)+(i*0.5)
      if x_col#(2,i)>=790 then x_col#(2,i)=r_start#(1)
   next i
` display vehicles in current position
   for i = 1 to 22
      text x_col#(1,i),y_col#(i,1),car$(1)
      text x_col#(2,i),y_col#(i,1),car$(1)
   next i
endfunction
`-------------------------------------------
`control water stuff
function Con_Agua()
   ink RGB(0,128,0),RGB(0,0,0)
   for i = 1 to 16
      x_col#(3,i)=x_col#(3,i)-(i*0.5)
      if x_col#(3,i)<=1 then x_col#(3,i)=l_start#(1)
      x_col#(4,i)=x_col#(4,i)+(i*0.5)
      if x_col#(4,i)>=790 then x_col#(4,i)=r_start#(1)
   next i
   for i = 1 to 15 step 2 `move gator left, lilly right
      text x_col#(3,i),y_col#(i,2),gator$(1)
      text x_col#(4,i),y_col#(i,2),lilly$(1)
   next i
   for i = 2 to 16 step 2 `move lilly right, gator left
      text x_col#(3,i),y_col#(i,2),lilly$(1)
      text x_col#(4,i),y_col#(i,2),gator$(2)
   next i
endfunction
`-------------------------------------------
`road collision
function Collide()
   if fy#(1) >= 228
      for i = 1 to 22
         ` if on road die if hit by car
         if fy#(1) <= y_col#(i,1)+12 and fx#(1) <= x_col#(1,i)+15 and fy#(1) >= y_col#(i,1)-5 and fx#(1) >= x_col#(1,i)-5 then dead(fx#(1),fy#(1))
      next i
   endif
endfunction
`-------------------------------------------
function watercollision()
` anti-collision for hoping on lilly and gator
   splash#=1
   for i = 1 to 15 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(3,i)+25) `set x to center of gator / lilly
          fy#(1) = y_col#(i,2)  `set y to center of gator / lilly
          splash#=0
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
          fx#(1) = (x_col#(4,i)+7) `set x to center of lilly
          fy#(1) = y_col#(i,2)  `set y to center of lilly
          splash#=0
      endif
   next i
   for i = 2 to 16 step 2
      if fx#(1) >= x_col#(3,i) and fx#(1) <= (x_col#(3,i)+15) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator or lilly
         fx#(1) = (x_col#(3,i)+7) `set x to center of lilly
         fy#(1) = y_col#(i,2)  `set y to center of lilly
         splash#=0
      endif
      if fx#(1) >= x_col#(4,i) and fx#(1) <= (x_col#(4,i)+50) and fy#(1) >= y_col#(i,2)-5 and fy#(1) <= y_col#(i,2)+8 ` if on gator
         fx#(1) = (x_col#(4,i)+25) `set x to center of gator
         fy#(1) = y_col#(i,2)  `set y to center of gator
         splash#=0
      endif
   next i
   if splash#=1 then dead(fx#(1),fy#(1))
endfunction
`-------------------------------------------
`check if in goal then reset frog and increment score.
function ChkGoal()
   for i = 1 to 9
      if fx#(1) > goal#(i,2) and fx#(1) < goal#(i,3) and fy#(1) < 42
         goal#(i,1) = 1
         fx#(1)=400
         fy#(1)=500
         inc score#(1)
      endif
      if goal#(i,1) = 1 then text (goal#(i,2)+20),22,"@"
   next i
endfunction
`-------------------------------------------
`check goals if full inc level add bonus for lives left
function ChkLvl()
   for i = 1 to 9
      if goal#(i,1) = 1 then inc t#
   next i
   if t# = 9
      score#(1) = score#(1) + lives#(1)
      inc level#(1)
      inc lives#(1)
      for i = 1 to 9
         goal#(i,1) = 0
      next i
   endif
endfunction
`-------------------------------------------
`draw dead frog and restart player less 1 life
function dead(x,y)
   text x,y,"X"
   text (x+30),(y-25),"YOU DIED!"
   fx#(1)=400
   fy#(1)=500
   lives#(1)=lives#(1)-1
   sync
   wait 500
endfunction
`-------------------------------------------
`display game over screen
function GameOver()
   cls
   set text size 48
   text 350,300,"GAME OVER"
   set text size 10
   text 300,400,"PRESS ANY KEY TO RESTART"
   sync
   wait key
   lives#(1)=9
   fx#(1)=400
   fy#(1)=500
endfunction

-------------------------------------------------------------
AMD Sempron 2800+ : 768MB RAM DDR400 : ATI 9800PRO 128MB AIW

Back to top

Profile PM Email Website

Tinkergirl

21

Years of Service

User Offline

Joined: 1st Jul 2003

Location: United Kingdom

Posted: 16th Oct 2005 12:37

Link

Ok, final entry for me!

sync on
sync rate 60

#CONSTANT faceup 0
#CONSTANT facedown 1
#CONSTANT faceleft 2
#CONSTANT faceright 3
#CONSTANT jumpup 4
#CONSTANT jumpdown 5
#CONSTANT squished 6
#CONSTANT drowned 7

global debounce as integer