NL = '0a'x
bold=d2c(2)
Options Results
parse arg host bot
address(host)
if bot ~="" then do
'say /DEOP' bot
end
GETUSERS
UserList = Result
'GETMYNICK'
MyNick = Result
found = find(UserList,'@'Mynick)
Call message("Deop|Deoping all channel ops...")
if found > 0 then do
UserList = Delword(UserList,found,1)
UserList = Strip(Translate(UserList,'','@'))
Done = 0 ; LST = '' ; i = 0
Do while ~done
If Length(UserList) ~> 0 then do
Call Message("Deop|Error: Nobody to DEOP!")
Exit
End
LST = Strip(Word(UserList,i+1)' 'Word(UserList,i+2)' 'Word(UserList,i+3)' 'Word(UserList,i+4)' 'Word(UserList,i+5)' 'Word(UserList,i+6))
If Words(LST) < 6 then done = 1
'SAY /mode -oooooo' LST
LST = '' ; i = i+6
End
End
Else call message("Deop|Error, You are not channel operator.")
Exit 
Message:
parse arg insert'|'text
if trim(text)="" then text="------------------------------------"
"echo P="d2c(27)"b«"insert"» "text
return

 