Uggh

heh....
so does this mean we wont be seeing much of you?
my hamster will miss your leg

<font color=purple>Be gentle with yourself, but not too gentle when browsing porn .</font color=purple>

Oh hell no. hehe. I "studied ahead" so I'm set through thursday. Gotta have my THG man

Sig of the week.

good to see you havnt betrayed your principles flamie

<font color=purple>Be gentle with yourself, but not too gentle when browsing porn .</font color=purple>

I have vacation .

But anyway... good luck with all those things. And it sucks to do so much in one week.

With a hovering case crashing takes a whole new meaning... .

Fun fun, I now also have a unit test on Nuclear Chemistry this Friday, and another meeting thursday!!

Sig of the week.

Haha, u think ur teacher is hard? I don't mean to brag, but I'm one of those guys who get A+ in math, always. This year this isn't the case- in fact no one has EVER gotten an A+ w/ her! Hell, few get A's!! And English is on the Oddessey- in detail w/ all the bitchy little themes and shiit.

Sig of the week.

Try factoring and simiplifying rational expressions with different denominators. They're very tedious.

<b><i>"A penny saved is a penny earned!"</i></b>

Ever taken an advanced Astrophysics course where you're the only one in the class? I have a new measure by which I judge stress now.

<font color=red>God</font color=red> <font color=blue>Bless</font color=blue> <font color=red>America!</font color=red>

Lol, you're just called "not normal"? Lucky! How about geek, nerd, lifeless, etc? LOL!

I've heard the "you have no life" phrase more than I'd like.

I'm sure my friends are just joking around but if you hang around THGC, then you definitely fit those titles.

Seriously though, there's nothing wrong with tinkering a bit with computers but my friends aren't keen about computers as I am.

In comp sci class, I made a game of PONG within an hour.

Everyone was like, "OMG, you're a genius"

They're like "How do you do it?"

I say that I taught myself programming at home.

Then I hear that infamous phrase again, "you have no life".



<b><i>"A penny saved is a penny earned!"</i></b>

poor man...
there is a trick to avoid hearing that phrase.

what u do is make sure you dont know anyone!
then noone can say "you have no life"
cept your hamster

<font color=purple>Be gentle with yourself, but not too gentle when browsing porn .</font color=purple>

Here's the code for the game if anyone is interested. It's written in OOT (Object Oriented Turing). That's the programming language we've been learning at school:

I'll post a link for the interpreter if anyone is interested. Yes, it's an interpreter not a compiler.

The AI for the computer isn't that good though.


var
key, rpaddle : string (1) := "1"
var
y, oldy, ballx, oldbx, oldby, bally, ctime, octime, bdiff, posy1, posy2,
randm, y2, oldy2, clocks, clocksi, yai, ballai, responsetime, currtime,
currtime2, playfont, play1score, play2score : int := 0
var twoplayer, haschar : boolean := false

function calcinverse (m, x, b : real) :
int
result round ( (x - b) / m)

end calcinverse

function calclinearequation (m, x, b : real) :
int
result round ( (m * x) + b)

end calclinearequation


type linearrec :
record
m : real
b : real
end record
var linrec : linearrec



procedure reflect (var linrec : linearrec)
linrec.m := - linrec.m
linrec.b := - linrec.b
end reflect

function calcb (m, x, y : real) : real
result (y - (m * x))
end calcb

process manageai
loop
if not twoplayer then
clock (clocksi)

if (bdiff > 0) and (clocksi > clocks + 30) then
if clocksi > currtime + responsetime then
clock (clocks)
drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
0)
if ballai > 352 then
ballai := 352
end if
if ballai < 50 then
ballai := 50
end if
if ballai > yai then
yai := yai + 5
elsif ballai + 5 < yai then
yai := yai - 5
end if

drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
255)
end if
end if
else

if hasch then
haschar := true
getch (key)
drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
0)

case key of
label "w" :
yai := yai + 5
label "s" :
yai :=yai- 5
label :

end case
if yai > 342 then
yai := 342
end if
if yai < 68 then
yai := 68
end if
drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
255)

end if

end if
end loop
end manageai

setscreen ("graphics:300;360" )
setscreen ("nocursor" )
setscreen ("noecho" )
haschar := false
playfont := Font.New ("Times New Roman:16" )
Font.Draw ("Player 1: " + intstr (play1score) + "pts", maxx div 16, 10,
playfont,
255)
Font.Draw ("Player 2: " + intstr (play2score) + "pts", maxx - (maxx div 16)
- 68,
10, playfont, 255)

drawfillbox (0, (maxy div 2) - 10 + 20 + y, 5, (maxy div 2) + 10 + y + 20,
255)
drawfillbox (5, 40, maxx - 5, 48, 255)
drawfillbox (5, maxy - 8, maxx - 5, maxy, 255)
ballx := 290
bdiff := - 5
linrec.m := 1 / 3
linrec.b := 10
yai := maxy div 2 + 20
drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
255)
bally := calclinearequation (linrec.m, ballx, linrec.b)
fork manageai


