Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 [FP] BLACK JACK AS NEVER SEEN BEFORE!!!
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
sport




PostPosted: Sun Jan 18, 2004 3:04 pm   Post subject: [FP] BLACK JACK AS NEVER SEEN BEFORE!!!

COMPLITED BY SPORT AND SHORTHAIR!!!

Mod Edit: Good start, though couple of error checking or some help files would be nice, +10 bits



blackjack.zip
 Description:
BLACK JACK

Download
 Filename:  blackjack.zip
 Filesize:  526.38 KB
 Downloaded:  367 Time(s)

Sponsor
Sponsor
Sponsor
sponsor
sport




PostPosted: Sun Jan 18, 2004 3:09 pm   Post subject: (No subject)

Suggestion and opinions welcomed
shorthair




PostPosted: Sun Jan 18, 2004 4:37 pm   Post subject: (No subject)

HELP FILE

P.S ............ if you are losing just type "ilovemoney" for a million dollars when it asks you to bet, well if you get the CASE right Twisted Evil Twisted Evil



Black Jack Help.txt
 Description:
All the info you needto play

Download
 Filename:  Black Jack Help.txt
 Filesize:  838 Bytes
 Downloaded:  229 Time(s)

Tony




PostPosted: Sun Jan 18, 2004 5:58 pm   Post subject: (No subject)

i get the runtime error of column 85 being greater then maxcol of 78 Confused And I can't resize the window to solve the problem ether Rolling Eyes

it probably just something to do with the fact that I run my monitor at 1280x1024 rez
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
santabruzer




PostPosted: Sun Jan 18, 2004 6:51 pm   Post subject: (No subject)

yea.. i still don't get why not use this for input.. and make it all pretty:

code:
colorback (black)
cls
% Question
var text := "Please Enter your Name"

% Outputting Variable
var output := ""

% Maximum Input of chars
var maxinput := 17
var fontnameenter := Font.New ("courier:20")
var fontnametitle := Font.New ("Times New Roman:15")

setscreen ("offscreenonly,nocursor")
var ch : string (1) := ""
loop
    % Draw the Question
    Font.Draw (text, 60, maxy div 2 + 12, fontnametitle, 0)
   
    % Draw the Entereing
    Font.Draw (output, 30, 170, fontnameenter, 0)
   
    % Draw the Outline (input box)
    drawbox (15, 150, maxx - 15, 200, 0)
   
    View.Update
   
    getch (ch)

    % Exit if Enter is pressed
    exit when ch = chr (10)

    % Remove one Character if BackSpace is pressed
    if ch = chr (8) then
        if length (output) not= 0 then
            output := output (1 .. length (output) - 1)
        end if
    end if

    % Add one character if the string is not the illegal keys, and is less than 17
    if length (output) < maxinput and ch not= chr (8) and ch not= chr (200) and
            ch not= chr (203) and ch not= chr (205) and ch not= chr (208) then
        if ch not= chr (10) then
            output += ch
        end if
    end if

    % Clear the Input
    ch := ""

    % Clear the Screen
    cls
end loop
shorthair




PostPosted: Sun Jan 18, 2004 7:23 pm   Post subject: (No subject)

why would i want that , i never ask for the name
i dont see what your trying to say , and tony im not sure whats going on with you , i run at 1280 x1024 and im fine
McKenzie




PostPosted: Sun Jan 18, 2004 10:09 pm   Post subject: (No subject)

I like the way you can bet $1, hit, if you get the card you like beef it up to $100.
shorthair




PostPosted: Tue Jan 20, 2004 3:00 pm   Post subject: (No subject)

+ 50 BITS , for the new guy just for being new
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 8 Posts ]
Jump to:   


Style:  
Search: