#Include Once "fbgfx.bi"
Using FB
#Include Once "crt.bi"
#Include Once "freeimage.bi"
#Include Once "zlib.bi"
#Include Once "inc/freetofb.bi"
ScreenRes 1200, 800, 32,1,GFX_SHAPED_WINDOW
Dim Shared PCSX2GUI As any Ptr
Dim Shared Reveal As Any Ptr
Dim Shared As Integer mouse, x, y, buttons, fake =1

PCSX2GUI = freeimage_load_fb(ExePath & "/Plugins/PSXcore.dll", TRUE)
Reveal = freeimage_load_fb(ExePath & "/Plugins/IOP.dll", TRUE)
Paint (10,10), RGB(255,0,255), RGB(1,2,3)
Put (0,0), PCSX2GUI,PSet

Do
    buttons = 0
    mouse = GetMouse(x,y,,buttons)
    If (x > 0 And x < 1200) And (y > 0 And y < 800) Then
    If buttons And 1 Then
        Exit do
    EndIf
    End If
    If MultiKey(SC_ESCAPE) Then Exit do
    Sleep 15
Loop


Put (0,0), Reveal, PSet

While InKey$ <> "" Or (buttons And 1)
    mouse = GetMouse(x,y,,buttons)
    Sleep 15
Wend

While InKey$ = ""
    mouse = GetMouse(x,y,,buttons)
    If (x > 0 And x < 1200) And (y > 0 And y < 800) Then
    If buttons And 1 Then Exit While
    End if
    Sleep 15
Wend

ImageDestroy(PCSX2GUI)
ImageDestroy(Reveal)

End

Data "derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp","derp"