-----------------------------------

sport

Sun Jan 18, 2004 3:04 pm


[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


-----------------------------------

sport

Sun Jan 18, 2004 3:09 pm



-----------------------------------

Suggestion and opinions welcomed


-----------------------------------

shorthair

Sun Jan 18, 2004 4:37 pm



-----------------------------------

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:  :twisted:


-----------------------------------

Tony

Sun Jan 18, 2004 5:58 pm



-----------------------------------

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

it probably just something to do with the fact that I run my monitor at 1280x1024 rez


-----------------------------------

santabruzer

Sun Jan 18, 2004 6:51 pm



-----------------------------------

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

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

Sun Jan 18, 2004 7:23 pm



-----------------------------------

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

Sun Jan 18, 2004 10:09 pm



-----------------------------------

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


-----------------------------------

shorthair

Tue Jan 20, 2004 3:00 pm



-----------------------------------

+ 50 BITS , for the new guy just for being new