Coders-IRC

;Shows a link to the script when you right click a status, query or channel window
menu status,query,channel {
  Auto Connect/Join/Identify v2.1:/sci01
}

;Calls the dialog window initialisation and loads the first tab
alias sci01 { dialog -m scd01 scd01 | set %tab.scd01 1 }

;Initialises the dialog window
dialog scd01 {
  title "Auto Connect/Join/Identify v2.1"
  size -1 -1 355 390
  tab "Server 1", 1, 5 5 345 265
  tab "Server 2", 2
  tab "Server 3", 3
  tab "Server 4", 4
  tab "Server 5", 5

  text "Servers address", 6, 15 30 160 12
  edit "", 7, 15 45 160 20, autohs
  text "Server network", 43, 180 30 160 12
  edit "", 44, 180 45 160 20, autohs

  text "Primary nick", 8, 22 80 75 12
  edit "", 9, 20 94 85 20, autohs
  text "Password", 10, 112 80 75 12
  edit "", 11, 110 94 60 20, autohs
  text "Secondary nick", 40, 22 117 75 12
  edit "", 41, 20 132 85 20, autohs
  box "Nicknames", 48, 15 65 160 100

  text "Add channel to this server", 49, 22 180 140 20
  edit "", 50, 20 194 155 21, autohs
  button "Add Channel", 51, 20 220 155 25
  text "View/delete existing channels", 46, 182 180 150 20
  combo 45, 180 194 155 20, drop
  button "Delete", 52, 180 220 155 25
  box "Channels", 47, 15 165 325 90

  check "A Conn/Join", 33, 188 83 80 12
  check "A Nickname", 34, 188 103 88 12
  check "A Identify", 35, 188 123 80 12
  check "A Ghost", 42, 188 143 80 12
  box "Options", 32, 180 65 100 100

  button "SET", 36, 285 70 55 35
  button "CLOSE", 37, 285 110 55 35, cancel

  box "Help", 38, 5 270 345 110
  text "", 39, 10 283 325 92, multi
}

;On initialisation, display default help text and load first tab
on 1:dialog:scd01:init:*: {
  did -ra $dname 39 Please hover over a button, checkbox or Edit box for help.
  scd01.loadgui 1
}

;loads the gui with the information for the required tab ( called with $1 being tab number )
alias scd01.loadgui { 
  if ($rs($1, AC) == 1) { did -c scd01 33 } 
  else { did -u scd01 33 }
  if ($rs($1, AN) == 1) { did -c scd01 34 } 
  else { did -u scd01 34 }
  if ($rs($1, AP) == 1) { did -c scd01 35 } 
  else { did -u scd01 35 }
  if ($rs($1, AG) == 1) { did -c scd01 42 } 
  else { did -u scd01 42 }
  did -ra scd01 7 $rs($1, Server)
  did -ra scd01 44 $rs($1, Network)
  did -ra scd01 9 $rs($1, Nick)
  did -ra scd01 41 $rs($1, Nick2)
  if ($rs($1, Password) != $null) { did -ra scd01 11 [Hidden] }
  else did -ra scd01 11 [None]

  did -r scd01 45   
  set %rid 0 
  while (%rid < $rs($1,Channels)) {
    did -a scd01 45 $rs($1, Room $+ %rid)
    inc %rid
  }
  unset %rid
}

