mirc scripts

Any other programming language that is not covered in the Web Scripting category.

mirc scripts

Postby Aceofspades on Thu Jul 20, 2006 9:26 pm

Some useful script for mirc users for serten things these are just aliass and idea makers for you Smile hope they help
For undernet auto login, do /notify <nick u love>
then put this in remotes Smile and fill in the spaces

Code: Select all
on *:unotify:{
  if ($network == Undernet) {
    if ($nick == <insert nick here>) {
      if ($Address($me,2) == *!*@<insert Xnick here>.users.undernet.org) {
        timer 1 1 nick <insert nick here>
      }
      else {
        timer 1 1 nick <insert nick here>
        timer 1 2 msg [email protected] login <xnick here> <pass here>
        timer 1 3 mode $me +x   
      }
    }
  }
}


Ok sorry fior the next couple of posts but im putting some more script in :)

to kill them spammers or most of them anyways here Works for the double digit spammers :P And the Real name morons


alias OnjoinCheck {
  if ($me isop $1) {
    if ($regex($2,/[0-9][0-9]$/) == 1) || ($spammerMatch($2) != 0)  && (.users.undernet.org !isin $address($2,2)) {         
        if ($regex($ident($2,$1),/[0-9][0-9]$/) == 1) {     
          ban -ku $+ $rand(1,500) $1 $2 $rand(1,9) Sorry your Nick: $2 and Ident: $ident($2,$1) say Spammer, Change your nick and rejoin if u are not. <Auto> Random ban. 1-500
     
        }
        else {
          ban -ku $+ $rand(1,5) $1 $2 $rand(1,60) Possible Bot, if u are not Change ur nick, or login to X. And rejoin <Auto> Random ban. 1-60           
        }
      }
    }
}
}
on *:Join:#:{
  onjoincheck $chan $nick
}
raw *:*:{
  if ($numeric == 311) {
    if (*Real name* iswm $gettok($1-,2,42)) && (.undernet.org !isin $address($2,2)) {
      if (!%channel) { halt }
      else {
        ban $+(-,ku,$rand(1,30)) %channel $2 $rand(0,9) Change You Real Name, then rejoin <auto> Random time Ban 1-30
        aline @working SpamCatch RealName ban $2 from %channel Nick: $2 Ident: $ident($2) Host: $address($2,2) :: $fulldate       
      }
    }
  }
}
alias SpammerMatch {
  var %Spamnicks =
;; make sure these are all in a straight line.
Aldora|Alysia|Amorita|Anita|April|Ara|Aretina|Barbra|Bella|Bettina|
Blenda|Briana|Bridget|Caitlin|Camille|Cara|Carla|Carmen|Chelsea|
Clarissa|Damita|Danielle|Daria|Diana|Donna|Dora|Doris|Ebony|Eden
|Eliza|Emily|Erika|Erin|Eve|Evelyn|Faith|Gale|Gilda|Gloria|Haley|Helga
|Holly|Ida|Idona|Iris|Isabel|Ivana|Ivory|Janet|Jewel|Joanna|Julie|Juliet
|Kacey|Kali|Kara|Kassia|Katie|Katrina|Kyle|Lara|Laura|Linda|Lola|Lolita|
Lynn|Maia|Mandi|Maria|Meggie|Melody|Milenia|Mimi|Myra|Nadia|Naomi|
Natalie|Nicole|Nina|Nora|Nova|Olga|Olivia|Queen|Rae|Raquel|Rita|Rosa|
Sharon|Silver|Tania|Tara|Ula|Uma|Valda|Valora|Vanessa|Vicky|Violet|
Vivian|Wendy|Willa|Wilma|Xenia|Xylia|Zenia|Zilya|Zoe
;;makesure these are all in a straight line.
  if ($regex($1,/^ $+ %Spamnicks $+ /i) != 0) {
    return 1
  }
  else { return 0 }
}


Here are some more Stuff ive have created and u will need to use with them scripts


alias Xnick {
  if ($ison($1,$2) == $true) {
    if (*undernet.org* iswm $address($1,2)) {
      return $gettok($gettok($address($1,2),2,64),1,46)
    }
    else { return NoXhost }
  }
  else { Windowcheck @Error Error Error Script: $script Line Number: $scriptline $fulldate }
}
alias ison {
  if ($2 ischan) && ($1 ison $2) {
    return $true
  }
  else { return $false }
}
alias Ident {
  if ($ison($1,$2) == $true) {
    return $remove($gettok($Address($1,3),1,64),$chr(42),$chr(33))
  }
  else { Windowcheck @Error Error Error Script: $script Line Number: $scriptline $fulldate }
}

alias host {
  if ($ison($1,$2) == $true) {
    if (.users.undernet.org isin $address($1,2)) {
      return $address($1,2)
    }
    else { return $address($1,3) }
  }
  else { Windowcheck @Error Error Error Script: $script Line Number: $scriptline $fulldate }
}
alias WindowCheck {
  if (!$window($1)) {
    window -be  $1 
    Aline $1 $2-
  }
  else { Aline $1 $2- }
}


Multi channel ban system usage /multiban $Checkchan(<chan here>) <nick> <reason>


alias MultiBan {
  var %Top = 1
  while (%top <= $numtok($1,44)) {
    if ($me isop $gettok($1,%top,44)) {
      ban $+(-ku,$rand(1,30)) $gettok($1,%top,44) $2 $rand(0,9) $3-
    }     
    inc %top
  }
}
Alias CheckChan {
  if ($comchan($1,0)) {
    var %Check = 1
    while ($comchan($1,%Check)) {
      var %CheckChan = $addtok(%CheckChan,$v1,44)
      inc %Check
    }
    return %CheckChan
  }
}



Ok last script and this one is for a bot here you go.

on *:text:*:#:{
  if ($1 == !love) { love $chan $nick $2 }
}

alias Love {
  if ($1 ischan) && ($2 ison $1) {
    if (!$3) {   
      var %LoveTester = $rand(1,10)
      msg $1 $2 Your Love Test Level is: $+(4,$chr(44),1,$str(|,%lovetester),) at $+(%lovetester,0,%) out of 100% For 4Love.
    }
    elseif ($3 ison $1) {
      if ($3 != $me) {
        var %love = $rand(1,10) $rand(1,10)
        msg $chan $2 You Love Test for $3 is $+(4,$chr(44),1,$str(|,$gettok(%love,1,32)),) at $+($gettok(%love,1,32),0,%) out of 100% and $3 $+ 's love for you is $+(4,$chr(44),1,$str(|,$gettok(%love,2,32)),) at $+($gettok(%love,2,32)r,0,%) out of 100%. $2 $+ .
      }
      else { msg $1 Silly $nick Dicks are for Chicks, Not For Nicks hehe }
    }
    else { msg $1 Stop being Stupid $nick $+ . }
  }
}

ok i was just bored and this works out for simple high low games :) enjoy

on *:Text:*:#:{ if ($1 == !hl) { hilow $nick $chan } }
alias HiLow {
if ($ison($1,$2) {
  var %Cards = Ace 2 3 4 5 6 7 8 9 10 Jack King Queen
  var %Card.Types = Diamonds Hearts Spades Clubs
  msg $1 You drew: $gettok(%Cards,$Rand(1,13),32) of $gettok(%Card.Types,$Rand(1,4),32)
}
}


~added [code] tag by De Kus~
Last edited by Aceofspades on Fri Jul 21, 2006 10:09 pm, edited 4 times in total.
If there is a Singer of Songs, then could I be the Dreamer of Dreams?
Aceofspades
Newbie
Newbie
 
Posts: 10
Joined: Thu Jul 20, 2006 9:02 pm
Location: Purgatory

Postby Samppa on Fri Jul 21, 2006 8:24 am

tsk tsk, rommaster, usually you're far more efficient in banning and deleting these posts Wink
(\__/)
(='.'=) This is RomMaster's Bunny. Copy and paste bunny into your
(" )_(" ) signature to help him gain world domination.
Samppa
Phoenix Veteran
Phoenix Veteran
 
Posts: 744
Joined: Thu Feb 02, 2006 10:00 am
Location: Finland

Postby Rommaster on Fri Jul 21, 2006 9:52 am

I've merged your posts because it's spam, also when you quote things, don't quote white space with it. It kinda mess up the forum. If you still want this topic, please fix it or we will have to remove it.
SwiftIRC - irc.swiftirc.net - #phoenix
Phoenix-Network

(\__/)
(='.'=) This is Bunny. Copy and paste bunny into your
(" )_(" ) signature to help him gain world domination.
Rommaster
Phoenix Veteran
Phoenix Veteran
 
Posts: 960
Joined: Thu Mar 10, 2005 1:05 pm
Location: The Netherlands

Postby Nintendud on Fri Jul 21, 2006 4:22 pm

Ahhhhh, this post has stretched the tables wayyyy too much.
Someone edit it... or something :O
Nintendud
Regular
Regular
 
Posts: 148
Joined: Thu Jul 20, 2006 8:15 pm
Location: Brockton, Massachusetts

Postby Krezarian on Fri Jul 21, 2006 4:30 pm

Nintendud,

no need to raise your post count by posting here.

Rommaster has logically stated that if thread starter won't fix this, he will remove it.

-Krez
Vae victis!
Check Team Fortress 2 and Harry Potter
Krezarian
Regular
Regular
 
Posts: 140
Joined: Mon Jun 26, 2006 11:46 am
Location: Szczecin (Stettin), P(r)oland

Postby Samppa on Sat Jul 22, 2006 8:27 am

lol krez, you've really taken it on yourself to police nintendud Very Happy
(\__/)
(='.'=) This is RomMaster's Bunny. Copy and paste bunny into your
(" )_(" ) signature to help him gain world domination.
Samppa
Phoenix Veteran
Phoenix Veteran
 
Posts: 744
Joined: Thu Feb 02, 2006 10:00 am
Location: Finland

Postby Nintendud on Sat Jul 22, 2006 11:18 am

Krezarian wrote:Nintendud,

no need to raise your post count by posting here.

Rommaster has logically stated that if thread starter won't fix this, he will remove it.

-Krez


Hey, I wasn't trying to raise my post count. I missed the last sentence of Rommaster's post, that's all. I opened the page to see the table stretched to a ridiculous length.

I'll be more careful reading previous posts in a thread in the future >_>

... Don't yell at me ;_;
Nintendud
Regular
Regular
 
Posts: 148
Joined: Thu Jul 20, 2006 8:15 pm
Location: Brockton, Massachusetts

Postby Krezarian on Sat Jul 22, 2006 8:28 pm

Nintendud wrote:
Krezarian wrote:Nintendud,

no need to raise your post count by posting here.

Rommaster has logically stated that if thread starter won't fix this, he will remove it.

-Krez


Hey, I wasn't trying to raise my post count. I missed the last sentence of Rommaster's post, that's all. I opened the page to see the table stretched to a ridiculous length.

I'll be more careful reading previous posts in a thread in the future >_>

... Don't yell at me ;_;


Alright, alright... I'll forgive you this time =)

-Krez
Vae victis!
Check Team Fortress 2 and Harry Potter
Krezarian
Regular
Regular
 
Posts: 140
Joined: Mon Jun 26, 2006 11:46 am
Location: Szczecin (Stettin), P(r)oland


Return to Programming

Who is online

Users browsing this forum: No registered users and 1 guest

cron