Just BASIC Programming
Just BASIC Programming >> Programming Challenges >> Text - Based Challenge
http://justbasic.conforums.com/index.cgi?board=challenge&action=display&num=1216394731

Text - Based Challenge
Post by Janet Terra on Jul 18th, 2008, 10:25am

Okay, all you JB coders waiting for an inspiration. Here's a contest idea to spark your imagination and hone those programming skills. smiley

The contest is being sponsored by Joseph E.

Text-based Program Challenge

About the challenge:
As the title suggests, this challenge is to create "the very best" text-based program (or game). No pictures or graphic renditions of any kind are allowed. The program must be completely inside of the main window.

External text files can be used. If your entry uses external files (or is too long to post on this forum), you can post it at the Text-based Challenge Wikispace at the Just BASIC Wikispaces.

Text-based programs are very easy and fun to make, so anyone can join and give it a shot! There are a lot of options out there for anyone interested in participating.

For example, you could make a text game, a quiz program, a chat-with-the-computer program (those are fun!) or a cool ASCII display like a sine wave plotted in text, a special calculator for certain kinds of problems, or anything else you can come up with that stays within the rules! There are lots of programs around to get ideas from.

Challenge Schedule:


Please reply if you plan to compete or need more clarification. Over to you, Joseph E .... grin

Re: Text - Based Challenge
Post by mylifedrive on Jul 18th, 2008, 10:33am

Great to see a new challenge up! I will be attempting to participate!
Re: Text - Based Challenge
Post by Joseph E. on Jul 18th, 2008, 11:19am

@ Janet: Thanks. cool

I hope this is a fun and enjoyable challenge for everyone. I want everyone who participates to have a great time!

on Jul 18th, 2008, 10:33am, mylifedrive wrote:
Great to see a new challenge up! I will be attempting to participate!


Superb! It's starting out well already! grin
Re: Text - Based Challenge
Post by Crusader on Jul 18th, 2008, 12:34pm

anyone remember the game STALKER that someone made her a while ago? that was a really fun text RPG...

there are lots of text rpg's actually so i think I'll start working on mine... just need a good story!

Thanks Joseph for posting this challenging challenge!
Re: Text - Based Challenge
Post by mylifedrive on Jul 18th, 2008, 1:35pm

on Jul 18th, 2008, 12:34pm, Crusader wrote:
anyone remember the game STALKER that someone made her a while ago? that was a really fun text RPG...

there are lots of text rpg's actually so i think I'll start working on mine... just need a good story!

Thanks Joseph for posting this challenging challenge!


That was actually the first thing I thought of when I saw this challenge. I don't have the skill, the patience, or the intelligence to create that fancy of a text adventure game. Of course, I won't tell you what my plans are... cool cool cool
Re: Text - Based Challenge
Post by Facundo on Jul 18th, 2008, 5:10pm

My entry will be a game.
Re: Text - Based Challenge
Post by SirDavid on Jul 18th, 2008, 6:26pm

I'll at least try to make something, but if I experience too many false starts before the deadline (I'm trying something pretty complex, a chatbot that understands simple sentences and questions) I will have no time to make a good entry. I know my idea is very ambitious and optomistic, but I may as well see what I can manage.

EDIT Trying to come up with a different idea, after deciding on how the essential parts of the chatbot would function it became clear that too much raw data would be required to enter in a week.
Re: Text - Based Challenge
Post by H. Adam on Jul 19th, 2008, 12:51am

I've got a question.
Can I use sound effects and musichuh
Re: Text - Based Challenge
Post by k7 on Jul 19th, 2008, 02:06am

Hmmm, I might participate in this thing. Show yaz all how the Tasmanians do it!
Re: Text - Based Challenge
Post by SirDavid on Jul 19th, 2008, 06:47am

Are we allowed to use text to take the place of graphics? For example this as a person?
      -----
     / . . \
     l l    l
     l\__/ l
      \     /
       --
EDIT That doesn't look like much of a person, but you get the idea.
Re: Text - Based Challenge
Post by Joseph E. on Jul 19th, 2008, 11:39am

on Jul 18th, 2008, 12:34pm, Crusader wrote:
Thanks Joseph for posting this challenging challenge!


You're welcome. wink I'm sure you'll come up with something great!

on Jul 18th, 2008, 5:10pm, cundo wrote:
My entry will be a game.


Glad to have you aboard!

on Jul 18th, 2008, 6:26pm, SirDavid wrote:
EDIT Trying to come up with a different idea, after deciding on how the essential parts of the chatbot would function it became clear that too much raw data would be required to enter in a week.


I'm sure you'll get it together. Thanks for participating!

on Jul 19th, 2008, 12:51am, H. Adam wrote:
I've got a question.
Can I use sound effects and musichuh


That's the sad part. You can't. You can use external text files, though, to store other data.

on Jul 19th, 2008, 02:06am, k7 wrote:
Hmmm, I might participate in this thing. Show yaz all how the Tasmanians do it!


That would be great if you could participate! I'd love to see how the Tasmanians do it.

on Jul 19th, 2008, 06:47am, SirDavid wrote:
Are we allowed to use text to take the place of graphics? For example this as a person?
     -----
     / . . \
     l l    l
     l\__/ l
     \     /
        --
EDIT That doesn't look like much of a person, but you get the idea.


YES! In fact, there are tons of ASCII Art on the internet. Just Google it. You could even store them in external files and load them when you want to display them.

- Joseph smiley
Re: Text - Based Challenge
Post by Crusader on Jul 19th, 2008, 7:25pm

wait, why can't we use music? is that not allowed or isn't it possible in the main win?
Re: Text - Based Challenge
Post by mylifedrive on Jul 19th, 2008, 9:38pm

on Jul 19th, 2008, 7:25pm, Crusader wrote:
wait, why can't we use music? is that not allowed or isn't it possible in the main win?


It is possible, so it must be the rules.

Music might bias someone towards a particular game, even if it isn't that good, also.
Re: Text - Based Challenge
Post by Joseph E. on Jul 20th, 2008, 11:55am

on Jul 19th, 2008, 9:38pm, mylifedrive wrote:
It is possible, so it must be the rules.

Music might bias someone towards a particular game, even if it isn't that good, also.


It is the rules. The only external files that can be used are plain text files.

I apologize for not making that very clear in the challenge post.

Music and sound can be a great inspiration, and if it helps to program them in, just remember to take it out before entering into this contest. You can always release another version of your program afterwords.

- Joseph
Re: Text - Based Challenge
Post by mylifedrive on Jul 20th, 2008, 3:11pm

I've got a question- when should we post our program? I finished mine- grin but I'm a bit hesitant to post it until the challenge is over... undecided
Re: Text - Based Challenge
Post by Joseph E. on Jul 20th, 2008, 3:58pm

