/ScriptServ

[Raw]
n0=;¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤
n1=;¤ //«Gs3¤]     ¤‡‡¤ RAW ¤‡‡¤ The GunSlinger 3 ¤‡‡¤          ¤
n2=;¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ ¤ by SixGun ¤ ¤ ¤ ¤
n3=;
n4=;‡=‡=‡=‡=‡=‡=‡=-<[//* NOTIFICATION *//]>=‡=-
n5=;
n6=#Verify disabled
n7=311:*:{
n8=  set %match 0
n9=  if ( $parm2 isin $readini notify.ini notenick $parm2 ) {
n10=    echo -s $parm2 1‡‡[12Verify User©1]» $parm2 Match | inc %Match 1
n11=  }
n12=  else { echo -s $parm2 4‡‡[12Verify User©4]» No Match for $parm2 }
n13=  if ( $parm3 isin $readini notify.ini noteuser $parm3 ) {
n14=    echo -s $parm2 1‡‡[12Verify User©1]» $parm3 Match | inc %Match 1
n15=  }
n16=  else { echo -s $parm2 4‡‡[12Verify User©4]» No Match for $parm3 }
n17=  if ( $gettok($parm4,2,46) isin $readini notify.ini notehost $gettok($parm4,2,46) ) {
n18=    echo -s $parm2 1‡‡[12Verify User©1]» $gettok($parm4,2,46) Match | inc %Match 1
n19=  }
n20=  else { echo -s $parm2 4‡‡[12Verify User©4]» No Match for $gettok($parm4,2,46) }
n21=  if ( $parm6 isin $readini notify.ini notereal $parm6 ) {
n22=    echo -s $parm2 1‡‡[12Verify User©1]» $parm6 Match | inc %Match 1
n23=  }
n24=  else { echo -s $parm2 4‡‡[12Verify User©4]» No Match for $parm6 }
n25=  if ( %match == 0 ) { echo -a $parm2 4‡‡[12Verify User©4]»  "VERIFICATION ( ¤ ERROR ¤ ) NO RECORD OF THIS USER }
n26=  if ( %match == 1 ) { echo -a $parm2 4‡‡[12Verify User©4]»  25% VERIFICATION ( PROBIBLE UNKNOWN USER ) }
n27=  if ( %match == 2 ) { echo -a $parm2 1‡‡[12Verify User©1]»  50% VERIFICATION ( PROBIBLE UNKNOWN USER!!!) }
n28=  if ( %match == 3 ) { echo -a $parm2 1‡‡[12Verify User©1]»  75% VERIFICATION ( PROBIBLE KNOWN USER ) }
n29=  if ( %match == 4 ) { echo -a $parm2 1‡‡[12Verify User©1]»  100% VERIFICATION ( KNOWN USER / AUTHENTICATED ) }
n30=  unset %match
n31=  halt
n32=}
n33=312:*:halt
n34=313:*:halt
n35=317:*:halt
n36=319:*:halt
n37=318:*:.disable #Verify | halt
n38=#Verify end
n39=#Notetxt disabled
n40=312:*:halt
n41=317:*:halt
n42=318:*:halt
n43=319:*:halt
n44=311:*:{
n45=  writeini notify.ini notenick $parm2 $parm2
n46=  writeini notify.ini noteuser $parm3 $parm3
n47=  writeini notify.ini notehost $gettok($parm4,2,46) $gettok($parm4,2,46)
n48=  writeini notify.ini notereal $parm6 $parm6
n49=  .disable #Notetxt
n50=  $update
n51=  halt
n52=}
n53=#Notetxt end
n54=#Notetxt1 disabled
n55=311:*:{
n56=  remini notify.ini notenick $parm2 $parm2
n57=  remini notify.ini noteuser $parm3 $parm3
n58=  remini notify.ini notehost $gettok($parm4,2,46) $gettok($parm4,2,46)
n59=  remini notify.ini notereal $parm6 $parm6
n60=  .disable #Notetxt1
n61=  $update
n62=  halt
n63=}
n64=312:*:halt
n65=317:*:halt
n66=318:*:halt
n67=319:*:halt
n68=#Notetxt1 end
n69=;
n70=;‡=‡=‡=‡=‡=‡=‡=-<[//* Server Scan *//]>=‡=-
n71=;
n72=#ServScan disabled
n73=312:*: {
n74=  inc %pp 1
n75=  if ($parm2 isop %Servchan) {
n76=    set %nicks @ $+ $parm2 $+ ,
n77=  }
n78=  else {
n79=    set %nicks $parm2 $+ ,
n80=  }
n81=  inc % $+ [ $left(4,$parm3) ] 1
n82=  set %ser [ % $+ [ $left(4,$parm3) ] ]
n83=  set [ % $+ [ $gettok($parm3,1,46) ] ] [ % $+ [ $gettok($parm3,1,46) ] ] %nicks
n84=  %tot = $gettok($parm3,1,46) «‡12 $+ [ %ser ] $+ 1‡» [ % $+ [ $gettok($parm3,1,46) ] ]
n85=  set %idem [ $gettok($parm3,1,46) ]
n86=  write -ds $+ %idem C:\gunslinger3\Serv.txt  
n87=  write C:\gunslinger3\serv.txt %tot
n88=  write C:\gunslinger3\unset.txt /unset %ser %idem %tot %idem % $+ [ $left(4,$parm3) ]
n89=  write C:\gunslinger3\unset.txt /unset [ % $+ [ $gettok($parm3,1,46) ] ] [ % $+ [ $gettok($parm3,1,46) ] ] %nicks
n90=  halt
n91=}
n92=318:*: {
n93=  if (%pp >= %nk ) {
n94=    .disable #ServScan
n95=    write C:\GunSlinger3\Serv.txt ‡‡[12Server Scan©1]» Scan Complete for «[12 $+ %servchan $+ 1]
n96=    pserv
n97=    halt
n98=  }
n99=  else { halt }
n100=}
n101=301:*:halt
n102=311:*:halt
n103=313:*:halt
n104=319:*:halt
n105=317:*:halt
n106=#ServScan end
n107=;
n108=;‡=‡=‡=‡=‡=‡=‡=-<[//* USER WHOIS STATS *//]>=‡=-
n109=;
n110=#WhoisS disabled
n111=311:*:{
n112=  %wis 1‡‡[12Whois Chek©1]» User «[12 $+ $parm2 1«is»12 $parm3 $+ 1@12 $+ $parm4 1]
n113=  halt
n114=}
n115=312:*:{
n116=  %Wis 1‡‡[12Whois Chek©1]» Connected 1«[12 $+ $parm3 $+ 1] %tg
n117=  halt
n118=}
n119=319:*:{
n120=  %wis 1‡‡[12Whois Chek©1]» Channels 1«[12 $+ $parm3* $+ 1] 
n121=  halt
n122=}
n123=317:*:{
n124=  halt
n125=}
n126=318:*:{
n127=  .disable #whoisS
n128=  halt
n129=}
n130=#WhoisS end
n131=;
n132=;‡=‡=‡=‡=‡=‡=‡=-<[//* CTCP Filter Kick *//]>=‡=-
n133=;
n134=#Filter disabled
n135=352:*: {
n136=  if (( $parm6 == W ) || ( $parm6 == X )) { halt }
n137=  if ( $address( % [ $+ [ $parm6 ] ] ,2) == *!*@ $+ $parm4 ) {
n138=    Ban -u10 $parm2 $parm6 2
n139=    :trip
n140=    inc %pc 1
n141=    if ($ial($address( % [ $+ [ $parm6 ] ] ,2),%pc ).nick == $null) { goto uset }
n142=    kick $parm2 $ial($address( % [ $+ [ $parm6 ] ] ,2),%pc ).nick 1‡‡[12Gs3's Ejector©1]» CTCP FLOODER «[4EJECTED1] %tg
n143=    goto trip
n144=    :Uset | unset % [ $+ [ $parm6 ] ] %pc %ct | halt
n145=    :end | halt
n146=  }
n147=}
n148=315:*: {
n149=  .disable #Filter
n150=  Halt
n151=}
n152=#Filter end
n153=;
n154=;‡=‡=‡=‡=‡=‡=‡=-<[//* WELCOME, LUSERS AND MOTD DISABLER *//]>=‡=-
n155=;
n156=1:*:%wel
n157=2:*:%wel
n158=3:*:%wel
n159=4:*:%wel
n160=251:*:%LUSERS
n161=252:*:%LUSERS
n162=253:*:%LUSERS
n163=254:*:%LUSERS
n164=255:*:%LUSERS
n165=371:*:%MOTD
n166=372:*:%MOTD
n167=373:*:%MOTD
n168=374:*:%MOTD
n169=375:*:%MOTD
n170=376:*:%MOTD
n171=306:*:echo 4Away*status2 %tg is now MARKED AWAY | halt
n172=305:*:echo 4Away*status2 %tg is No Longer MARKED AWAY | halt
n173=301:*:%n301
n174=;
n175=;‡=‡=‡=‡=‡=‡=‡=-<[//* NICKTRAK *//]>=‡=-
n176=;
n177=#Trak disabled
n178=311:*:{
n179=  %wis 1‡‡[12Trak Nik©1]»12 $parm2 1«is»12 $parm3 $+ 1@12 $+ $parm4
n180=  set %TrakSite $parm4
n181=  halt
n182=}
n183=312:*:{
n184=  %Wis 1‡‡[12Trak Conn©1]»12 $parm3 
n185=  halt
n186=}
n187=319:*:{
n188=  %wis 1‡‡[12Trak Chan©1]»12 $parm3*  %tg
n189=  halt
n190=}
n191=318:*:{
n192=  Halt
n193=}
n194=401:*:{
n195=  %wis 1‡‡[12Trak Nik©1]» 1Nick12 %Trak 1Has left IRC or has changed Nicks 
n196=  %wis 1‡‡[12Trak Nik©1]» 1Now preforming (Who) on «[12 $+ %Traksite $+ 1] 
n197=  .disable #Trak
n198=  .timer80* off
n199=  .enable #TrakSite
n200=  who %TrakSite
n201=  halt
n202=}
n203=#Trak end
n204=#TrakSite disabled
n205=352:*:{
n206=  %wis 1‡‡[12Trak Nik©1]» Nick «[12 $+ %Trak $+ 's $+ 1]» New NickName is Probibly «[12 $+ $parm6 $+ 1]
n207=  %wis 1‡‡[12Trak Nik©1]» Address «[12 $+ $parm3 $+ 1@12 $+ $parm4 $+ 1]
n208=  %wis 1‡‡[12Trak Nik©1]» Connected «[12 $+ $parm5 $+ 1]
n209=  %wis 1‡‡[12Trak Nik©1]» Channel «[12 $+ $parm2 $+ 1] %tg
n210=  halt
n211=}
n212=315:*:{
n213=  .disable #TrakSite
n214=  %wis 1‡‡[12Trak Nik©1]» To continue Tracking New NickName «[12REINITIATE TRAK Nik©1]
n215=  %wis 1‡‡[12Trak Nik©1]» If You Didn't Get A New NickName «[12 $+ %Trak Has Left IRC1] %tg
n216=  halt
n217=}
n218=#TrakSite end
n219=#ialupdate disabled
n220=352:*: { 
n221=  if (* isin $parm7) { if (@ isin $parm7) { set %IRC @ $+ $parm6 } | else { set %IRC $parm6 } | set %IRCOP %IRCOP %IRC }
n222=  if (G isin $parm7) { if (@ isin $parm7) { set %Gon @ $+ $parm6 } | else { set %Gon $parm6 } | set %Gone %Gone %Gon }
n223=  Halt
n224=}
n225=315:*: {
n226=  if (%IRCOP != $null) { echo -a 1‡‡[12IRCOP Scan©1]» IRCOPS «‡»12 %IRCOP }
n227=  if (%Gone != $null) { echo -a 1‡‡[12AWAY Scan©1]» Nicks Away «‡»12 %Gone }
n228=  echo -a 1‡‡[12Update Completed1]» you may now «[12Clone Scan©1] 
n229=  unset %ialchan
n230=  .disable #ialupdate
n231=  unset %IRCOP %Gone
n232=  halt
n233=}   
n234=#ialupdate end