/ScriptServ

[mPopup]
n0=-=DagoWare 96=-:/ame is currently using DagoWare 96 made by Dago. | /ame To get this script, please contact "Dago or Send Email To:dago@hotmail.com".
n1=Close Windows
n2=.Chat:/close -c $?="Enter Nick"
n3=.Fserv:/close -f $?="Enter Nick"
n4=.Get:/close -g $?="Enter Nick"
n5=.Send:/close -s $?="Enter Nick"
n6=.Inactive:/close -i $?="Enter Nick"

[qPopup]
n0=Mail Stuff <Only Works When Connected To Mail Server>
n1=.See E-Mail:/seemail
n2=.Get EMail:/getmail 1
n3=.Quit E-Mail:/quitmail
n4=Ignore
n5=.Ignore:/ignore $$* | /msg $nick $upper($nick), You have been added to the ignore list of $me  ™™ REASON: ™™ $?="Enter reason" ™™ | /msg # $upper($$1) Has been added to the IGNORE list of Fugi.
n6=.Remove:/msg # $upper($$1) has been removed from the IGNORE list of $me! $upper($$1) is lucky. | /ignore -r $$1
n7=UCentral:/uwho $$1
n8=Whois:/whois $$1
n9=CTCP
n10=.Ping:/ctcp $$1 ping
n11=.Finger:/ctcp $$1 finger
n12=.Version:/ctcp $$1 version
n13=.Time:/ctcp $$1 time
n14=.Userinfo:/ctcp $$1 userinfo
n15=.ClientInfo:/ctcp $$1 clientinfo
n16=DCC
n17=.Send:/dcc send $$1
n18=.Chat:/dcc chat $$1
n19=-
n20=Flooding
n21=.Master Flood
n22=..Start:/raw -q privmsg $?="Enter nickname to FLOOD!" :
DCC CHAT CHAT 3453550597 19
 | /echo 4 $active Flooding $$1... You won't be able to tell. Åcm£-§críþt
n23=..!!!!! DO NOT USE THIS FLOOD ON Dago !!!!!:/echo 4 $active You heard me. No flooding Dago. 12-=DagoWare 96=-
n24=.Nick Flood
n25=..Start:/timer5 100 1 /nick $rand(1,999)
n26=..Halt:/timer5 off
n27=.DCC Bomb
n28=..Start:/timer6 999 1 /dcc chat $?="Enter person to DCC bomb."
n29=..Halt:/timer6 off