on Jul 20th, 2008, 3:11pm, mylifedrive wrote:
I've got a question- when should we post or program? I finished mine- grin but I'm a bit hesitsnt to post it until the challenge is over... undecided


You can post your program any time before the deadline. You are welcome to update your program as much as you like before the challenge is over.

Sometimes, though, people will look at the challenge entries that have already been posted, and try to make their own entry better. On the other hand, the advantage of posting your program soon is that people will point out any bugs they come across, allowing you to fix them before the deadline, creating a more stable program.

Of course, you don't have to be that competitive, since we're all in this for fun. Their aren't any prizes, since this is just a "challenge."

I look forward to seeing your program.

- Joseph
Re: Text - Based Challenge
Post by can4tek on Jul 20th, 2008, 5:02pm

Also if no one posted before the deadline... no one would know what they are up against cheesy
Re: Text - Based Challenge
Post by JohnDavidson on Jul 20th, 2008, 11:01pm

You could post after the deadline, if you like, but your entry will be disqualified!

John
Re: Text - Based Challenge
Post by maddevon2222 on Jul 21st, 2008, 2:49pm

on Jul 18th, 2008, 12:34pm, Crusader wrote:
anyone remember the game STALKER that someone made her a while ago? that was a really fun text RPG...

there are lots of text rpg's actually so i think I'll start working on mine... just need a good story!

Thanks Joseph for posting this challenging challenge!


That game is what inspired me to make my own text based RPG. I've always wanted to make a game of some sort for the computer and now I finally can. But I wont be adding mine to the competitin because it's nowhere near finished yet.
Re: Text - Based Challenge
Post by jeremyhowell on Jul 22nd, 2008, 12:50pm

I'm working on mine now, but I may not get it finished before the deadline, so I'll probably post it in the JB Programs Shared section.
Re: Text - Based Challenge
Post by Joseph E. on Jul 22nd, 2008, 9:20pm

on Jul 18th, 2008, 6:26pm, SirDavid wrote:
I'll at least try to make something, but if I experience too many false starts before the deadline (I'm trying something pretty complex, a chatbot that understands simple sentences and questions) I will have no time to make a good entry. I know my idea is very ambitious and optomistic, but I may as well see what I can manage


on Jul 21st, 2008, 2:49pm, maddevon2222 wrote:
But I wont be adding mine to the competitin because it's nowhere near finished yet.


on Jul 22nd, 2008, 12:50pm, jeremyhowell wrote:
I'm working on mine now, but I may not get it finished before the deadline, so I'll probably post it in the JB Programs Shared section.


I bring good news! The challenge has been extended by one week. This gives you until 11:00 P.M. (your time zone) on Friday, August 1st to submit an entry!

I want all of you to be able to participate in this challenge, if it is within my means to do so.

Also, you can always add to your program after the challenge if you aren't able to get it fully complete.

It seems a lot of games are in development, so it would be perfectly fine if you entered something more or less like a smaller version of what your intended game would have been like, if you aren't able to fully complete it.

Thanks,

- Joseph
Re: Text - Based Challenge
Post by jeremyhowell on Jul 22nd, 2008, 9:23pm

Thats great!

I am having some bugs on mine, so I will try to fix them AND the computer pretty much crashed on me.
Re: Text - Based Challenge
Post by SirDavid on Jul 24th, 2008, 11:08am

Here! I must double post.
Code:
    dim pieces$(7)
    dim letterTemplates$(10)
    dim gridTemplate$(50, 5)
    for x=1 to 5
        for i=1 to 50
            gridTemplate$(i, x)=mid$("TEXTRIS", q mod 7+1, 1)
            q=q+1
        next
    next
    dim grid(10, 21)
    for x=1 to 10
        grid(x, 21)=1
    next
    global readyDrop, score, list$
    letterTemplates$(1)="112131415132333435"
    letterTemplates$(2)="11213141121323331415253545"
    letterTemplates$(3)="115122423324441555"
    letterTemplates$(4)="11213112411323331444154542"
    letterTemplates$(5)="11213141513233341525354555"
    letterTemplates$(6)="2131411223334354253545"
    letterTemplates$(7)="11512242333435"
    letterTemplates$(8)="213141125213531454253545"
    letterTemplates$(9)="1151125213531454253545"
    letterTemplates$(10)="1112131415253545"
    pieces$(1)="11213141"
    pieces$(2)="11122232"
    pieces$(3)="12223132"
    pieces$(4)="11122122"
    pieces$(5)="12212231"
    pieces$(6)="12212232"
    pieces$(7)="11212232"
    for i=1 to 6
        list$=list$+str$(int(rnd(1)*7)+1)
    next
    for i=1 to 7
        text$=space$(7-i)+left$("TEXTRIS", i)
        call textrisText text$
        timer 500, [loopAround]
        wait

[loopAround]
        timer 0
        cls
    next
    for i=1 to 3
        call textrisText "       "
        timer 300, [next]
        wait

[next]
        timer 0
        cls
        call textrisText "TEXTRIS"
        timer 300, [next2]
        wait

[next2]
        cls
        timer 0
    next
    inputMode=1

[mainMenu]
    cls
    print "Hello, welcome to Textris! This game is a clone of Tetris. The"
    print "game gives you shapes, which you manipulate in an attempt"
    print "to create horizontal lines. But don't let them stack up to the"
    print "top, or it's game over! Enter h for more instructions, enter o"
    print "for options, enter anything else for new game. Note that this"
    print "version does not allow the shapes to drop of their own"
    print "accord, giving you more time to plan out your ideas."
    input "";todo$
    if lower$(mid$(todo$, 1, 1))="h" then
        cls
        print "The shapes begin at the top. You may press s to move the"
        print "shapes down, w to rotate them, a to move them left, and d to"
        print "move them right. Once you press down and it cannot go down"
        print "any further, it stops and becomes part of the terrain. If an"
        print "entire row is filled, the row is cleared and the rows above"
        print "it drop. You also score 1 point if you eliminated 1 row, 3"
        print "for 2 rows, 6 for 3 rows, and 10 for 4 rows. At the"
        print "right, you can see which pieces are coming up next. If the"
        print "shapes stack up to the top, you lose! Good luck!"
        print "Press enter to go back to the main menu."
        input "";dummy
        goto[mainMenu]
    end if
    if lower$(mid$(todo$, 1, 1))="o" then
        print "There are two forms of entering the controls. With option"
        print "one, you enter your selection and press enter. Option two"
        print "does not require you to press enter. However, option two will"
        print "use all the processor power it can get, whereas option one uses"
        print "very little. Note that during the game pressing t toggles these"
        print "modes. Please enter 1 or 2. If you do not your current choice"
        print "will remain."
        input "";l
        if l=1 or l=2 then inputMode=l
        goto[mainMenu]
    end if

