rendered paste body;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;$ 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