setscreen ("graphics:600,400,offscreenonly,nocursor")
buttonchoose ("multibutton")

%NOTE
% This is only the zooming part of my program, the scope is not drawn infront
% of the zoomed picture, i would just like to get this part lined up so i can
% implement it in the program after


var bg : int := Pic.FileNew ("test2.bmp") %the original BG
var bgz : int := Pic.Scale (bg, Pic.Width (bg) * 2, Pic.Height (bg) * 2) %the new larger BG
var bgX, bgY, bgzY, bgzX, mx, my, button, left, right, middle, scope : int
var hasScoped : boolean := false

%bgX and bgY are the normal background X and Y
bgX := (maxx - Pic.Width (bg)) div 2
bgY := (maxy - Pic.Height (bg)) div 2
%%bgzX and bgzY are the zoomed background X and Y
bgzX := ((maxx - Pic.Width (bg)) div 2) * 3
bgzY := ((maxy - Pic.Height (bg)) div 2) * 3
Pic.Draw (bg, bgX, bgY, picCopy)

%The area you can see, so you dont go beyond the borders of the picture
procedure viewArea
    if scope = 1 then
        if bgzX >= 0 then
            bgzX := 0
        end if
        if bgzX < -1400 then
            bgzX := -1400
        end if
        if bgzY > 0 then
            bgzY := 0
        end if
        if bgzY < -1200 then
            bgzY := -1200
        end if
    elsif scope = 0 then
        if bgX >= 0 then
            bgX := 0
        end if
        if bgX < -350 then
            bgX := -350
        end if
        if bgY > 0 then
            bgY := 0
        end if
        if bgY < -400 then
            bgY := -400
        end if
    end if
end viewArea

procedure scopes
    scope := 1
end scopes

scope := 0
loop
    mousewhere (mx, my, button)
    left := button mod 10
    middle := (button - left) mod 100
    right := button - middle - left
    %the mouse moving settings
    %mx and my are mouse X and mouse Y
    if mx > 325 and mx <= 600 then
        if scope = 0 then
            bgX -= 10
        elsif scope = 1 then
            bgzX -= 10
        end if
        viewArea
    end if
    if mx < 275 and mx >= 0 then
        if scope = 0 then
            bgX += 10
        elsif scope = 1 then
            bgzX += 10
        end if
        viewArea
    end if
    if my > 225 and my <= 400 then
        if scope = 0 then
            bgY -= 10
        elsif scope = 1 then
            bgzY -= 10
        end if
        viewArea
    end if
    if my < 175 and my >= 0 then
        if scope = 0 then
            bgY += 10
        elsif scope = 1 then
            bgzY += 10
        end if
        viewArea
    end if
    %Drawing cross hair
    drawline (maxx div 2, maxy div 2, (maxx div 2) + 10, maxy div 2, red)
    drawline (maxx div 2, maxy div 2, (maxx div 2) - 10, maxy div 2, red)
    drawline (maxx div 2, maxy div 2, maxx div 2, (maxy div 2) + 10, red)
    drawline (maxx div 2, maxy div 2, maxx div 2, (maxy div 2) - 10, red)   
    if scope = 0 then
        Pic.Draw (bg, bgX, bgY, picCopy)
    elsif scope = 1 then
        Pic.Draw (bgz, bgzX, bgzY, picCopy)
    end if     
    if right = 100 and hasScoped = true then
        scope := 0
        hasScoped := false
    end if
    if right = 100 and hasScoped = false then
        scopes
        hasScoped := true
    end if
    View.Update
    delay (100)
end loop

    drawoval (mx, my, 10, 10, blue)
    drawline (mx - 12, my - 12, mx + 12, my + 12, blue)
    drawline (mx + 12, my - 12, mx - 12, my + 12, blue)