[nextPiece]
    done=0
    rotating=0
    nextPiece=val(left$(list$, 1))
    list$=right$(list$, 5)+str$(int(rnd(1)*7)+1)
    rotate$=pieces$(nextPiece)
    curUpLeftX=4
    curUpLeftY=0
    curRot=0
    lines=0
    for i=1 to 4
        curX=val(mid$(rotate$, i*2-1, 1))-1
        curY=val(mid$(rotate$, i*2, 1))-1
        if grid(curUpLeftX+curX, curUpLeftY+curY+1)=1 then lost=1
    next
    if lost=1 then goto[lost]

[redoit]
    emptyLine=0
    for i=20 to 1 step -1
        empty=0
        for x=1 to 10
            if grid(x, i)=0 then
                empty=1
                exit for
            end if
        next
        if empty=0 then
            emptyLine=1
            lines=lines+1
            score=score+lines
            which=i
            for x=1 to 10
                grid(x, i)=0
            next
            exit for
        end if
    next
    if emptyLine=1 then
        for i=which to 1 step -1
            for x=1 to 10
                grid(x, i)=grid(x, i-1)
            next
        next
        goto[redoit]
    end if

[frameUp]
    for i=1 to 4
        curX=val(mid$(rotate$, i*2-1, 1))-1
        curY=val(mid$(rotate$, i*2, 1))-1
        grid(curUpLeftX+curX, curUpLeftY+curY)=0
        if grid(curUpLeftX+curX, curUpLeftY+curY+1)=1 then done=1
    next
    if done=1 then
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=1
        next
        goto[nextPiece]
    end if
    curUpLeftY=curUpLeftY+1
    for i=1 to 4
        curX=val(mid$(rotate$, i*2-1, 1))-1
        curY=val(mid$(rotate$, i*2, 1))-1
        grid(curUpLeftX+curX, curUpLeftY+curY)=2
    next

[redo]
    cls
    call draw
    if inputMode=1 then input "What to do? s is down, w is rotate, a is left, d is right.";key$
    if inputMode=2 then
        print "What to do? s is down, w is rotate, a is left, d is right."
        key$=input$(1)
    end if
    key$=lower$(key$)
    if instr(key$, "t")>0 then inputMode=3-inputMode
    if instr(key$, "s")>0 then goto[frameUp]
    if instr(key$, "w")>0 then
        rotating=rotating+1
        new$=rotate$(nextPiece, rotating)
        rotatel$=mid$(new$, 1, 1)+mid$(new$, 3, 1)+mid$(new$, 5, 1)+mid$(new$, 7, 1)
        oldulx=curUpLeftX
        olduly=curUpLeftY
        if curUpLeftX>9 and instr(rotatel$, "2")>0 then curUpLeftX=9
        if curUpLeftX>8 and instr(rotatel$, "3")>0 then curUpLeftX=8
        if curUpLeftX>7 and instr(rotatel$, "4")>0 then curUpLeftX=7
        for q=0 to 3
            experCur=curUpLeftY-q
            bad=0
            for i=1 to 4
                curX=val(mid$(new$, i*2-1, 1))-1
                curY=val(mid$(new$, i*2, 1))-1
                if grid(curUpLeftX+curX, experCur+curY)=1 then bad=1
            next
            if bad=0 then
                curUpLeftY=experCur
                for i=1 to 4
                    oldX=val(mid$(rotate$, i*2-1, 1))-1
                    oldY=val(mid$(rotate$, i*2, 1))-1
                    grid(oldulx+oldX, olduly+oldY)=0
                next
                rotate$=new$
                for i=1 to 4
                    newX=val(mid$(rotate$, i*2-1, 1))-1
                    newY=val(mid$(rotate$, i*2, 1))-1
                    grid(curUpLeftX+newX, curUpLeftY+newY)=2
                next
                exit for
            end if
        next
        if bad=1 then rotate=rotate-1
    end if
    if instr(key$, "a")>0 then
        curUpLeftX=curUpLeftX-1
        if curUpLeftX=0 then
            curUpLeftX=1
            goto[skipa]
        end if
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=0
        next
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=2
        next
    end if

[skipa]
    if instr(key$, "d")>0 then
        curUpLeftX=curUpLeftX+1
        if curUpLeftX>10 then goto[dropIn]
        rotatel$=mid$(rotate$, 1, 1)+mid$(rotate$, 3, 1)+mid$(rotate$, 5, 1)+mid$(rotate$, 7, 1)
        if curUpLeftX>9 and instr(rotatel$, "2")>0 then goto[dropIn]
        if curUpLeftX>8 and instr(rotatel$, "3")>0 then goto[dropIn]
        if curUpLeftX>7 and instr(rotatel$, "4")>0 then

[dropIn]
            curUpLeftX=curUpLeftX-1
            goto[skipb]
        end if
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            if grid(curUpLeftX+curX, curUpLeftY+curY)=1 then bad=1
        next
        if bad=1 then
            bad=0
            goto[skipb]
        end if
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-2
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=0
        next
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=2
        next
    end if

[skipb]
    if readyDrop=1 then
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            if grid(curUpLeftX+curX, curUpLeftY+curY+1)=1 then stopping=1
        next
        for i=1 to 4
            curX=val(mid$(rotate$, i*2-1, 1))-1
            curY=val(mid$(rotate$, i*2, 1))-1
            grid(curUpLeftX+curX, curUpLeftY+curY)=stopping
            if stopping=0 then grid(curUpLeftX+curX, curUpLeftY+curY+1)=2
            curUpLeftY=curUpLeftY+1
        next
        if stopping=1 then
            stopping=0
            goto[nextPiece]
        end if
    end if
    goto[redo]

[lost]
    cls
    for i=1 to 8
        text$=space$(8-i)+left$("YOU LOSE", i)
        call textrisText text$
        timer 500, [loopAround2]
        wait

[loopAround2]
        timer 0
        cls
    next
    for i=1 to 3
        call textrisText "        "
        timer 300, [next3]
        wait

[next3]
        timer 0
        cls
        call textrisText "YOU LOSE"
 

Re: Text - Based Challenge
Post by SirDavid on Jul 24th, 2008, 11:09am

Code:
        timer 300, [next4]
        wait
        mainwin 70 25

[next4]
        cls
        timer 0
    next
    input "Press Y to play again, anything else to exit.";again$
    if left$(upper$(again$), 1)="Y" then goto[mainMenu]
    print "Press alt-f4 to exit."
    end