[cPopup]
n0=-=DagoWare 96=-:/ame is currently using 12-=DagoWare 96=- made by Dago. | /ame To get this script, please contact "Dago or Send Email To:9dago@hotmail.com".
n1=-
n2=Mail Stuff
n3=.Check Email:/mailcheck
n4=.Email Options:/mailoptions
n5=.Quit E-Mail:/quitmail
n6=Channel Stuff
n7=.Channel Stats:/cstat
n8=Ban Stuff
n9=.Banlist:/set %banlist 1 | /set %bancount 0 | /mode # +b
n10=.Unban all:/set %banlist 1 | /set %unbanall 1 | /mode # +b
n11=Voting!
n12=Vote:/poll | /timer 1 60 /say 60 oNLY 60 Sec. LeFT To VoTe!! | /timer 1 120 polloff
n13=Away Stuff!
n14=.Set:/set %minutes 0 | /timer1 0 60 /inc %minutes 1 | /set %away $?="Enter away message"12-=DagoWare 96=- | /ame is away - %away  12-=DagoWare 96=- | /enable #away
n15=.Back:/timer1 off | /ame is back! 12-=DagoWare 96=- | /away | /disable #away 
n16=.Pager
n17=..On:/ame is away, <•>4 /ctcp $me page <•> to yell at me 12-=DagoWare 96=- | /enable #pagersay | /enable 
n18=..Off:/ame is back | /away | /disable #pagersay | /disable #pager
n19=-
n20=DALnet
n21=.Join
n22=..Choose:/join $?="Please enter the channel you wish to join:"
n23=..#mIRC:/join #mIRC
n24=..#Help:/join #Help
n25=..#IRChelp:/join #IRChelp
n26=..#DALHelp:/join #DALHelp
n27=..#mIRC_Scripts:/join #mIC_Scripts
n28=.Servers
n29=..Random
n30=...irc.dal.net:/server irc.dal.net 7000
n31=..United States
n32=...uncc.dal.net:/server uncc.dal.net 7000
n33=..Canada
n34=...toronto.dal.net:/server toronto.dal.net 7000
n35=.General
n36=..Nickname:/raw -q nick $?="Please enter your new nick here:"
n37=.Services
n38=..ChanServ:/msg ChanServ $?="Please enter a command:"
n39=..NickServ:/msg NickServ $?="Please enter a command:"
n40=..MemoServ
n41=...MemoServ:/msg MemoServ $?="Please enter a command:"
n42=...help:/msg MemoServ $?="Enter topic to search for help on:"
n43=...send:/msg MemoServ send $$1 $$?="Enter a message to send:"
n44=...read:/msg MemoServ read $?="Enter a memo number to read:"
n45=...delete:/msg MemoServ del $?="Enter a memo number to mark as not deleted:"
n46=...undelete:/msg MemoServ undel $?="Enter a memo number to mark as deleted:"
n47=...masskick:/msg ChanServ mkick #$$?="Enter channel name to masskick everyone from:"
n48=...massdeop:/msg ChanServ mdeop #$$?="Enter channel name to massdeop all lower level ops from:"
n49=...forward:/msg MemoServ forward $$?="Enter a nick to forward memos to:"
n50=...purge:/msg MemoServ purge
n51=...list:/msg MemoServ list 
n52=..HelpServ:/msg HelpServ $?="Please enter a topic to search for help on:"
n53=-
n54=Change Mode
n55=.Invite Only
n56=..On:/mode # +i
n57=..Off:/mode # -i
n58=.Limited # of poeple
n59=..On:/mode # +l $?="Limit to how many users:"
n60=..Off:/mode # -l
n61=.Private Channel
n62=..On:/mode # +p
n63=..Off:/mode # -p
n64=.Secret Channel
n65=..On:/mode # +s
n66=..Off:/mode # -s
n67=.PassWord Needed
n68=..On:/mode # +k $?="Enter the key/password:"
n69=..Off:/mode # -k
n70=.Moderated Channel
n71=..On:/mode # +m
n72=..Off:/mode # -m
n73=.No ext. Messages
n74=..On:/mode # +n
n75=..Off:/mode # -n
n76=.Only OPS Change Topic
n77=..On:/mode # +t
n78=..Off:/mode # -t
n79=-
n80=Send CTCP
n81=.Ping:/ctcp $?="Enter person to PING" ping
n82=.Finger:/ctcp $?="Enter person to FINGER" finger
n83=.Version:/ctcp $?="Enter person to VERSION" version
n84=.Time:/ctcp $?="Enter person to TIME" time
n85=.Userinfo:/ctcp $?="Enter person to USERINFO" userinfo
n86=.ClientInfo:/ctcp $?="Enter person to CLIENTINFO" clientinfo
n87=.Page:/ctcp $?="Enter person to PAGE" page
n88=Send DCC
n89=.Send:/dcc send $?="Enter person DCC SEND a file to."
n90=.Chat:/dcc chat $?="Enter person CHAT with."
n91=-
n92=Fun Stuff
n93=.Tell Everyone The Time:/tim2
n94=.Uppercase Text:/say $upper($?="Enter Text.")
n95=.Lowercase Text:/say $lower($?="Enter Text.")
n96=.MassPing:/ctcp # PING | /msg # .,-*'^'*-,._.,-*'^'*-,._.,-*'^'*-.,_,.-*'^'*-,._.,-*'^'*-,._.,-*'^'*- | /msg # Mass Ping by $me! | /msg # .,-*'^'*-,._.,-*'^'*-,._.,-*'^'*-.,_,.-*'^'*-,._.,-*'^'*-,._.,-*'^'*-
n97=.UnknownOP:/mode # +l 69 | /mode # -lo+o $me $me
n98=.Random Op/Deop
n99=..Random DeOp:/msg # RåñDôM DEOP!! ( %AA ) | /mode # -o $opnick($rand(1,$opnick(0,#)),#)
n100=..Random Op:/msg # RåñDôM OP!! ( %AA ) | /mode # +o $nopnick($rand(1,$nopnick(0,#)),#)
n101=.Random Kick
n102=..NonOps:/kick # $nopnick($rand(1,$nopnick(0,#)),#) RåñDôM NonOp VïõLéñÇë KïÇK ( %AA )
n103=..Ops:/kick # $opnick($rand(1,$opnick(0,#)),#) RåñDôM Op VïõLéñÇë KïÇK ( %AA )
n104=..All:/kick # $nick($rand(1,$nick(0,#)),#) RåñDôM VïõLéñÇë KïÇK ( %AA )
n105=.Timed
n106=..Timed (NonOps)
n107=...Start:/timer72 0 240 /kick # $nopnick($rand(1,$nopnick(0,#)),#) Timed RåñDôM NonOp VïõLéñÇë KïÇK
n108=...Stop:/timer72 off
n109=..Timed (Ops)
n110=...Start:/timer72 0 240 /kick # $opnick($rand(1,$opnick(0,#)),#) Timed RåñDôM Op VïõLéñÇë KïÇK
n111=...Stop:/timer72 off
n112=..Timed (All)
n113=...Start:/timer72 0 240 /kick # $nick($rand(1,$nick(0,#)),#) Timed RåñDôM ALL VïõLéñÇë KïÇK
n114=...Stop:/timer72 off
n115=Be a Meanie!
n116=.Trout:/me slaps $?="Enter Person to Slap" around a bit with a large trout.
n117=.Wrench:/me slaps $?="Enter Person to Slap" a bit with a large wrench
n118=.Flip off user:/me gives $?="Enter Person to Fip Off" the bird.
n119=.Byte:/me bytes $?="Enter Person to Byte." untill he leaves.
n120=.Shoot:/me shoots $?="Enter Person to Shoot" with a 22-magnum.
n121=.Push User:/me pushes $?="Enter Person to Push" off a 1000 mile cliff.
n122=Other Stuff
n123=.Play Wav:/sound $?="Enter Wav With .wav"
n124=.Join Channle:/join #$?="Enter Channel W/o #"
n125=.Room Ping:/ctcp #$?="Enter Chan W/o #" Ping
n126=Get list of Channels:/list
n127=Get Message of the Day:/motd
n128=INFO on Active Channel:/channel
n129=-
n130=Disconnect From Server:/quit 12-=DagoWare 96=- made by Dago.
n131=Exit mIRC:/exit

