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

fdsafdsa

Sat Feb 18, 2006 11:50 pm


RAYS AND ATOMS

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

I AM MAKING A RAY AND ATOM PROGRAM THAT ON A GRID SHOOTS RAYS OUT AND THE WHEN AN ATOM IS INFRONT OF IT IT STOP IF IT IS BESIDE IT AND UP 1 THEN IT BEND TO THE RIGHT OR LEFT BUT ITS CONFUSING I CANT SEEM TO BEND IT OR GET IT TO STOP THE RAY IM USING A DRAWFILL BOX AND IT JUST GOES THROUGH THE ATOM  THE ATOMS A PICTURES AND ARE RANDOMLY DISPLAYED IN A GRID USING A 2-D ARRAY THE PICS ARE STORED IN THE SECTION OF THE 2-D ARRAY THE GRID IS ALSO MADE BY THE 2-D ARRAY HERE IS MY CODE YOU CANT USE THE PIC CAUSE I HAVE IT









setscreen ("graphics:600;600,title:Laser Atoms KABOOM")
const pic := Pic.FileNew ("/Computer Science/Turing Pcitures/atom.jpg")
const pic2 := Pic.FileNew ("/Computer Science/Turing Pcitures/raygun.jpg")
const pic3 := Pic.FileNew ("/Computer Science/Turing Pcitures/raygun2.jpg")
const pic4 := Pic.FileNew ("/Computer Science/Turing Pcitures/raygun3.jpg")
const pic5 := Pic.FileNew ("/Computer Science/Turing Pcitures/raygun4.jpg")
var g : int := 145
var h : int := 145
cls

var typeatom : array 1 .. 25 of int
var num : int := 1
var num2 := 100
var num3 := 100
var grid : array 1 .. 10, 1 .. 10 of int
for a : 1 .. 10
    for b : 1 .. 10
        grid (a, b) := num2
        num2 := num2 + 40
        drawbox (num3, grid (a, b), num3 + 40, grid (a, b) + 40, black)
    end for
    num2 := 100
    num3 += 40
end for

var a : int
var b : int
var num6 : int := 1
loop
    randint (a, 2, 9)
    randint (b, 2, 9)
    grid (a, b) := pic
    var num4, num5 : int := 143
    for c : 2 .. 10
        for d : 2 .. 10
            if a = c and b = d then
                Pic.Draw (grid (a, b), num4, num5, picCopy)
            elsif a = c and b not= d then
                num5 += 40
            elsif a not= c and b = d then
                num4 += 40
            end if
        end for
    end for
    num6 += 1
    exit when num6 = 11
end loop

var count := 0
Pic.Draw (pic2, -150, 85, picCopy)
var picount : int := 0
var cdist : int := 100
var x, y, button : int

var mx2, my2, btn : int
var dist : int := 100
var dist1 : int := 100
var dist2 : int := 40
var dist3 : int := 120
var dist4 : int := 40
var count2 := 0
var col : int := 10
proc BottomLasers


    if mx2 >= dist and mx2