Computer Science Canada :: View topic

% 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

Author:	rags [ Tue May 25, 2004 5:16 pm ]
Post subject:	Blackjack help
can someone please oh please oh please send me a blackjack turing program. it doesnt have to be too fancy or anything at all. just a simple game with graphics and cards and numbers. Its due 2morrow for me and I have no idea how to work it. its my ISU, and its worth 30%. I have no idea how to do it. I keep messing up every time I try something. PLEASE HELP ME, I BEG U

Author:	TheZsterBunny [ Tue May 25, 2004 5:25 pm ]
Post subject:
Read my furry rabbit lips. No.

Author:	Cervantes [ Tue May 25, 2004 5:29 pm ]
Post subject:
it amazes me how not only some people can come here to beg for help, but they do it the DAY BEFORE the ISU is due. You won't get a program here, I wish you luck in completing this project.

Author:	TheZsterBunny [ Tue May 25, 2004 5:30 pm ]
Post subject:
You can, however, post up some demos of what you have, and ask for assitance with basic problems. sigh CompSci.Ca is not a place where noobs can beg to have their projects done for them. This is a topic i've seen countless times, and answered just as many. You cannot possibly expect to join a forum, and ON THE SAME DAY get everything you needed. this is not Narutofan, this is CompSci. I have no sympathy for some kid, on the eve a project is due, to expect complete strangers to do their work for them. its friggin' ridiculous. go home. read the damn help files. -Z

Author:	Mazer [ Tue May 25, 2004 6:30 pm ]
Post subject:	Re: Blackjack help
rags wrote: can someone please oh please oh please send me a blackjack turing program. it doesnt have to be too fancy or anything at all. just a simple game with graphics and cards and numbers. Its due 2morrow for me and I have no idea how to work it. its my ISU, and its worth 30%. I have no idea how to do it. I keep messing up every time I try something. PLEASE HELP ME, I BEG U You're funny. You can be my jester.

Author:	Paul [ Tue May 25, 2004 6:38 pm ]
Post subject:
Cervantes wrote: it amazes me how not only some people can come here to beg for help, but they do it the DAY BEFORE the ISU is due. You won't get a program here, I wish you luck in completing this project. some people? he's the only one I've seen so far

Author:	TheZsterBunny [ Tue May 25, 2004 7:02 pm ]
Post subject:	Noob Pardoned
y'know, we shouldn't be so mean to him (her). we should all remember how challenging our first programs were. Here. Now NEVER ask that kind of question again. -Z +BJv784.zip

Author:	Dan [ Thu May 27, 2004 3:03 pm ]
Post subject:
Sigh, i hate posts like this. Clearery he is going to hand that in for his ISU. Shure some of our 1st progames where chalgening but that was b/c we did not get other poleop to do the work for us. He could have at least asked for help rather then asking for a copy of it and on the day b4 it is due too. Could have at least ask for some one to do it for you in advaced

Author:	TheZsterBunny [ Thu May 27, 2004 3:49 pm ]
Post subject:
Dan, did you even look at the file? I've noticed only 2 dl so far. It is only black-jack in name.

Author:	Dan [ Fri May 28, 2004 11:03 pm ]
Post subject:
Ya i did, but if i side "ROFL that will teach him" he whould not download it now whold he What whould be realy evil whould be puting the foramt c: comand in it (NOTE: dont ever do that b/c some one eltes could dl it, send it them by e-mail )

Author:	SuperGenius [ Sat May 29, 2004 6:21 pm ]
Post subject:
Hacker Dan wrote: What whould be realy evil whould be puting the foramt c: comand in it is it possible to hide this in a program so if executed the user has no chance to save their pc? even on winXP?

Author:	Dan [ Sat May 29, 2004 8:15 pm ]
Post subject:
In theroy yes, but i have yet to test it. I will look in to this, by trying to format one of my comps. I will get back with the relsots as soon as i do.

Author:	SuperGenius [ Sun May 30, 2004 8:51 pm ]
Post subject:
what does this program do? I downloaded it, and it passed a virus scan, but I decided not to execute it because i couldnt see the code.

Author:	guruguru [ Sun May 30, 2004 9:04 pm ]
Post subject:
LOL That's the point. It's not supposed to do anything.

Author:	SuperGenius [ Sun May 30, 2004 9:07 pm ]
Post subject:
guruguru wrote: LOL That's the point. It's not supposed to do anything. I thought that it could have some sinister purpose.

Author:	rhomer [ Sun May 30, 2004 10:40 pm ]
Post subject:
I just wanted to say to TheZsterBunny...That was one hell of a funny program...(except my volume was way up)...Good Prank.

Author:	shorthair [ Mon May 31, 2004 2:39 pm ]
Post subject:
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

Author:	SuperGenius [ Mon May 31, 2004 2:56 pm ]
Post subject:
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.

Author:	TheZsterBunny [ Tue Jun 01, 2004 5:54 am ]
Post subject:
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