Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; This mIRC script lets you search users by REALNAME mask and make them join your channel
- ; You have to prepare file named "ids.txt" with REALNAME ids of people you like to join your channel
- ; Each REALNAME record has to start as newline. Put this file to the following directory:
- ; (Your hard drive where mIRC is installed)/users/(Your User Name)/Application Data/mIRC
- ; For example it might be the following file: C:/users/root/Application Data/mIRC/ids.txt
- ; To get simple REALNAME record run "/who yournick" in IRC to see your own REALNAME record (after :0)
- ; Next, add the following script lines to the mIRC - Tools - Script editor (Alt+R) - Remote section
- ; After you add them at the bottom, please run the script like following:
- ; /usearch #channel-to-search #channel-to-invite
- ; NEW VERSION 4.22 written by Security XIII on 26.12.2014
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ; custom alias "/usearch #channel-to-search #invite-channel"
- alias usearch {
- ; request names list
- who $$1
- ; global variable storing the name of the channel
- set -en %usearch $1
- set -en %invitech $2
- set -en %word 1
- unset %compare
- }
- ; who reply
- raw 352:*: {
- ; reply is for the channel in question
- if ($2 == %usearch) {
- echo -a UserID: %word
- set %unick $6
- ;who %unick
- set %urealname $9-
- echo -a UserNick: %unick
- echo -a UserRealName: %urealname
- while ($read(ids.txt, nw, %urealname $+ *, $calc($readn + 1))) set %compare $v1
- echo -a comparing %urealname to $left(%compare,50)
- if %urealname == $left(%compare,50)) { SAJOIN %unick %invitech }
- else { echo -a user realname not found in list }
- inc %word
- unset %compare
- ; halt default display
- haltdef
- }
- }
- ; 'end of who' reply
- raw 315:*: {
- ; reply is for the channel in question
- if ($2 == %usearch) {
- unset %usearch
- haltdef
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement