/ScriptServ

[script]
n0=;WINGATE SCANNER
n1=on 1:join:#:{ 
n2=  if ($nick == $me) { halt }
n3=  if (%onwingate == off) { halt }
n4=  if (%onwingate == on) {
n5=sockclose wg* | %wg.user = 14(9 $+ $nick $+ 14)15 $site $chan | sockopen wg $site 1080 
n6=  }
n7=}
n8=on 1:sockopen:wg:{
n9=  if ($sockerr > 0) return
n10=  if ($chr(126) isin $address(%wg.user,0)) { 
n11=    echo -a 4,1Using Wingate!!!!!!!::::::::>9 $+ %wg.user
n12=    sockclose wg*
n13=    write $mircdirwingates\onjoinwingates.txt %wg.user
n14=  }
n15=  else echo -a  4,1Using Wingate!!!!!!!::::::::>9 $+ %wg.user
n16=  sockclose wg*
n17=  write $mircdirwingates\onjoinwingates.txt %wg.user
n18=}