The DB Classic Programming Challenge Thread

Author

Message

Quirkyjim

17

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 29th Jan 2009 20:53

Link

Lol, on monday i got out of school from a dusting of snow.

~QJ

Back to top

Profile PM Email

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 30th Jan 2009 00:30

Link

My computer with DB and my challenge entry (Not finished)... died.... I have to reinstall windows according to our friendly forums tech support.

Time is money. I just ripped you off.

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 30th Jan 2009 00:50

Link

@Irojo
Can you hook your HDD to another comp as a slave drive and copy the files before you re-install windows?

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

Back to top

Profile PM

Irojo

18

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 30th Jan 2009 02:38 Edited at: 30th Jan 2009 02:39

Link

I'm not very skilled with computer terms. Would you explain?

Time is money. I just ripped you off.

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 30th Jan 2009 04:57 Edited at: 30th Jan 2009 04:58

Link

On pc's, you can plug a max of 2 hard drives (or CD/DVD drives) onto a single cable (you will know because it is a REALLY FAT gray wire (approximately 40 small wires stuck together to make a band).

You might have to unhook your cd drive for this.

The hard drive back (where it gets plugged into) will look something like this:

____________________________
| ::::::::::::::::::: | :::: | oooo |
----------- -----------------

The farthest left section is where the band wire (the gray one) plugs into. Notice the notch on the bottom (I think it is the bottom). It will correspond to a notch on the cable, so that it only goes in 1 way.

The second section is for a jumper that will tell the computer how to treat the drive (master, slave, or CS). Look on top of the hard drive for info about which 2 pins to jump for CS (cable select). Make sure it is plugged into the SECOND plug on the wire (there are 2). You want cable select because that tells the computer that if it is in the second plug, it is a slave (additional storage, really), or Master if it is the first plug (primary boot drive).

The Blue end of the gray wire plugs into the motherboard (again, match up the notches).

For the 3rd set of pins (the 4 big ones), you plug in one of the plugs from the power supply (the big silver box that gets plugged into the wall). These will only go in one way and are standard for all hard drives and cd drives (so if you aren't sure what it should look like, or can't find a spare one, look at the computers other drives).

For the first plug, you will want a hard drive from another computer (or you could bring your hard drive to another computer entirely). This one should work. Ensure that it is set either to CS (cable select) or Master and plug the cable into it.

Boot the computer.

Windows should install the drivers to read it. You should then be able to move your important files from the "dead" hard drive to the one that works.

*NOTE 1: Make sure the power is OFF and the computer is disconnected from the wall before moving cables.

*NOTE 2: Make sure to GROUND YOURSELF before handling electrical components (make contact with the computers metal casing for a couple seconds).

*NOTE 3: If you don't know what a hard drive looks like, it is the only thing on the computer connected with the big flat gray cable that is NOT exposed from the front of the computer (usually it is about the size of a floppy drive and right underneath the floppy drive).

*NOTE 4: If the hard drive is completely corrupted, this might not work.

*NOTE 5: I probably got certain facts wrong here (ie, what things mean) but this IS how to do it (I have done it MANY times).

*NOTE 6: Don't pull ANY cables by the cable itself, and make sure all of them are fully inserted. When inserting, make sure to push directly forward and don't rock the cables (could cause shorting).

I think thats it, lemme know if you have any trouble.

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

Back to top

Profile PM

Ashingda 27

18

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 30th Jan 2009 16:18

Link

The challenge is over!

Results:

BN2:
Intresting use of bitmap, I had no idea we can do something like that. Codes were nice and simple.

Phaelax:
Clean looking windowed viewer and extra features (mouse wheel) and plus for easy implementation.

Runner up

+ Code Snippet

BN2 Productions

Winner

+ Code Snippet

Phaelax

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 30th Jan 2009 20:04

Link

Yay I won! Wish more people would enter.

Though this game is simple, there's a variety of ways it could be coded or represented.

Challenge:
Create a version of hangman

Rules:
Points awarded for graphics, but the primary focus will be on code structure and optimization techniques.

Deadline:
February 9, 2009

I'll be looking for small code, low memory usage and speed. Those numbers will be relative to the presentation given. Obviously, if you display a graphical hangman versus an ASCII-based version, the code will be longer.

Your signature has been erased by a mod because it's larger than 600x120

Back to top

Profile PM Email Website

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 30th Jan 2009 23:37

Link

Congrats Phaelax! Nice challenge.

Unfortunately, I couldn't work on my entry because of work. This is how far I got:

set display mode 800,600,32
sync on

dim text$(1000)

maxlines=0
endfound=0
repeat
   read line$
   if line$="<THE END>"
      endfound=1
   endif
   maxlines=maxlines+(1-endfound)
   text$(maxlines)=line$
until endfound=1

bend=200
maxbendang#=180
bendmode=2

bendvel#=0

sliderpos=0
slidersize=40

pageon=1
maxpages=maxlines-19
maxpages#=maxpages

Windowx=100
Windowy=50
WXS=500  : rem Window X size
WYS=300  : rem Window Y size

set text font "arial",1
set text size 15

`suspend for key

do

cls rgb(255,255,255)

gosub HandleInput

gosub DisplayWindow

print "FPS: ";screen FPS()
   print "Slider pos: ";sliderpos

sync

loop

HandleInput:

if returnkey()=1
      if oldenter=0
         bendmode=2-bendmode+2
      endif
      oldenter=1
   else
      oldenter=0
   endif

if spacekey()=1
      returntozero=1
   endif
   if bend=0 and bendvel#=0 then returntozero=0

if returntozero=1
      if bend>0
         if bendvel#>0
            bendvel#=bendvel#-1
         else
            bendvel#=bendvel#-0.6
         endif
      endif
      if bend<0
         if bendvel#<0
            bendvel#=bendvel#+1
         else
            bendvel#=bendvel#+0.6
         endif
      endif
      bend=bend+bendvel#
      if bend=0 and bendvel#<1 and bendvel#>-1 then bendvel#=0
   endif

if upkey()=1
      if oldupkey=0 and pageon>1
         pageon=pageon-1
      endif
      oldupkey=1
   else
      oldupkey=0
   endif

if downkey()=1
      if olddownkey=0 and pageon<maxpages
         pageon=pageon+1
      endif
      olddownkey=1
   else
      olddownkey=0
   endif

if mouseclick()=1
      if sliderhold=0 and oldmouse=0
         if mousey()>30+sliderpos+windowy and mousey()<30+sliderpos+slidersize+windowy
            sinang#=sin((mousey()-windowy)/315.0*maxbendang#)*bend
            `print sinang#+320+windowx
            `print mousex()
            `print sinang#+340+windowx
            `suspend for key
            if mousex()>sinang#+(WXS-20)+windowx and mousex()<sinang#+WXS+windowx
               sliderhold=1
               slideroffset=mousey()-(30+sliderpos+windowy)
            endif
         endif
      endif
      oldmouse=1
      if sliderhold=1
         sliderpos=mousey()-(windowy+30)-slideroffset
         if sliderpos<1 then sliderpos=1
         if sliderpos>270-slidersize then sliderpos=270-slidersize
         pageon=sliderpos/(270.0-slidersize)*(maxpages#-1)+1
      endif
   else
      sliderhold=0
      oldmouse=0
   endif

if mouseclick()=3
      bend=(mousex()-320)
      maxbendang#=mousey()
      bendvel#=0
   endif

return

DisplayWindow:

sliderpos=(pageon-1)/(maxpages#-1)*(270-slidersize)

ink 0,0

if bendmode=2
      bend1=bend
      bend=0
   endif

for y=1 to 315
      y#=y
      ang#=y#/315*maxbendang#
      ang2#=(y#-2)/315*maxbendang#
      sinang#=sin(ang#)*bend
      rem Left line
      line sinang#+windowx,y+windowy,sin(ang2#)*bend+windowx,(y-1)+windowy
      rem Scrollbar Line
      if y>15 then line sin(ang#)*bend+(WXS-20)+windowx,y+windowy,sin(ang2#)*bend+(WXS-20)+windowx,(y-1)+windowy
      rem Right Line
      line sinang#+WXS+windowx,y+windowy,sin(ang2#)*bend+WXS+windowx,(y-1)+windowy
      rem UP Arrow
      if y>18 and y<26
         line sinang#+(y-18)+(WXS-10)+windowx,y+windowy,(sinang#-(y-18))+(WXS-10)+windowx,y+windowy
      endif
      rem DOWN Arrow
      if y>304 and y<312
         line sinang#+(312-y)+(WXS-10)+windowx,y+windowy,(sinang#-(312-y))+(WXS-10)+windowx,y+windowy
      endif
      rem Slider
      if y>=sliderpos+30 and y<sliderpos+slidersize+30
         line sinang#+(WXS-20)+windowx,y+windowy,sinang#+WXS+windowx,y+windowy
      endif
   next i
   line windowx,windowy,windowx+WXS,windowy
   botwindowx=sin(maxbendang#)*bend
   line windowx+botwindowx,windowy+315,windowx+botwindowx+WXS,windowy+315

rem Top Bar
   barx=sin(0.047619*maxbendang#)*bend
   line windowx+barx,windowy+15,windowx+barx+WXS,windowy+15

rem Up Button
   upBx=sin(0.095238*maxbendang#)*bend
   line windowx+upBx+(WXS-20),windowy+30,windowx+upBx+WXS,windowy+30

rem Down Button
   downBx=sin(0.952381*maxbendang#)*bend
   line windowx+downBx+(WXS-20),windowy+300,windowx+downBx+WXS,windowy+300

y#=15
   forto=pageon+18
   if forto>maxlines then forto=maxlines
   for i=pageon to forto
      y#=y#+15
      ang#=y#/315*maxbendang#
      text sin(ang#)*bend+20+windowx,y#+windowy,text$(i)
         `ink 255,0
         `dot sin(ang#)*bend+20+windowx,y#+windowy
         `ink 0,0
   next i