sub draw
    cls
    for y=1 to 20
        for x=1 to 10
            if grid(x, y)>0 then grid$=grid$+"X" else grid$=grid$+" "
        next
        grid$=grid$+chr$(13)
    next
    grid$=grid$+"OOOOOOOOOO"+chr$(13)
    print grid$
    locate 12, 1
    print "Score: ";str$(score)
    locate 12, 2
    print "Next"
    for i=3 to 18 step 3
        locate 12, i
        curPiece$=mid$(list$, i/3, 1)
        show$=pieces$(val(curPiece$))
        for a=1 to 4
            curX=val(mid$(show$, a*2-1, 1))-1
            curY=val(mid$(show$, a*2, 1))-1
            locate 12+curX, i+curY
            print "X"
        next
    next
    locate 1, 22
end sub

sub nextFrame
    readyDrop=1
end sub

function rotate$(pieceNum, rotations) 'Rotate clockwise
    if pieceNum=1 and rotations mod 2=0 then rotate$="11213141"
    if pieceNum=1 and rotations mod 2=1 then rotate$="11121314"
    if pieceNum=2 and rotations mod 4=0 then rotate$="11122232"
    if pieceNum=2 and rotations mod 4=1 then rotate$="11121321"
    if pieceNum=2 and rotations mod 4=2 then rotate$="11213132"
    if pieceNum=2 and rotations mod 4=3 then rotate$="13212223"
    if pieceNum=3 and rotations mod 4=0 then rotate$="12223132"
    if pieceNum=3 and rotations mod 4=1 then rotate$="11121323"
    if pieceNum=3 and rotations mod 4=2 then rotate$="11122131"
    if pieceNum=3 and rotations mod 4=3 then rotate$="11212223"
    if pieceNum=4 then rotate$="11122122"
    if pieceNum=5 and rotations mod 2=0 then rotate$="12212232"
    if pieceNum=5 and rotations mod 2=1 then rotate$="11122223"
    if pieceNum=6 and rotations mod 4=0 then rotate$="12212232"
    if pieceNum=6 and rotations mod 4=1 then rotate$="11121322"
    if pieceNum=6 and rotations mod 4=2 then rotate$="11212231"
    if pieceNum=6 and rotations mod 4=3 then rotate$="12212223"
    if pieceNum=7 and rotations mod 2=0 then rotate$="11212232"
    if pieceNum=7 and rotations mod 2=1 then rotate$="12132122"
end function

sub textrisText text$
    text$=upper$(text$)
    for i=1 to len(text$)
        curLetter$=mid$(text$, i, 1)
        if curLetter$=" " then goto[noletter]
        if curLetter$="T" then pos=1
        if curLetter$="E" then pos=2
        if curLetter$="X" then pos=3
        if curLetter$="R" then pos=4
        if curLetter$="I" then pos=5
        if curLetter$="S" then pos=6
        if curLetter$="Y" then pos=7
        if curLetter$="O" then pos=8
        if curLetter$="U" then pos=9
        if curLetter$="L" then pos=10
        xPos=(i-1)*6+1
        posShow$=letterTemplates$(pos)
        for x=1 to len(posShow$)/2
            curX=val(mid$(posShow$, x*2-1, 1))-1
            curY=val(mid$(posShow$, x*2, 1))-1
            locate xPos+curX, 1+curY
            print gridTemplate$(xPos+curX, 1+curY)
        next

[noletter]
    next
end sub
 

There you go! It's a Tetris clone (well not quite, real-time is impossible so it's more like a puzzle game) called (I deserve to be kicked out of the competition for this) Textris. Enjoy!
Re: Text - Based Challenge
Post by mylifedrive on Jul 24th, 2008, 1:40pm

BUG:

The pieces don't automatically fall, you have to push d to make them go down, so basically you are just stacking blocks.

Quote:
real-time is impossible so it's more like a puzzle game


or is it not a bug?
Re: Text - Based Challenge
Post by SirDavid on Jul 24th, 2008, 3:22pm

Well, I don't really know whether to call it a bug or not. Certainly I would have preferred to make it real-time, but I made part of the program while understanding that this would be impossible. Obviously it isn't an exact Tetris clone, but I didn't want to make an exact clone, just something that is recognizable as a Tetris style game was fine with me. Wiktionary's definition of a bug is "A problem that needs fixing, especially in computing" but as it's still recognizable as Tetris style I don't know if it needs fixing, especially as I understood while writing it that it would be impossible to make an exact clone.
Re: Text - Based Challenge
Post by Facundo on Jul 24th, 2008, 3:42pm

Is not a bug. It's Textris ;D
Coming soon: Pac-Main
Little intro Code:
pac$="C G 0 G"
ghost$="n ń"
title$ = "PAC-MAiN";_
": Text - Based Challenge"
mainwin 35 3
for i = 1 to 20
    scan
    t = time$("ms")+70
    while time$("ms") < t : wend
    locate 0,0
    a = abs(not(a))
    if a=0 Then s=s+1 : s$=space$(s)
    g$ = word$(ghost$,a+1);" "
    b=b+1 : if b>4 Then b=1
    Print s$;word$(pac$,b);"    ";g$;g$;g$
next
CLS
for i= 1 to len(title$)
    scan
    t = time$("ms")+100
    while time$("ms") < t : wend
    Print mid$(title$,i,1);
next
END 

This is not my entry, just the intro.
Re: Text - Based Challenge
Post by Welopez on Jul 24th, 2008, 5:13pm

Sir David: You wrote...
Code:
    input "Press Y to play again, anything else to exit. "; again$
    if left$(lower$(again$), 1)="Y" then goto[mainMenu]
 

How can LEFT$(LOWER$(again$),1)="Y"? Just checking to see if you know someting I may have forgotten.

It works for me if I use:
Code:
if left$(again$, 1)="Y" then goto[mainMenu]
 

...or...
Code:
if left$(lower$(again$), 1)="y" then goto[mainMenu]
 

... but always goes to Press Alt-F4 to exit the way you have it written.
Re: Text - Based Challenge
Post by SirDavid on Jul 24th, 2008, 5:21pm

Oh, thanks! I don't know what I was thinking. Above code edited.
Re: Text - Based Challenge
Post by Facundo on Jul 24th, 2008, 6:21pm

I'm going to post the code, because my HD is giving me problems again (just in case I lost the code after executing CHKDSK).
I think it can be trimmed down. This program uses input$(1), so it will take 100% of the processor while waiting for input.
The game is like pacman, but simpler , no real time.

Code:
' jb mainwin
' pac-main
' cundo 2008
    on error goto [Error]
'Dim double array
    dim map$(19,23),start(4,2)
    difficulty = 3 ' 1 to 10
    lives=3
    r$="STARTING"
    alternateMov = 1
    mainwin 50 25
