;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$ mIRC™ RAW Nick Creator ;$ Version 1.0 ;$ Type : Addons ;$ Author : L0nely^C0wboy ;$ eMail : lonelycowboy@zotalk.com ;$ Date : 11/05/2006 ;$ Alias : /raw-bot ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$ Credits : don_will (Net-Admin) ;$ Mizofa IRC Network ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ /* Menus */ menu * { - $chr(164) $+ ( $+ $chr(32) RAW BOT Creator $+ $chr(32) ) $+ $chr(164) .Create RAW Bot:raw-bot .- .About:_ab_ .Unload: { echo $color(info) -a »» Thank you for using RAW Nick Creator v1.0 $_spa_ echo $color(info) -a »» Successfully unloaded $script | .unload -rs $+(",$script,") } - } /* Load Event */ on *:load:{ echo $color(info) -a »» Thank you for using RAW Nick Creator v1.0 $_spa_ echo $color(info) -a »» To use this addon right-click or type /raw-bot to create bot } /* Aliases */ alias kmb return $mircdirmirc.exe alias _12 { echo $color(info) -a $chr(187) $+ $chr(187) $1- } alias -l _spa_ { return $chr(98) $+ $chr(121) $+ $chr(32) $+ $chr(76) $+ $chr(48) $+ $chr(110) $+ $chr(101) $+ $chr(108) $& $+ $chr(121) $+ $chr(94) $+ $chr(67) $+ $chr(48) $+ $chr(119) $+ $chr(98) $+ $chr(111) $+ $chr(121) } alias _ab_ { if ($dialog(raw-about)) { dialog -o raw-about dialog -n raw-about } else { dialog -m raw-about raw-about } } alias raw-bot { if ($dialog(raw-bot)) { dialog -o raw-bot dialog -n raw-bot } else { dialog -m raw-bot raw-bot } } alias _raw_bot_create { .msg operserv raw nick %raw-bot-nick 1 1 %raw-bot-identd %raw-bot-host %raw-bot-services %raw-bot-name .msg operserv raw : $+ %raw-bot-nick join %raw-bot-channel } alias raw_close_bot { dialog -x raw-bot raw-bot } /* Dialogs */ dialog raw-bot { title ":: RAW Nick Creator :: Version 1.0 :: © 2006" icon $kmb, 0 size -1 -1 199 198 option dbu box "", 15, 4 36 192 135 box "", 13, 4 0 192 22 text "Enter Bot Nickname:", 1, 8 43 50 8 edit "", 2, 60 43 132 10, multi text "Enter Bot Identd:", 3, 8 63 50 8 edit "", 4, 60 63 132 10 text "Enter Bot vHost:", 5, 8 83 50 8 edit "", 6, 60 83 132 10 text "Enter Bot full/realname:", 7, 8 103 58 9 edit "", 8, 68 103 124 10 text "Enter your network Services Server name:", 9, 8 123 109 7 edit "", 10, 81 130 111 10 text "Enter channel name the BOT will join:", 11, 8 151 92 9 edit "", 12, 104 151 88 10 text "~!~!~!~!~:: RAW Nick Creator :: Version 1.0 ::~!~!~!~!~", 14, 23 5 145 8 box "", 18, 8 56 184 5 box "", 19, 8 76 184 5 box "", 21, 8 96 184 5 box "", 23, 8 116 184 5 text "Example: services.zotalk.com", 24, 8 130 72 8 box "", 25, 8 142 184 5 text "Example: #AizawlChat", 26, 8 159 56 8 box "", 27, 4 172 192 23 icon 28, 8 177 20 17, $kmb, 0 button "&ABOUT", 29, 30 179 32 12 button "C&REATE RAW BOT NOW", 30, 70 179 83 12 button "&CLOSE", 31, 160 179 32 12, ok text "• Only for IRCop (Services Admin and above) •", 16, 39 13 114 8 text "PLEASE NOTE THAT ALL FIELDS ARE REQUIRED OR ELSE IT WOULDN'T FUNCTION", 17, 39 23 119 14, center } dialog raw-about { title ":: About :: RAW Nick Creator :: Version 1.0 ::" size -1 -1 260 185 icon $kmb, 0 option dbu box "About this addon :", 1, 3 1 125 90 text "Script Author: L0nely^C0wboy", 2, 8 9 80 8 text "E-mail: lonelycowboy@zotalk.com", 3, 8 17 81 8 text "Version: 1.0", 4, 8 25 31 8 text "Description: By using this addon, services-administrator and above can create a RAW BOT and make them join any channels they want; without using one of those BotServ's BOT Command ;) Using RAW command for creating RAW BOT is dangerous, but using this addon any Services-Admin can create RAW BOT at ease with a correct RAW format.", 5, 8 34 116 54, center box "Credits :", 6, 132 1 124 90 text "All credits on this addon goes to don_will (Network Admin - Mizofa IRC Network) because I modified his code, so that Services-Admin will easily create a RAW BOT using this addon. So, thanks don_will (Albert) for your code and your contribution. Yo! don_will, without you, i knew that this addon wouldn't exists. Keep up the good work buddy ;-)", 7, 135 21 117 53, center box "Disclaimer :", 8, 3 92 253 76 text "This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. THIS ADDON IS DISTRIBUTED 'AS IS'. NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. YOU USE AT YOUR OWN RISK. NEITHER THE AUTHOR NOR THE CREDITS HOLDER WILL BE LIABLE FOR DATA LOSS, DAMAGES, LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS ADDON.", 9, 8 100 244 52, center text "All rights not expressly granted here are reserved by L0nely^C0wboy. Copyright © 2006", 10, 41 153 180 14, center button "===== &OKHAY, I GOT IT =====", 11, 60 171 136 12, ok } /* Events */ on *:dialog:raw-bot:sclick:*: { if ($did = 28) { _12 :: RAW Nick Creator :: Version 1.0 :: $_spa_ } if ($did = 29) _ab_ if ($did = 30) { %raw-bot-nick = $did(2) | %raw-bot-identd = $did(4) | %raw-bot-host = $did(6) %raw-bot-name = $did(8) | %raw-bot-services = $did(10) | %raw-bot-channel = $did(12) if ($did(2) == $null) { _12 4ERROR: Please specify a bot nickname ;4) return } if ($chr(32) isin $did(6)) { _12 4ERROR: Bot vHost cannot contain spaces ;4) did -r $dname 6 return } if ($chr(46) !isin $did(6)) { _12 4ERROR: Bot vHost must have atleast one dot '.' did -r $dname 6 return } if ($chr(35) !isin $did(12)) { _12 4ERROR: Invalid channel name. Please specify channel prefix '#' did -r $dname 12 return } if !$regex($did(6),/^(?:[-a-zA-Z0-9.]*)$/) { _12 4ERROR: Bot vHost may only contain ( a-z, A-Z, 0-9, '-' & '.' ) did -r $dname 6 return } if ($did(10) == $null) { _12 4ERROR: Please specify your services server name ;4) return } if ($did(8) == $null) { _12 4ERROR: Please specify your bot full/realname ;4) return } if ($did(4) == $null) { _12 4ERROR: Please specify your bot Identd ;4) return } if ($len($did(4)) > 10) { _12 4ERROR: Bot Identd is too long. Please choose an Identd shorter than 10 characters ;4) did -r $dname 4 return } else { _raw_bot_create raw_close_bot unset %raw* } } } ;$ End of Code $ ;$ Suggestions, comments, bugs/errors: http://zotalk.com/forums ;$ Or /Server Irc.Zotalk.Com -jn #Help ;$ Copyright © 2006