Proxy Viewer Plugin

Structure game
  proxy.b
  pid.l
  x.l
  y.l
  wid.l
  hei.l
  hwnd.l
  port.l
  ip.s
  title.s
EndStructure

Global win,lst

ProcedureDLL pluginload(*game.game)
  MessageRequester("Proxy Viewer","Hello from proxy viewer")
EndProcedure

ProcedureDLL pluginunload(*game.game)
  MessageRequester("Proxy Viewer","Goodbye from proxy viewer")
EndProcedure

ProcedureDLL pluginrun(*game.game)
  If Not *game\proxy
    ProcedureReturn
  EndIf
  win = OpenWindow(#PB_Any,0,0,200,200,"Proxy Viewer",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  lst = ListViewGadget(#PB_Any,0,0,200,200)
  Repeat
    If WindowEvent() = #PB_Event_CloseWindow
      HideWindow(win,1)
      lst = 0
      Break
    EndIf
  ForEver
EndProcedure

ProcedureDLL.b pluginsendpacket(*game.game,plen,*buff)
  If lst
    AddGadgetItem(lst,0,"Client>Server: "+PeekU(*buff)+"-"+PeekA(*buff+2)+"-"+PeekA(*buff+3))
  EndIf
EndProcedure

ProcedureDLL.b pluginrecvpacket(*game.game,plen,*buff)
  If lst
    AddGadgetItem(lst,0,"Server>Client: "+PeekU(*buff)+"-"+PeekA(*buff+2)+"-"+PeekA(*buff+3))
  EndIf
EndProcedure