if bendmode=2

bend=bend1

for y=1 to 316
         get image y,windowx,y+windowy-1,windowx+WXS+1,y+windowy
      next y

cls rgb(255,255,255)
      for y=1 to 316
         y#=y
         ang#=y#/315*maxbendang#
         sinang#=sin(ang#)*bend
         paste image y,windowx+sinang#,y+windowy-1
      next y

endif

return

suspend for key

end

data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "<THE END>"

+ Code Snippet

set display mode 800,600,32
sync on

dim text$(1000)

maxlines=0
endfound=0
repeat
   read line$
   if line$="<THE END>"
      endfound=1
   endif
   maxlines=maxlines+(1-endfound)
   text$(maxlines)=line$
until endfound=1

bend=200
maxbendang#=180
bendmode=2

bendvel#=0

sliderpos=0
slidersize=40

pageon=1
maxpages=maxlines-19
maxpages#=maxpages

Windowx=100
Windowy=50
WXS=500  : rem Window X size
WYS=300  : rem Window Y size

set text font "arial",1
set text size 15

`suspend for key

do

   cls rgb(255,255,255)

   gosub HandleInput

   gosub DisplayWindow

   print "FPS: ";screen FPS()
   print "Slider pos: ";sliderpos

   sync

loop

HandleInput:

   if returnkey()=1
      if oldenter=0
         bendmode=2-bendmode+2
      endif
      oldenter=1
   else
      oldenter=0
   endif

   if spacekey()=1
      returntozero=1
   endif
   if bend=0 and bendvel#=0 then returntozero=0

   if returntozero=1
      if bend>0
         if bendvel#>0
            bendvel#=bendvel#-1
         else
            bendvel#=bendvel#-0.6
         endif
      endif
      if bend<0
         if bendvel#<0
            bendvel#=bendvel#+1
         else
            bendvel#=bendvel#+0.6
         endif
      endif
      bend=bend+bendvel#
      if bend=0 and bendvel#<1 and bendvel#>-1 then bendvel#=0
   endif

   if upkey()=1
      if oldupkey=0 and pageon>1
         pageon=pageon-1
      endif
      oldupkey=1
   else
      oldupkey=0
   endif

   if downkey()=1
      if olddownkey=0 and pageon<maxpages
         pageon=pageon+1
      endif
      olddownkey=1
   else
      olddownkey=0
   endif

   if mouseclick()=1
      if sliderhold=0 and oldmouse=0
         if mousey()>30+sliderpos+windowy and mousey()<30+sliderpos+slidersize+windowy
            sinang#=sin((mousey()-windowy)/315.0*maxbendang#)*bend
            `print sinang#+320+windowx
            `print mousex()
            `print sinang#+340+windowx
            `suspend for key
            if mousex()>sinang#+(WXS-20)+windowx and mousex()<sinang#+WXS+windowx
               sliderhold=1
               slideroffset=mousey()-(30+sliderpos+windowy)
            endif
         endif
      endif
      oldmouse=1
      if sliderhold=1
         sliderpos=mousey()-(windowy+30)-slideroffset
         if sliderpos<1 then sliderpos=1
         if sliderpos>270-slidersize then sliderpos=270-slidersize
         pageon=sliderpos/(270.0-slidersize)*(maxpages#-1)+1
      endif
   else
      sliderhold=0
      oldmouse=0
   endif

   if mouseclick()=3
      bend=(mousex()-320)
      maxbendang#=mousey()
      bendvel#=0
   endif

return

DisplayWindow:

   sliderpos=(pageon-1)/(maxpages#-1)*(270-slidersize)

   ink 0,0

   if bendmode=2
      bend1=bend
      bend=0
   endif

   for y=1 to 315
      y#=y
      ang#=y#/315*maxbendang#
      ang2#=(y#-2)/315*maxbendang#
      sinang#=sin(ang#)*bend
      rem Left line
      line sinang#+windowx,y+windowy,sin(ang2#)*bend+windowx,(y-1)+windowy
      rem Scrollbar Line
      if y>15 then line sin(ang#)*bend+(WXS-20)+windowx,y+windowy,sin(ang2#)*bend+(WXS-20)+windowx,(y-1)+windowy
      rem Right Line
      line sinang#+WXS+windowx,y+windowy,sin(ang2#)*bend+WXS+windowx,(y-1)+windowy
      rem UP Arrow
      if y>18 and y<26
         line sinang#+(y-18)+(WXS-10)+windowx,y+windowy,(sinang#-(y-18))+(WXS-10)+windowx,y+windowy
      endif
      rem DOWN Arrow
      if y>304 and y<312
         line sinang#+(312-y)+(WXS-10)+windowx,y+windowy,(sinang#-(312-y))+(WXS-10)+windowx,y+windowy
      endif
      rem Slider
      if y>=sliderpos+30 and y<sliderpos+slidersize+30
         line sinang#+(WXS-20)+windowx,y+windowy,sinang#+WXS+windowx,y+windowy
      endif
   next i
   line windowx,windowy,windowx+WXS,windowy
   botwindowx=sin(maxbendang#)*bend
   line windowx+botwindowx,windowy+315,windowx+botwindowx+WXS,windowy+315

   rem Top Bar
   barx=sin(0.047619*maxbendang#)*bend
   line windowx+barx,windowy+15,windowx+barx+WXS,windowy+15

   rem Up Button
   upBx=sin(0.095238*maxbendang#)*bend
   line windowx+upBx+(WXS-20),windowy+30,windowx+upBx+WXS,windowy+30

   rem Down Button
   downBx=sin(0.952381*maxbendang#)*bend
   line windowx+downBx+(WXS-20),windowy+300,windowx+downBx+WXS,windowy+300

   y#=15
   forto=pageon+18
   if forto>maxlines then forto=maxlines
   for i=pageon to forto
      y#=y#+15
      ang#=y#/315*maxbendang#
      text sin(ang#)*bend+20+windowx,y#+windowy,text$(i)
         `ink 255,0
         `dot sin(ang#)*bend+20+windowx,y#+windowy
         `ink 0,0
   next i

   if bendmode=2

      bend=bend1

      for y=1 to 316
         get image y,windowx,y+windowy-1,windowx+WXS+1,y+windowy
      next y

      cls rgb(255,255,255)
      for y=1 to 316
         y#=y
         ang#=y#/315*maxbendang#
         sinang#=sin(ang#)*bend
         paste image y,windowx+sinang#,y+windowy-1
      next y

   endif

return

suspend for key

end

data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "sync on"
data "a"
data "dim line$(1000)"
data "maxlinesize=100"
data "open to read 1,"
data "totalbytes=file size"
data "word$="
data "linesize=0"
data "lineon=1"
data "repeat"
data "a"
data "   `cls"
data ""
data "   read byte 1,ascii"
data "   bytesread=bytesread+1"
data "   if chr$(ascii)<> and ascii<>13 and ascii<>10"
data "      word$=word$+chr$(ascii)"
data "      linesize=linesize+1"
data "      if linesize=maxlinesize"
data "         if len(word$)=linesize"
data "            line$(lineon)=line$(lineon)+left$(word$,maxlinesize-len(line$(lineon)))"
data "            lineon=lineon+1"
data "            word$="
data "            linesize=0"
data "         else"
data "            lineon=lineon+1"
data "            linesize=len(word$)"
data "         endif"
data "     endif"
data "   else"
data "<THE END>"

