By Dutchmaster on Jul 10, 2009This code will allow you to add and delete members to your clan roster
it gives a notice of your current roster to user which join your public channel
Commands are:
!addleader
!addmember
!addtrial
!delleader
!delmember
!deltrial
to set it up use:
/set %publicchannel #channel
/set %privatechannel #channel
/set %clantag "your-clan-name-or-tag-here"
Dutchmaster
|-------------------------------------------------|
| |
| Clan Roster mIRC Script by © Dutchmaster 2009 | _____ _ _ _
| | | __ \ | | | | | |
| First Steps: set your Channels and Clan Tag | | | | |_ _| |_ ___| |__ _ __ ___ __ _ ___| |_ ___ _ __
| "use /set in your bots status console" | | | | | | | | __/ __| '_ \| '_ ` _ \ / _` / __| __/ _ \ '__|
| | | |__| | |_| | |_|(__| | | | | | | | | (_| \__ \ |_| __/ |
| - /set %publicchannel #Channel | |_____/ \____|\__\___|_| |_|_| |_| |_|\__,_|___/\__\___|_|
| - /set %privatechannl #Channel |
| - /set %clantag <Clanname/Clantag> |
| | ,---.
| | ,.'-. \
| Commands: | ( ( ,'"""""-.
| - !addleader to add a Leader | `,X `.
| - !addmember to add a Member | /` ` `._
| - !addtrial to add a Trial | ( , ,_\
| | | ,---.,'o `.
| - !delleader to delete a Leader | | / o \ )
| - !delmember to delete a Member | \ ,. ( .____,
| - !deltrial to delete a Trial | \| \ \____,' \
| | '`'\ \ _,____,'
|-------------------------------------------------| \ ,-- ,-' \
( C ,' \
`--' .' |
| | .O |
__| \ ,-'_
on *:join:%publicchannel: { / `L `._ _,' ' `.
if ($nick == $me) { / `--.._ `',. _\ `
halt `-. /\ | `. ( ,\ \
} _/ `-._ / \ |--' ( \
else { ' `-. `' \/\`. `. )
\ \ `. | |
if ($read(roster.db,t,1) != $chr(255)) {
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
notice $nick 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(bot.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
}
}
on *:text:!addleader *:%publicchannel,%privatechannel: {
if ($nick isop $chan) && ($2 !isin $gettok(%leaders,1-,44)) {
var %leaders = $read(roster.db,t,1)
if ($chr(255) == %leaders) {
write -l1 roster.db $null
}
var %leaders = $read(roster.db,t,1)
var %leaders = $addtok(%leaders,$2,44)
write -l1 roster.db %leaders
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
elseif ($nick isop $chan) && ($2 isin $gettok(%leaders,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is already added as a member.
}
}
on *:text:!delleader *:%publicchannel,%privatechannel: {
var %leaders = $read(roster.db,t,1)
if ($nick isop $chan) && ($2 !isin $gettok(%leaders,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is not a leader.
}
if ($nick isop $chan) && ($2 isin $gettok(%leaders,1-,44)) && ($gettok(%leaders,2,44) != $null) {
var %leaders = $remtok(%leaders,$2,44)
write -l1 roster.db %leaders
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
}
on *:text:!addmember *:%publicchannel,%privatechannel: {
if ($nick isop $chan) && ($2 !isin $gettok(%members,1-,44)) {
var %members = $read(roster.db,t,2)
if ($chr(255) == %members) {
write -l2 roster.db $null
}
var %members = $read(roster.db,t,2)
var %members = $addtok(%members,$2,44)
write -l2 roster.db %members
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
elseif ($nick isop $chan) && ($2 isin $gettok(%members,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is already added as a member.
}
}
on *:text:!delmember *:%publicchannel,%privatechannel: {
var %members = $read(roster.db,t,2)
if ($nick isop $chan) && ($2 !isin $gettok(%members,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is not a member.
}
if ($nick isop $chan) && ($2 isin $gettok(%members,1-,44)) && ($gettok(%members,2,44) != $null) {
var %members = $remtok(%members,$2,44)
write -l2 roster.db %members
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
}
on *:text:!addtrial *:%publicchannel,%privatechannel: {
if ($nick isop $chan) && ($2 !isin $gettok(%trials,1-,44)) {
var %trials = $read(roster.db,t,3)
if ($chr(255) == %trials) {
write -l3 roster.db $null
}
var %trials = $read(roster.db,t,3)
var %trials = $addtok(%trials,$2,44)
write -l3 roster.db %trials
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
elseif ($nick isop $chan) && ($2 isin $gettok(%trials,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is already added as a trial.
}
}
on *:text:!deltrial *:%publicchannel,%privatechannel: {
var %trials = $read(roster.db,t,3)
if ($nick isop $chan) && ($2 !isin $gettok(%trials,1-,44)) {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- $2 14is not a trial.
}
if ($nick isop $chan) && ($2 isin $gettok(%trials,1-,44)) && ($gettok(%trials,2,44) != $null) {
var %trials = $remtok(%trials,$2,44)
write -l3 roster.db %trials
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
if ($nick isop $chan) && ($2 isin $gettok(%trials,1-,44)) && ($gettok(%trials,2,44) == $null) {
write -l3 roster.db $chr(255)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 Roster has been updated.
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 0
}
}
on *:text:!roster:%publicchannel,%privatechannel: {
if ($read(roster.db,t,1) != $chr(255)) {
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
else {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 There is no roster set. Operators may add Leaders, Members and Trials by 0!ADDLEADER14, 0!ADDMEMBER14 and 0!ADDTRIAL14 respectively.
}
}
on *:text:!members:%publicchannel,%privatechannel: {
if ($read(roster.db,t,1) != $chr(255)) {
var %leaders = $read(roster.db,t,1)
var %leaders1 = $replace(%leaders,$chr(44),$chr(44) $+ $chr(32))
var %trials = $read(roster.db,t,3)
var %trials1 = $replace(%trials,$chr(44),$chr(44) $+ $chr(32))
var %members = $read(roster.db,t,2)
var %members1 = $replace(%members,$chr(44),$chr(44) $+ $chr(32))
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0- LEADERS:14 %leaders1 0- MEMBERS:14 %members1 $iif($read(roster.db,t,3) != $chr(255), 0- TRIALS:14 %trials1, $null) 0
}
else {
msg # 0,1[14 $upper(%clantag) ROSTER 0] 0-14 There is no roster set. Operators may add Leaders, Members and Trials by 0!ADDLEADER14, 0!ADDMEMBER14 and 0!ADDTRIAL14 respectively.
}
}
why you're making such a problem of this?
if it was so easy then do it yourself
it's the first script i actually made
and the ascii art im just proud of...
i dont care if you think i'm a kid
i dont care if you can do it better, THE DO IT
i also dont care if you think im a douchebag
and i also dont care about your comment or any other comment
why i posted this:
to help others with their roster
to have some credit of my friends who use it
to show my ascii art skills
to make people laugh
to get you enoyed?
YES
no go fuck off somewhere else
and post you own script and then comment it with crap
how can i know that its so SIMPLE to use
on *:load {
set %publicchan $$?="What is the public channel?"
}
i do this in my free time so w/e
Why make this script so complicated? I see no point in wasting so much time on something so useless.
Also, instead of making commands for /set whatever you should make it ask for the %publicchan and whatnot on load.
on *:load {
set %publicchan $$?="What is the public channel?"
}
And that's SIMPLE So....
EDIT--
Remove the ASCII logo. It can get in the way of the code. Instead of uploading something and being a little douche about it and saying:
"anyway if you dont like it remove it"
You can stop being a little stuck up child and remove it yourself. When somebody makes a comment on something you post for people to see, why don't you just make it user-friendly? Don't argue people when they try to help you on your code.