'Print a message to the Mainwin
    Print "Press ";chr$(34);"q";chr$(34);" to quit"
    Print "Movement keys: W,A,S,D, or 8,4,6,2 "
    Print "Press any key to start",
    if lower$(input$()) = "q" Then [quit]
    gosub [restartscreen]
    r$="RE";r$
'Store the data in the array
    read height : read width : read wall$
    read player$ : read ghost$ : read sghost$
    read power$
    b$ = wall$ 'walls
    dots$ = chr$(186) 'change this to "*" or "." if you want
    for i= 1 to height
        read map$
        for u= 1 to width
            map$(i,u) = mid$(map$,u,1)
            Select case map$(i,u)
                Case " ","t","-"
                If map$(i,u)="t" Then t=i
                a = abs(not(a))
                if a= 0 Then
                    max.points = max.points+1
                    map$(i,u) = dots$
                End if
                Case power$
                p= p+1
                power(p,0)=u : power(p,1)=i
                Case player$
                start(0,1)=u : start(0,2)=i
                map$(i,u) = " "
                Case ghost$
                g=g+1
                start(g,1)=u : start(g,2)=i
                map$(i,u) = " "
            End select
        next u
    next i

[restart]
    h=0
    scared=0
    player.x=start(0,1) : player.y=start(0,2)
    for i= 1 to g
        ghost.x(i) =start(i,1) : ghost.y(i) =start(i,2)
    next i

[reprint]
    temp$= ""
    mapscreen$= ""
'put the data in the mapscreen$ var
    for i= 1 to height
        for u= 1 to width
            temp$=mapscreen$;map$(i,u)
            if i = player.y and u = player.x Then
                temp$= mapscreen$;player$
            End if
            for z= 1 to g
                ghost.y=ghost.y(z) : ghost.x = ghost.x(z)
                if i = ghost.y and u = ghost.x Then
                    if scared>0 Then
                        temp$= mapscreen$;sghost$
                    else
                        temp$= mapscreen$;ghost$
                    end if
                End if
            next
            mapscreen$ = temp$
        next u
        mapscreen$=mapscreen$ + chr$(13)
    next i
'show me the level
    cls
    scoreScreen=score + extraPoints
    score$ = using("###",scoreScreen)
    print mapscreen$, "Score: ";score$;" Lives: ";lives
    If score=max.points or g = 0 Then [win]
    if scared>0 Then
        scared=scared - 1
    End if
    print "ghosts scared ";scared
    for z = 1 to g
        ghost.y=ghost.y(z) : ghost.x = ghost.x(z)
        If player.x = ghost.x And player.y = ghost.y And lives>0 Then
            If scared=0 Then [lose]
            extraPoints=extraPoints+10
            r$="Good"
            locate 23,10: Print "10 Points"
            locate 23,11
            gosub [restartscreen]
            r$="RESTARTING"
            locate 0,0
'the ghost appear in the box
            ghost.x(z) = start(z,1) : ghost.y(z)=start(z,2)
'the ghost disappear
'z was removed
'remove the last ghost, move the others in the array.
' r = g-z
' ghost.y(g-r)=ghost.y(g)
' ghost.x(g-r)=ghost.x(g)
' g=g-1
        End if
    next z
'player movement
    key$=""
    key$ = input$(1)
    select case key$
        case "6","d","D"
        if map$(player.y, player.x+1)<>b$  Then
            player.x = player.x+1
            if player.x >=width and player.y=t Then player.x = 1
        End if
        case "4","a","A"
        if map$(player.y, player.x-1)<>b$  Then
            player.x = player.x-1
            if player.x <=0 and player.y=t Then player.x =width
        End if
        case "8","w","W"
        if map$(player.y-1, player.x)<>b$  Then
            player.y = player.y-1
        End if
        case "2","s","S"
        if map$(player.y+1, player.x)<>b$  Then
            player.y = player.y+1
        End if
        case "q","Q"
        goto [quit]
    end select
    if map$(player.y, player.x)=dots$ then map$(player.y, player.x)=" " : score=score+1
    if map$(player.y, player.x)=power$ then
        map$(player.y, player.x)=" " ': score=score+1
        extraPoints= extraPoints +5
        scared= 22
    End if
'Ghost moves
    if h<=2 then h= h+ 0.025
    for z = 1 to g
        ghost.y=ghost.y(z) : ghost.x = ghost.x(z)
        new.x(z)=0:new.y(z)=0
        If INT(rnd(1)*11)>INT(difficulty+h) OR _
        (ABS(player.x-ghost.x)>5 and ABS(player.y-ghost.y)>5) Then
        alternateMov = -1 * alternateMov
        If map$(ghost.y+alternateMov, ghost.x)=b$ Then
            if map$(ghost.y, ghost.x+alternateMov)=b$ Then
                if map$(ghost.y+alternateMov*-1, ghost.x)=b$ Then
                    if map$(ghost.y, ghost.x+alternateMov*-1)=b$ Then
                        new.x(z)= alternateMov
                    else
                        new.x(z)=alternateMov*-1
                    End if
                else
                    new.y(z)=alternateMov*-1
                End if
            else
                new.x(z)=alternateMov
            End if
        else
            new.y(z)=alternateMov
        End if
    Else
'Check player position and move according
        if scared >0 Then m=-1 else m=1
        if player.y>ghost.y Then
            If map$(ghost.y +1*m, ghost.x)<>b$ Then new.y(z)= 1*m
        else
            If map$(ghost.y -1*m, ghost.x)<>b$ Then new.y(z)=-1*m
        End if
        if player.x>ghost.x Then
            If map$(ghost.y, ghost.x +1*m)<>b$ Then new.x(z)= 1*m
        else
            If map$(ghost.y, ghost.x -1*m)<>b$ Then new.x(z)=-1*m
        End if
    End if
    If (ghost.y=10 AND ghost.x=11) OR (ghost.y=9 AND ghost.x=11) Then
        new.y(z)=-1 : new.x(z)=0
    Else
        If INT(rnd(0)*10)>5 Then new.y(z)=0 else new.x(z)=0
    End if
    If ghost.y=10 Then
        if ghost.x<=1 then new.x(z)=1
        if ghost.x>=width then new.x(z)=-1
    End if
    ghost.x(z)= ghost.x(z) + new.x(z)
    ghost.y(z)= ghost.y(z) + new.y(z)
    next z
    Goto [reprint]

[lose]
    lives = lives -1
    locate 23,10
    Print "Oops!"
    if lives <=0 Then [quit]
    key$=input$(1)
    locate 23,11
    gosub [restartscreen]
    cls:locate 0,0
    goto [restart]

[win]
    Print "Yeah!"+chr$(13)+"Level complete."
    Print "Lives ";lives
    Print "Score ";score+extraPoints
    END

