[FP] BLACK JACK AS NEVER SEEN BEFORE!!!

[sport]

COMPLITED BY SPORT AND SHORTHAIR!!!

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

[sport]

Suggestion and opinions welcomed

[shorthair]

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

[Tony]

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

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

[santabruzer]

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]

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]

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

[shorthair]

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