Clan greet script

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	3.0
Scores Submitted	1
Date Added	Oct 02, 2007
Last Updated	Oct 04, 2007
Tags	clan greet personal script

Introduction

Clan greet script

Greet clan members, elite clan members, clan leaders and clan friends

commands:
!addmember <nick> / !delmember <nick> (op/hop)
!addelitemember <nick> / !delelitemember <nick> (op/hop)
!addleader <nick> / !delmember <nick> (op)
!addfriend <nick> / !delfriend <nick> (op/hop)
!clangreet <greet? / !delclangreet <greet>

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

Grab the Code

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 
} 
} 
}

Comments

(7) RSS

Go to Bottom

mountaindew

Comments: 1,640

mIRC Snippet: Clan greet script
Posted on Oct 2, 2007 7:28 pm

put it back in mirc, click a tab, then go back to remotes, and repaste it so we can see the spacing ;)

mountaindew

Comments: 1,640

mIRC Snippet: Clan greet script
Posted on Oct 2, 2007 7:33 pm

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

Code:

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...
}
}
}
}

}

KuTsuM

Comments: 139

mIRC Snippet: Clan greet script
Posted on Oct 3, 2007 10:32 pm

Although I didn't understand what mountaindew was pointing out, you need to get rid of the or (||) symbols in your if statement under the !addleader command.

KuTsuM

Comments: 139

mIRC Snippet: Clan greet script
Posted on Oct 3, 2007 10:33 pm

Oh yeah, and you should also check to make sure $2 is specified or else you could get error messages. [if ($2) { }]

mountaindew

Comments: 1,640

mIRC Snippet: Clan greet script
Posted on Oct 4, 2007 2:44 pm

Quote:

Although I didn't understand what mountaindew was pointing out, you need to get rid of the or (||) symbols in your if statement under the !addleader command.

what im saying is, u dont need to check if $nick ishop or isop in more than one on text, just put it once, then put the rest under it

mountaindew

Comments: 1,640

mIRC Snippet: Clan greet script
Posted on Oct 4, 2007 5:18 pm

try this

Code:

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
}
}
}

Sooth

Comments: 6

mIRC Snippet: Clan greet script
Posted on Oct 4, 2007 7:36 pm

Yes I may have a few little errors in it like the extra || but that is because i use this script and my bot, and i gave myself control over it, and for this script i took myself out.

Clan greet script

Introduction

Grab the Code

Comments

Sooth

My Snippet Tags

Contact

Sponsors


Last seen: Mar 12, 2008 Profile Snippets (1) Comments Received (7) Comments Submitted (6) Forum Posts (3)