[Error]
    Print
    print "Error",Err$

[quit]
    if lives<=0 Then Cls : Print "------- LOSER -------"
    Print chr$(13); "---------------------";chr$(13);"------  Bye!  -------"
    Print "---------------------"
    END

[restartscreen]
    for i = 1 To len(r$)
        pause = time$("ms")+100
        while time$("ms") < pause : wend
        Print mid$(r$,i,1);
    next i
    return
'level data,
'height, width, walls, player, ghost, PacPowerPill, map
    data 19,21
    data "#","O","n","ń","@"
    data "#####################"
    data "#@      #####      @#"
    data "# ##### ##### ##### #"
    data "#     # ##### #     #"
    data "## ## #       # ## ##"
    data "##      #####      ##"
    data "##### #   #   # #####"
    data "##### #       # #####"
    data "##### # ##-## # #####"
    data "t       #nnn#        "
    data "##### # ##### # #####"
    data "##### #       # #####"
    data "#####   #####   #####"
    data "#     #   #   #     #"
    data "#@ ## # #   # # ## @#"
    data "##    # ## ## #    ##"
    data "## #### ## ## ###  ##"
    data "##        O        ##"
    data "#####################" 


Re: Text - Based Challenge
Post by Joseph E. on Jul 25th, 2008, 12:01am

Wow, guys! That's amazing! shocked

I did not even know that you could accomplish that much with text! Both of you have my congratulations. It's amazing how much creativity you were able to have with just the ASCII table! Games like these deserve to be in the hall of fame (definitely work posting at the file archives, at least!).

I've always like arcade games, and it's neat to see some made in this style.

Okay, now for the reviews:

SirDavid: Excelent work. Beautiful presentation. I've never been good at Tetris, and I re-confirmed it playing yours with a score of two. tongue Even though I'm no good at it, I think it's really, really cool! smiley (I'll have to keep trying with this one!) I especially like how it shows the upcoming blocks.

Cundo: Pac-Main really impressed me. I had no idea that it was possible to make a text version of it fun and enjoyable that would actually work! It reminded me so much of playing the graphical version. Gameplay was amazing and exciting. I finally was able to beat it after the second try. cool

Again, both of these entries are fantastic. I can can tell that the voting is going to be very difficult...I was shocked at how smooth both of the programs ran for me.

I also look forward to any more upcoming entries!

- Joseph smiley

edit: It looks like I'm going to have to study the code to see how both of you pulled this off!
Re: Text - Based Challenge
Post by mylifedrive on Jul 25th, 2008, 10:18am

SPY Typist

grin grin grin

Hosted at the JB Archive on this page
Re: Text - Based Challenge
Post by Facundo on Jul 25th, 2008, 10:59pm

Thanks Joseph for your compliments. smiley
My code is just a bunch of if/then conditional constructs. The map is stored in a double array, the ghosts and player can only move if in the next cell there is not a wall. The ghosts will try to catch you, if you are close to them.
Re: Text - Based Challenge
Post by Joseph E. on Jul 26th, 2008, 12:01pm

mylifedrive: That's a really fun and cool text game! I was dumb enough to put 60 words per minute the first time I played it...so I got shot. rolleyes The second time I played I put 30 wpm, and I barely won with 30.76 words per minute! cool (oh yeah!) Great exercise to improve typing, that's for sure! (And I bet that's something we can all work on.)

on Jul 25th, 2008, 10:59pm, cundo wrote:
The ghosts will try to catch you, if you are close to them.


I noticed that tongue. Your ghost algorithms have killed me several times. Good job with those.

- Joseph
Re: Text - Based Challenge
Post by jeremyhowell on Jul 26th, 2008, 11:32pm

I can't exactly do all the fancy stuff that i have just seen(great job by the way everyone), but I'll try my best. I haven't finished mine completely, but I should have it soon done. I just wanted to complement everyone for the great work. I really thought the pacman game was cool.
Re: Text - Based Challenge
Post by Joseph E. on Jul 27th, 2008, 1:08pm

on Jul 26th, 2008, 11:32pm, jeremyhowell wrote:
I can't exactly do all the fancy stuff that i have just seen(great job by the way everyone), but I'll try my best.


That's perfectly fine. All that matters is that you push yourself to do a good job (based on your skill level) and learn something from this challenge. We're all in this to learn and have a good time. smiley

Which makes me think:

Voting should also be based on the performance of the participant's apparent skill level.

(Janet, that would be great if you could add that to the original post! wink)

- Joseph
Re: Text - Based Challenge
Post by Janet Terra on Jul 27th, 2008, 2:30pm

on Jul 27th, 2008, 1:08pm, Joseph E. wrote:
All that matters is that you push yourself to do a good job (based on your skill level) and learn something from this challenge. We're all in this to learn and have a good time. smiley

Which makes me think:

Voting should also be based on the performance of the participant's apparent skill level.

(Janet, that would be great if you could add that to the original post! wink)

- Joseph


You got it. wink

Re: Text - Based Challenge
Post by timbim on Jul 29th, 2008, 05:10am

Just realised that the EPOS (Electronic Point Of Sale, cash register in other words) program that I'm making at the moment, still in the mainwin stage, could be entered here. At least one entry might not be a game. It'll be a race against the clock to get it finished, however.
Re: Text - Based Challenge
Post by tsh73 on Jul 29th, 2008, 1:48pm

Thanks for extending deadline, I got time to recon something very playable from my past wink
It is Star Trek game - "shoot the Klingon" variant.
I found simple QB-runnable code and converted it to JB. (not much of effort from my part, but still. And game is very playable!).
Uploaded to JB file archive site here

Ha ha. So most entries look like games. One who program games has all the fun - first then programming second then playing! wink)
Re: Text - Based Challenge
Post by Stefan Pendl on Jul 29th, 2008, 3:26pm

on Jul 29th, 2008, 1:48pm, tsh73 wrote:
Thanks for extending deadline, I got time to recon something very playable from my past wink
It is Star Trek game - "shoot the Klingon" variant.
I found simple QB-runnable code and converted it to JB. (not much of effort from my part, but still. And game is very playable!).

I would not use global variables, since I is a FOR..NEXT counter variable, which results in undefined behavior.
I would use FND(I, S1, S2) for calling the function and for its definition.

I encountered a problem of the program going into an infinite loop, if E is docked and moving away is blocked.

This has the potential to be taken a step further for a graphics based challenge wink

Re: Text - Based Challenge
Post by Stefan Pendl on Jul 29th, 2008, 4:56pm

on Jul 29th, 2008, 1:48pm, tsh73 wrote:
It is Star Trek game - "shoot the Klingon" variant.
I found simple QB-runnable code and converted it to JB. (not much of effort from my part, but still. And game is very playable!).

