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

ReN3g@de

Sat Jan 24, 2004 9:45 pm


closing the unused windows

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

import GUI
var count, fontT, fontTo, font1, font2, font3 : int := 0
font2 := Font.New ("Ariel:10:underline")
fontT := Font.New ("Ariel:11:bold")
font3 := Font.New ("Ariel:15:bold")
font1 := Font.New ("Papyrus:15:bold")
proc main
    var mainW : int := Window.Open ("title: PhreakShow,graphics:360;350,nobuttonbar")
    cls
    var iWindow : string (1) := ""
    var x, y, button : int := 0
    var b1, b2, aq, ac, co, bl, rd, gr : int := 0
    var temp : string (1)
    var file : int
    var textBox : int
    var title : int
    var exiter : int := 0
    var line : string
    cls
    View.Update
    GUI.SetBackgroundColour (black)
    Font.Draw ("Build Guides", 45, maxy - 70, fontT, 0)
    Font.Draw ("Tones", 245, maxy - 70, fontT, 0)
    Font.Draw ("Phreak Show", 120, maxy - 30, font1, 0)
    Font.Draw ("Made By:", 70, 20, font3, 0)
    Font.Draw ("ReN3g@de", 170, 20, font1, 0)
    drawline (maxx div 2, 50, maxx div 2, maxy - 50, 0)
    drawline (0, maxy - 80, maxx, maxy - 80, 0)
    drawline (0, 50, maxx, 50, 0)
    Font.Draw ("Beige Box", 60, maxy - 120, font2, 0)
    Font.Draw ("Aqua", 60, maxy - 145, font2, 0)
    Font.Draw ("Acrylic", 60, maxy - 170, font2, 0)
    Font.Draw ("Colour", 60, maxy - 195, font2, 0)
    Font.Draw ("Beige Box", 245, maxy - 120, font2, 0)
    Font.Draw ("Blue Box", 245, maxy - 145, font2, 0)
    Font.Draw ("Red Box", 245, maxy - 170, font2, 0)
    Font.Draw ("Green Box", 245, maxy - 195, font2, 0)
    loop
        Mouse.Where (x, y, button)
        if button = 1 and x >= 59 and x = 224 and y = 59 and x = 200 and y = 59 and x = 175 and y = 59 and x = 150 and y = 244 and x = 224 and y = 244 and x = 200 and y = 244 and x = 175 and y = 244 and x = 150 and y = 59 and x = 224 and y = 59 and x = 200 and y = 59 and x = 175 and y = 59 and x = 150 and y = 244 and x = 224 and y = 244 and x = 200 and y = 244 and x = 175 and y = 244 and x = 150 and y