[lPopup]
n0=DNS:dns $$1
n1=Whois:wh $$1
n2=Query:/query $$1
n3=UCentral:/uwho $1
n4=-
n5=Talk
n6=.Say Something Directly To Someone:/say 13,1 $$1  $?="Enter Message" 
n7=Op
n8=.MassOp:/mode # +oooo *1 | /mode # +oooo *5 | /mode # +oooo *9 | /mode # +oooo *13
n9=.Ban/kick:/ban # $$1 1 | /timer 1 3 /kick # $$1 Banned. 12-=DagoWare 96=-
n10=.MassOp:/msg # Mass op by $me! GAL-§críþt | /mode # +oooo *1 | /mode # +oooo *5 | /mode # +oooo *9 | /mode # +oooo *13
n11=.Crown:/me crowns $upper($$1) with an all poweful @! | /mode # +o $$1
n12=.WOW!:/msg $chan WOW! It's $$1!!!!!! | /me tosses $$1 an @!!! Please catch! | /mode # +o $$1
n13=.Tripped:/me is carrying an @ around the room. | /me trips and the @ goes flying through the air! | /msg $chan $$1 caught it! | /mode # +o $$1
n14=.Hand:/me slosly hands $$1 an @. | /msg # Don't abuse it! | /mode # +o $$1
n15=.Heistate:/me hesitates before OPING $$1. | /msg # Oh what the heck! | /mode # +o $$1 
n16=.Poor OP:/me looks at $$1 and notices he/she want's OP! | /me says: POOR THING! :o) | /mode # +o $$1
n17=Deop
n18=.MassDeop:/notice # Mass DeOp Performed by $me! | /mode # -oooo *1 | /mode # -oooo *5 | /mode # -oooo *9 | /mode # -oooo *13
n19=.Knock off head:/describe # knocks the @ off $$1. SORRY. | /mode # -o $$1
n20=.Notice:/me notices something suspicious about $$1. | /me hits $$1 so hard, the @ falls off him. | /mode # -o $$1
n21=.Look at wierd:/me looks at $$1 in a weird way. | /msg # $upper($$1) IS A LAMER! | /mode # -o $$1
n22=Voice
n23=.Give:/mode # +v $$*
n24=.Take:/mode # -o $$*
n25=Kicking
n26=.MassKick:/kick # $* Mass Kick!
n27=.Smelly:/describe # smells something.... | /msg # What could it be? | /kick # $$1 You smell. 12-=DagoWare 96=-
n28=.Pervert:/msg # $nick is a pervert!  | /kick # $$1 You stupid Pervert! 12-=DagoWare 96=-
n29=.Anoying:/msg # $nick is getting on my nerves. | /kick # $$1 Weirdo. 12-=DagoWare 96=-
n30=.Weird:/kick # $$1 Blastoff!!!! Weirdo.12-=DagoWare 96=-
n31=.Regular Kick:/kick # $$112-=DagoWare 96=-
n32=CTCP
n33=.Ping:/ctcp $$1 ping
n34=.Finger:/ctcp $$1 finger
n35=.Version:/ctcp $$1 version
n36=.Time:/ctcp $$1 time
n37=.Userinfo:/ctcp $$1 userinfo
n38=.ClientInfo:/ctcp $$1 clientinfo
n39=DCC
n40=.Send:/dcc send $$1
n41=.Send DagoWare.zip:/dcc send $$1 T:\Scripts\dagoware.zip
n42=.Chat:/dcc chat $$1
n43=-
n44=Fake stuff
n45=.Fake OP:/describe # sets mode: +o $$1
n46=.Fake DEOP:/describe # sets mode: -o $$1
n47=.Fake KILL:/me ( $+ $ip $+ ) has quit IRC (Killed (phoenix.tx.us.DAL.net (voyager.ca.us.DAL.net <- services.dal.net[207.43.0.130]))
n48=.Fake K-Line:/me has quit IRC (K-Lined (ogre (<5> You have been K-Lined.) *!*@ $+ $ip <- K-Lined))
n49=.Fake DisConnect:/me ( $+ $ip $+ ) has quit IRC (12-=DagoWare 96=-)

[Aliases]
n0=mailoptions {
n1=  set %autoget $?="Autoget mail on connect? (Y/N)"
n2=  if %autoget == $null { set %autoget Y }
n3=  set %forgetpass $?="Forget password? (Y/N)"
n4=  if (%forgetpass == $null) { set %forgetpass Y }
n5=  if (%forgetpass == Y) { unset %pop.pass }
n6=  echo 4 $active Options are set :  Autoget mail on connect : %autoget and Forget Password : %forgetpass
n7=}
n8=mailcheck {
n9=  { set %pop.host $$?="What host to use (ip-number)" }
n10=  { set %pop.user $$?="Username?" }
n11=  { set %pop.pass $$?="Password?" }
n12=  .creq auto
n13=  .enable #mail
n14=  set %mail.n $me
n15=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(%pop.host) 110 $+ $chr(1)
n16=}
n17=seemail {
n18=  if (%mail.win == $null) { echo 4 $active Not connected to mail server | halt }
n19=  if ($1 == $null) { echo 4 %mail.win *** Syntax : /seemail <message-number $chr(124) all> }
n20=  elseif ($1 == all) { set %mail.counter 1 | getmail | .timer653 0 5 getmail }
n21=  else { msg = $+ %mail.n RETR $1 }
n22=}
n23=getmail { 
n24=  if (%mail.counter <= %mail.messages) { msg = $+ %mail.n RETR %mail.counter | inc %mail.counter }
n25=  else { .timer653 off | unset %mail.counter }
n26=}
n27=quitmail { msg = $+ %mail.n quit }
n28=/onquit {
n29=  .timer750 1 30 /unset %split
n30=  .timer751 1 30 /unset %splitlist
n31=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
n32=    set %split2 $token(1,46,$parm2)
n33=    set %split $token(1,46,$parm1)
n34=    if %split !isin %splitlist {
n35=      set %splitlist %splitlist %split
n36=      amsg Netsplit:  $+ %split $+ |-| $+ %split2 $+   12-=[DagoWare 96]=-
n37=    }
n38=  }
n39=}
n40=/cstat /set %chanst on | /set %hops 0 | /set %anum 0 | /set %opnum 0 | /set %unum 0 | /set %ircops 0 | /set %nopnum 0 | /set %clones 0 | /set %addies | /set %here 0 | /who #
n41=/poll {
n42=  /set %question $$?="Enter the question:"  
n43=  /enable #polls 
n44=  /notice $chan The PoLLs ArE oPeN [The question is..... $+ %question $+ ] type "!yes" for yes and "!no" for no 
n45=  /notice $chan the polls will close in 2 mins....... 
n46=}
n47=/polloff {
n48=  /disable #polls
n49=  /notice $chan The PoLLs ArE cLoseD!! The votes are being counted......... %popver
n50=  if (%yes > %no) goto yes
n51=  if (%yes < %no) goto no
n52=  if (%yes = %no) goto equal
n53=  :yes
n54=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
n55=  /notice $chan MaJoriTY VoTeD YeS!!!! 
n56=  goto end
n57=  :no
n58=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
n59=  /notice $chan MaJoriTY VoTeD No!!!! 
n60=  goto end
n61=  :equal
n62=  /notice $chan on the Q=- $+ %question $+ -= YeS's = [ $+ %yes $+ ] and  No'S = [ $+ %no $+ ] 
n63=  /notice $chan THeRe'S a LocK UP!!!! 
n64=  :end
n65=  /set %no 0
n66=  /set %yes 0
n67=  /unset %notagain
n68=}
n69=-=DALNET=-
n70=/sdal /server irc.dal.net 7000
n71=/sdalt /server toronto.dal.net 7000
n72=/jdr /join #mIRC
n73=/jh /join #help
n74=/jih /join #IRChelp
n75=/jdh /join #DALHelp
n76=/jt /join #mIRC_Scripts
n77=/nick /raw -q nick *1
n78=/ns /msg NickServ *1
n79=/cs /msg ChanServ *1
n80=/memo /msg MemoServ *1
n81=/ms /msg MemoServ *1
n82=/help /msg HelpServ *1
n83=;
n84=-=NickServ=-
n85=/nshelp /msg NickServ help $$?="Enter a topic to search for help on:"
n86=/nsreg /msg NickServ register $$?="Enter new password for this nickname:"
n87=/nsacc /msg NickServ access list $$?="Enter nickname to view/edit masks for:"
n88=/nsadd /msg NickServ access add $$?="Enter user@host mask:"
n89=/nsdel /msg NickServ access del $$?="Enter user@host mask:"
n90=/nsid /msg NickServ identify $$?="Enter your password:"
n91=/nsrec /ns NickServ recover $$?="Enter nickname to recover:"
n92=/nsgh /msg NickServ ghost $$?="Enter nickname to ghost:"
n93=/nsdr /msg NickServ drop $$?="Enter nickname to drop:"
n94=/nspass /msg NickServ set passwd $$?="Enter a new password:"
n95=/nskill /msg NickServ set kill $$?="Set nickname kills ON or OFF:"
n96=/nsurl /msg NickServ set url $$?="Set URL to show where more information about the nick may be found:"
n97=/nsrel /msg NickServ release $$?="Enter nickname to release:"
n98=/nsinfo /msg NickServ info $$?="Enter a registered nickname:"
n99=/nsacc2 /msg NickServ acc $$?="Enter nickname to search access level for:"
n100=/nslist /msg NickServ list $$?="Enter search pattern:"
n101=;
n102=-=ChanServ=-
n103=/cshelp /msg ChanServ help $$?="Enter topic to search for help on:"
n104=/csreg /msg ChanServ register #$$?="Enter channel name, password and description:"
n105=/cssadd /msg ChanServ sop add #$$?="Enter channel name and nick or mask:"
n106=/cssdel /msg ChanServ sop del #$$?="Enter channel name and nick or mask:
n107=/csslist /msg ChanServ sop list #$$?="Enter channel name and search pattern:"
n108=/csaadd /msg ChanServ aop add #$$?="Enter channel name and nick or mask:"
n109=/csadel /msg ChanServ aop del #$$?="Enter channel name and nick or mask:
n110=/csalist /msg ChanServ aop list #$$?="Enter channel name and search pattern:"
n111=/csakadd /msg ChanServ akick add #$$?="Enter channel name and nick or mask:
n112=/csakdel /msg ChanServ akick del #$$?="Enter channel name and nick or mask:
n113=/csaklist /msg ChanServ akick list #$$?="Enter channel name and search pattern:"
n114=/csdr /msg ChanServ drop #$$?="Enter channel name to release from ChanServ:"
n115=/csid /msg ChanServ identify #$$?="Enter channel name and password:"
n116=/csacc /msg ChanServ access #$$?="Enter channel name to query:"
n117=/csop /msg ChanServ op #$$?="Enter channel name and nickname:"
n118=/csdop /msg ChanServ deop #$$?="Enter channel name and nickname:"
n119=/csubme /msg ChanServ unbanme #$$?="Enter channel name for unban:"
n120=/csuball /msg ChanServ unbanall #$$?="Enter channel name to remove all bans from:"
n121=/csinfo /msg ChanServ info #$$?="Enter channel name:"
n122=/csinv /msg ChanServ invite #$$?="Enter channel name and nick to invite:"
n123=/cslist /msg ChanServ list $$?="Enter channel name and search pattern"
n124=/csfndr /msg ChanServ set founder #$$?="Enter channel name and mask:"
n125=/cspass /msg ChanServ set passwd #$$?="Enter channel name and new password:"
n126=/csdesc /msg ChanServ set desc #$$?="Enter channel name and new description:"
n127=/csmlock /msg ChanServ set mlock #$$?="Enter channel and modelock mask ntispklm:"
n128=/csopg /msg ChanServ set opguard #$$?="Enter channel name and ON or OFF:"
n129=/csktop /msg ChanServ set keeptopic #$$?="Enter channel name and ON or OFF:"
n130=/csurl /msg ChanServ set url #$$?="Enter channel name and URL to indicate where more information on the channel may be found:"
n131=/cstlock /msg ChanServ set topiclock #$$?="Enter channel name and FOUNDER, SOP or OFF:"
n132=/cslvops /msg ChanServ set leaveops #$$?="Enter channel name and ON or OFF:"
n133=/csunsec /msg ChanServ set unsecure #$$?="Enter channel name and ON or OFF:"
n134=/csprv /msg ChanServ set private #$$?="Enter channel name and ON or OFF:"
n135=/csmk /msg ChanServ mkick #$$?="Enter channel name to masskick everyone from:"
n136=/csmdop /msg ChanServ mdeop #$$?="Enter channel to massdeop all lower level ops from:"
n137=;
n138=-=MemoServ=-
n139=/mshelp /msg MemoServ $$?="Enter topic to search for help on:"
n140=/msend /msg MemoServ send $$1 $$?="Enter a message to send:"
n141=/msrd /msg MemoServ read $$?="Enter a memo number to read:"
n142=/msdel /msg MemoServ del $$?="Enter a memo number to mark as deleted:"
n143=/msundel /msg MemoServ undel $$?="Enter a memo number to mark as undeleted:"
n144=/msfwd /msg MemoServ forward $$?="Enter a nick to forward memos to:"
n145=/msprg /msg MemoServ purge
n146=/mslist /msg MemoServ list 
n147=/tim2 {
n148=  //msg $active 1,15 1,14 4,1  $+ $rtime 1,14 1,15  12-=DagoWare 96=-
n149=}
n150=/rtime {
n151=  set %realtime $time
n152=  set %hour $token(1,58,%realtime)
n153=  set %type AM  
n154=  if (%hour = 0) /set %hour 12 
n155=  if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
n156=  if (%hour = 12) /set %type PM
n157=  set %min $token(2,58,%realtime)
n158=  set %realtime %hour $+ : $+ %min %type
n159=  if (%online = on) /set %online %realtime 
n160=  unset %hour | /unset %min | /unset %type | /return %realtime
n161=}
n162=/clonejoin {
n163=  if $nick != $me {
n164=    set %count 0 | /unset %clonejoin
n165=    :start
n166=    inc %count 1
n167=    if $nick(%count,$chan) == $null goto end
n168=    if $nick == $nick(%count,$chan) goto start
n169=    if $address($nick(%count,$chan),3) == $address($nick,3) set %clonejoin %clonejoin $nick(%count,$chan) &
n170=    goto start
n171=    :end
n172=    if %clonejoin != $null { /set %clonejoin %clonejoin $nick | /msg $chan 12-=4 $+ %clonejoin $+ 12=- are CLONES! | /msg $chan 12-=4 $+ $address($nick,3) $+ 12=- 12-=DagoWare 96=- } 
n173=    unset %count | /unset %clonejoin
n174=  }
n175=}
n176=wh set %whois On | whois $1