You can scroll with the scrollbar or the arrow keys.
Hold left and right click and move the move to change the bend.
Press space bar to reset the bend.
Press enter to switch between bend modes.

"There is no charge for awesomeness" - The Kung Fu Panda

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 5th Feb 2009 23:34

Link

Is this thread dying? Where are the fierce competitors? I don't have much time these days to actually code... I'll try to put something together if there are at least two other challengers.

Enjoy your day.

Back to top

Profile PM

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 6th Feb 2009 07:55

Link

Been working on one, sorta. Its kinda been a hell week for me though.

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

Back to top

Profile PM

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 9th Feb 2009 23:50

Link

Ok, here's something... Just didn't have time to do any polishing at all! I'm sure this is buggy, but it seems to work. I don't think I followed the flow of the subroutines I had in mind. The newgame flag was there to check for a restart but I didn't follow up with that! Oh Well!

I'm not sure what is going on, but for some reason, I just can't seem to code 2d with 3d anymore. Maybe it's changing the text sizes, I just don't know... Anyway, the 'gimmick' of this hangman version is the coding of the puzzles. I used a super easy encryption method that seems to be very difficult to break unless you know the key. If you weren't staring at the source, I wonder how hard it would actually be to crack - but since you are staring at the source, can anyone figure out what I did for the encryption?

remstart
   ==============================================================
   =  Title  : Hangman
   =  Author : Latch
   =  Date   : 02/05/2009
   =  Update :
   =  Version: .01
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   cls 128
   gosub _make_victim
   gosub _read_puzzle
   newgame=1

do
      if newgame=1
         gosub _choose_puzzle
         newgame=0
      endif

gosub _make_boxes

sync
   loop

end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _make_victim:
      make object sphere 1,27
      make object box 2,10,60,10
      make mesh from object 2,2
      add limb 1,1,2
      offset limb 1,1,0,-30-12,0
      delete object 2
      delete mesh 2
      make object box 2,5,30,5
      offset limb 2,0,0,-15,0
      make mesh from object 2,2
      delete object 2
      make object 2,2,0
      delete mesh 2
      make mesh from object 2,2
      add limb 1,2,2
      offset limb 1,2,-5,-20,0
      rotate limb 1,2,0,0,wrapvalue(-50)
      add limb 1,3,2
      offset limb 1,3,5,-20,0
      rotate limb 1,3,0,0,wrapvalue(50)
      add limb 1,4,2
      offset limb 1,4,-5,-70,0
      rotate limb 1,4,0,0,wrapvalue(-50)
      add limb 1,5,2
      offset limb 1,5,5,-70,0
      rotate limb 1,5,0,0,wrapvalue(50)
      delete mesh 2
      delete object 2

for lb=0 to 5
         hide limb 1,lb
      next lb

position camera -60,-50,-200
   return
`----------------------------------------------------------------
   _read_puzzle:
      ct=110
      maxc=255
      dim puzzle(ct,maxc)
      randomize 15
      for p=1 to ct
         read a
         for n=1 to a
            variance=rnd(31)
            read puzzle(p,n)
            puzzle(p,n)=puzzle(p,n)+variance
         next n
      next p
      randomize timer()
   return
`----------------------------------------------------------------
   _choose_puzzle:
      p=rnd(ct-1)+1
      for n=1 to maxc
         if puzzle(p,n)=0 then exit
      next n
      psize=n-1
      dim guessed(psize)
      set text transparent
      set text font "courier new",1
      set text size 36
      sync
      wd=text width("Q")
      ht=text height("gM")
      dim alphabet(26)
      acount=0
      strikes=0
   return
`----------------------------------------------------------------
   _make_boxes:
      ink rgb(255,255,255),0
      for b=1 to psize
         rem check for spaces and don't draw a box
         if puzzle(p,b)<>32
            line (b*wd)+1,51+ht,(b*wd)+wd-2,51+ht
         endif
         if puzzle(p,b)=39 or puzzle(p,b)=32 then guessed(b)=1
         if guessed(b)
            text b*wd,50,chr$(puzzle(p,b))
         endif
      next b
      set text font "arial",1
      set text size 20
      text 0,0,"Chosen Letters : "
      for a=1 to acount
         text 120+a*wd,0,chr$(alphabet(a))
      next acount

gosub _guess
   return
`----------------------------------------------------------------
   _guess:
      backdrop off
      ink rgb(255,255,0),0

sync
      text 0,160,"Type a letter key to make a guess"
      text 0,200,"Press"
      set text opaque
      text text width("Press "),200,"ENTER"
      set text transparent
      text text width("Press ENTER "),200,"to solve puzzle"

rem check for keypresses
      letter=asc(upper$(inkey$()))

rem stop key repeat
      ok=nk
      nk=keystate(scancode())

rem a regular entry, first check that it is alpha
      if letter > 64 and letter < 91
         sum=0

rem key repeat check
         if nk > ok

rem add letter to chosen letter list
            inc acount
            for a=1 to acount
               if alphabet(a)=letter
                  dec acount
                  letterhit=1
                  exit
               endif
            next a
            if letterhit=1
               letterhit=0
            else
               alphabet(acount)=letter
            endif

rem test guess
            for n=1 to psize
               if puzzle(p,n)=letter
                  guessed(n)=1
                  nostrike=1
               endif
               rem check for a win
               sum=sum+guessed(n)
               if sum=psize then goto _win
            next n
            rem show the hangman
            if nostrike ! 1
               inc strikes
               show limb 1,strikes-1
               if strikes=6 then goto _lose
            endif
            nostrike=0
         endif
      endif

rem check for return key
      if letter=13
         ink rgb(255,255,0),128
         text 0,240,"CAREFULLY type the solution to the puzzle and press ENTER"
         set cursor 0,280
         repeat
            sync
         until scancode()=0
         input ">>> ";sol$
         sol$=upper$(sol$)
         a$=""
         for n=1 to psize
            a$=a$+chr$(puzzle(p,n))
         next n
         if sol$=a$
            gosub _win
         else
            gosub _lose
         endif
      endif

set text transparent
      set text font "courier new",1
      set text size 36
      backdrop on

return
`----------------------------------------------------------------
   _win:
      cls 0
      repeat
         text 0,0,"You WIN!!!"
         text 0,20,"Play Again? (Y/N)"
         result$=upper$(inkey$())
         sync
      until result$="Y" or result$="N"

if result$="Y"
         for lb=0 to 5
            hide limb 1,lb
         next lb
         cls 128
         goto _choose_puzzle
      endif
      end
   return
`----------------------------------------------------------------
   _lose:
      cls 0
      repeat
         text 0,0,"You lose"
         text 0,20,"Play Again? (Y/N)"
         result$=upper$(inkey$())
         sync
      until result$="Y" or result$="N"

if result$="Y"
         for lb=0 to 5
            hide limb 1,lb
         next lb
         cls 128
         goto _choose_puzzle
      endif
      end
   return

rem =============================================================
rem = FUNCTIONS
rem =============================================================

rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
data 8,46,59,53,54,51,55,66,60
data 10,55,56,59,45,60,55,71,49,65,71
data 10,42,49,62,61,43,47,39,73,38,69
data 10,66,72,63,73,75,59,74,47,63,66
data 6,56,62,73,70,69,75
data 8,61,58,46,64,35,66,53,40
data 9,56,59,62,67,57,36,71,56,40
data 24,64,65,63,24,75,73,65,1,50,44,59,45,56,51,11,69,42,24,54,54,76,68,68,82
data 6,54,70,48,59,60,67
data 41,56,3,38,73,51,53,28,61,64,21,56,70,49,32,68,50,54
data 56,10,47,56,3,65,78,70,62,62,27,57,67,67,23,57,61,2,42,3,57,55,79,55
data 7,57,46,48,17,51,73,66
data 8,47,64,66,41,74,51,66,69
data 18,76,52,65,67,20,69,63,23,70,71,49,84,26,52,73,46,71,51
data 32,62,41,50,59,56,68,17,37,82,70,76,42,69,23,51
data 75,64,11,51,63,70,67,77,13,58,62,74,43,87,61,48,61
data 3,56,50,41
data 14,75,49,62,48,44,25,89,56,84,81,65,38,65,41
data 5,42,77,78,65,52
data 11,52,63,66,65,39,2,63,62,79,43,67
data 9,80,81,37,65,30,69,55,51,60
data 9,54,49,78,75,84,13,47,64,58
data 6,83,70,70,74,71,50
data 26,64,52,53,49,58,47,55,79,50,26,57,57,47,62,18,66,44,57,26,78,42,65,73,49,53,84
data 21,66,27,50,62,21,65,48,70,56,4,75,71,54,14,42,17,55,51,60,72,61
data 5,68,52,80,64,87
data 20,84,56,58,57,21,67,82,7,69,54,7,78,70,82,76,6,47,62,62,68
data 10,47,82,53,82,43,82,56,61,66,76
data 8,76,64,62,59,74,47,58,77
data 10,47,48,78,70,60,77,81,50,66,49
data 12,57,72,61,42,57,67,47,71,58,45,59,76
data 4,73,68,67,84
data 4,54,49,61,66
data 8,56,58,57,55,63,57,50,83
data 9,70,58,65,55,40,56,65,79,77
data 34,56,49,40,67,43,28,65,53,45,68,53,25,60,30,39
data 8,59,65,62,61,1,81,57,46,77,45,10,83,18,47,22,80,49,84
data 4,65,85,73,62
data 7,68,55,55,54,66,73,65
data 10,55,75,62,59,49,46,56,58,74,62
data 9,65,85,51,40,69,72,58,62,80
data 12,65,69,47,54,69,77,23,60,64,57,45,38
data 13,49,79,61,47,48,79,18,56,54,38,53,64,60
data 19,53,45,7,57,71,69,74,27,55,73,55,44,62,55,57,66,73,62,67
data 11,60,48,59,45,61,63,63,54,43,61,76
data 6,60,55,53,52,38,42
data 14,58,77,58,60,49,62,19,57,67,65,71,64,61,72
data 24,76,55,60,55,58,46,27,59,74,64,77,65,64,27,79,63,4,53,75,41,69,55,57,36
data 5,36,48,73,78,61
data 8,38,54,69,63,57,61,54,43
data 6,69,66,57,58,62,78
data 5,59,59,61,50,69
data 4,51,47,52,61
data 7,75,44,46,67,45,53,67
data 8,34,78,49,46,59,71,68,60
data 8,34,76,42,57,52,59,67,56
data 7,55,58,35,60,60,57,66
data 10,46,40,67,46,46,59,53,61,68,51
data 9,56,58,62,53,65,60,48,70,60
data 6,50,51,51,62,68,48
data 3,73,64,49
data 12,49,61,68,45,54,48,66,13,68,54,69,53
data 11,58,79,83,14,60,67,23,75,80,45,68
data 13,66,48,64,66,12,60,54,66,25,63,47,38,42
data 17,56,66,58,64,20,47,80,3,62,61,74,57,17,55,48,48,69
data 17,66,61,41,52,62,18,66,55,12,63,73,57,1,53,47,55,44
data 26,57,68,34,59,5,55,76,17,71,70,66,61,1,39,44,79,77,72,50,63,42,8,68,57,60,68
data 5,50,42,63,65,38
data 4,45,45,59,66
data 10,34,80,78,75,38,53,56,79,64,41
data 11,43,70,57,75,71,49,36,59,45,48,78
data 13,49,42,57,60,58,30,42,63,48,70,59,63,65
data 4,51,46,64,56
data 11,65,62,71,50,66,56,55,57,61,43,70
data 5,60,41,57,40,70
data 9,60,58,45,81,52,72,63,42,52
data 30,62,52,19,65,69,41,76,45,3,48,32,65,55,52,63,63,69,2,69,59,15,75,52,60,3,43,57,71,71,51
data 7,62,62,65,56,72,63,63
data 13,50,59,45,72,80,46,73,73,61,52,45,40,62
data 44,81,45,52,43,30,81,56,79,12,64,71,75,71,52
data 44,53,72,16,65,72,64,24,48,64,47,72,23,47,63,26,58,70,15,79,57,52,7,75,59,75,74,43,62,62
data 7,72,69,58,60,60,73,49
data 8,60,76,70,56,52,44,50,58
data 20,46,68,74,59,18,43,66,75,44,81,19,78,45,55,20,73,79,41,42,63
data 12,68,42,54,45,34,61,8,77,59,64,47,47
data 5,68,59,78,61,37
data 11,49,49,59,59,69,65,46,79,57,54,60
data 9,75,66,47,65,82,52,60,39,52
data 11,71,71,73,62,53,62,49,74,67,81,58
data 7,82,50,66,49,45,58,68
data 27,44,56,69,42,23,75,78,66,25,55,56,66,74,61,44,24,61,72,82,78,12,37,48,65,70,53,68
data 6,50,73,37,54,71,67
data 9,62,58,53,59,65,69,65,57,63
data 7,60,42,65,52,62,67,69
data 16,54,70,76,43,32,76,66,41,4,69,50,58,66,68,49,67
data 13,75,42,55,27,48,44,81,53,27,73,61,56,41
data 10,54,47,64,52,72,67,64,57,70,44
data 7,83,75,54,63,58,59,61
data 11,67,43,58,80,56,62,56,87,62,70,68
data 8,74,51,75,65,59,48,82,51
data 14,62,65,40,44,76,68,51,66,32,72,72,73,83,56
data 5,63,37,56,81,49
data 4,70,48,72,74
data 4,78,47,82,85
data 10,56,53,72,76,42,53,65,64,42,68
data 13,69,65,58,52,73,58,82,77,67,59,65,56,60
data 4,56,73,58,62
data 8,60,45,70,64,45,77,40,69
data 4,60,59,50,47
data 7,83,82,61,73,61,57,43
data 5,66,85,73,59,65
data 5,49,73,52,71,62
data 5,66,66,56,62,78
data 3,83,63,81

+ Code Snippet

remstart
   ==============================================================
   =  Title  : Hangman
   =  Author : Latch
   =  Date   : 02/05/2009
   =  Update :
   =  Version: .01
   ==============================================================
   Comments
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   cls 128
   gosub _make_victim
   gosub _read_puzzle
   newgame=1

   do
      if newgame=1
         gosub _choose_puzzle
         newgame=0
      endif

      gosub _make_boxes

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _make_victim:
      make object sphere 1,27
      make object box 2,10,60,10
      make mesh from object 2,2
      add limb 1,1,2
      offset limb 1,1,0,-30-12,0
      delete object 2
      delete mesh 2
      make object box 2,5,30,5
      offset limb 2,0,0,-15,0
      make mesh from object 2,2
      delete object 2
      make object 2,2,0
      delete mesh 2
      make mesh from object 2,2
      add limb 1,2,2
      offset limb 1,2,-5,-20,0
      rotate limb 1,2,0,0,wrapvalue(-50)
      add limb 1,3,2
      offset limb 1,3,5,-20,0
      rotate limb 1,3,0,0,wrapvalue(50)
      add limb 1,4,2
      offset limb 1,4,-5,-70,0
      rotate limb 1,4,0,0,wrapvalue(-50)
      add limb 1,5,2
      offset limb 1,5,5,-70,0
      rotate limb 1,5,0,0,wrapvalue(50)
      delete mesh 2
      delete object 2

      for lb=0 to 5
         hide limb 1,lb
      next lb

      position camera -60,-50,-200
   return
`----------------------------------------------------------------
   _read_puzzle:
      ct=110
      maxc=255
      dim puzzle(ct,maxc)
      randomize 15
      for p=1 to ct
         read a
         for n=1 to a
            variance=rnd(31)
            read puzzle(p,n)
            puzzle(p,n)=puzzle(p,n)+variance
         next n
      next p
      randomize timer()
   return
`----------------------------------------------------------------
   _choose_puzzle:
      p=rnd(ct-1)+1
      for n=1 to maxc
         if puzzle(p,n)=0 then exit
      next n
      psize=n-1
      dim guessed(psize)
      set text transparent
      set text font "courier new",1
      set text size 36
      sync
      wd=text width("Q")
      ht=text height("gM")
      dim alphabet(26)
      acount=0
      strikes=0
   return
