Sorry your browser is not supported!

sync on : sync rate 60

load bitmap "test_Areas.png",1
load image "test.png",1,1
set current bitmap 0
    sprite 1,0,0,1
do
    cls
    color=0
    if mouseclick()=1 then color=Get_Color()

    text 10,575,Get_Info(color)
    
    sync

loop

Function Get_Color()

    set current bitmap 1
    pixelcolor=point (mousex(),mousey())
    set current bitmap 0 

endfunction pixelcolor

Function Get_Info(event)

    local info as string

    if event=rgb(255,0,0) then info="Buster"
    if event=rgb(0,0,255) then info="Played Time"
    if event=rgb(255,255,0) then info="Goto Elf Menu"
    if event=rgb(0,255,0) then info="Z-Saber"
    if event=rgb(128,0,0) then info="Main Weapon"
    if event=rgb(255,255,128) then info="Crystals You Own"
    if event=rgb(0,128,255) then info="Portrait"
    if event=rgb(128,128,0) then info="Sub-Weapon"
    if event=rgb(128,64,0) then info="Energy"
    if event=rgb(0,64,128) then info="Lives"
    if event=rgb(128,0,255) then info="Your Level"
    if event=rgb(0,128,128) then info="Nothing Yet"
    if event=rgb(0,0,128) then info="Elves At your Disposal"
    if event=rgb(128,0,128) then info="Nothing Yet"
    if event=rgb(128,128,64) then info="Escape Current Mission"
    if event=rgb(0,64,64) then info="Information of Current Selection"
    if event=rgb(0,255,255) then info="Goto Forms Menu"
    if event=rgb(255,0,255) then info="Code Name by which you are known"

endfunction Info