;When hovering over any of the edit boxes, check boxes or buttons, the help label will display help information for that element
on 1:dialog:scd01:mouse:*: {
  if ($did == 7) { did -ra $dname 39 Enter the server address here. e.g. irc.gamesurge.net }
  elseif ($did == 9) { did -ra $dname 39 Enter the primary Nickname you would like to use on this server. Your nick will automatically be set to what is entered here if you have the Auto Nickname option selected. $crlf $+ If it's already in use, and the Auto-ghost option is ticked, the nick will be ghosted and you will be set to this nick. }
  elseif ($did == 41) { did -ra $dname 39 Enter the secondary Nickname you would like to use on this server. If your Primary nick is already in use, and Auto-ghost is not enabled, your nick will automatically be set to this. }
  elseif ($did == 11) { did -ra $dname 39 Here you will enter the password to the nickname to the left if your nickname is registered and you selected the auto nickname option. Will automatically identify you when nickserv asks for the password }
  elseif ($did == 13) || ($did == 15) || ($did == 17) || ($did == 19) || ($did == 21) || ($did == 23) || ($did == 25) || ($did == 27) || ($did == 29) || ($did == 31) { did -ra $dname 39 If Auto connect is selected, you will join these channels when you connect to this server. }
  elseif ($did == 32) { did -ra $dname 39 Choose which options you would like for this server. Auto connect will automatically connect you to the server and the listed channels. Auto nick will automatically set your nick. Auto Password will automatically identify you when needed. Auto Ghost will ghost your primary nick if it is already in use. If not selected, your secondary nick will be used. $crlf $+ Auto-ghost requires a secondary nick active. }
  elseif ($did == 36) { did -ra $dname 39 By clicking this button all the info in the edit boxes will be saved for this server. }
  elseif ($did == 37) { did -ra $dname 39 By clicking this button all changes will be lost. Be sure to click the Set button is you want to save this configuration. }
  elseif ($did == 44) { did -ra $dname 39 Enter the servers network here. $crlf $+ Find this out by typing '//echo -a $network' whilst connected the the server. eg. GameSurge }
  elseif ($did == 50) || ($did == 51) { did -ra $dname 39 Enter a channel name and then click the Add button to add that channel to this servers autojoin list. If the channel has a password, enter it after the channel. $crlf e.g. #channelwithpassword password }
  elseif ($did == 45) || ($did == 52) { did -ra $dname 39 Use the dropdown menu to view the channels set to automatically join when this server starts. If you wish to delete one, pick it from the list then click the Delete button. }
}

;Listens for clicks on the tabs and set button
on 1:dialog:scd01:sclick:*: {
  ;If a tab is clicked, load that information into the editable fields and textboxes
  if (($did == 1) || ($did == 2) || ($did == 3) || ($did == 4) || ($did == 5)) {
    set %tab.scd01 $did
    scd01.loadgui $did
  }

  ;If the set button is clicked, save all information into the Settings.ini file
  if ($did == 36) {
    if ($did($dname, 7).text != $null) { $ws(%tab.scd01, Server, 7) }
    else { $rms(%tab.scd01, Server) }
    if ($did($dname, 44).text != $null) { $ws(%tab.scd01, Network, 44) }
    else { $rms(%tab.scd01, Network) }
    if ($did($dname, 9).text != $null) { $ws(%tab.scd01, Nick, 9) }
    else { $rms(%tab.scd01, Nick) }
    if ($did($dname, 41).text != $null) { $ws(%tab.scd01, Nick2, 41) }
    else { $rms(%tab.scd01, Nick2) }
    if (($did($dname, 11).text != $null) && ($did($dname, 11).text != [hidden]) && ($did($dname, 11).text != [none])) { $ws(%tab.scd01, Password, 11) }
    if ($did($dname, 11).text == $null) { $rms(%tab.scd01, Password) }

    if ($did($dname, 33).state == 1) { $ws(%tab.scd01, AC, 33) }
    else { $rms(%tab.scd01, AC) }
    if ($did($dname, 34).state == 1) { $ws(%tab.scd01, AN, 34) }
    else { $rms(%tab.scd01, AN) }
    if ($did($dname, 35).state == 1) { $ws(%tab.scd01, AP, 35) }
    else { $rms(%tab.scd01, AP) }
    if ($did($dname, 42).state == 1) { $ws(%tab.scd01, AG, 42) }
    else { $rms(%tab.scd01, AG) }
  }

  ;If the add channel button is clicked, add a channel to the current server in the Settings.ini file
  if ($did == 51) {
    if ($did($dname, 50).text != $null) { 

      if ($rs(%tab.scd01, Channels) != $null) {
        set %channels $rs(%tab.scd01, Channels)
      }
      else set %channels 0

      $ws(%tab.scd01, Room $+ %channels, 50) 
      did -a scd01 45 $rs(%tab.scd01, Room $+ %channels)
      inc %channels
      writeini Settings.ini Server $+ %tab.scd01 Channels %channels
      did -r scd01 50
      unset %channels
    }
  }

  ;If the delete channel button is clicked, delete the current channel in the combo box from the Settings.ini file
  if ($did == 52) {
    if ($did($dname, 45) != $null) {
      set %channels $rs(%tab.scd01, Channels)
      set %n $did($dname, 45).sel
      dec %n
      $rms(%tab.scd01, Room $+ %n)
      did -d scd01 45 $did($dname, 45).sel
      dec %channels
      set %s %n
      while (%n < %channels) {
        inc %s
        writeini Settings.ini Server $+ %tab.scd01 Room $+ %n $rs(%tab.scd01, Room $+ %s)
        inc %n
      }
      $rms(%tab.scd01, Room $+ %n)
      unset %s
      writeini Settings.ini Server $+ %tab.scd01 Channels %channels
      unset %channels
      unset %n
    }
  }
}

;When mIRC starts, connect to each of the servers in the Settings.ini file with the primary nick supplied, if there is one.
on *:Start: {
  if ($rs(1, AC) == 1) { server $rs(1, Server) $iif($rs(1, AN) == 1 && $rs(1, nick) != $null, -i $rs(1, Nick),) }
  set %servc 2
  while (%servc <= 5) {
    if ($rs(%servc, AC) == 1) { 
      server -m $rs(%servc, Server) $iif($rs(%servc, AN) == 1 && $rs(%servc, nick) != $null, -i $rs(%servc, Nick),)
    }
    inc %servc
  }
  unset %servc
}

;When you connect to a server, check that it's one in the Settings.ini file and then connect to the supplied channels
on *:Connect: {
  set %servc 1
  while (%servc <= 5) {
    if (($rs(%servc, Network) == $network) && ($rs(%servc, AC) == 1)) { 
      ;channel counter
      set %chanc 0
      while (%chanc < $rs(%servc, Channels)) {
        join $rs(%servc, Room $+ %chanc)
        inc %chanc
      }
      unset %chanc
      if (($rs(%servc, Password) != $null) && ($rs(%servc, AP) == 1) && ($rs(%servc, nick) == $me)) { nickserv identify $rs(%servc, Password) }
    }
    inc %servc
  }
  unset %servc
}

;When nickserv asks to identify, do so with the supplied password from the Settings.ini file
on *:notice:*:?: {
  if (($nick == nickserv) && (identify isin $1-)) { 
    set %servc 1
    while (%servc <= 5) {
      if (($rs(%servc, AP) == 1) && ($server == $rs(%servc, Server))) {
        nickserv identify $rs(%servc, Password) 
      }
      inc %servc
    }
    unset %servc
  }
}

;When mIRC tells you that your primary nickname is already in use, change to your secondary nick, ghost the primary, and then change to it
raw 433:*:{ 
  autoghost $1-
}
alias autoghost {
  set %servc 1
  while (%servc <= 5) {
    if ($server == $rs(%servc, Server)) && ($rs(%servc, AG) == 1) {
      nick $rs(%servc, Nick2)
      timerghost1 1 2 nickserv ghost $2 $rs(%servc, Password)
      timerghost2 1 3 nick $2
    }
    inc %servc
  }
  unset %servc
}

;called by $rs(server number, item)
alias rs {
  return $readini(Settings.ini, Server $+ $1, $2)
}

;called by $ws(server number, item, id to read from)
alias ws {
  ;if it's a check box, write the checkboxes state, else write the editboxes text
  if ($3 == 33) || ($3 == 34) || ($3 == 35) || ($3 == 42) writeini Settings.ini Server $+ $1 $2 1
  else writeini Settings.ini Server $+ $1 $2 $did($dname,$3).text
}

;called by $rms(server number, item)
alias rms {
  remini Settings.ini Server $+ $1 $2
}

Expand

    ; spotify now playing script
    ; written by Aaron Blakely <aaron@ephasic.org>
    ;
    ; Requires spotify.dll, get it here: http://www.tg007.net/dls/file/1460
    ; Put spotify.dll in your mIRC directory.
     
     
    on *:START: {
      timer -o 0 1 setnp
    }
     
    alias spotifynp {
      ; used for including this np in your own scripts
      ; not much other use, change the format here or do some
      ; string opperations in your own alais, to extract the data.
      ; ~ Aaron
     
      return $dll(spotify.dll, song,) - $dll(spotify.dll, artist,)
    }
     
    alias setnp {
      if (%lastnp != $spotifynp) {
        set %lastnp $v2
        clipboard $v2
      }
    }
     
    alias np {
      ; change the format if you desire.
      ; artist: $dll(spotify.dll, artist,)
      ; song: $dll(spotify.dll, song,)
      ; Will add support for others soon.
      ; ~ Aaron
      me is listening to ' $+ $dll(spotify.dll, song,) $+ ' by $dll(spotify.dll, artist, ) on Spotify.
    }

Expand

on @*:TEXT:*:#*:{ noop $flood_counter $repeat_counter($1-)   }
on @*:ACTION:*:#*:{ noop $flood_counter $repeat_counter($1-) }
on *:NICK:{
  var %table flood , %timeframe 300 , %wilditem $+(*!,$fulladdress)
  while ($hfind(%table,%wilditem,1,w)) {
    hdel %table $v1
    hadd -u $+ %timeframe %table $puttok($v1,$newnick,3,33)
  }

  var %timeframe2 300 , %table1 repeat.text , %table2 repeat.count , %wilditem $+(*!,$fulladdress)
  while ($hfind(%table1,%wilditem,1,w)) {
    var %a $puttok($v1,$newnick,2,33)
    hadd -u $+ %timeframe2 %table1 %a $hget(%table1,$v1)
    hadd -u $+ %timeframe2 %table2 %a $hget(%table2,$v1)
    hdel %table1 $v1
    hdel %table2 $v1
  }

}

alias -l repeat_counter {
  var %timeframe2 300 , %kill.at.repeats 3 , %table1 repeat.text , %table2 repeat.count
  var %text $lower($strip($1))

  if (!$hget(%table1)) { hmake %table1 101 }
  if (!$hget(%table2)) { hmake %table2 101 }
  var %item $+($chan,!,$fulladdress)
  var %a $hget(%table1,%item)
  if ((%a == $null) || (%a != %text)) {
    hadd -u $+ %timeframe2 %table1 %item %text
    hadd -u $+ %timeframe2 %table2 %item 1
    return
  }

  var %secs $hget(%table1,%item).unset | if (!%secs) var %secs %timeframe2
  hinc -u $+ %timeframe2 %table2 %item
  var %count $hget(%table2,%item)

  if (%count >= %kill.at.repeats) {
    echo 4 -a $nick has repeated %count times within %timeframe2 seconds. Action goes in here
  }

}

alias -l flood_counter {
  var %timeframe 300 , %max.messages 5 , %table flood
  if (!$hget(%table)) { hmake %table 101 | hadd %table counter 1 }
  var %counter $hget(%table,counter) | hinc %table counter 1
  var %item $+(%counter,!,$chan,!,$fulladdress) , %wilditem $+(*!,$chan,!,$fulladdress)
  hadd -u $+ %timeframe %table %item | var %msg_count $hfind(%table,%wilditem,0,w)
  echo -s debug message: $nick has %msg_count messages in the last %timeframe seconds
  if (%msg_count >= %max.messages) {
    echo 4 -s action to take against $nick in $chan goes inside these brackets
  }
}

Expand