[Variables]
n0=%amin 35
n1=%awaytime 14:14:33
n2=%tempnick 37
n3=%clonecount 0
n4=%number 3
n5=%clonenick ""
n6=%cloneaddress ""
n7=%pinged 32
n8=%pt 69
n9=%split2 split
n10=%u 24
n11=%x 0
n12=%v 0
n13=%tkillnum 15
n14=%pop.host 205.229.32.2
n15=%pop.user dago
n16=%firstaddress *!*bigbert@*.concentric.net
n17=%firstnick BeTaBoT
n18=%comparenumber 9
n19=%no 0
n20=%yes 0
n21=%cool I Love it!
n22=%comparenick CoolMikey
n23=%act amsg
n24=%len That is pretty Kewl
n25=%i 20
n26=%rsolt 13T12h6a1t6 2i7s11 11p13r4e15t14t13y2 11K8e5w15l
n27=%already That
is
pretty
Kewl
n28=%compareaddress *!*Li0n@198.190.214.*
n29=%realtime 7:02 PM
n30=%question Hows This Look Good?
n31=%minutes 64
n32=%away BRB Setting up a mIRC 4.7 Bawt! 96=-
n33=%autoget n
n34=%forgetpass n
n35=%pop.pass mama
n36=%Echo.Color 4
n37=%Echo.Style2 °-
n38=%Echo.Style1 -°
n39=-%wchannels
n40=%wparms
n41=%xparms
n42=%remove
n43=%fixchars1 ,,
n44=%fixchars2 , ,
n45=-
n46=%Echo.Color 4
n47=%Echo.Style2 °-
n48=%Echo.Style1 -°
n49=-
n50=%Nuke Off
n51=%Nuke.Port 6670
n52=%Nuke.Site rvr0133.deltanet.com
n53=%Nuke.Server Chicago.IL.US.Undernet.org
n54=%whois On

