Jump to content

Chain

Sysops
 View Profile  See their activity

  • Posts

    37

  • Joined

  • Last visited

 Content Type 

Posts posted by Chain

  5. An older gent had an appointment

    in Jokes

    Posted

    An older gent had an appointment to see a urologist who shared an office with several other doctors. The waiting room was filled with patients. He approached the receptionist desk. The receptionist was a large imposing woman who looked like a wrestler.
    He gave her his name. In a very loud voice the receptionist said, "Yes, I see your name here. You want to see the doctor about impotence, right?"
    All of the patients in the waiting room snapped their head around to look at the very embarrassed man.
    He recovered quickly though, and in an equally loud voice replied, "No, I've come to inquire about a sex change operation and I'd like the same doctor that did yours!"

     

  8. Invite Script v1.0

    in Scripting Tips and Tricks

    Posted 

    ; Invite Script v1.0 - by entropy 2020 - updated: 6/19/20
; Change: \"#test\" to the channel you want it to work on
; Then: !i <nickname>
 
; RAWs for /INVITE
raw 443:*:{ if (%x_nick) { .notice %x_nick $2 is already on $3 | halt } }
raw 341:*:{ if (%x_nick) { .notice %x_nick $qt($2) has been invited to $3 | halt } }
raw 401:*:{ if (%x_nick) { .notice %x_nick No such nickname $qt($2) on IRC | halt } }
 
; Events for /INVITE
on *:input:#test:{ if (!i * iswm $1- && $server) { doinvite $2 $me } }
on *:text:!i *:#test:{ doinvite $2 $nick }
 
