OK.....firstly this is a proof of concept code..... u will have to first remove there old /op alias.....if you have any problems to mail me
fcastle@good1.com;op script by fcastle -
fcastle@good1.com;example op script
;usage /op <<channel>> nick1 nick2 nick3 nick4 nick5 nick6 nick7 nick8 <-- etc etc etc
;it should just stack them up and push them to the server when it meets the max modes per line
;example op alias
op {
var %C $iif($1 ischan,$1,$active)
;channel declaration
var %X 0
;counter for the loop
var %Y $iif($1 ischan,$numtok($2-,32),$numtok($1-,32))
;top for the counter
set %nick $null
;null the nicks var to build on
while (%X <= %Y) {
;lets start looping
;btw i start at 0 for safetys sake
inc %X
;inc it by 1
if ($gettok($iif($1 ischan,$2-,$1-),%X,32) != $null) {
;check if the nickname is not null
set %nick $addtok(%nick,$gettok($iif($1 ischan,$2-,$1-),%X,32),32)
;fill the nick var with the nickname
}
if ($numtok(%nick,32) >= $netwrk($network).modes) {
;ok number of nicks is more than the modes per line as defined by the network
mode %C $str(+o,$numtok(%nick,32)) %nick
;flush the modes to the server
unset %nick
;unset the nickname var
}
}
mode %C $str(+o,$numtok(%nick,32)) %nick
;final flush to push the overflowed nicks
unset %nick
;unset the var again to maintain clean exit
}
;the raw bit to make thee network.ini file and fill it with the stuff we can use
RAW 005:*: {
var %X 0
;counter for the loop
var %Y $numtok($2-,32)
;top of counter for the loop
while (%X <= %Y) {
;lets start looping
;btw i start at 0 for safetys sake
inc %X
;inc it by 1
if ($gettok($2-,%X,32) == are) { return }
;take evereything after are
elseif ($chr(61) isin $gettok($2-,%X,32)) {
;add all the stuff with a = in it to the ini file
writeini network.ini $iif($network != $null,$network,$server) $gettok($gettok($2-,%X,32),1,61) $gettok($gettok($2-,%X,32),2,61)
}
else {
;add all the other stuff to the ini with 1 to mean enabled
writeini network.ini $network $gettok($2-,%X,32) 1
}
}
}
;netwrk alias
;usage $network(network).property
;propertys dependent on the network
;common propertys are be MODES MAXCHANNELS NICKLEN TOPICLEN MAXBANS MAXTARGETS
alias netwrk {
if (($isid == $true) && ($prop != $null)) {
;make sure were being called as a identifer and we have a property to read
return $iif($readini(network.ini,$1,$prop) != $null,$readini(network.ini,$1,$prop),$null)
;return the asked for property
}
}
