%VARIABLES
var mob1LocX : int
var mob1LocY : int
var mob2LocX : int
var mob2LocY : int
var mob3LocX : int
var mob3LocY : int
var mob4LocX : int
var mob4LocY : int
var mob5LocX : int
var mob5LocY : int
var mob1 : int
var mob2 : int
var mob3 : int
var mob4 : int
var mob5 : int
var mobHeight : int
var mobWidth : int

%LOAD MONSTER PIC ID'S
proc picLoad
    mob1 := Pic.FileNew ("Monsters\\Skeleton\\SkeletonFront.bmp")
    mob2 := Pic.FileNew ("Monsters\\Skeleton\\SkeletonFront.bmp")
    mob3 := Pic.FileNew ("Monsters\\Skeleton\\SkeletonFront.bmp")
    mob4 := Pic.FileNew ("Monsters\\Skeleton\\SkeletonFront.bmp")
    mob5 := Pic.FileNew ("Monsters\\Skeleton\\SkeletonFront.bmp")
end picLoad

%DETECT PIC DIMENSIONS
proc picDims
    mobHeight := Pic.Height (mob1)
    mobWidth := Pic.Width (mob1)
    mobHeight := Pic.Height (mob2)
    mobWidth := Pic.Width (mob2)
    mobHeight := Pic.Height (mob3)
    mobWidth := Pic.Width (mob3)
    mobHeight := Pic.Height (mob4)
    mobWidth := Pic.Width (mob4)
    mobHeight := Pic.Height (mob5)
    mobWidth := Pic.Width (mob5)
end picDims

%RANDOMIZE LOCATION VARIABLES
proc mobLoc
    randint (mob1LocX, 1 + mobWidth, maxx - mobWidth)
    randint (mob1LocY, 1 + mobHeight, maxy - mobHeight)
    randint (mob2LocX, 1 + mobWidth, maxx - mobWidth)
    randint (mob2LocY, 1 + mobHeight, maxy - mobHeight)
    randint (mob3LocX, 1 + mobWidth, maxx - mobWidth)
    randint (mob3LocY, 1 + mobHeight, maxy - mobHeight)
    randint (mob4LocX, 1 + mobWidth, maxx - mobWidth)
    randint (mob4LocY, 1 + mobHeight, maxy - mobHeight)
    randint (mob5LocX, 1 + mobWidth, maxx - mobWidth)
    randint (mob5LocY, 1 + mobHeight, maxy - mobHeight)
end mobLoc

%CREATE SPRITES
proc createSprites
    mob1 := Sprite.New (mob1)
    mob2 := Sprite.New (mob2)
    mob3 := Sprite.New (mob3)
    mob4 := Sprite.New (mob4)
    mob5 := Sprite.New (mob5)
end createSprites

%POSITION SPRITES ON SCREEN
proc spritePos
    Sprite.SetPosition (mob1, mob1LocX, mob1LocY, true)
    Sprite.SetPosition (mob2, mob2LocX, mob2LocY, true)
    Sprite.SetPosition (mob3, mob3LocX, mob3LocY, true)
    Sprite.SetPosition (mob4, mob4LocX, mob4LocY, true)
    Sprite.SetPosition (mob5, mob5LocX, mob5LocY, true)
end spritePos

%DRAW SPRITES ON SCREEN
proc drawSprite
    Sprite.Show (mob1)
    Sprite.Show (mob2)
    Sprite.Show (mob3)
    Sprite.Show (mob4)
    Sprite.Show (mob5)
end drawSprite

%MAIN PROGRAM
picLoad
picDims
mobLoc
createSprites
spritePos
drawSprite