Clan greet script
Greet clan members, elite clan members, clan leaders and clan friends
commands:
!addmember / !delmember (op/hop)
!addelitemember / !delelitemember (op/hop)
!addleader / !delmember (op)
!addfriend / !delfriend (op/hop)
!clangreet <greet? / !delclangreet
Preview
[LINE 1]Welcome Clan MEMBER [Sooth]
[LINE 2]GREET: ...
[LINE 3]A MEMBER has joined this channel 1262 times
([LINE #] not in script)
It's not as compact as it could be, but it fuctions well.
FILL IN YOUR OWN CLAN NAME WHERE IT SAYS ' CLAN NAME' You can cusomize it so it says for example
Welcome Dark Slayer [Sooth]
GREET: ...
A Dark Slayer has joined this channel 1262 times
on *:TEXT:!addmember*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
set %member $addtok(%member,$2,32)
msg $chan $2 has been added to the 8,1CLAN NAME
member date base
}
}
on *:TEXT:!delmember*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
unset %emember $addtok(%member,$2,32)
msg $chan $2 has been removed from the 8,1CLAN NAME member data base
}
}
on *:TEXT:!addleader*:#: {
if ($nick isop $chan) {
set %leader $addtok(%leader,$2,32)
msg $chan $2 has been added to the 8,1CLAN NAME
Leader data base
}
}
on *:TEXT:!delleader*:#: {
if ($nick isop $chan) {
unset %leader $addtok(%leader,$2,32)
msg $chan $2 has been removed from the 8,1CLAN NAME
leader data base
}
}
on *:TEXT:!addelitemember*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
set %emember $addtok(%emember,$2,32)
msg $chan $2 has been added to the 8,1CLAN NAME
elite data base
}
}
on *:TEXT:!delelitemember*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
unset %emember $addtok(%emember,$2,32)
msg $chan $2 has been removed from the 8,1CLAN NAME Elite Assassin member data base
}
}
on *:TEXT:!addfriend*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
set %friend $addtok(%friend,$2,32)
msg $chan $2 has been added to the 8,1CLAN NAME
4,1 friend data base
}
}
on *:TEXT:!delfriend*:#: {
if ($nick isop $chan) || ($nick ishop $chan) {
unset %friend $addtok(%friend,$2,32)
msg $chan $2 has been removed from the 8,1CLAN NAME
friend data base
}
}
on *:TEXT:!clangreet*:#: {
set %clangreet [ $+ [ $nick ] ] $2-
/notice $nick Your greet is now: $2-
}
on *:TEXT:!Delclangreet:#: {
if (%clangreet [ $+ [ $nick ] ] == $null) { /notice $nick You can't delete your greet! You don't even have one! }
else unset %clangreet [ $+ [ $nick ] ]
/notice $nick You greet has been deleted!
}
on *:JOIN:#CLANCHANNEL: {
if ($istok(%member,$nick,32)) {
inc %mj 1
/msg $chan 4,1Welcome 8CLAN NAME MEMBER15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don't have a greet set! Type !clangreet <GREET> to set one!
else /msg $chan GREET: %CLANgreet [ $+ [ $nick ] ]
/msg $chan A MEMBER has joined this channel %mj times }
elseif ($istok(%friend,$nick,32)) {
inc %fj 1
/msg $chan 4,1Welcome 8CLAN NAME 15 12friend15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don't have a greet set! Type !clangreet <GREET> to set one!
else /msg $chan GREET: %clangreet [ $+ [ $nick ] ]
/msg $chan A friend has joined this channel %fj times
}
elseif ($istok(%emember,$nick,32)) {
inc %ej 1
/msg $chan 4,1Welcome 8CLAN NAME 12Elite8 MEMBER15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don't have a greet set! Type !clangreet <GREET> to set one!
else /msg $chan GREET: %clangreet [ $+ [ $nick ] ]
/msg $chan An Elite MEMBER has joined this channel %ej times
}
elseif ($istok(%leader,$nick,32)) {
inc %lj 1
/msg $chan 4,1Welcome 8CLAN NAME15 12LEADER8 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don't have a greet set! Type !clangreet <GREET> to set one!
else /msg $chan GREET: %clangreet [ $+ [ $nick ] ]
/msg $chan A Leader has joined this channel %lj times
}
}
}
try this
on *:load: { set %clan $$?=\"What is your clan name?\" | set %clanchan $$?=\"What channel is the clan for?\" }
on *:text:*:{
if ($chan == %clanchan) {
if ($2) {
if ($1 == !clangreet) {
set %clangreet [ $+ [ $nick ] ] $2-
notice $nick Your greet is now: $2-
}
if ($1 == !delclangreet) {
if (!%clangreet [ $+ [ $nick ] ]) {
unset %clangreet [ $+ [ $nick ] ]
notice $nick Your greet has been deleted!
}
else notice $nick You don\'t have a greet, how can you delete it?
}
if ($nick isop $chan || $nick ishop $chan) {
if ($1 == !addmember) {
if (!$istok(%member,$2,32) {
set %member $addtok(%member,$2,32)
msg $chan $2 has been added to the %clan database.
}
else msg $chan $2 is already in the %clan database.
}
if ($1 == !delmember) {
if ($istok(%member,$2,32) {
set %member $remtok(%member,$2,1,32)
msg $chan $2 has been removed from the %clan database.
}
else msg $chan $2 isn\'t in the %clan database.
}
if ($1 == !addelitemember) {
if (!$istok(%emember,$2,32)) {
set %emember $addtok(%emember,$2,32)
msg $chan $2 has been added to the %clan elite database.
}
else msg $chan $2 Is already in the %clan elite database.
}
if ($1 == !delelitemember) {
if ($istok(%emember,$2,32) {
set %emember $remtok(%emember,$2,1,32)
msg $chan $2 has been removed from the %clan elite member database.
}
else msg $chan $2 Isn\'t in the %clan elite member database.
}
if ($nick isop $chan) {
if ($1 == !addfriend) {
if (!$istok(%friend,$2,32) {
set %friend $addtok(%friend,$2,32)
msg $chan $2 has been added to the %clan friends database.
}
else msg $chan $2 is already in the %clan friends database.
}
if ($1 == !delfriend) {
if ($istok(%friend,$2,32) {
set %friend $remtok(%friend,$2,1,32)
msg $chan $2 has been removed from the %clan friends database.
}
else msg $chan $2 isn\'t in the %clan friends database.
}
if ($1 == !addleader) {
if (!$istok(%leader,$2,32) {
set %leader $addtok(%leader,$2,32)
msg $chan $2 has been added to the %clan leader database.
}
else msg $chan $2 is already in the %clan leader database.
}
if ($1 == !delleader) {
if ($istok(%leader,$2,32) {
set %leader $remtok(%leader,$2,1,32)
msg $chan $2 has been removed from the %clan leader database.
}
else msg $chan $2 isn\'t in the %clan leader database.
}
}
elseif ($nick !isop $chan) msg $chan You must be op.
}
elseif ($nick !ishop $chan || $nick !isop $chan) msg $chan You muse be halfop or op.
}
else msg $chan Please supply a $nick
}
}
on *:JOIN:#: {
if ($chan == %clanchan) {
if ($istok(%member,$nick,32)) {
inc %mj 1
msg $chan 4,1Welcome 8%clan15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one!
else msg $chan GREET: %CLANgreet [ $+ [ $nick ] ]
msg $chan A MEMBER has joined this channel %mj times }
if ($istok(%friend,$nick,32)) {
inc %fj 1
msg $chan 4,1Welcome 8%clan15 12friend15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one!
else msg $chan GREET: %clangreet [ $+ [ $nick ] ]
msg $chan A friend has joined this channel %fj times
}
if ($istok(%emember,$nick,32)) {
inc %ej 1
msg $chan 4,1Welcome 8%clan12Elite8 MEMBER15 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one!
else msg $chan GREET: %clangreet [ $+ [ $nick ] ]
msg $chan An Elite MEMBER has joined this channel %ej times
}
if ($istok(%leader,$nick,32)) {
inc %lj 1
msg $chan 4,1Welcome 8%clan15 12LEADER8 $nick
if (%clangreet [ $+ [ $nick ] ] == $null) notice $nick You don\'t have a greet set! Type !clangreet <GREET> to set one!
else msg $chan GREET: %clangreet [ $+ [ $nick ] ]
msg $chan A Leader has joined this channel %lj times
}
}
}
if u do, ull see theres an extra } at the end
also, instead of doing if ($nick ishop $chan || $nick isop $chan) or if ($nick isop $chan) just do
on *:texT:*:#channel:{
if ($nick ishop $chan || $nick isop $chan) {
if ($1 == delfriend) {
unset...
msg...
}
if ($1 == deletemember) {
unset...
msg...
}
if ($nick isop $chan) {
if ($1 == !addleader) {
set...
msg...
}
if ($1 == etc...) {
etc...
}
}
}
}
}