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

85882

Fri Jun 13, 2003 4:41 pm


Question

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

var n: string
var win := Window.Open ("graphics:400;125,position:300;400,nobuttonbar,noecho,nocursor")
View.Set ("offscreenonly")

var font := Font.New ("Sherwood:48:italic")
var text : string := "*OOT Quiz*"
var angle := 0
type dottype :
    record
        x, y, depth, middist : int
    end record

var dot : flexible array 1 .. 0 of dottype

for decreasing i : 31 .. 16
    Font.Draw (text, maxx div 2 - Font.Width (text, font) div 2, maxy div 3, font, i)
    delay (60)
end for
for x : 0 .. Font.Width (text, font) div 3
    for y : 0 .. 15
        if whatdotcolour (x * 3 + maxx div 2 - Font.Width (text, font) div 2, y * 3 + maxy div 3) = 7 then
            new dot, upper (dot) + 1
            dot (upper (dot)).x := x * 3 - Font.Width (text, font) div 2
            dot (upper (dot)).y := y
            dot (upper (dot)).depth := Rand.Int (-5, 5) * 3

        end if
    end for
end for
for i : 16 .. 31
    Font.Draw (text, maxx div 2 - Font.Width (text, font) div 2, maxy div 3, font, i)
    delay (40)
end for

for decreasing j : 31 .. 16
    for i : 1 .. upper (dot)
        drawdot (dot (i).x + maxx div 2, dot (i).y * 3 + maxy div 3, j)
    end for
    delay (40)
end for

loop
    for i : 1 .. upper (dot)
        drawdot (round (cosd (angle + 90) * dot (i).depth) + round (cosd (angle) * dot (i).x) + maxx div 2, dot (i).y * 3 + maxy div 3, 54)
    end for

    angle += 5


    if angle mod 180 = 0 then
        delay (80)
    else
        delay (45)
    end if
    drawfillbox (0, maxy div 3 - 15, maxx, maxy div 3 + 55, 198)
end loop

I want it to stop when it turns five times. How do I do that?


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

AsianSensation

Fri Jun 13, 2003 4:50 pm



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

ahh, Mazer's text effects. 

anyway, for the thing to turn once around, I assume you want it to turn 360 degrees, then since the angle+=5 every loop, then it takes 72 times for the thing to turn exacting once. multiply 72 by whatever times to get it to turn that many times.


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

Andy

Fri Jun 13, 2003 4:52 pm



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

ahh, Mazer's text effects. 

anyway, for the thing to turn once around, I assume you want it to turn 360 degrees, then since the angle+=5 every loop, then it takes 72 times for the thing to turn exacting once. multiply 72 by whatever times to get it to turn that many times.

meng ur so damn confusing... and doreen's hair today made her look ho... drool... lol jk, jk,jk no i'm not after ur gf don't kill me


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

AsianSensation

Fri Jun 13, 2003 4:55 pm



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

first of all, andy, I will kill you when I see you at math exam, second of all, I will elaborate on my explaination.

The angle increase by 5 every loop, then it takes 72 loops for the text to turn exactly once around. Multiply 72 by 5 will allow the text to turn 5 times around exactly.


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

Andy

Fri Jun 13, 2003 4:58 pm



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

hmmm should've took a picture and use it as my avatar lol just playing with ya man, crush the crush remember?


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

naoki

Fri Jun 13, 2003 9:50 pm



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

jeez andy stop this stupid crap
asok's gonna blam ur ass if he sees this

meng, do ur thing. i support u


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

Asok

Fri Jun 13, 2003 10:10 pm



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

Locked for having an invalid subject title.

Btw, if you're going to mod someones code to make it appropriate to use, you could at least have the decency to do it yourself.