/ScriptServ

mpy %tmp = $1 * $2 | return %tmp
div %tmp = $1 / $2 | return %tmp
spyman {
  window -eao @Spy  0 150 750 200 @Spy ms sans serif 10
  .load -rs $mircdirspy.mrc
  echo 12 @Spy  Connecting to %spyserver ( $+ %spyport $+ )
  .set %spy on
  .enable #proccessing 
  .timer 1 65 .disable #proccessing
  dns %spyserver
  .identd off
}
botman {
  window -eao @ChannelBot  0 150 750 200 @channelbot ms sans serif 10
  .load -rs $mircdirbot.mrc
  .load -rs $mircdirscript.mrc
  echo 2 @Channelbot  Connecting to %botserver ( $+ %botport $+ )
  .set %bot on
  .enable #proccessing 
  .timer 1 65 .disable #proccessing
  dns %botserver
  .identd off
}
spy {
  if ($scr(server.mrc) == 1) recho  !ERROR! You cant run two raw connections at once  please close one to start the other
  if ($scr(bot.mrc) == 1)  recho  !ERROR! You cant run two raw connections at once  please close on to start the other
  else goto spystart
  :spystart
  .set %spyserver $$?="Enter Server" | .set %spyport $$?="Server Port" | .set %spynick $$?="SpyBot Nick" | .set %SpyuserID  $$?="Enter Ident" | /spyman
}
bot {
  if ($scr(server.mrc) == 1) recho  !ERROR! You cant run two raw connections at once  please close one to start the other
  if ($scr(spy.mrc) == 1)  recho  !ERROR! You cant run two raw connections at once  please close on to start the other
  else goto botstart
  :botstart
  .set %botserver $$?="Enter Server" | .set %botport $$?="Server Port" | .set %botnick $$?="Channel Bot's Nick" | .set %botuserID  $$?="Enter Ident" | /botman
}
sub %tmp = $1 - $2 | return %tmp
rsc return $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($1-,ecs),ins),rs),ays),ks),ec),in),r),ay),k),$chr(32))
lfix %tmp1 = $1 - $len($2-) | return $str($chr(160),%tmp1) $+ $2-
fix %tmp1 = $1 - $len($2-) | return $2- $+ $str($chr(160),%tmp1)
percent {
  if (($1 == $null || $2 == $null) || ($1 == 0 || $2 == 0)) { return 0 | halt }
  %d1 = $mpy($1,1000)
  %d2 = $div(%d1,$2)
  %d3 = $sub($len(%d2),1)
  if ((%d2 = 0) && (%d3 <= 0)) { return 0 | halt }
  if ((%d2 != 0) && (%d3 <= 0)) { %d4 = 0. $+ %d2 | return %d4 | halt }
  if ($chr(47) isin %d2 || $chr(47) isin %d2) { return 0 | halt }
  else { 
    if ($len(%d2) == 2) { %d4 = $left(%d2,%d3) $+ . $+ $right(%d2,1) }
    else { %d4 = $left(%d2,%d3) $+ . $+ $right(%d2,2) }
    if ($right(%d4,2) == .0) { return $remove(%d4,$right(%d4,2)) }
    elseif ($right(%d4,3) == .00) { return $remove(%d4,$right(%d4,3)) }
    elseif ($right(%d4,1) == 0) { return $remove(%d4,$right(%d4,1)) }
    else { return %d4 }
  }
}
pagerc {
  .set %pager off  
  if (%pages == 0) { Recho You recieved No pages while away | halt }   
  if (%pages == $null) {  Recho You recieved No pages while away | halt }   
  if (%pages >= 1) { Recho You recieved $hc(%pages) Pages While You Were Away. | .window -ao @pages  200 400 320 350 @pages ms sans serif 12 | goto autoplay  }
  .timer 1 5 unset %pages  
  :autoplay
  .play -c page.txt $me 0
}
rawserv { 
  .creq auto | /connect $iaddress %raw.serverport | .timer 1 15 .creq ask | .disable #proccessing  
  echo -a 2Dns Lookup succesful starting dcc chat sequence Using %rawip %raw.serverport  
  set %rawservero on 
  halt
}
rawspy {
  .creq auto | set %spyip $iaddress | /connect %spyip %spyport | .timer 1 15 .creq ask | .disable #proccessing  
  echo 2 @spy  Dns Lookup succesful starting dcc chat sequence Using %spyip %spyport  | halt 
} 
rawbot {
  .creq auto | set %botip $iaddress | /connect %botip %botport | .timer 1 15 .creq  |  .disable #proccessing                
  echo 2 @Channelbot Dns Lookup succesful starting dcc chat sequence Using %botip %botport  | halt        
}
allIRCops { .set %airco on  | .window -ao %aircopsw  200 323 375 200 %aircopsw ms sans serif 8 | aline %aircopsw                10Nick                           2Server $str( ,18) | set %found 0 | set %iropn "" | set %aircopsraw On | who 0 o }
IRCops  { .set %ircopsw @IrcOps On  $+ $server  | set %irco on | .window -ao %ircopsw  200 323 378 200 %ircopsw ms sans serif 8 |  aline %ircopsw               10Nick                           2Address  | set %found 0 | set %iropn "" | set %ircopsraw On | if ($1 != $null) {  who $1 o } | else { who $server o }
}
writechan { 
  .set %tmpaddbotchan $$?="Enter Channels(all for all chans)"  
  Writeini botusers.txt  %bottempaddy  chans %tmpaddbotchan 
}   
scr {
  set %i 0
  :start
  inc %i
  set %tmp.r $readini mirc.ini rfiles n $+ [ %i ]
  if (%tmp.r == $null) { unset %tmp.r | return 0 }
  elseif (%tmp.r == $1) { unset %tmp.r | return 1 }
  else goto start
}
sd {
  set %tmp $readini names.txt $maddress($address($1,0)) channels
  if (($2 isin %tmp) || (%tmp == all)) return 1
  else return 0
}
ufind {
  set %i 0
  set %tmp.u 0
  :start
  inc %i
  if ($nick(#,%i) == $null) goto end
  elseif (($level($maddress($address($nick(#,%i),6))) >= 70) && ($nick(#,%i) != $me)) {
    inc %tmp.u
    if (%tmp.u == 1) {
      clear @UserFind
      window -a @UserFind %ufindw ufind.txt ms sans serif 8
      write -c ufind.txt
      write -c ufind.txt
      write ufind.txt close:/set $chr(37) $+ uloc $chr(36) $+ swlc(@UserFind) $chr(124) window -c @UserFind
      write ufind.txt -
      aline @UserFind  $str(-,53) 
      aline @UserFind  Friends/Bots on $hc($fix(22,#)) $+  ....
      aline @UserFind  $str(-,53) 
      aline @UserFind  $str( ,6) 	10Nick	 $str( ,14) 	10Level	 $str( ,8) 
    }
    write ufind.txt $nick(#,%i)
    write ufind.txt .who:/who $nick(#,%i)
    write ufind.txt .ping:/ctcp $nick(#,%i) ping
    write ufind.txt .finger:/finger $nick(#,%i)
    write ufind.txt .whois:/whois $nick(#,%i)
    write ufind.txt .version:/ctcp $nick(#,%i) version
    write ufind.txt .-
    if ($level($maddress($address($nick(#,%i),6))) == 70) {
      aline @UserFind  $+ $lfix(2,%tmp.u) $+ . $fix(16,$nick(#,%i)) $fix(3,voice)  
      write ufind.txt .delete:/add -v $nick(#,%i)
    }
    elseif ($level($maddress($address($nick(#,%i),6))) == 90) {
      aline @UserFind  $+ $lfix(2,%tmp.u) $+ . $fix(18,$nick(#,%i)) $fix(3,  op)  
      write ufind.txt .delete:/add -o $nick(#,%i)
    }
    elseif ($level($maddress($address($nick(#,%i),6))) == 60) {
      recho  13***WARNING***  Enemy Found On $hc($chan) | Push $hc(f6) to kick $hc($nick) on $hc($chan) and $hc(f7) to ban | .alias f6 .kick $chan $nick | .alais f7 .mode $chan +b $wildsite | halt 
    }  
    else dec %tmp.u
    goto start
  }
  else goto start
  :end
  if (%tmp.u == 0) recho No friends nor enemies were found on $hc(#) $+ .
  else echo -a $str(-,53) 
  unset %tmp*
}
bban {
  set %i 0
  :start
  inc %i
  if ($comchan($1,%i).op) {
    ban $comchan($1,%i) $1 1
    goto start
  }
}
bkb {
  bban $1-
  bkick $1-
}
bkick {
  set %i 0
  :start
  inc %i
  if ($comchan($1,%i).op) {
    .raw kick $comchan($1,%i) $1 : $+ $2-
    goto start
  }
}
rrecho { echo  @RawServer %rawservsymbl $1- }
vtop {
  set %tmp $readini names.txt Users $address($1,3)
  %tmp1 = $readini names.txt %tmp vchannels
  if (($2 isin %tmp1) || (%tmp1 == all)) return 1
  else return 0
}
idpass return $readini names.txt passwords $rb($1)
sf2 {
  .window -ao @Function_Keys 280 180 350 210 blah.txt ms sans serif 8 
  .aline @Function_Keys  $hc(F1) - Activates mIRC help File If loaded into dir
  .aline @Function_Keys  $hc(F2) - OPs nick if auto op is set off 
  .aline @Function_Keys  $hc(F3) - Voices user if auto voice is set off
  .aline @Function_Keys  $hc(F4) - Used When E-mail Needs To Be Setup(POP&SMTP)
  .aline @Function_Keys  $hc(F5) - Activated when Alert First Alerts on a Flood pro
  .aline @Function_Keys  $hc(F6) - Activated when Alert First Alerts on a Flood pro
  .aline @Function_Keys  $hc(F7) - Activated when Alert First Alerts on a Flood pro
  .aline @Function_Keys  $hc(F8) - Opens Settings & Status Window 
  .aline @Function_Keys  $hc(F9) - Checks mail
  .aline @Function_Keys  $hc(F10) - Sends Mail
  .aline @Function_Keys  $hc(F11) - Activates on Ban/Unban
  .aline @Function_Keys  $hc(F12) - Opens Script Help Window 
  .aline @Function_Keys  $hc(Shift-F2) - Opens This Window
}
f8 /rawstatus
f12 /rhelp 
holdtopic { 
  set %tmp.add.chan $?="Enter Topic to hold, Type ok For current"
  writeini hold.txt $chan topic %tmp.add.chan  
  if ($! == ok) { writeini hold.txt $chan topic $chan(#).topic 
    .timer 1 4 .Recho Now Holding Topic on $hc($chan) To  $readini hold.txt $chan topic  
  }
  else { goto topiccheck }
  :topiccheck
  if ($me isop $chan) { .topic $chan $readini hold.txt $chan topic }
  .Recho Now Holding Topic on $hc($chan) To  $readini hold.txt $chan topic  
  Halt
} 
Remhold {
  remini hold.txt $chan topic 
  if ($readini -n hold.tx $chant mode == $null) { remini hold.txt $chan }
  else { remini hold.txt $chan }  
  set %reheldtopic $?="Do you with to remove held topic(yes or no)" 
  if (y isin $!) { .topic $chan  } 
  if ($readini -n hold.txt $chan topic == $null) Recho No Longer Holding topic on $hc($chan)
  Halt
}
modehold {
  set %tmp.add.chan $?="Enter Mode to hold, Type ok For current"
  writeini hold.txt $chan mode %tmp.add.chan  
  if ($readini hold.txt $chan mode == ok) { writeini hold.txt $chan mode $chan(#).mode }  
  if ($readini hold.txt $chan mode == ok) {  Recho Now Holding Mode on $hc($chan) To $chan(#).mode }  
  else .timer 1 1 Recho Now Holding Mode on $hc($chan) To  $readini hold.txt $chan mode 
  else goto modecheck 
  :modecheck
  if ($me isop $chan) { .mode $chan $readini hold.txt $chan mode }
  Halt
}
Remmode {
  remini hold.txt $chan mode 
  if ($readini hold.txt $chan mode == $null) Recho No Longer Holding mode on $hc($chan)
  if ($readini hold.txt $chan topic == $null) { remini hold.txt $chan }  
  Halt
}
startup {
  recho Welcome to %version %averme  
  recho Type  $hc(/rawstatus) for  $+ %version $+ 's  Status & Settings
  recho Type $hc(/rhelp) for Help on This script 
  Recho This Is Your $hc(%startup) Time To ActivateThis Script
  Recho Press $hc(Shift-F2) To View The Function Keys 
}
wecho {
  if (%awhois == off) && (%wwhois == off) { .disable #whoisecho | halt } 
  if (%awhois == on) && (%wwhois == on) { Echo -a %r $1- | Echo 1 @whois  $+ $1- | .timer 1 2 halt } 
  elseif (%awhois == on) { Echo -a %r $1- }
  elseif (%wwhois == on) { Echo 1 @Whois  $+ $1-  } 
}
Secho {
  if (%Swecho == on) && (%Saecho == on) { Echo -a %r <Snotice> $hc($1-) | Echo 1 %w/swin %r $hc($1-) | .timer 1 2 halt }
  elseif (%Swecho == on)  { Echo  %w/swin %r $hc($1-) }
  elseif (Saecho == on) {  Echo -a %r <Snotice> $hc($1-) }
}
SWOecho {
  if (%SWOwecho == on) && (%SWOaecho == on) { Echo -a %r <Wallop> $hc($1-) | Echo 1 %w/swin %r 1<WallOps> $hc($1-) | .timer 1 2 halt }
  elseif (%Swowecho == on)  { Echo  %w/swin %r 1<WallOp> $hc($1-) }
  elseif (SWOaecho == on) {  Echo -a %r <WallOp> $hc($1-) }
}