`----------------------------------------------------------------
   _make_boxes:
      ink rgb(255,255,255),0
      for b=1 to psize
         rem check for spaces and don't draw a box
         if puzzle(p,b)<>32
            line (b*wd)+1,51+ht,(b*wd)+wd-2,51+ht
         endif
         if puzzle(p,b)=39 or puzzle(p,b)=32 then guessed(b)=1
         if guessed(b)
            text b*wd,50,chr$(puzzle(p,b))
         endif
      next b
      set text font "arial",1
      set text size 20
      text 0,0,"Chosen Letters : "
      for a=1 to acount
         text 120+a*wd,0,chr$(alphabet(a))
      next acount

      gosub _guess
   return
`----------------------------------------------------------------
   _guess:
      backdrop off
      ink rgb(255,255,0),0

      sync
      text 0,160,"Type a letter key to make a guess"
      text 0,200,"Press"
      set text opaque
      text text width("Press "),200,"ENTER"
      set text transparent
      text text width("Press ENTER "),200,"to solve puzzle"

      rem check for keypresses
      letter=asc(upper$(inkey$()))

      rem stop key repeat
      ok=nk
      nk=keystate(scancode())

      rem a regular entry, first check that it is alpha
      if letter > 64 and letter < 91
         sum=0

         rem key repeat check
         if nk > ok

            rem add letter to chosen letter list
            inc acount
            for a=1 to acount
               if alphabet(a)=letter
                  dec acount
                  letterhit=1
                  exit
               endif
            next a
            if letterhit=1
               letterhit=0
            else
               alphabet(acount)=letter
            endif

            rem test guess
            for n=1 to psize
               if puzzle(p,n)=letter
                  guessed(n)=1
                  nostrike=1
               endif
               rem check for a win
               sum=sum+guessed(n)
               if sum=psize then goto _win
            next n
            rem show the hangman
            if nostrike ! 1
               inc strikes
               show limb 1,strikes-1
               if strikes=6 then goto _lose
            endif
            nostrike=0
         endif
      endif

      rem check for return key
      if letter=13
         ink rgb(255,255,0),128
         text 0,240,"CAREFULLY type the solution to the puzzle and press ENTER"
         set cursor 0,280
         repeat
            sync
         until scancode()=0
         input ">>> ";sol$
         sol$=upper$(sol$)
         a$=""
         for n=1 to psize
            a$=a$+chr$(puzzle(p,n))
         next n
         if sol$=a$
            gosub _win
         else
            gosub _lose
         endif
      endif

      set text transparent
      set text font "courier new",1
      set text size 36
      backdrop on

   return
`----------------------------------------------------------------
   _win:
      cls 0
      repeat
         text 0,0,"You WIN!!!"
         text 0,20,"Play Again? (Y/N)"
         result$=upper$(inkey$())
         sync
      until result$="Y" or result$="N"

      if result$="Y"
         for lb=0 to 5
            hide limb 1,lb
         next lb
         cls 128
         goto _choose_puzzle
      endif
      end
   return
`----------------------------------------------------------------
   _lose:
      cls 0
      repeat
         text 0,0,"You lose"
         text 0,20,"Play Again? (Y/N)"
         result$=upper$(inkey$())
         sync
      until result$="Y" or result$="N"

      if result$="Y"
         for lb=0 to 5
            hide limb 1,lb
         next lb
         cls 128
         goto _choose_puzzle
      endif
      end
   return


rem =============================================================
rem = FUNCTIONS
rem =============================================================

rem =============================================================
rem = DATA STATEMENTS
rem =============================================================
data 8,46,59,53,54,51,55,66,60
data 10,55,56,59,45,60,55,71,49,65,71
data 10,42,49,62,61,43,47,39,73,38,69
data 10,66,72,63,73,75,59,74,47,63,66
data 6,56,62,73,70,69,75
data 8,61,58,46,64,35,66,53,40
data 9,56,59,62,67,57,36,71,56,40
data 24,64,65,63,24,75,73,65,1,50,44,59,45,56,51,11,69,42,24,54,54,76,68,68,82
data 6,54,70,48,59,60,67
data 41,56,3,38,73,51,53,28,61,64,21,56,70,49,32,68,50,54
data 56,10,47,56,3,65,78,70,62,62,27,57,67,67,23,57,61,2,42,3,57,55,79,55
data 7,57,46,48,17,51,73,66
data 8,47,64,66,41,74,51,66,69
data 18,76,52,65,67,20,69,63,23,70,71,49,84,26,52,73,46,71,51
data 32,62,41,50,59,56,68,17,37,82,70,76,42,69,23,51
data 75,64,11,51,63,70,67,77,13,58,62,74,43,87,61,48,61
data 3,56,50,41
data 14,75,49,62,48,44,25,89,56,84,81,65,38,65,41
data 5,42,77,78,65,52
data 11,52,63,66,65,39,2,63,62,79,43,67
data 9,80,81,37,65,30,69,55,51,60
data 9,54,49,78,75,84,13,47,64,58
data 6,83,70,70,74,71,50
data 26,64,52,53,49,58,47,55,79,50,26,57,57,47,62,18,66,44,57,26,78,42,65,73,49,53,84
data 21,66,27,50,62,21,65,48,70,56,4,75,71,54,14,42,17,55,51,60,72,61
data 5,68,52,80,64,87
data 20,84,56,58,57,21,67,82,7,69,54,7,78,70,82,76,6,47,62,62,68
data 10,47,82,53,82,43,82,56,61,66,76
data 8,76,64,62,59,74,47,58,77
data 10,47,48,78,70,60,77,81,50,66,49
data 12,57,72,61,42,57,67,47,71,58,45,59,76
data 4,73,68,67,84
data 4,54,49,61,66
data 8,56,58,57,55,63,57,50,83
data 9,70,58,65,55,40,56,65,79,77
data 34,56,49,40,67,43,28,65,53,45,68,53,25,60,30,39
data 8,59,65,62,61,1,81,57,46,77,45,10,83,18,47,22,80,49,84
data 4,65,85,73,62
data 7,68,55,55,54,66,73,65
data 10,55,75,62,59,49,46,56,58,74,62
data 9,65,85,51,40,69,72,58,62,80
data 12,65,69,47,54,69,77,23,60,64,57,45,38
data 13,49,79,61,47,48,79,18,56,54,38,53,64,60
data 19,53,45,7,57,71,69,74,27,55,73,55,44,62,55,57,66,73,62,67
data 11,60,48,59,45,61,63,63,54,43,61,76
data 6,60,55,53,52,38,42
data 14,58,77,58,60,49,62,19,57,67,65,71,64,61,72
data 24,76,55,60,55,58,46,27,59,74,64,77,65,64,27,79,63,4,53,75,41,69,55,57,36
data 5,36,48,73,78,61
data 8,38,54,69,63,57,61,54,43
data 6,69,66,57,58,62,78
data 5,59,59,61,50,69
data 4,51,47,52,61
data 7,75,44,46,67,45,53,67
data 8,34,78,49,46,59,71,68,60
data 8,34,76,42,57,52,59,67,56
data 7,55,58,35,60,60,57,66
data 10,46,40,67,46,46,59,53,61,68,51
data 9,56,58,62,53,65,60,48,70,60
data 6,50,51,51,62,68,48
data 3,73,64,49
data 12,49,61,68,45,54,48,66,13,68,54,69,53
data 11,58,79,83,14,60,67,23,75,80,45,68
data 13,66,48,64,66,12,60,54,66,25,63,47,38,42
data 17,56,66,58,64,20,47,80,3,62,61,74,57,17,55,48,48,69
data 17,66,61,41,52,62,18,66,55,12,63,73,57,1,53,47,55,44
data 26,57,68,34,59,5,55,76,17,71,70,66,61,1,39,44,79,77,72,50,63,42,8,68,57,60,68
data 5,50,42,63,65,38
data 4,45,45,59,66
data 10,34,80,78,75,38,53,56,79,64,41
data 11,43,70,57,75,71,49,36,59,45,48,78
data 13,49,42,57,60,58,30,42,63,48,70,59,63,65
data 4,51,46,64,56
data 11,65,62,71,50,66,56,55,57,61,43,70
data 5,60,41,57,40,70
data 9,60,58,45,81,52,72,63,42,52
data 30,62,52,19,65,69,41,76,45,3,48,32,65,55,52,63,63,69,2,69,59,15,75,52,60,3,43,57,71,71,51
data 7,62,62,65,56,72,63,63
data 13,50,59,45,72,80,46,73,73,61,52,45,40,62
data 44,81,45,52,43,30,81,56,79,12,64,71,75,71,52
data 44,53,72,16,65,72,64,24,48,64,47,72,23,47,63,26,58,70,15,79,57,52,7,75,59,75,74,43,62,62
data 7,72,69,58,60,60,73,49
data 8,60,76,70,56,52,44,50,58
data 20,46,68,74,59,18,43,66,75,44,81,19,78,45,55,20,73,79,41,42,63
data 12,68,42,54,45,34,61,8,77,59,64,47,47
data 5,68,59,78,61,37
data 11,49,49,59,59,69,65,46,79,57,54,60
data 9,75,66,47,65,82,52,60,39,52
data 11,71,71,73,62,53,62,49,74,67,81,58
data 7,82,50,66,49,45,58,68
data 27,44,56,69,42,23,75,78,66,25,55,56,66,74,61,44,24,61,72,82,78,12,37,48,65,70,53,68
data 6,50,73,37,54,71,67
data 9,62,58,53,59,65,69,65,57,63
data 7,60,42,65,52,62,67,69
data 16,54,70,76,43,32,76,66,41,4,69,50,58,66,68,49,67
data 13,75,42,55,27,48,44,81,53,27,73,61,56,41
data 10,54,47,64,52,72,67,64,57,70,44
data 7,83,75,54,63,58,59,61
data 11,67,43,58,80,56,62,56,87,62,70,68
data 8,74,51,75,65,59,48,82,51
data 14,62,65,40,44,76,68,51,66,32,72,72,73,83,56
data 5,63,37,56,81,49
data 4,70,48,72,74
data 4,78,47,82,85
data 10,56,53,72,76,42,53,65,64,42,68
data 13,69,65,58,52,73,58,82,77,67,59,65,56,60
data 4,56,73,58,62
data 8,60,45,70,64,45,77,40,69
data 4,60,59,50,47
data 7,83,82,61,73,61,57,43
data 5,66,85,73,59,65
data 5,49,73,52,71,62
data 5,66,66,56,62,78
data 3,83,63,81

