-Page 2-
-----GROUPS-----
on $*:TEXT:/^[!@]group/Si:#dkthunder,#dtchat:{
if ($2 !== Barrows) && ($2 !== KBD) && ($2 !== GWD) && ($2 !== help) {
Notice $nick $s2(Please specify the group. Groups avaliable, Barrows - KBD - GWD) }
elseif ($2 == Barrows) {
if ($3 == Event) || ($3 == @event) || ($3 == !event) {
Set %msgstyle.barrowgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%bge == off) {
%msgstyle.barrowgroup $s2(Currently there is no ") $+ $s1(Barrows Group Event) $+ $s2(" set!) }
elseif (%bge !== off) {
%msgstyle.barrowgroup $s2(The current "Barrows Group Event" is:) $s1(%bge $+ !) } }
elseif ($3 == news) || ($3 == @news) || ($3 == !news) {
Set %msgstyle.barrowgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%bgn == off) {
%msgstyle.barrowgroup $s2(Currently there is no ") $+ $s1(Barrows Group News) $+ $s2(" set!) }
elseif (%bgn !== off) {
%msgstyle.barrowgroup $s2(The current "Barrows Group News" is:) $s1(%bgn $+ !) } }
elseif ($3 == set) {
if ($4 == event) {
if (%bge == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %bge $5-
notice $nick $s2(Barrows Group Event set to: %bge)
msg #dkthunder $s2(The "Barrows Group" have got a new event set -) $s1(To veiw this event type "!group barrows !event")
set %bargmsg $s5(Set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) }
elseif (%bge !== off) {
Notice $nick $s1(There is already a "Barrows group event" set) } } }
elseif ($4 == news) {
if (%bgn == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %bgn $5-
notice $nick $s2(Barrows Group News set to: %bgn)
msg #dkthunder $s2(The "Barrows Group" have got some new news set -) $s1(To veiw this event type "!group barrows !news") } }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%bgn !== off) {
Notice $nick $s1(There is already some "Barrows group news" set) }
elseif ($4 !== news) && ($4 !== event) {
notice $nick $s1(You must either set this groups news or event ....) } }
elseif ($3 == del) {
if ($4 == event) {
if (%bge !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %bge off
notice $nick $s1(Barrows group event removed successfully)
set %bargmsg $s3(Non Set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%bge == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no Event for the Barrows Group $+ ....) } }
elseif ($4 == news) {
if (%bgn !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %bgn off
notice $nick $s1(Barrows group's news has been removed successfully) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%bgn == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no News for the Barrows Group $+ ....) } } }
elseif ($3 == info) || ($3 == !info) || ($3 == @info) {
Set %msgstyle.barrowgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.barrowgroup $s1(DT's Barrows Group Info -) $s2(Group Leader:) $s3(Mullet_B0y) $s2(Member Count:) $s3("9" Inc. Leader) $s2(Events for this groups will start running frequently ASAP) }
elseif ($3 == ml) || ($3 == !ml) || ($3 == @ml) {
Set %msgstyle.barrowgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.barrowgroup $s1(As soon as this group hits 20+ member we might create a RuneHead ML for it) $s4(Current ML:) $s2(http://z6.invisionfree.com/The_Dark_Thunder/index.php?showtopic=1342) }
elseif ($3 == $null) {
notice $nick $s1(Please specify either - "event" - "news" - "info" - "ml" -) $s4(e.g. !group barrows !news -) $s2(Thank you) } }
elseif ($2 == KBD) {
if ($3 == Event) || ($3 == @event) || ($3 == !event) {
Set %msgstyle.kbdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%kbde == off) {
%msgstyle.kbdgroup $s2(Currently there is no ") $+ $s1(King Black Dragon Group Event) $+ $s2(" set!) }
elseif (%kbde !== off) {
%msgstyle.kbdgroup $s2(The current "King Black Dragon Group Event" is:) $s1(%kbde $+ !) } }
elseif ($3 == news) || ($3 == @news) || ($3 == !news) {
Set %msgstyle.kbdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%kbdn == off) {
%msgstyle.kbdgroup $s2(Currently there is no ") $+ $s1(King Black Dragon Group News) $+ $s2(" set!) }
elseif (%kbdn !== off) {
%msgstyle.kbdgroup $s2(The current "King Black Dragon Group News" is:) $s1(%kbdn $+ !) } }
elseif ($3 == set) {
if ($4 == event) {
if (%kbde == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %kbde $5-
notice $nick $s2(King Black Dragon Group Event set to: %kbde)
msg #dkthunder $s2(The "King Black Dragon Group" have got a new event set -) $s1(To veiw this event type "!group KBD !event")
set %kbdgmsg $s5(Set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) }
elseif (%kbde !== off) {
Notice $nick $s1(There is already a "King Black Dragon Event" set) } } }
elseif ($4 == news) {
if (%kbdn == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %kbdn $5-
notice $nick $s2(King Black Dragon Group News set to: %kbdn)
msg #dkthunder $s2(The "King Black Dragon Group" have got some new news set -) $s1(To veiw this event type "!group KBD !news") } }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%kbdn !== off) {
Notice $nick $s1(There is already some "King Black Dragon News" set) }
elseif ($4 !== news) && ($4 !== event) {
notice $nick $s1(You must either set this groups news or event ....) } }
elseif ($3 == del) {
if ($4 == event) {
if (%kbde !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %kbde off
notice $nick $s1(King Black Dragon group event removed successfully)
set %kbdgmsg $s3(Non set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%kbde == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no Event for the KBD Group $+ ....) } }
elseif ($4 == news) {
if (%kbdn !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %kbdn off
notice $nick $s1(King Black Dragon group's news has been removed successfully) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%kbdn == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no News for the Barrows Group $+ ....) } } }
elseif ($3 == info) || ($3 == !info) || ($3 == @info) {
Set %msgstyle.kbdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.kbdgroup $s1(DT's King Black Dragon Group Info -) $s2(Group Leader:) $s3(TBD) $s2(Member Count:) $s3("6" Inc. Leader) $s2(Events for this groups will start running frequently ASAP) }
elseif ($3 == ml) || ($3 == !ml) || ($3 == @ml) {
Set %msgstyle.kbdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.kbdgroup $s1(As soon as this group hits 20+ member we might create a RuneHead ML for it) $s4(Current ML:) $s2(http://z6.invisionfree.com/The_Dark_Thunder/index.php?showtopic=1315) }
elseif ($3 == $null) {
notice $nick $s1(Please specify either - "event" - "news" - "info" - "ml" -) $s4(e.g. !group kbd !news -) $s2(Thank you) } }
elseif ($2 == gwd) {
if ($3 == Event) || ($3 == @event) || ($3 == !event) {
Set %msgstyle.gwdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%gwde == off) {
%msgstyle.gwdgroup $s2(Currently there is no ") $+ $s1(God Wars Group Event) $+ $s2(" set!) }
elseif (%gwde !== off) {
%msgstyle.gwdgroup $s2(The current "God Wars Group Event" is:) $s1(%gwde $+ !) } }
elseif ($3 == news) || ($3 == @news) || ($3 == !news) {
Set %msgstyle.gwdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
if (%gwdn == off) {
%msgstyle.gwdgroup $s2(Currently there is no ") $+ $s1(God Wars Group News) $+ $s2(" set!) }
elseif (%gwdn !== off) {
%msgstyle.gwdgroup $s2(The current "God Wars Group News" is:) $s1(%gwdn $+ !) } }
elseif ($3 == set) {
if ($4 == event) {
if (%gwde == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %gwde $5-
notice $nick $s2(God Wars Group Event set to: %gwde)
msg #dkthunder $s2(The "God Wars Group" have got a new event set -) $s1(To veiw this event type "!group gwd !event")
set %gwdgmsg $s5(Set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) }
elseif (%gwde !== off) {
Notice $nick $s1(There is already a "God Wars Group Event" set) } } }
elseif ($4 == news) {
if (%gwdn == off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %gwdn $5-
notice $nick $s2(God Wars Group News set to: %gwdn)
msg #dkthunder $s2(The "God Wars Group" have got some new news set -) $s1(To veiw this event type "!group gwd !news") } }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%gwdn !== off) {
Notice $nick $s1(There is already some "God Wars Group News" set) }
elseif ($4 !== news) && ($4 !== event) {
notice $nick $s1(You must either set this groups news or event ....) } }
elseif ($3 == del) {
if ($4 == event) {
if (%gwde !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %gwde off
notice $nick $s1(God Wars Group event removed successfully)
set %kbdgmsg $s3(Non set) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%gwde == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no Event for the GWD Group $+ ....) } }
elseif ($4 == news) {
if (%gwdn !== off) {
if ($nick isop $chan) || ($nick ishop $chan) {
set %gwdn off
notice $nick $s1(God Wars group's news has been removed successfully) }
elseif ($nick isreg $chan) || ($nick isvoice $chan) {
notice $nick $s1(Sorry $nick - You do not have the power to use that command) } }
elseif (%gwdn == off) {
Notice $nick $s1(Sorry this action could not be carried out, as there is no News for the God Wars Group $+ ....) } } }
elseif ($3 == info) || ($3 == !info) || ($3 == @info) {
Set %msgstyle.gwdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.gwdgroup $s1(DT's King Black Dragon Group Info -) $s2(Group Leader:) $s3(TBD) $s2(Member Count:) $s3("9" Inc. Leader) $s2(Events for this groups will start running frequently ASAP) }
elseif ($3 == ml) || ($3 == !ml) || ($3 == @ml) {
Set %msgstyle.gwdgroup $iif($left($3,1) = @,msg $chan,notice $nick)
%msgstyle.gwdgroup $s1(As soon as this group hits 20+ member we might create a RuneHead ML for it) $s4(Current ML:) $s2(http://z6.invisionfree.com/The_Dark_Thunder/index.php?showtopic=1314) }
elseif ($3 == $null) {
notice $nick $s1(Please specify either - "event" - "news" - "info" - "ml" -) $s4(e.g. !group gwd !news -) $s2(Thank you) } }
elseif ($2 == help) {
Set %msgstyle.groups $iif($left($1,1) = @,msg $chan,notice $nick)
%msgstyle.groups $s1(Command help -) $s2(!group (KBD|Barrows|GWD) ([!@]EVENT|NEWS)) }
}