Blackjack help

[rhomer]

I just wanted to say to TheZsterBunny...That was one hell of a funny program...(except my volume was way up)...Good Prank.

[TheZsterBunny]

rhomer,
thanks, and sorry about the noise

SG,
for future reference, I would never make malicious code. evil yes, but never malicious. I know how difficult it is to recover from a formatted drive, and if my program did that, rags would have a legitimate excuse as to not having a program finished.

but incase you still do not trust me:

code:

% with thanks to mackenzie for the idea setscreen ("nobuttonbar,graphics:max;max,offscreenonly,title: Blackjack v7.84 - by: TheZsterBunny") var text : int := Font.New ("Sylfaen:36:Bold") var fcolr : int := 5 for decreasing i : 50 .. 1     RGB.SetColor (fcolr, i / 50, i / 50, i / 50)     Font.Draw ("Blackjack", (maxx div 2) - Font.Width ("Blackjack", text) div 2, (maxy div 2) - 18, text, fcolr)     View.Update     delay (50)     cls end for delay (1000) for i : 1 .. 50     RGB.SetColor (fcolr, i / 50, i / 50, i / 50)     Font.Draw ("Blackjack", (maxx div 2) - Font.Width ("Blackjack", text) div 2, (maxy div 2) - 18, text, fcolr)     View.Update     delay (50)     cls end for View.Update delay (500) Font.Draw ("Just Joking,", (maxx div 2) - Font.Width ("Just Joking,", text) div 2, (maxy div 2) - 54, text, 7) Font.Draw ("You Freeloading Piece of Crap!!", (maxx div 2) - Font.Width ("You Freeloading Piece of Crap!!", text) div 2, (maxy div 2) - 100, text, 7) View.Update delay (500) colorback (black) cls process annoyze     loop         for i : 110 .. 1760 by 10             Music.Sound (i, 50)         end for         for decreasing i : 1760 .. 110 by 10             Music.Sound (i, 50)         end for     end loop end annoyze fork annoyze var cx, cy, x, y : int x := (maxx div 2) - (Font.Width ("YOU ARE A RETARD!!", text) div 2) y := (maxy div 2) - 18 cx := 5 cy := 5 var cx2, cy2, x2, y2 : int x2 := (maxx div 2) - (Font.Width ("DON'T SPAM ON COMPSCI.CA!", text) div 2) y2 := (maxy div 2) - 100 cx2 := 2 cy2 := -5 setscreen ("title: FREELOADER ALERT!!! FREELOADER ALERT!!!") loop     if x + Font.Width ("YOU ARE A RETARD!!", text) > maxx or x < 0 then         cx := -cx     end if     if y + 36 > maxy or y < 0 then         cy := -cy     end if     if x2 + Font.Width ("DON'T SPAM ON COMPSCI.CA!", text) > maxx or x2 < 0 then         cx2 := -cx2     end if     if y2 + 36 > maxy or y2 < 0 then         cy2 := -cy2     end if     x += cx     y += cy     x2 += cx2     y2 += cy2     RGB.SetColor (fcolr, Rand.Real, Rand.Real, Rand.Real)     Font.Draw ("YOU ARE A RETARD!!", x, y, text, fcolr)     RGB.SetColor (fcolr, Rand.Real, Rand.Real, Rand.Real)     Font.Draw ("DON'T SPAM ON COMPSCI.CA!", x2, y2, text, fcolr)     View.Update     delay (5)     cls end loop

Maybe one day i'll get around to writing a tutorial for the turing color fading...
How can some people honestly believe people would do their work for them?

[shorthair]

dude if you just tried a little harder you might think , well why dont i look in hte turing submissions forum and mabye someone else had already made a black jack program and has released the code HINT HINT , dude there was no need for this thread you could have stolenthe code without anyone knowing , now you have told the entire community ,

Your not a very good cheater i tell you that.


Justin.

P.S if you steal my blackjack i really dont care , hopefully your smart enough to find the code in it , that says my name at the end of the program , if not YOUR OUTTA LUCK

[SuperGenius]

Zster: good prank, looks like it took a little bit(more than 2 min) of effort.\

I would change the font colour of your name because white on a light background is a little difficult to read. No offense, just a point of possible interest.

[TheZsterBunny]

done.

my original plan was a white name with a black glow, didn't work out

I've swapped it for a title effect

-Z