Enjoy your day.

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Feb 2009 21:59

Link

I'll review the entry tonight, but Latch wins since nobody else bothered. Where is everyone? Did everyone else move on to DBP?

Your signature has been erased by a mod because it's larger than 600x120

Back to top

Profile PM Email Website

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 10th Feb 2009 22:11 Edited at: 10th Feb 2009 22:13

Link

Haven't gone to DBP, just no time to code as of late. Hopefully will be able to get into the next challenge.

Started on this one, but didn't get enough to justify posting, but just for the heck of it:

It draws the hangman. Press 1-5 to control the different parts being drawn. All done with text.

X=240 : Y=20
SYNC ON : SYNC RATE 0

DO
	DrawGallows(X-5,Y-5)
	IF INKEY$()<>""
		BODYCOUNT=VAL(INKEY$())
	ENDIF
	
	GOSUB Ctrl_Hangman	
	SYNC
	CLS

LOOP

END

Ctrl_Hangman:
	
	IF BODYCOUNT>0
		DrawHead(X,Y,74+(BODYCOUNT/3))
	ENDIF
	IF BODYCOUNT>1
		DrawBody(X,Y)
	ENDIF
	IF BODYCOUNT>2
		DrawRHand(X,Y)
	ENDIF
	IF BODYCOUNT>3
		DrawLHand(X,Y)
	ENDIF
	IF BODYCOUNT>4
		DrawLLeg(X,Y)
	ENDIF
	IF BODYCOUNT>5
		DrawRLeg(X,Y)
	ENDIF

RETURN

FUNCTION DrawGallows(Xx,Yy)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",255
	SET TEXT SIZE 20
	TEXT Xx+2,Yy,"    "+chr$(194)+chr$(196)+chr$(196)+chr$(191)
	TEXT Xx,Yy+19,"            "+chr$(179)
	TEXT Xx,Yy+38,"            "+chr$(179)
	TEXT Xx,Yy+57,"            "+chr$(179)
	TEXT Xx,Yy+76,"            "+chr$(179)
	TEXT Xx,Yy+95,"            "+chr$(179)
	TEXT Xx+4,Yy+19,"           "+chr$(179)
	TEXT Xx+4,Yy+38,"           "+chr$(179)
	TEXT Xx+4,Yy+57,"           "+chr$(179)
	TEXT Xx+4,Yy+76,"           "+chr$(179)
	TEXT Xx+4,Yy+95,"           "+chr$(179)

TEXT Xx,Yy+110,"  "+chr$(194)+chr$(196)+chr$(196)+chr$(196)+chr$(193)+chr$(196)+chr$(196)+chr$(196)+chr$(194)

ENDFUNCTION

FUNCTION DrawHead(X,Y,FLAG)
if flag=76
	ink rgb(255,0,0),0
endif
	SET TEXT FONT "Arial",2
	set text size 16
	text X+16,Y+13,chr$(FLAG)
ENDFUNCTION