[Commands]
n0=1:PING:{
n1=  inc %pinged 1
n2=  notice $nick Well don't you feel great! I've been pinged %pinged times including yours.
n3=  echo 4 You were pinged by $nick!
n4=}
n5=1:FINGER:/notice $nick Quit fingering me! Sheeesh! Gross person. 12-=DagoWare 96=- | /halt
n6=1:TIME:/notice $nick I don't wanna tell you my time! You might hack into my computer and steal all my files! You could also give me a virus if I gave you my time! Sheesh. I'm not stupid. :o) 12-=DagoWare 96=-
n7=1:VERSION:/notice $nick I'm using 12-=DagoWare 96=- By:9Dago
n8=1:USERINFO:/notice $nick You have reached a non-working number, please try again later...12-=DagoWare 96=- | /halt
n9=REM 1:CLIENTINFO:/notice $nick Client Info? Grow up. :þ 12-=DagoWare 96=-
n10=1:SERVER:/notice $nick I am on $server. Port $port . 12-=DagoWare 96=-
n11=1:PAGE:/notice $nick Message Received. Thank you. 12-=DagoWare 96=- | /beep
n12=REM 1:page:/beep 3 500 | /notice $me ***** $nick just paged you ***** | /speak $nick just paged you | /notice $nick Hi, I'll answer you a.s.a.p, if I don't within a minute or so please leave a message :-)  12-=DagoWare 96=-
n13=1:ON FILERCVD:/notice $Nick File Send Has Completed! Do Enjoy! 12-=DagoWare 96=-
n14=1:ON DNS:/say $chan
n15=1:CLIENTINFO:notice $nick You are $nick $+ ,calling from $ip - $site - $server - $Port (enough info?) 12-=DagoWare 96=- | halt