The code is jumping out of loops and back in, so this seems to break the stack and causes infinite loops.
Some of the GOTOs could be eliminated entirely, most are converted ON..GOTO constructs.

Re: Text - Based Challenge
Post by Joseph E. on Jul 29th, 2008, 9:58pm

on Jul 29th, 2008, 05:10am, timbim wrote:
Just realised that the EPOS (Electronic Point Of Sale, cash register in other words) program that I'm making at the moment, still in the mainwin stage, could be entered here. At least one entry might not be a game. It'll be a race against the clock to get it finished, however.


I anticipate seeing it! grin

on Jul 29th, 2008, 1:48pm, tsh73 wrote:
Thanks for extending deadline, I got time to recon something very playable from my past wink
It is Star Trek game - "shoot the Klingon" variant.
I found simple QB-runnable code and converted it to JB. (not much of effort from my part, but still. And game is very playable!).
Uploaded to JB file archive site here

Ha ha. So most entries look like games. One who program games has all the fun - first then programming second then playing! wink)


Nice work. I'm still sort of checking it out....I haven't come across the problem Stefan did, though.

- Joseph
Re: Text - Based Challenge
Post by jeremyhowell on Jul 30th, 2008, 12:36am

Hey tsh73, was it you who made that gif to bmp converter on the JB archives? Why don't you enter that? It would be the first non-game.

Oh yeah, I'm almost finished my entry. It will be based on Operation Overlord and follows through to the Allied breakout, but I may have to shorten it to stop at Cherbourg to get it done by the deadline. You play as Private Gafter of the 9th US Infantry Division from the slaughter on Omaha beach through to the battle of Cherbourg, and if you commit acts of bravery, you earn medals or promotions. I'll probably just get it done before the deadline.

Jeremy
Re: Text - Based Challenge
Post by tsh73 on Jul 30th, 2008, 01:22am

jeremyhowell,
I think programs for this challenge should be somewhat interactive. And gif2bmp should just be a command line utility - given file name at startup, it does what it can without asking more.
Besides, I believe it was finished and posted before contest (and in work loooong before that wink ).
Re: Text - Based Challenge
Post by k7 on Jul 30th, 2008, 02:07am

When is the deadline?
Re: Text - Based Challenge
Post by jeremyhowell on Jul 30th, 2008, 02:59am

I think its like this this Friday.
Re: Text - Based Challenge
Post by jeremyhowell on Jul 31st, 2008, 4:58pm

I have been a bit sick lately, and haven't been able to completely finish it or check for errors. Here is my program, as far as I got anyway. Please feel free to edit it when the challenge is over and post on JB programs shared.

http://jbusers.com/phpBB/viewtopic.php?p=1920#1920
Re: Text - Based Challenge
Post by Joseph E. on Jul 31st, 2008, 10:19pm

on Jul 31st, 2008, 4:58pm, jeremyhowell wrote:
I have been a bit sick lately, and haven't been able to completely finish it or check for errors. Here is my program, as far as I got anyway. Please feel free to edit it when the challenge is over and post on JB programs shared.

http://jbusers.com/phpBB/viewtopic.php?p=1920#1920


Wow, that is a very neat piece of work! I'm sorry you're not feeling very well. This was extremely exciting to play; I didn't even know you could make text games so interesting! It really appears you put a lot of effort and research into this. smiley

There's still time until tomorrow night at 11:00 your time, everyone!

- Joseph
Re: Text - Based Challenge
Post by Henry on Aug 1st, 2008, 01:24am

I've posted my entry in the JB Programs Shared forum.
The program is about 25k. So you'll need to cut & paste 3 posts to rebuild it.

Re: Text - Based Challenge
Post by Akos on Aug 1st, 2008, 01:32am

I put my entry to the files archive here:
http://jbusers.com/phpBB/viewtopic.php?t=1346

It's a very small program, actually it's only a symbolical way to take part in the contest. Besides, I didn't manage to make it without an external wav file. Sorry, I wanted to use a simple BEEP sound, but somehow it remained mute on my PC, no idea why...
Re: Text - Based Challenge
Post by Joseph E. on Aug 1st, 2008, 6:22pm

Henry: Outstanding entry! Very enjoyable and fun...I haven't made it all the way around the world quite yet, though.

Akos: Very useful program. So far, it is the only non-game entry. I set it to go off 60 times an hour, and it faithfully rang the little bell every minute on the minute.

- Joseph smiley
Re: Text - Based Challenge
Post by mylifedrive on Aug 1st, 2008, 10:08pm

on Aug 1st, 2008, 01:32am, Akos wrote:
I wanted to use a simple BEEP sound, but somehow it remained mute on my PC, no idea why...


BEEP doesn't work for me either- Win XP SP1
Re: Text - Based Challenge
Post by Henry on Aug 2nd, 2008, 12:46am

Just a few minutes before the deadline and thought i'd post this little program too.
It is a small utility to convert GW-BASIC source code. It's main purpose is to remove
the drudgery of figuring out which line numbers are not needed, and making JB-style
labels out of those we need to keep.
Code:
' Just BASIC program to remove line numbers from GW-BASIC
' source code.  It preserves the lines referenced by a
' GOTO, THEN, ELSE or GOSUB.
' It will also make them JB-style labels by putting [ and ]
' around them.  It will do the same to the calling line
' so that something like --
' 100 IF a=b THEN 250 ELSE 350
' becomes --
' IF a=b THEN GOTO [250] ELSE GOTO [350]

