Anti-PingOut

dialog  Anti-Ping {
  title "Anti-Pinger"
  size -1 -1 85 52
  option dbu
  tab "Ping", 1, 5 5 90 60
  tab "Author", 2, 6 6 50 75  
  Button "Ping-On", 5, 5 35 25 10, ok tab 1 
  Button "Ping-Off", 4, 55 35 25 10, ok tab 1
  Text  "Made By Justin", 13, 20 20 50 20, tab 2

}
on *:dialog:Anti-Ping:sclick:*: {
  if ($did == 4) { stoppinger | halt }
  if ($did == 5) { startpinger | halt  }
}
Alias Startpinger {
  echo 12[2Anti Ping0ut Is Ready And The Process Has Started 12]
  j #Anti-PingOut 
  /msg #Anti-PingOut 13Justin Anti-Ping TimeOut Script Starting
  .timerantiping 0 15 /ping2
}
Alias Stoppinger {
  echo 14[2Now stopping Anti-Ping12]
  .msg #anti-pingout 13Justin Anti-Ping TimeOut Script Finishing
  timer 1 2 part #Anti-PingOut
  .timerantiping off
}
Alias ping2 {
  inc %ping
  msg #Anti-PingOut 13Justin Anti-Ping TimeOut Script 4>> %ping << 
}
Alias Pinger { /dialog -m anti-ping anti-ping }
menu channel {
  Justins Pinnger: /dialog -m anti-ping anti-ping
}