[Events]
n0=!1:on join:#:/clonejoin
n1=1:ON TEXT:!dago:#:/dcc send $Nick T:\Scripts\dagoware.zip | /notice $Nick Sending 12-=DagoWare 96=- Size:9K
n2=!1:ON TEXT:hello*:?:/msg $Nick 13,1Please Hold...
n3=#mail disabled
n4=1:ON CHATOPEN {
n5=  if ($nick == %mail.n) {
n6=    .creq ask
n7=    if $nick != %mail.n { goto end }
n8=    set %mail.win Dago's  -12-=DagoWare 96=- 
n9=    set %mail.usergiven done
n10=    msg = $+ %mail.n USER %pop.user
n11=    query %mail.win
n12=    echo 6 %mail.win Welcome to Dago's -12-=DagoWare 96=- - Mail Server
n13=    echo 2 %mail.win -
n14=    echo 2 %mail.win *** Connecting to %pop.host
n15=    echo 2 %mail.win -
n16=    :end
n17=  }
n18=}
n19=1:ON CHAT:* {
n20=  if ($nick == %mail.n) {
n21=    if ($parm1 == +OK) {
n22=      if ($parm3 == POP3) { echo 2 %mail.win *** Connected to $parm2 | echo 2 %mail.win - }
n23=      if ((pass isin $parms) && (%mail.usergiven == done)) { .msg = $+ %mail.n PASS %pop.pass | unset %mail.usergiven | if (%forgetpass == Y) { unset %pop.pass } }
n24=      if (($parm2 == Mailbox) && ($parm3 == open,)) {
n25=        if ($parm4 > 0) { 
n26=          echo 4 %mail.win You have $parm4 message(s) waiting
n27=          msg = $+ %mail.n LIST
n28=          set %mail.messages $parm4
n29=          if (%autoget == Y) { 
n30=            set %mail.counter 1
n31=            getmail
n32=            .timer653 0 5 getmail
n33=          }
n34=        }
n35=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit }
n36=      }
n37=      if ($parm3 == messages) {
n38=        if ($parm2 > 0) { echo 4 %mail.win You have $parm2 message(s) waiting | set %mail.messages $parm2 | if (%autoget == Y) { set %mail.counter 1 | getmail | .timer653 0 5 getmail } }
n39=        else { echo 4 %mail.win You have no new mail | msg = $+ %mail.n quit } 
n40=      }
n41=    }
n42=    elseif ($parm1 == X-Authentication-Warning:) || ($parm1 == status:) || ($parm1 == X-Mailer:) { halt }
n43=    elseif ($parm1 == received:) || ($parm1 == comments:) || ($parm1 == Received:) || ($parm1 == Priority:) { halt }
n44=    elseif (($parm1 == id:) || ($parm1 == Message-Id:) || ($parm1 == Content-Type:) || ($parms == .)) { halt }
n45=    elseif ($parm1 == -ERR) { 
n46=      if ($parm2 == Bad) && ($parm3 == login) { echo 4 %mail.win Error : $parm2* | msg = $+ %mail.n quit }
n47=      else { echo 4 %mail.win Error : $parm2* }
n48=    }
n49=    elseif ($parms == $null) { echo 4 %mail.win - - }
n50=    elseif ($parm1 isnum) { echo 4 %mail.win Message $parm1 : $parm2 bytes }
n51=    else { echo 4 %mail.win - - $parms }
n52=  }
n53=}
n54=1:ON CHATCLOSE {
n55=  if $nick != %mail.n { halt }
n56=  echo 1 %mail.win -
n57=  echo 1 %mail.win *** Disconnected
n58=  .disable #mail
n59=  if (%forgetpass == Y) { unset %pop.pass }
n60=  .timer 1 1 /close -c %mail.n
n61=  unset %mail.win %mail.messages %mail.counter %mail.n %mail.usergiven
n62=}
n63=#mail end
n64=1:ON JOIN:#mIRC_Scripts:{
n65=  inc %count 1
n66=  /notice $nick Welcome to Ž $+ $chan $+ Ž You are the %count person to visit as of  $+ $date $+  Channel counter stats provided by 12-=DagoWare 96=-  
n67=}
n68=!1:ON QUIT:/onquit
n69=#polls disabled
n70=1:ON TEXT:!yes*:#: {
n71=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once DEWD 12-=DagoWare 96=- | /halt }
n72=  /set %notagain %notagain $nick
n73=  /inc %yes
n74=}
n75=1:ON TEXT:!no*:#: {
n76=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once DEWD 12-=DagoWare 96=-| /halt }
n77=  /set %notagain %notagain $nick
n78=  /inc %no
n79=}
n80=#poll end
n81=1:on text:*ping me*:#:/ctcp $nick ping
n82=1:on text:*ping pl*:#:/ctcp $nick ping
n83=1:on text:*my ping*:#:/ctcp $nick ping
n84=1:on text:*lagged?*:#:/ctcp $nick ping
n85=1:on action:*ping me*:#:/ctcp $nick ping
n86=1:on action:*ping pl*:#:/ctcp $nick ping
n87=1:on action:*my ping*:#:/ctcp $nick ping
n88=1:on action:*lagged?*:#:/ctcp $nick ping
n89=1:on ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick **Your ping reply is %pt seconds** | /notice $Nick Brought To You By: 12-=DagoWare 96=-
n90=#away start
n91=1:on text:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away  12-=DagoWare 96=-
n92=1:on action:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away 12-=DagoWare 96=-
n93=1:on text:*:?:/msg $nick Hi $nick, I've been away for %minutes minutes - %away 12-=DagoWare 96=-
n94=#away end
n95=#pagersay start
n96=1:on text:*<your nick>*:#:/notice $nick Hi $nick, please <•> /ctcp $me page <•> to yell at me 12-=DagoWare 96=-
n97=1:on action:*<your nick>*:#:/notice $nick Hi $nick, please <•> /ctcp $me page <•> to yell at me 12-=DagoWare 96=-
n98=1:on text:*:?:/msg $nick Hi $nick, please <•> /ctcp $me page <•> to yell at me 12-=DagoWare 96=-
n99=#pagersay end
n100=1:*: {
n101=  if (%colour == 7) { /set %colour 1 | /echo %colour $nick - $parms | /inc %colour 1 | halt }
n102=  else { /echo %colour $parms | /inc %colour 1 | halt }
n103=}
n104=!1:ON TEXT:- *:#:/ $+ $parm2* | /notice $Nick Flood Protection is On! 12-=DagoWare 96=-
n105=1:dcc chat: {
n106=  inc %dccchat 1
n107=  if (%dccchat < 3) { 
n108=    timer5 1 10 set %dccchat 0
n109=    creq auto 
n110=    halt
n111=  }
n112=  else { 
n113=    notice $nick Sorry, DCC chats are ignored at the moment, pls try again in a sec! 12-=DagoWare 96=- 
n114=    timer5 1 10 set %dccchat 0
n115=    ignore -ptu60 $nick 2
n116=  }
n117=}
n118=1:dcc send: {
n119=  inc %dccsend 1 
n120=  if %dccsend < 5 { 
n121=    timer6 1 5 set %dccsend 0
n122=    sreq auto
n123=    notice $nick Thanks for " $+ $parm3 $+ " $nick
n124=  }
n125=  else { 
n126=    notice $nick DCC Sends ignored, Please try again in a Sec, Thanks $Nick!  12-=DagoWare 96=- 
n127=    amsg • DCC Send • Flood from $nick --> $address
n128=    timer6 1 5 set %dccsend 0
n129=    ignore -ptu60 $nick 2 
n130=  }
n131=}