FUNCTION DrawBody(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",255
	set text size 20
	text X+17,Y+26,chr$(197)
ENDFUNCTION

FUNCTION DrawLLeg(X,Y)
ink rgb(255,255,255),0
	set text size 30
	set text font "Arial",1
	text X+17,Y+40,"/"
ENDFUNCTION

FUNCTION DrawRLeg(X,Y)
ink rgb(255,255,255),0
	set text size 30
	set text font "Arial",1
	text X+15+TEXT WIDTH("/"),Y+40,"\"
ENDFUNCTION

FUNCTION DrawRHand(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",2
	set text size 20
	text X+7,Y+25,chr$(67)
ENDFUNCTION

FUNCTION DrawLHand(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",2
	set text size 20
	text X+27,Y+27,chr$(68)
ENDFUNCTION

+ Code Snippet

X=240 : Y=20
SYNC ON : SYNC RATE 0

DO
	DrawGallows(X-5,Y-5)
	IF INKEY$()<>""
		BODYCOUNT=VAL(INKEY$())
	ENDIF
	
	GOSUB Ctrl_Hangman	
	SYNC
	CLS

LOOP

END

Ctrl_Hangman:
	
	IF BODYCOUNT>0
		DrawHead(X,Y,74+(BODYCOUNT/3))
	ENDIF
	IF BODYCOUNT>1
		DrawBody(X,Y)
	ENDIF
	IF BODYCOUNT>2
		DrawRHand(X,Y)
	ENDIF
	IF BODYCOUNT>3
		DrawLHand(X,Y)
	ENDIF
	IF BODYCOUNT>4
		DrawLLeg(X,Y)
	ENDIF
	IF BODYCOUNT>5
		DrawRLeg(X,Y)
	ENDIF

RETURN



FUNCTION DrawGallows(Xx,Yy)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",255
	SET TEXT SIZE 20
	TEXT Xx+2,Yy,"    "+chr$(194)+chr$(196)+chr$(196)+chr$(191)
	TEXT Xx,Yy+19,"            "+chr$(179)
	TEXT Xx,Yy+38,"            "+chr$(179)
	TEXT Xx,Yy+57,"            "+chr$(179)
	TEXT Xx,Yy+76,"            "+chr$(179)
	TEXT Xx,Yy+95,"            "+chr$(179)
	TEXT Xx+4,Yy+19,"           "+chr$(179)
	TEXT Xx+4,Yy+38,"           "+chr$(179)
	TEXT Xx+4,Yy+57,"           "+chr$(179)
	TEXT Xx+4,Yy+76,"           "+chr$(179)
	TEXT Xx+4,Yy+95,"           "+chr$(179)

	TEXT Xx,Yy+110,"  "+chr$(194)+chr$(196)+chr$(196)+chr$(196)+chr$(193)+chr$(196)+chr$(196)+chr$(196)+chr$(194)


ENDFUNCTION

FUNCTION DrawHead(X,Y,FLAG)
if flag=76
	ink rgb(255,0,0),0
endif
	SET TEXT FONT "Arial",2
	set text size 16
	text X+16,Y+13,chr$(FLAG)
ENDFUNCTION

FUNCTION DrawBody(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",255
	set text size 20
	text X+17,Y+26,chr$(197)
ENDFUNCTION

FUNCTION DrawLLeg(X,Y)
ink rgb(255,255,255),0
	set text size 30
	set text font "Arial",1
	text X+17,Y+40,"/"
ENDFUNCTION

FUNCTION DrawRLeg(X,Y)
ink rgb(255,255,255),0
	set text size 30
	set text font "Arial",1
	text X+15+TEXT WIDTH("/"),Y+40,"\"
ENDFUNCTION


FUNCTION DrawRHand(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",2
	set text size 20
	text X+7,Y+25,chr$(67)
ENDFUNCTION

FUNCTION DrawLHand(X,Y)
ink rgb(255,255,255),0
	SET TEXT FONT "Arial",2
	set text size 20
	text X+27,Y+27,chr$(68)
ENDFUNCTION

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

Back to top

Profile PM

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 11th Feb 2009 21:42

Link

Not bad BN2! The hands were kinda funny!

If there isn't any real interest in this thread, I don't know if I even want to bother posting a challenge.

Enjoy your day.

Back to top

Profile PM

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 12th Feb 2009 23:28 Edited at: 12th Feb 2009 23:33

Link

How about a challenge to make an object or organism that moves realistically; by that I mean a ball that actually turns as it rolls or a fish that swishes its tail to swim along. Anything you like
as long as its movement is logical.

It's disappointing that this thread isn't doing so well, I was starting to get enthusiastic reading through the last few challenges.
I have hardly been coding and still without a freaking computer, I'm going a bit doolally to be honest

and don't even feel like coding.
I need some inspiration!

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 12th Feb 2009 23:47

Link

I wonder how the DBP challenges are doing? I haven't looked over there in awhile.

Your signature has been erased by a mod because it's larger than 600x120

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Feb 2009 01:05 Edited at: 13th Feb 2009 01:27

Link

May as well make use of this double post.

Any ideas for the DBCC website you guys might have?

[url="http://dbcc.zimnox.com"]

[/url]

Back to top

Profile PM Email Website

Quirkyjim

17

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 13th Feb 2009 01:45

Link

OMG, Phaelax! Can I has that siggy? I <3 it!

~QJ

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 13th Feb 2009 19:14

Link

I haven't had time for a challenge, but if you could extend the deadline to the 22nd Feb, I will do something...

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Feb 2009 23:09

Link

Well there technically hasn't been a new challenge officially set.

[url="http://dbcc.zimnox.com"]

[/url]

Back to top

Profile PM Email Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 15th Feb 2009 02:09 Edited at: 15th Feb 2009 10:51

Link

@ Phaelax

How on earth did you change my sig?

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 15th Feb 2009 10:37

Link

Well, I'm still disappointed at the lack of interest lately but I suppose we'll trudge on...

Challenge: Remake of the Video Game BERZERK

You can find the basic details of the game here : Berzerk including how to play and the look of the game.

The game goes something like this: You are a humanoid in a sectioned room that takes up the whole screen. There are robots that are trying to shoot you. You can shoot the robots. The walls are deadly, collisions with robots or walls are deadly to both the robots and the players. The goal is to kill all of the robots and escape the room through 1 of the exits. When you escape the room, another room is redrawn and you are positioned on the opposite side of the screen from where you exited. The entrance you just came through is now blocked and there are other exits on the board. The difficulty increases as you clear all of the robots. There's a happy face named Evil Otto that makes it's appearance after most of the robots in the room have been iced. Evil Otto can pass through walls without getting hurt and destroys both robots and player. Evil Otto bounces up and down and follows the player until the player escapes or gets killed.

A 2d remake is fine. If you are feeling ambitious, a 3d remake would be great!

Deadline 15 March 2009 (midnight the 16th GMT)

Enjoy your day.

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 15th Feb 2009 10:55

Link

Nice challenge!

I love challenges that have to do with game making! What made you pick that game? And a whole MONTH to do it...

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Ashingda 27

18

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 15th Feb 2009 19:27

Link

going to have to look up methods of generating random mazes. I'll dig some up in the older posts buf if anyone has any tips let me know plz.

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 15th Feb 2009 21:29

Link

Quote: "What made you pick that game? And a whole MONTH to do it..."

Do you think that's too much time?

I remember playing this game and it was pretty fun. Very simple, but hectic as it goes along...

It seems fairly simple to design, basic graphics, ai that's not too sophisticated - unless one adds their own creativity to the mix. It should be challenging for the developer also since the characters should be animated, there has to be the control of multiple shooting objects - the robots and the player - there has to be movement control and collision detection of some sort...

Quote: "going to have to look up methods of generating random mazes"

The original game had very basic rooms. Usually a box of walls around the screen with 1 or 2 exits and a blocked off entrance, and the screen itself may have been divded into at the most, 4 or 5 distinct areas. If you simply made a series of rooms with a simple design, that would probably suffice and allow you the control of exiting one and entering another in the correct place. Also it would eliminate the need for a maze generator - but the methods used are open!

Enjoy your day.

Back to top

Profile PM

Quirkyjim

17

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 15th Feb 2009 21:41

Link

Hmmm, might have a job for my maze makifyer!

Anyone wanna use it here it is (I won't be entering)

x1 = 0
y1 = 0

x2 = 20
y2 = 20

color = rgb(0,0,0)

for a = 1 to 8
   for b = 1 to 8
      if MazeSmall(a,b) = 0
         x1 = b * 20
         x2 = x1 + 20

y1 = a * 20
         y2 = y1 + 20
         color = rgb(0,0,0)
         draw_box(x1,y1,x2,y2,color)
      else
         if MazeSmall(a,b) = 1
            x1 = b * 20
            x2 = x1 + 20

y1 = a * 20
            y2 = y1 + 20
            color = rgb(255,0,0)
            draw_box(x1,y1,x2,y2,color)
         else
            if MazeSmall(a,b) = 2
               x1 = b * 20
               x2 = x1 + 20

y1 = a * 20
               y2 = y1 + 20

color = rgb(255,0,255)
               draw_box(x1,y1,x2,y2,color)
            else
               if MazeSmall(a,b) = 3

x1 = b * 20
                  x2 = x1 + 20

y1 = a * 20
                  y2 = y1 + 20

color = rgb(0,255,0)
                  draw_box(x1,y1,x2,y2,color)
               endif
            endif
         endif
      endif

next b
next a

wait key
end

function draw_box(x1,y1,x2,y2,color)

ink color, 0
   box x1,y1,x2,y2

endfunction

+ Code Snippet

x1 = 0
y1 = 0

x2 = 20
y2 = 20

color = rgb(0,0,0)

for a = 1 to 8
   for b = 1 to 8
      if MazeSmall(a,b) = 0
         x1 = b * 20
         x2 = x1 + 20

         y1 = a * 20
         y2 = y1 + 20
         color = rgb(0,0,0)
         draw_box(x1,y1,x2,y2,color)
      else
         if MazeSmall(a,b) = 1
            x1 = b * 20
            x2 = x1 + 20

            y1 = a * 20
            y2 = y1 + 20
            color = rgb(255,0,0)
            draw_box(x1,y1,x2,y2,color)
         else
            if MazeSmall(a,b) = 2
               x1 = b * 20
               x2 = x1 + 20

               y1 = a * 20
               y2 = y1 + 20

               color = rgb(255,0,255)
               draw_box(x1,y1,x2,y2,color)
            else
               if MazeSmall(a,b) = 3

                  x1 = b * 20
                  x2 = x1 + 20

                  y1 = a * 20
                  y2 = y1 + 20

                  color = rgb(0,255,0)
                  draw_box(x1,y1,x2,y2,color)
               endif
            endif
         endif
      endif

   next b
next a

wait key
end

function draw_box(x1,y1,x2,y2,color)

   ink color, 0
   box x1,y1,x2,y2

endfunction

Here's a maze to test it:

dim MazeSmall(8,8)

`Row 1
MazeSmall(1,1)=1
MazeSmall(1,2)=1
MazeSmall(1,3)=1
MazeSmall(1,4)=1
MazeSmall(1,5)=0
MazeSmall(1,6)=0
MazeSmall(1,7)=0
MazeSmall(1,8)=3

`Row 2
MazeSmall(2,1)=0
MazeSmall(2,2)=0
MazeSmall(2,3)=0
MazeSmall(2,4)=0
MazeSmall(2,5)=1
MazeSmall(2,6)=1
MazeSmall(2,7)=0
MazeSmall(2,8)=1

`Row 3
MazeSmall(3,1)=0
MazeSmall(3,2)=1
MazeSmall(3,3)=1
MazeSmall(3,4)=0
MazeSmall(3,5)=0
MazeSmall(3,6)=1
MazeSmall(3,7)=0
MazeSmall(3,8)=1

`Row 4
MazeSmall(4,1)=0
MazeSmall(4,2)=1
MazeSmall(4,3)=1
MazeSmall(4,4)=1
MazeSmall(4,5)=1
MazeSmall(4,6)=1
MazeSmall(4,7)=0
MazeSmall(4,8)=1

`Row 5
MazeSmall(5,1)=0
MazeSmall(5,2)=1
MazeSmall(5,3)=0
MazeSmall(5,4)=0
MazeSmall(5,5)=1
MazeSmall(5,6)=1
MazeSmall(5,7)=0
MazeSmall(5,8)=1

`Row 6
MazeSmall(6,1)=0
MazeSmall(6,2)=1
MazeSmall(6,3)=1
MazeSmall(6,4)=0
MazeSmall(6,5)=1
MazeSmall(6,6)=1
MazeSmall(6,7)=0
MazeSmall(6,8)=1

`Row 7
MazeSmall(7,1)=0
MazeSmall(7,2)=0
MazeSmall(7,3)=0
MazeSmall(7,4)=0
MazeSmall(7,5)=0
MazeSmall(7,6)=0
MazeSmall(7,7)=0
MazeSmall(7,8)=1

`Row 8
MazeSmall(8,1)=2
MazeSmall(8,2)=1
MazeSmall(8,3)=1
MazeSmall(8,4)=1
MazeSmall(8,5)=1
MazeSmall(8,6)=1
MazeSmall(8,7)=1
MazeSmall(8,8)=1

+ Code Snippet

dim MazeSmall(8,8)

`Row 1
MazeSmall(1,1)=1
MazeSmall(1,2)=1
MazeSmall(1,3)=1
MazeSmall(1,4)=1
MazeSmall(1,5)=0
MazeSmall(1,6)=0
MazeSmall(1,7)=0
MazeSmall(1,8)=3

`Row 2
MazeSmall(2,1)=0
MazeSmall(2,2)=0
MazeSmall(2,3)=0
MazeSmall(2,4)=0
MazeSmall(2,5)=1
MazeSmall(2,6)=1
MazeSmall(2,7)=0
MazeSmall(2,8)=1

`Row 3
MazeSmall(3,1)=0
MazeSmall(3,2)=1
MazeSmall(3,3)=1
MazeSmall(3,4)=0
MazeSmall(3,5)=0
MazeSmall(3,6)=1
MazeSmall(3,7)=0
MazeSmall(3,8)=1

`Row 4
MazeSmall(4,1)=0
MazeSmall(4,2)=1
MazeSmall(4,3)=1
MazeSmall(4,4)=1
MazeSmall(4,5)=1
MazeSmall(4,6)=1
MazeSmall(4,7)=0
MazeSmall(4,8)=1

`Row 5
MazeSmall(5,1)=0
MazeSmall(5,2)=1
MazeSmall(5,3)=0
MazeSmall(5,4)=0
MazeSmall(5,5)=1
MazeSmall(5,6)=1
MazeSmall(5,7)=0
MazeSmall(5,8)=1

`Row 6
MazeSmall(6,1)=0
MazeSmall(6,2)=1
MazeSmall(6,3)=1
MazeSmall(6,4)=0
MazeSmall(6,5)=1
MazeSmall(6,6)=1
MazeSmall(6,7)=0
MazeSmall(6,8)=1

`Row 7
MazeSmall(7,1)=0
MazeSmall(7,2)=0
MazeSmall(7,3)=0
MazeSmall(7,4)=0
MazeSmall(7,5)=0
MazeSmall(7,6)=0
MazeSmall(7,7)=0
MazeSmall(7,8)=1

`Row 8
MazeSmall(8,1)=2
MazeSmall(8,2)=1
MazeSmall(8,3)=1
MazeSmall(8,4)=1
MazeSmall(8,5)=1
MazeSmall(8,6)=1
MazeSmall(8,7)=1
MazeSmall(8,8)=1

You'll have to adapt it, of course, but feel free to use it.

~QJ

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 16th Feb 2009 13:10

Link

Quote: "Do you think that's too much time?"

Not at all!

Quote: "I remember playing this game and it was pretty fun. Very simple, but hectic as it goes along...

It seems fairly simple to design, basic graphics, ai that's not too sophisticated - unless one adds their own creativity to the mix. It should be challenging for the developer also since the characters should be animated, there has to be the control of multiple shooting objects - the robots and the player - there has to be movement control and collision detection of some sort..."

Shouldn't be too hard to do... I've already sketched out a few things.

TheComet

Peachy, and the Chaos of the Gems

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 17th Feb 2009 01:47

Link

Quote: "How on earth did you change my sig?"

I got bored and checked the DBCC log. Apparently, a few people tried to login to the website, knowing they had no account set up. The website only records failed logins, and it looks like someone used their TGC info.... The log has been wiped clean and I have a short memory, so you're safe now.

[url="http://dbcc.zimnox.com"]

[/url]

Back to top

Profile PM Email Website

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 18th Feb 2009 10:24

Link

Sorry i didn't enter, my internet was down, stupid AOL!
I will enter this one, just got a question for Latch. How do the robots move? Do they simply go in a straight line or do they need some kind of pathfinder?

"There is no charge for awesomeness" - The Kung Fu Panda

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 18th Feb 2009 11:42

Link

@Nano
If the robot doesn't have a shot horizontally, vertically, or diagonally (at 45 degrees) then it moves towards the player or tries to line up with the player - even if it is on the other side of a wall, it will somethimes walk to it's death. However, it can only move in the 8 directions dictated by horz., vert., and diag. Once it has a shot, it will shoot at the player even on the other side of the wall. That doesn't mean you can't improve on their logic and program path finding.

Just a note if no one has played the game, the robots have a single eye that rotates around their head.

Enjoy your day.

Back to top

Profile PM

NanoGamez guy

19

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 20th Feb 2009 17:40

Link

Thanks, I'll start right away.

"There is no charge for awesomeness" - The Kung Fu Panda

Back to top

Profile PM Email Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 3rd Mar 2009 19:27

Link

Still planety of time left to enter this one!

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 4th Mar 2009 16:43

Link

i think ill enter, but i cant guarantee that ill have enough time to make a good game

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 6th Mar 2009 11:00

Link

That would be great!!

This thread seems to be on it's last breath. To everyone new, give the challenges a shot. The current challenge may be a little tricky for newer people, but take a stab at it! If you have questions, people usually try to help each other to work out the kinks and such.

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 6th Mar 2009 15:58

Link

how long dose the challenge go? I have spring break week after next so if it goes till then I should have time to make my entry

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 6th Mar 2009 16:54

Link

This one ends on the 15th. It was started a month ago. Each challenge is usually 1 to 2 weeks. I gave this one a month because so few people had been entering lately and this challenge seemed like it needed a little extra time.

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 6th Mar 2009 22:01

Link

then i doubt i will have time, but ill try

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 7th Mar 2009 02:49

Link

im getting the internet, booyah!
finally gonna be back properly!
can't believe everyone is getting so lazy, do some coding!

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 7th Mar 2009 03:04

Link

hello 2 u 2 obese

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 7th Mar 2009 03:11

Link

I like your name smart guy, when people use it they sound sarcastic and insulting

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 12th Mar 2009 16:14

Link

Quote: "can't believe everyone is getting so lazy, do some coding!"

Does this mean you'll be entering as well Obese?

There's still a few days left! There have been a lot of posts on the forum from a lot of new people. You guys should try coding for the challenges.

Enjoy your day.

Back to top

Profile PM

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 13th Mar 2009 04:32

Link

im going to enter the next one

Back to top

Profile PM Email

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 16th Mar 2009 16:07

Link

No winners. No entrants. You guys can decide what to do next. I'm done.

Enjoy your day.

Back to top

Profile PM

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 16th Mar 2009 17:19

Link

BEST GAMBLING/CARD GAME!!!!! (mostly since ive already started on one

)

Back to top

Profile PM Email

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 16th Mar 2009 17:30

Link

Hmmmm that could be interesting. I am in, since I have spring break in a day or two, any other takers?

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

Back to top

Profile PM

Quirkyjim

17

Years of Service

User Offline

Joined: 18th Oct 2008

Location: At my computer

Posted: 16th Mar 2009 22:21

Link

My spring break isn't for another two weeks!

~QJ
That's what they WANT you to think...

Back to top

Profile PM Email

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 16th Mar 2009 23:22

Link

haha my spring break started 2day, so we doing a poker/cards game then?

Back to top

Profile PM Email

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 17th Mar 2009 05:17

Link

idea is cool and all but thats pretty complicated

Back to top

Profile PM Email

That1Smart Guy

17

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 17th Mar 2009 22:18

Link

thats the point, the harder the game, the more questions you ask, the more you learn

Back to top

Profile PM Email

pictionaryjr

17

Years of Service

User Offline

Joined: 12th Mar 2009

Location:

Posted: 18th Mar 2009 04:50

Link

So when does the challenge end?

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread