Use at your own risk.
Here it is:
File:1->Plugin_Based_App.rar

Code: Select all
ProcedureDLL.l ExitCallback()
MessageRequester("Plugin3","It seems that the main app is quitiing ... I gotta do that too",32)
ProcedureReturn
EndProcedure
ProcedureDLL.s WHO_ARE_YOU()
ProcedureReturn "I_AM_YOUR_FATHER"
EndProcedure
ProcedureDLL.s GetPluginName()
ProcedureReturn "Plugin3"
EndProcedure
ProcedureDLL.s GetPluginDesc()
ProcedureReturn "Opens another window"
EndProcedure
ProcedureDLL.s GetPluginAuthor()
ProcedureReturn "Inf0Byt3"
EndProcedure
ProcedureDLL.s PluginMain()
If OpenWindow(666, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button
Quit = 1
EndIf
Until Quit = 1
CloseWindow(666)
EndIf
Code: Select all
!.WHILE status != dwPassedOut
! Invoke AllocateDrink, dwBeerAmount
!MOV Mug, Beer
!Invoke Drink, Mug, dwBeerAmount
!.endw