; Alias
alias -l doinvite {
  if ($me !isop $chan) { .notice $2 I am not a channel operator on $chan }
  else { set -u3 %x_nick $2 | invite $1 $chan }
}

     

  9. Channel rejoiner

    in Scripting Tips and Tricks

    Posted 

    menu * {
  Rejoin channels
  . on $network : rejoin $network
  .on all networks : .scon -at1 rejoin $!network
}
alias rejoin {
  var %rejoin.network = $iif($1,$1,$network)
  var %a = 1, %b = $ini(mirc.ini,chanfolder,0)
  while %a <= %b {
    var %channel = $readini(mirc.ini,chanfolder,$ini(mirc.ini,chanfolder,%a))
    var %aj = $gettok(%channel,-1,44)
    var %network = $noqt($gettok(%channel,$iif(%aj isnum,-2,-1),44))
    var %channel = $noqt($gettok(%channel,1,44))
    if %network == %rejoin.network && %channel !ischan && %aj isnum {
      .timer -m 1 $calc(500 * %a) join %channel
    }
    inc %a
  }
}

    Have you ever re-connected to a network, only to find that some of your favorite channels are in +R mode?
    If, like me, you've come across this, even if you have a registered nick, mIRC's favorites folder tries to connect you to those channels whether you have identified for your nick or not.
    Once you've identified for your nick, simply run this little script, and it'll connect you to all of the channels that are in your favorites.. even handles multiple networks.

    This can be used from the menu system, or using the /rejoin alias. If isn't specified, then the current network will be used by default.

    500 millisecond delay added to the join command for networks that are fussy regarding joining lots of channels quickly.

     

    Code By: RusselB

  13. Simple Auto Ident for mIRC

    in Scripting Tips and Tricks

    Posted 

    menu * {
  Auto Identify:/dialog -m _auto_ident _auto_ident
}
dialog -l _auto_ident {
  title "Auto Identify"
  size -1 -1 92 96
  option dbu
  list 1, 2 8 89 34, size vsbar
  box "", 2, 0 0 92 87
  edit "", 3, 3 43 50 10, disable autohs
  edit "", 4, 3 53 50 10, disable pass autohs
  text "Nickname", 5, 53 45 36 8, right
  text "Password", 6, 53 55 36 8, right
  button "Add", 8, 2 73 16 12, disable
  button "Edit", 9, 39 73 17 12, disable
  button "Cancel", 10, 56 73 33 12, disable
  button "Del", 20, 18 73 21 12, disable
  edit "", 21, 3 63 50 10, disable autohs
  text "Network", 22, 53 65 36 8, right
  text "Developed by Nikolas/updated by Chain", 23, 1 87 90 8, disable center
}
on *:dialog:_auto_ident:*:*:{
  if ($devent == init) {
    _auto_ident_init
  }
  elseif ($devent == sclick) {
    if ($did == 8) { 
      if (!$hget(_auto_ident,$+($did($dname,3).text,.,$did($dname,21).text))) {
        hadd -m _auto_ident $+($did($dname,3).text,.,$did($dname,21).text) $did($dname,4).text
        did -r $dname 3,4,21
        did -b $dname 8
        _auto_ident_refresh
        _auto_ident_save
      }
      else { noop $input("This Nickname is allready added on your list on the same network,o,Auto Identify) }
    }
    elseif ($did == 1) && ($did($dname,1).seltext) {
      set %_auto_ident_edit 1
      var %name = $gettok($did($dname,1).seltext,1,32)
      var %network = $remove($gettok($did($dname,1).seltext,2,32),$chr(40),$chr(41))
      did -ra $dname 3 %name
      did -ra $dname 4 $+($chr(1),$chr(2),$chr(3),$chr(4))
      did -ra $dname 21 %network
      did -e $dname 9,10,4,20
      did -b $dname 3,8
    }
    elseif ($did == 9) {
      hadd -m _auto_ident $+($did($dname,3).text,.,$did($dname,21).text) $iif($did($dname,4).text == $+($chr(1),$chr(2),$chr(3),$chr(4)),$hget(_auto_ident,$did($dname,3).text),$v1)) 
      did -r $dname 3,4,21 | did -b $dname 9,10,8,20 | did -e $dname 3 | did -u $dname 1
      set %_auto_ident_edit 0  
      _auto_ident_refresh
      _auto_ident_save
    }
    elseif ($did == 10) { 
      did -r $dname 3,4,21
      did -b $dname 9,10,8,20
      did -e $dname 3 
      did -u $dname 1
      set %_auto_ident_edit 0
    }
    elseif ($did == 20) {
      hdel _auto_ident $+($did($dname,3).text,.,$did($dname,21).text)
      did -r $dname 3,4,21
      did -b $dname 9,10,8,20
      did -e $dname 3 
      did -u $dname 1
      set %_auto_ident_edit 0
      _auto_ident_refresh
      _auto_ident_save

    }
  }
  elseif ($devent == edit) {
    if ($did($dname,3).text) && ($did($dname,4).text) && ($did($dname,21).text) && (%_auto_ident_edit != 1) { did -e $dname 8 }
    else { did -b $dname 8 }
  }
}
alias -l _auto_ident_init {
  if (!$hget(_auto_ident)) hmake _auto_ident
  if ($exists(_auto_ident.hsh)) hload _auto_ident _auto_ident.hsh
  else hsave _auto_ident _auto_ident.hsh
  if ($dialog(_auto_ident)) {
    did -e _auto_ident 3,4,21
    _auto_ident_refresh
  }
}
alias -l _auto_ident_refresh {
  did -r _auto_ident 1
  var %i = 1
  var %e = $hfind(_auto_ident,*,0,w)
  while (%i <= %e) {
    var %entry = $hfind(_auto_ident,*,%i,w)
    var %value = $hget(_auto_ident,%entry)
    did -a _auto_ident 1 $gettok(%entry,1,46) ( $+ $gettok(%entry,2,46) $+ )
    inc %i
  }
}
alias -l _auto_ident_save {
  hsave _auto_ident _auto_ident.hsh
}

on *:notice:*:?:{ 
  if ($nick == NickServ) && (*This nickname is registered and protected* iswm $1-) {
    if (!$hget(_auto_ident)) { _auto_ident_init }
    .msg NickServ identify $$hget(_auto_ident,$+($me,.,$network))
  }
}

    This add-on allows you to store your identifies for every nick you have on a network you will specify. The passwords are getting stored in plain text mode, but this wont be a problem. This add-on creates a file called _auto_ident.hsh containing the data of your Nicknames and Identifies on each network.

  16. Channel Closure Script

    in Scripting Tips and Tricks

    Posted 

    ; Oper Tools for TheArkNet
; by Raccoon 2019

; This script assumes that opers are not subject to excess flood disconnect.
; You can access this tool from menu by right-clicking the channel chat area.
; Actions are logged to operclosechan.log
; Example: /operclosechan #badchan You guys are misbehaving!

; /OperCloseChan <#channel_name> <reason_required>
ALIAS OperCloseChan {
  var %chan = $1, %reason = $2-
  if (!%chan) { echo -atic notice * Usage: /OperCloseChan #channel_name This channel is closed due to violation. | return }
  if (!%reason) { echo 4 -ati * OperCloseChan: You MUST specify a reason for closing the channel! | return }
  if ($left(%chan,1) !isin $chantypes) { echo 4 -ati * OperCloseChan: %chan is an invalid channel name! | return }
  if ($me !ison %chan) {
    set -eu10 %_operclosechan. $+ %chan %reason
    !JOIN %chan
    return
  }
  ; -----
  
  MSG %chan This channel has been determined to be in violation of the terms of service for this network and is being closed. $&
    If you have any questions please join #Help and speak to an IRCop.  (Reason: %reason $+ )
  CS CLEAR %chan USERS
  CS CLEAR %chan BANS
  CS DROP %chan %chan
  MODE %chan +muski $regsubex(randomstring,$str(x,10),/x/g,$r(a,z))
  PART %chan
  echo -stic info * OperCloseChan: Closed channel %chan for %reason
  write operclosechan.log $asctime %chan %reason
  
} ; by Raccoon 2019


; End of /NAMES (you joined a channel)
RAW 366:*: {
  var %chan = $2
  if ($($+(%,_operclosechan.,%chan),2)) {
    unset $+(%,_operclosechan.,%chan)
    OperCloseChan %chan $v1
  }
  ; ...
} ; by Raccoon 2019


MENU Channel {
  -
  Oper Tools
  .Close Channel: {
    OperCloseChan $&
      $$input(Enter channel to permanently close.,ews,$active,Oper Tools: Close Channel,$active) $&
      $$input(Enter reason for closing the channel.,ews,$active,Oper Tools: Close Channel)
  }
  ;...
}
; by Raccoon 2019

; eof

     

  19. Auto-identify script.

    in Scripting Tips and Tricks

    Posted

    on *:load:{
      set %email $$?="enter your email address"
      set %nspass $$?="enter your nickserv password"
      set %dnick $$?="enter your default nick"
      echo -a 6-=- Your Default Password Is: %nspass 6-=-
      echo -a 6-=- Your Default Email Is: %email 6-=-
      echo -a 6-=- Your default Nick is %dnick 6-=-
      nick %dnick
    }

    on *:start: {
      nick %dnick
    }

    Menu * {
      Nickname
      .Register Nick
      ..Register: /msg nickserv register %nspass %email
      ..Group Nick: /msg nickserv group %dnick %nspass
      ..Check Info: echo -a 6-=- Your Default Password Is: %nspass 6-=- | echo -a 6-=- Your Default Email Is: %email 6-=- |  echo -a 6-=- Your default Nick is %dnick 6-=-
      ..Change Info
      ...Change Pass: set %nspass $$?="enter your nickserv password" |  echo -a 6-=- Your Default Password Is: %nspass 6-=-
      ...Change Email: set %email $$?="enter your email address" | echo -a 6-=- Your Default Email Is: %email 6-=- 
      ...Change Default Nick: set %dnick $$?="enter your default nick" | echo -a 6-=- Your default Nick is %dnick 6-=-
      .Ghost Nick: /msg nickserv ghost %dnick %nspass | .timer 1 3 nick %dnick
      .Auto Identify
      ..On: enable #autoid
      ..Off: disable #autoid
    }

    on *:NOTICE:*Your nick* isn't registered*:*:{ 
      if ($me == %dnick) { 
        .timer 1 3 echo -a 6-=- Your Nickname Is Not Registered On This Server: $server 6-=-
      }
      if ($me != %dnick) {
        msg nickserv info %dnick all 
        if (Time registered isin $1-) { .timer 1 3 echo -a 6-=- Your Default Nickname %dnick Is Registered On This Server: $server 6-=- }
        if (isn't registered isin $1-) { .timer 1 3 echo -a 6-=- Your Defalut Nick %dnick And Current Nick $me Are Not Registered 6-=- }
      }
    }

    #autoid on
    on *:connect:{
      /msg nickserv identify %nspass
    }
    #autoid end

Footer title

This content can be configured within your theme settings in your ACP. You can add any HTML including images, paragraphs and lists.

Footer title

This is an example of a list.

Footer title

This content can be configured within your theme settings in your ACP. You can add any HTML including images, paragraphs and lists.

Footer title

This content can be configured within your theme settings in your ACP. You can add any HTML including images, paragraphs and lists.

×
×
  • Create New...