loop


clock (ctime)
oldbx := ballx
oldby := bally


if (ctime > octime + 20) then


ballx := ballx + bdiff
if ballx <= 0 or ballx >= 300 then
ballx := 285

linrec.b := 10
bdiff := - 5
randint (randm, 1, 10)
linrec.m := 1 / 3
drawfillbox (maxx - 5, oldby - 10,
maxx, oldby + 10,
0)

elsif ballx = 5 then
posy1 := (maxy div 2) - 10 + 20 + oldy
posy2 := (maxy div 2) + 10 + 20 + oldy

if (bally >= posy1 - 7) and (bally <= posy2 + 7) then
sound (200, 1)
randint (responsetime, 200, 1000)
clock (currtime)
bdiff := 5
ballx := ballx + 5
if (bally >= posy1 - 7) and (bally <= posy2 + 7) then
reflect (linrec)
linrec.b := linrec.b + 2 * abs (bally)
end if
bally := calclinearequation (linrec.m, ballx, linrec.b)
clock (clocks)
if not twoplayer then
randint (ballai, - 20, 20)
ballai := ballai + calclinearequation (linrec.m, 290,
linrec.b)
end if
else
drawfillbox (0, 0, maxx, 35, 0)
play2score := play2score + 1
Font.Draw ("Player 1: " + intstr (play1score) + "pts", maxx
div 16,
10, playfont, 255)
Font.Draw ("Player 2: " + intstr (play2score) + "pts", maxx
- (maxx
div 16) - 68, 10, playfont, 255)

end if
elsif ballx = 295 then
posy1 := yai - 10
posy2 := yai + 10
if (bally >= posy1 - 7) and (bally <= posy2 + 7) then
sound (200, 1)

bdiff := - 5
ballx := ballx - 5

reflect (linrec)
linrec.b := linrec.b + 2 * abs (bally)

bally := calclinearequation (linrec.m, ballx, linrec.b)
else
drawfillbox (0, 0, maxx, 35, 0)
play1score := play1score + 1
Font.Draw ("Player 1: " + intstr (play1score) + "pts", maxx
div 16,
10, playfont, 255)
Font.Draw ("Player 2: " + intstr (play2score) + "pts", maxx
- (maxx
div 16) - 68, 10, playfont, 255)
end if
else
if (bally > 335) or (bally < 60) then
sound (200, 1)
reflect (linrec)
linrec.b := calcb (linrec.m, ballx, bally)

if bdiff > 0 then
ballx := ballx + 5
else
ballx := ballx - 5
end if
if not twoplayer then
if ballai > calclinearequation (linrec.m, 290,
linrec.b) then


randint (ballai, - 20, 0)
else
randint (ballai, 0, 20)
end if
ballai := ballai + calclinearequation (linrec.m, 290,
linrec.b)
end if
end if
bally := calclinearequation (linrec.m, ballx, linrec.b)
if bdiff < 0 then
drawfillbox (maxx - 5, yai - 10, maxx, yai + 10,
255)
end if
end if

octime := ctime


drawfilloval (oldbx, oldby, 4, 4, 0)

drawfilloval (ballx, bally, 4, 4, 25)
end if

oldy := y
if twoplayer then
if haschar then
haschar := false
%getch (key)

case ord (key) of
label 200 :
y := y + 5
label 208 :
y := y - 5
label :

end case
end if
else
if hasch then

getch (key)

case ord (key) of
label 200 :
y := y + 5
label 208 :
y := y - 5
label :

end case
end if
end if
if (oldy not= y) then
drawfillbox (0, (maxy div 2) - 10 + 20 + oldy, 5, (maxy div 2) + 10 +
20 + oldy, 0)

if y < - 140 then
y := - 140
elsif y > 140 then
y := 140
end if

drawfillbox (0, (maxy div 2) - 10 + 20 + y, 5, (maxy div 2) + 10 +
20 + y,
255)
end if
end loop

Font.Free (playfont)





<b><i>"A penny saved is a penny earned!"</i></b>

Lol, I said it was a game of PONG. The AI that controls the computer paddle sucks, that's what I meant.

<b><i>"A penny saved is a penny earned!"</i></b>

Ok, so far so good *knocks on wood*. Got 100 on the quiz I took on Monday.....

Sig of the week.

Spread the optimism wide and far.

<b><font color=blue> I took an I.Q. test today...It came back negative.</font color=blue></b>

You think it's too fast? You realize if you press the up or down arrow and keep pressing, it will continue to move up or down.

<b><i>"A penny saved is a penny earned!"</i></b>

The problem is that the ball always start at the same place... when you misses it on the top of the screen there is no way you can get the following ball.
BTW Not that I could make such a program (to long since I programmed and I only know Basic), but if I'm right I made a game myself... if you want I can give you a link.

With a hovering case crashing takes a whole new meaning... .