Mystify - Printable Version

Code:

' Mystify

set window "mystify", 800, 600,false

set redraw off



numPolys = 2           ' Number of polygons

pointsPerPoly = 4      ' Points per polygon (3=triangle, 4=quad)

trailLength = 10       ' Number of trailing positions to show

trailGap = 3           ' Space between trail segments 



' Initialize arrays

x=dim(numPolys * pointsPerPoly, trailLength)

y=dim(numPolys * pointsPerPoly, trailLength)

dx=dim(numPolys * pointsPerPoly)

dy=dim(numPolys * pointsPerPoly)



' Set up initial positions and velocities

for poly1 = 0 to numPolys-1



    for i = 0 to pointsPerPoly-1

        index = poly1*pointsPerPoly + i

        x[index][0] = rnd(800)

        y[index][0] = rnd(600)

        for t = 1 to trailLength-1

            x[index][t] = x[index][0]

            y[index][t] = y[index][0]

        next

        do

            dx[index] = (rnd(6))-3  ' Random velocity

            dy[index] = (rnd(6))-3

        until dx[index] <> 0 and dy[index] <> 0

    next

next





'-----------

' MAIN LOOP

'-----------

while not keydown(KEY_ESCAPE,true)

    set color 0,0,0

    cls

    

    for poly1 = 0 to numPolys-1

        

        polyStart = poly1*pointsPerPoly

        

        'color

        if poly1=0 then set color 255,255,0

        if poly1=1 then set color 255,0,0

        

        ' Update positions and shift trail history

        for i = 0 to pointsPerPoly-1

            index = polyStart + i

            

            ' Update current position

            x[index][0] = x[index][0]+dx[index]

            y[index][0] = y[index][0]+dy[index]

            

            ' Collision detection

            if x[index][0] < 0 or x[index][0] > 800 then dx[index] = -dx[index]

            if y[index][0] < 0 or y[index][0] > 600 then dy[index] = -dy[index]

            

            ' Shift history buffer

            for t = trailLength-1 to 1 step -1

                x[index][t] = x[index][t-1]+trailGap

                y[index][t] = y[index][t-1]+trailGap

            next

        next

        

        ' Draw all trail segments with solid color       

        for t = 0 to trailLength-1

            for i = 0 to pointsPerPoly-1

                index = polyStart + i

                nextIndex = polyStart + (i+1) % pointsPerPoly

                draw line x[index][t], y[index][t], x[nextIndex][t], y[nextIndex][t]

            next

        next

        

    next

    

    fwait 60

    redraw

wend

Code:

' Set up the screen

#win32

set window "Pipes 2D", 640, 480,false



'randomize

randomize time()



'color definition

black   = [0,0,0]

white   = [255,255,255]

red     = [255,0,0]

green   = [0,255,0]

blue    = [0,0,255]

yellow  = [255,255,0]

cyan    = [0,255,255]

magenta = [255,0,255]



' Define colors for the pipes

colors=[]

colors[0] = red

colors[1] = green

colors[2] = blue

colors[3] = yellow

colors[4] = cyan

colors[5] = magenta



'initial color

col = red



' Pipe settings

pipe_width = 10

speed = pipe_width



' Directions: 0 = right, 1 = down, 2 = left, 3 = up

direction = int(rnd() * 4)



' Starting position

x = width()/2

y = height()/2



' Main loop

while not keydown(KEY_ESCAPE)

    ' Randomly choose a color for the new pipe segment

    set color col



    ' Draw the pipe segment based on direction

    if direction = 0 then

        ' Right

        draw rect x, y, pipe_width, pipe_width,true

        x = x + speed

    elseif direction = 1 then

        ' Down

        draw rect x, y, pipe_width, pipe_width,true

        y = y + speed

    elseif direction = 2 then

        ' Left

        draw rect x, y, pipe_width, pipe_width,true

        x = x - speed

    elseif direction = 3 then

        ' Up

        draw rect x, y, pipe_width, pipe_width,true

        y = y - speed

    endif



    ' Change direction randomly or when hitting the screen edge

    if x <= (0+pipe_width) or x >= (640 - pipe_width) or 

       y <= (0+pipe_width) or y >= (480 - pipe_width) or 

       int(rnd() * 20) < 10 then

            direction = int(rnd() * 4)

    endif



    ' Clear the screen occasionally to prevent clutter

    if int(rnd() * 1800) < 5 or keydown(KEY_SPACE,true) then

        set color black

        cls

        x = width()/2

        y = height()/2

    endif



    'change colors

    if int(rnd() * 400) < 5 then

        col = colors[int(rnd() * 5)]

        x = x + pipe_width*2

        y = y + pipe_width*2

    endif



    ' Pause for a short time

    fwait 60

wend