filedialog "Select BAS file", "*.*", myfile$
if myfile$="" then End
open myfile$ for input as #fin
open myfile$+".new" for output as #fout
n = 0
all$ = " "

  while eof(#fin)=0
    line input #fin, aline$
    if val(aline$)>0 then
      n = n + 1

      call xtracto aline$, "GOTO ", all$
      call xtracto aline$, "THEN ", all$
      call xtracto aline$, "ELSE ", all$
      call xtracto aline$, "GOSUB ", all$
 '     PRINT aline$
      print #fout, aline$

    end if
  wend
  close #fin
  close #fout

  print myfile$; " has "; n; " lines."
  print
  print "Length of all$ = "; len(all$); " characters."
  print all$

' now that we have an string with all the lines that need to be labeled
' we open our .new file, adding brackets to those lines needing
' them and removing the line numbers from those lines that don't.
  open myfile$+".new" for input as #fin
  while eof(#fin)=0
    line input #fin, aline$
    n = val(aline$)
    if n>0 then
      if instr(all$, " ";str$(n);" ", 1)>0 then
        print "["; str$(n); "]"; mid$(aline$, len(str$(n))+1)
      else
        print mid$(aline$, len(str$(n))+1)
      end if
    else
      print aline$  ' if no line #, print full line
    end if
  wend
  close #fin
  print
  print "Done."
End

sub xtracto byref ln$, s$, byref t$
  pos = instr(ln$, s$, 1)
  while pos>0
    g = val(trim$(mid$(ln$, pos+len(s$))))
    if g>0 then
      t$ = t$ + str$(g) + " "   ' save line number
' if you want to store each label once, replace the line above this
' comment with the line below.  I find it useful to know the number
' of times each label is called.
'      if instr(t$, " ";g$;" ", 1)=0 then t$ = t$ + str$(g)+" "

' add brackets for GOTOs and GOSUBs
' add GOTO + brackets for THENs and ELSEs.
      p2 = pos+len(s$)
      p3 = pos+len(s$)+len(str$(g))
      if left$(s$, 2)="GO" then
        ln$ = mid$(ln$, 1, p2-1); "["; mid$(ln$, p2, p3-p2); "]"; mid$(ln$, p3)
      else   ' for THEN or ELSE
        ln$ = mid$(ln$, 1, p2-1); "GOTO [" _
            + mid$(ln$, p2, len(str$(g))); "]" _
            + mid$(ln$, p3)
      end if
    end if
    pos = instr(ln$, s$, pos+len(s$))
  wend
end sub 


This program does not break a multi-command line into separate lines. One is here
at the JB conforum though... from Janet Terra.. posta couple years ago.
It does a very nice job of breaking them into single lines and all IF statements are
converted to blocks (IF -- THEN -- END IF)

I'm releasing this utility as public domain so if you'd like to alter / enhance / etc, go for it.

Re: Text - Based Challenge
Post by Henry on Aug 2nd, 2008, 12:53am

on Aug 1st, 2008, 6:22pm, Joseph E. wrote:
Henry: Outstanding entry! Very enjoyable and fun...I haven't made it all the way around the world quite yet, though.

- Joseph smiley


Nor have I. Amelia make it about 27,000 miles before going down in the Marshall Islands. The best i've done so far is about 20,000 miles. The lack of an African airfield where a major overhaul is possible is making it really tough on the flight to India. Good luck!
Re: Text - Based Challenge
Post by mylifedrive on Aug 2nd, 2008, 09:05am

For most people now, the challenge is over! Let's bring on the voting!

grin
Re: Text - Based Challenge
Post by Joseph E. on Aug 2nd, 2008, 11:13am

on Aug 2nd, 2008, 12:46am, Henry wrote:
Just a few minutes before the deadline and thought i'd post this little program too.
It is a small utility to convert GW-BASIC source code. It's main purpose is to remove
the drudgery of figuring out which line numbers are not needed, and making JB-style
labels out of those we need to keep.


Wow, a cool little bonus! I went and snatched some GW basic code off the internet and tested your small and efficient program. For what it does, it works great.

Now...

The challenge is officially over! Voting should commence shortly.

- Joseph
Re: Text - Based Challenge
Post by Joseph E. on Aug 2nd, 2008, 11:50am

I want to say thank you to everyone who participated, we had a total of eight entries!

Everyone did such an excellent job on their entry! Many, many, thanks to Janet for helping me coordinate this challenge, and to those who approved my contest while it was in planning.

Everyone made such a cool entry, that I don't know if I'll be able to vote! shocked Everyone has really made this a worthwhile contest, and I appreciate the effort that was put into this!

Here's some quick links to find each entry:

SirDavid - TEXTRIS

cundo - Pac-Main

mylifedrive - SPY Typist

tsh73 - Star Trek

Jeremy Howell - D-Day - Operation Overlord

Henry - Amelia Earhart: Around the World Flight

Akos - Time Reminder

Henry - GW-BASIC to JB Converter Utility

- Joseph smiley
Re: Text - Based Challenge
Post by Henry on Aug 3rd, 2008, 02:18am

Three cheers to Joseph E for doing a fine job hosting the challenge. Well done!

And good luck to all the entrants. smiley

Re: Text - Based Challenge
Post by jeremyhowell on Aug 3rd, 2008, 8:52pm

Hip hip hooray!

Thanks Joseph E.
Re: Text - Based Challenge
Post by lay6 on May 7th, 2010, 9:09pm

can the game be of adult content?
Re: Text - Based Challenge
Post by jeremyhowell on May 7th, 2010, 9:36pm

This closed like two tears ago. And if it was still open I think many of us would appreciate you not putting adult content in it. wink

~ Jeremy
Re: Text - Based Challenge
Post by tomc on Jul 16th, 2010, 12:02pm

I hope to have my (casino) Craps Simulator ready prior to the deadline. I am including (1) pass/dont pass stats, (2) dice frequency, and (3) win/loss statements based on betting systems. If you have a favorite betting system you would like to be included, please let me know and I'll try to add it based on complexity. thanks !!
Re: Text - Based Challenge
Post by tomc on Jul 16th, 2010, 12:04pm

Sorry, I noted Aug but now see 2008. I'll post it in shared !
Re: Text - Based Challenge
Post by Joseph E. on Jul 16th, 2010, 12:07pm

Haha, I had no idea this thing had these replies (definitely NO adult content! [see page 4 in case you're wondering...])

I've thought about hosting a second Text-Based challenge actually. But I just never got around to it.
Re: Text - Based Challenge
Post by Boyonfire on Aug 6th, 2010, 11:36pm

I'd really like to participate in a text based challenge. Hone my skills further, get critique and advice from other users, you know?
Re: Text - Based Challenge
Post by ki4jgt on Nov 28th, 2010, 7:28pm

When are more challenges going to be made? Can someone make challenges?
Re: Text - Based Challenge
Post by JohnDavidson on Nov 28th, 2010, 8:44pm

on Nov 28th, 2010, 7:28pm, ki4jgt wrote:
When are more challenges going to be made? Can someone make challenges?

Have you read this thread?

John
Re: Text - Based Challenge
Post by ki4jgt on Nov 29th, 2010, 5:05pm

Code:
This includes fielding questions about routines that members might need to complete the challenge. 


What constitutes as "fielding" and "Routines" As long as I don't have to explain coding the program to the person, I think I'm fine. I'm not finished with the help file completely.
Re: Text - Based Challenge
Post by tomc on Nov 30th, 2010, 06:53am

im up for a challenge too.
Re: Text - Based Challenge
Post by Farscience on Apr 5th, 2012, 5:04pm

Too bad this ended. I made something called "Text Pet", but it's a batch file. Would that have counted?
[IGNORE]
Post by packpatfan on Jul 17th, 2012, 4:32pm

I accidently replied to this instead of to another, just ignore this.

MODS? Could you please delete this?