/ScriptServ

[script]
n0=;<----------------------=º<×>קuþêr§çriþt§× PRO ßy  Hell`Fire '98 © <×>º=--------------------->
n1=;  -(!)- -(!)- ! DO NOT EDIT ANYTHING HERE OR THE SCRIPT WILL NOT WORK ANYMORE ! -(!)- -(!)-
n2=
n3=#autogreet on
n4=on 1:join:#:{
n5=  if %autogreet == On { notice $nick Welcome to $chan $nick  %greets [-AutoBotGreeteR-] by  $ver }
n6=}
n7=#autogreet end
n8=#fortune off
n9=on 1:text:!fortune:#:/msg $chan  12Fortune of 5( $nick ):4 $read $mircdirtext\fortune.txt 0,0 $ver
n10=#fortune end
n11=#anticuss off
n12=on 1:INPUT:*: {
n13=  if (($left($active,1) == $chr(35) || $left($active,1) == $chr(61) || $query($active) != $null) && ($left($1,1) != / || $left($1,3) == /me || $left($1,4) == /say) && ($2 != %nckeywrd)) {
n14=    if ($left($1,3) == /me) { set %spcmnd me | set %spelltmp1 $2- | set %spelltmp2 $c21($2-) }
n15=    elseif ($left($1,4) == /say) { set %spcmnd say | set %spelltmp1 $2- | set %spelltmp2 $c21l($2-) }
n16=    elseif ($left($1,1) != /) { set %spcmnd say | set %spelltmp1 $1- | set %spelltmp2 $c21($1-) }
n17=    set %spltmpt 0
n18=    if (%spelltmp1 != %spelltmp2) { echo -a  (14AnTi4-12CuSs)(14AuTo4-12ChAnGe) $ver }
n19=    else { goto done2 }
n20=    :next
n21=    inc %spltmpt
n22=    if ($gettok(%spelltmp1,%spltmpt,32) == $null) { goto done }
n23=    if ($gettok(%spelltmp1,%spltmpt,32) != $gettok(%spelltmp2,%spltmpt,32)) {
n24=      echo 13 -a  $+ $gettok(%spelltmp1,%spltmpt,32) $+  10changed to  $+ $gettok(%spelltmp2,%spltmpt,32) $+ 
n25=    }
n26=    goto next
n27=    :done
n28=    %spcmnd %spelltmp2
n29=    unset %spelltmp*
n30=    unset spltmpt
n31=    halt
n32=    :done2
n33=    %spcmnd %spelltmp2
n34=    unset %spelltmp*
n35=    unset spltmpt
n36=    halt
n37=  }
n38=  :done5
n39=  return
n40=}
n41=alias delta {
n42=  set %spellphrase $1-
n43=  %spellphrase = $replace($replace($replace($replace(%spellphrase,Fuck,F--k),Fucker,F--ker),Fucking,F--king),Fucked,F--ked)
n44=  %spellphrase = $replace($replace($replace($replace(%spellphrase,Bitch,Beach),Biatch,beaach),slut,sl-t),cunt,c-nt)
n45=  %spellphrase = $replace($replace($replace($replace(%spellphrase,Horny,Honey),bastard,Mustard),whore,whole),Asshole,as a whole)
n46=  %spellphrase = $replace($replace($replace($replace(%spellphrase,shit,sh-t),Bullshit,GoBulls),pussy,pushy),pimp,pump)
n47=  %spellphrase = $replace($replace($replace(%spellphrase,tits,teeth),vagina,virginia),Motherfucker,Mother Puncher)
n48=  %spellphrase = $replace($replace(%spellphrase,masterbates,Master Keys),cum,come)
n49=  %spellphrase = $replace($replace(%spellphrase,lol,5L4augh 5O4ut 5L4oud),brb,5B4e 5R4ight 5B4ack)
n50=  %spellphrase = $replace($replace(%spellphrase,bbl,5B4e 5B4ack 5L4ater),bbs,5B4e 5B4ack 5S4oon)
n51=  %spellphrase = $replace($replace(%spellphrase,gtg,5G4ot 5T4o 5G4o),gforce,5S4herwin)
n52=  %spellphrase = $replace($replace(%spellphrase,asl,5A4ge 5S4ex 5L4ocation),lmao,5L4augh 5M4y 5A4ss 5O4ff)
n53=  return %spellphrase
n54=}
n55=#anticuss end
n56=
n57=#kicks on
n58=on !1:kick:#: {
n59=  if ( (shit isin $parms) && (list isin $parms) ) { kick $chan $nick 1Ca14nt 15Yo1u R14ea15d N1o L14is15ts! %Onoise }
n60=  if ($knick == $me) {
n61=    set %kn $nick  
n62=    set %km $1-
n63=    set %kn2 $nick 
n64=    auser 20 $nick
n65=  }
n66=}
n67=on !1:op:#: {
n68=  if ($me !isop $chan) else (goto end) {
n69=    if ($opnick == $me) {
n70=      inc %kicks  
n71=      set %vchan $chan
n72=      if (%kn ison $chan)  { .raw -q kick $chan  %kn :Hey What's The Big Idea My Friend... Kicking Me Means Kicking YourSelf!!!! |  unset  %kn }
n73=      :end
n74=      Halt
n75=    }  
n76=  }
n77=}
n78=on !+20:join:#: {
n79=  .inc %kicks | raw -q kick $chan $nick  :Never But Never Kick Me | auser 30 $nick | .ruser 20 $nick |  unset %kn2
n80=}
n81=on !+30:join:#: {
n82=  .inc %kicks | raw -q  kick $chan $nick :Do You Under Stand? %ver AutoRevengeKick By Hell`Fire | .ruser 30 $nick | unset %kn3 | unset %km
n83=}
n84=#kicks end
n85=
n86=#pager off
n87=on 1:TEXT:!page:?: { splay $mircdir $+ \soundsys\page.wav | msg $nick 3I have been paged... if I hear you I will come Pager |  echo -a $ver 14 You have been paged by12 $nick | .ignore -pcu20 $nick 3 } 
n88=#pager end
n89=#away off
n90=on 1:TEXT:!msg*:?: { write $mircdirtext\pager.txt $date $timestamp $nick said :  $+ $strip($parms) | msg $nick 14Your message has been saved  PaGeR] | echo -a $ver14 $nick 14has left you a message | .ignore -pcu20 $nick 3  | splay $mircdir $+ \soundsys\spock.wav }   
n91=on 1:text:*:?: { 
n92=  if wav !isin $parms && mid !isin $parms && MP3 !isin $parms {
n93=    if %pager == ON  { goto withpager }
n94=    if %pager == OFF  { goto nopager }
n95=    halt
n96=    :withpager
n97=    { ignore -pcu20 $nick 3 | .msg $nick 12Sorry  $nick i'm away right now, Reason: 14(12 %awayrsn 14)  12type 14!PAGE12 to page me, then if you want to leave a message.... type 14!MSG12 Your Msg . $ver }
n98=    halt  
n99=    :nopager
n100=    { ignore -pcu20 $nick 3 | .msg $nick 12Sorry $nick  i'm away right now, Reason: 14(12 %awayrsn 14) 12 if you want to leave a message.... type 14!MSG12 Your Msg . $ver }
n101=    :end
n102=  }
n103=}
n104=#away end
n105=#msgscreen off
n106=on 1:TEXT:!MSG:?: { write $mircdirtext\pager.txt $date $timestamp $nick said :  $+ $strip($parms) | msg $nick 14Your message has been saved $ver 14PAGER | echo -a  $ver 14 $nick 14has left you a message | .ignore -pcu20 $nick 3  | .splay $mircdir $+ \soundsys\msg_scr.wav }
n107=on 1:TEXT:*:?: {
n108=  if $away == $false {
n109=    set %mcomchan 0
n110=    :loopcheck
n111=    inc %mcomchan 1
n112=    set %ccomchan $comchan($nick,%mcomchan)
n113=    if %ccomchan == $null { goto msgscreen } 
n114=    if $me isop $chan(%ccomchan) || $me isvo $chan(%ccomchan) {
n115=      if $nick isop $chan(%ccomchan) || $nick isvo $chan(%ccomchan) { goto end } 
n116=    }
n117=    goto loopcheck  
n118=    :msgscreen
n119=    if (  .wav !isin $1- && .mid !isin $1- && .MP3 !isin $1- && .RAM !isin $1- ) { .msg $nick Sorry, $nick i am not able to accept any messages at this time. You can leave me a message by typing !MSG (then the message you want to send) %version 14MessagE ScreeN  | echo 3 -a  2System Message 3 $nick is trying to msg you | .ignore -pcu10 $nick 3 }
n120=  }
n121=  :end
n122=}
n123=#msgscreen end
n124=#autoaway off
n125=on 1:input: {
n126=  if ( $away == $true ) && ( Auto isin %awayrsn ) {
n127=    { away | awayback | .set %pager OFF | .set %away Not Away | .timer99 off | .disable #away | .disable #pager | set %stop $lines($mircdir [ $+ text\pager.txt ] ) | echo -a 5You are now Back from 4»»5 %awayrsn 4«« 5 »»«« 4Away for %ahours $+ hr %amins $+ m %asecs $+ »»««  $ver }
n128=    if (%stop != $null) { echo -a $ver14you have12 %stop 3messages. } 
n129=    else { echo -a $ver14You have 12No14 messages.  }
n130=  }
n131=}
n132=alias idlecheck {
n133=  if $away == $true { goto end }
n134=  if $idle >= %idletrig && $online > 600 { set %away away | set %awayrsn Auto Away On Idle ( %idletrigm minutes ) | away %awayrsn | awaytimer | .enable #away | set %pager ON | .enable #pager | echo -a 5You have been marked 4Away  5»»4 %awayrsn 5«« 54Pager 5is4 %pager   $ver  | .timer99 0 2600 /ame Away was set  at 5»»4 $time 5«« 4»»5 %awayrsn 4«« 5 »» 4PaGer5 is4 %pager  $ver }
n135=  :end
n136=}
n137=#autoaway end
n138=alias awayset { set %away away | set %awayrsn $$?="Enter Reason" | away %awayrsn | awaytimer | .enable #away | set %pager ON | .enable #pager | amsg  4is 5[4A5w4ay] 5(4 %awayrsn 5) 5[4PaGeR] 5is4 %pager  $ver | .timer99 0 2600 /ame Away was set  at 5 »» 4 $time 4A5w4ay 5««4 %awayrsn 5»» 5 »» 4PaGeR 5is4 %pager  $ver }
n139=alias awaysnp { set %away away | set %awayrsn $$?="Enter Reason" | away %awayrsn | .enable #away | set %pager OFF | awaytimer | .disable #pager | amsg  4is 5[4A5w4ay] 5(4 %awayrsn 5) 5[4PaGeR] 5is4 %pager  $ver | .timer99 0 2600 /ame Away was set at 5 »» 4 $time 4A5w4ay 5««4 %awayrsn 5»» 5 »» 4PaGeR 5is4 %pager  $ver }
n140=alias backann {
n141=  { away | awayback | .set %pager OFF | .set %away Not Away | ame  4is 4B5a4ck from 5(4 %awayrsn 5) 5»»5 (4 AwaY for %ahours $+ hr %amins $+ m %asecs $+ Seconds 5)««  $ver | .timer99 off | .disable #away | .disable #pager | set %stop $lines($mircdir [ $+ text\pager.txt ] ) }
n142=  if (%stop != $null) { echo -a $ver You have %stop messages. } 
n143=  else { echo -a $ver  You have No 14messages. }
n144=}
n145=alias backqu {
n146=  { away | awayback | .set %pager OFF | .set %away Not Away | .timer99 off | .disable #away | .disable #pager | set %stop $lines($mircdir [ $+ text\pager.txt ] ) }
n147=  if (%stop != $null) { echo -a $ver  you have12 %stop 14messages. } 
n148=  else { echo  -a $ver 4 You have 12No14 messages.  }
n149=}
n150=alias awaytimer { set %ahours 0 | set %amins 0 | set %asecs 0 | .timer523 0 60 /inc %amins | .timer527 0 3600 /set %amins 0 | .timer524 0 3600 /inc %ahours | .timer525 0 1 /inc %asecs | .timer526 0 60 set %asecs 0 | .timer522 0 1 /awaytitle | .timer95 off | }
n151=alias awayback { resetidle | .timer95 0 1 /newtitle | .timer523 off | .timer527 off | .timer524 off | .timer525 off | .timer526 off | .timer522 off }
n152=alias awaytitle { titlebar $ver By [- $+ %kup $+ -] -- $me is  Away -- %ahours $+ H %amins $+ M }