Forums Feature Suggestions Simulation

alias sim_serv {
  var %p = $1 
  if (!%p) || (%p !isnum) || (. isin %p) var %p = 6667
  if ($sock(simserv)) echo 4 -a Already listening on port $sock(simserv).bindport
  elseif ($portfree(%p)) { echo 4 -a Listening on port %p $+ . | socklisten simserv 6667 }
}


;Syntax: /sim_do <from nick> <action> <target> <parameters>
alias sim_do {
  sockwrite -n simserv-* : $+ $1 $2 $3 $iif($4-,: $+ $4-)
}

on 1:socklisten:simserv:sockaccept simserv- $+ $ticks
on 1:sockread:simserv-*:{
  if ($sockerr > 0) return
  var %simdata
  :read_buff {
    sockread %simdata
    if (%simdata == $null) || (!$sockbr) return
    tokenize 32 %simdata
    if ($1 == NICK) && ($2 != $null) {
      if ($sock($sockname).ip != 127.0.0.1) { sockwrite -n $sockname :SYSTEM NOTICE $2 :Only clients from localhost can connect to this server. | sockclose $sockname }
      else {
        sockmark $sockname $2
        var %nick = $sock($sockname).mark
        var %servername = Test.Server
        var %joinchan = #channel
        .timer 1 1 sockwrite -n $sockname : $+ %servername NOTICE AUTH :* We're here !
        .timer 1 2 sockwrite -n $sockname : $+ %servername 001 %nick :Welcome!
        .timer 1 3 sockwrite -n $sockname : $+ %nick JOIN %joinchan
        .timer 1 3 sockwrite -n $sockname : $+ %servername 353 %nick = %joinchan : $+ @ $+ %nick
        .timer 1 3 sockwrite -n $sockname : $+ %servername 366 %nick %joinchan :End of /NAMES list.
        .timer 1 3 sockwrite -n $sockname : $+ %servername 324 %nick %joinchan +tn 
        .timer 1 3 sockwrite -n $sockname : $+ %servername 329 %nick %joinchan $ctime
      }
    }
    elseif ($sock($sockname).mark == $null) { sockclose $sockname }
    else {
      var %nick = $sock($sockname).mark
    }
    goto read_buff
  }
}

on *:text:!event *:#: { on.text.!event $chan $nick $1- }
alias on.text.!event {
  var %chan = $1
  var %nick = $2
  tokenize 32 $3-
  ; ^ U can add as many other $identifiers that are event specific as you need and then tokenize 32 the remaining $1- parameters
  ;
  ... other code using %chan and %nick etc in replace of $chan and $nick etc ...
}