alias ClientConnecterConnectionAttempts {
  //sockopen %ClientConnecterServer ClientConnecterConnection %ClientConnecterPort
  //timerClientConnecterConnectionAttempts 4 30 //sockopen %ClientConnecterServer ClientConnecterConnection %ClientConnecterPort
  //timerClientConnecterConnectionAttemptsMaxReached 1 $calc(30*5) //did -ra ClientConnecter 2 Not connected
}

on *:dialog:ClientConnecter:init:0: {
  if (!%ClientConnecterServer) {
    //set %ClientConnecterServer 127.0.0.1
  }
  if (!%ClientConnecterPort) {
    //set %ClientConnecterPort 6667
  }
}

dialog ClientConnecter {
  title "ClientConnecter"
  size -1 -1 176 48
  option dbu
  text "Status:", 1, 8 8 20 6
  text "Not connected", 2, 26 8 62 6
  button "Connect", 3, 88 6 30 10
  button "Disconnect", 4, 120 6 30 10, disable
  button "Ping", 5, 152 6 22 10, disable
  edit "", 6, 8 32 126 8, disable
  button "Send", 7, 136 32 22 10, disable
  text "Port:", 8, 8 24 14 6
  text "6667", 9, 24 24 22 6
  text "Server/Network:", 10, 8 16 38 6
  text "127.0.0.1", 11, 48 16 70 6
}

on *:dialog:ClientConnecter:sclick:3: {
  //ClientConnecterConnectionAttempts
  //did -ra ClientConnecter 2 Attempting to connect...
  //timerClientConnecterConnectionAttempts
}

on *:sockopen:ClientConnecterConnection:*: {
  //did -ra ClientConnecter 2 Connected
}