/ScriptServ

;Gate Master v2.0 by: [daffy] release 2/14/99
;NOTE: This addon is to be used with mirc 5.5 and above.
;Load command: /load -rs c:\path\Gate Master 2.mrc
;
on *:load:echo 4 -a ***8 ·«9Gate Master8»· v2.0 by: 4[daffy]8 Loaded. 4 ***
menu nicklist {
~=\\Wingate//=~
.Scans
..Scan $snick(#,1):whois $1 | set %wingate.scan $gettok($address($$1,2),2,64) | .sockclose wg | .sockopen wg %wingate.scan 1080 | echo -a *** Wingate Scanning $1
..Scan On Join
...On:set %onjoin.scan ON | echo 4 -a *** Wingate Scan on Join Enabled
...Off:unset %onjoin.scan | echo 4 -a *** Wingate Scan on Join Disabled
..Channel Scan:spamscan
..Class C Scan:set %wingate.scanaddy $?="Enter Ip Address" | classcscan
.Connection
..Default Port:firewall -m5+d on $?="Enter Gate Address or IP" 1080 | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
..Force Socks4:fireall -m4 on $?="Enter Gate Address or IP" 1080 | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
..Manual Login:firewall -m5+d on $?="Enter Gate Address or IP" $?"="Enter Port" $?="Enter UserId" $?="Enter Password" | echo 4 -a ***8 You must reconnect to Irc in order for the changes to take effect
.-
.Status:firewall
.Change Identd:identd on $?="Enter New Identd"
.Toggle Current On:firewall on
.Toggle Current Off:firewall off
.-
.Reconnect to Irc:server $server 7000
.Brag:me is Using ·Gate Master· v2.0 by: [daffy]
}
;=================================================================================================
on *:join:#:if (%onjoin.scan == ON) { .sockclose wg | .sockopen wg $site 1080 }
on *:sockopen:spamgate*:if ($sockerr > 0) { return } | echo 4 -a ***8 Wingate Found:7 $sock($sockname).ip
on *:sockopen:wg:if ($sockerr > 0) { echo -a *** No Gate Found. | return } | echo -a *** Wingate Found: $sock($sockname).ip
on *:sockopen:classc*:if ($sockerr > 0) { return } | echo 4 -a ***8 Wingate Found:7 $sock($sockname).ip
;=================================================================================================
alias /classcscan {
  set %wingate.scanaddy $gettok(%wingate.scanaddy,1-3,46)
  echo 4 -a ***8 Class C Scanning $gettok(%wingate.scanaddy,1-3,46) $+ . $+ 0 For Wingates on Port 1080 4***
  %gatescan.loop = 0
  %gates.found = 0
  :loop
  inc %gatescan.loop 1
  if (%gatescan.loop == 256) { goto end }
  .sockopen classc $+ %gatescan.loop %wingate.scanaddy $+ . $+ %gatescan.loop 1080
  goto loop
  :end
  .timer 1 5 echo 4 -a ***8 Class C Scan Complete. Closing All Sockets. 4***
  .timer 1 5 .sockclose classc*
}
alias /spamscan {
  echo 4 -a ***8 Scanning # For Wingates on 1080 4***
  :loop
  inc %i 
  if ($nick(#,0) < %i) { unset %i | goto end }
  whois $nick(#,%i) | %spam.gate = $gettok($address($nick(#,%i),2),2,64) | .sockopen spamgate $+ %i %spam.gate 1080
  goto loop
  :end
  .timer 1 10 echo 4 -a ***8 Wingate Scan on # Complete 4***
  .timer 1 10 .sockclose spamgate*
}
;=================================================================================================
;Have Fun...                                                                       [daffy]
;=================================================================================================