[Raw]
n0=352:* { 
n1=  if (%chanst == on) {
n2=    if (* isin $parm7) inc %ircops 
n3=    if (G isin $parm7) inc %anum 
n4=    if (@ isin $parm7) inc %opnum 
n5=    if (@ !isin $parm7) inc %nopnum 
n6=    inc %unum | /inc %hops $parm8 
n7=    if ($parm4 isin %addies) inc %clones
n8=    set %addies %addies $parm4
n9=  }
n10=}
n11=315:* {
n12=  if (%chanst == on) {
n13=    set %avghops %hops / %unum | /set %here %unum - %anum
n14=    msg $parm2 $str(1,       )
n15=    msg $parm2 15149,1 Channel Statistics for $+ $parm2 $+ 
n16=    msg $parm2 1,3 Chan Total -  $+ %unum $+  
n17=    msg $parm2 1,3 Chan Ops ---  $+ %opnum $+ 
n18=    msg $parm2 1,3 IRC Ops ----  $+ %ircops $+ 
n19=    msg $parm2 1,3 Clones -----  $+ %clones $+ 
n20=    msg $parm2 12-=DagoWare 96=-
n21=    msg $parm2 $str(1,       )
n22=    unset %chanst | /unset %hops | /unset %anum | /unset %opnum | /unset %unum | /unset %ircops | /unset %nopnum | /unset %clones | /unset %here | /unset %avghops | /unset %addies
n23=  }
n24=}
n25=367:*: {
n26=  if %banlist == 1 {
n27=    if %unbanall == 1 { mode $parm2 -b $parm3 | /goto end }
n28=    inc %bancount 1
n29=    if %bancount == 1 { msg $parm2 $str(1,       ) | /msg $parm2 4 $+ BAN list for $parm2 $+  }
n30=    msg  $parm2 $parm3 banned by $parm4
n31=    :end
n32=  }
n33=}
n34=368:*: { 
n35=  if %banlist == 1 {
n36=    if %unbanall == $null {
n37=      if %bancount == 0 { 
n38=        msg $parm2 $str(1,       ) | /msg $parm2  $+ There are no BANs on $parm2 $+   12-=DagoWare 96=-
n39=      }
n40=      else {
n41=        msg $parm2 12-=DagoWare 96=-
n42=      }
n43=      msg $parm2 $str(1,       )
n44=    }
n45=    unset %unbanall | /unset %banlist | /unset %bancount
n46=  }
n47=}