
parse arg port' 'string
ADDRESS(port)
OPTIONS RESULTS
if ~exists('ENV:LamerKiller/WORDKICK') then exit
'GETMYNICK'
MyNick = RESULT
parse var string ':'nick'!'username'@'dynamic'.'domain' PRIVMSG 'channel' 'Sentence
Cause = 'WordKick'
'GETCHANNEL'
checkchannel = RESULT
if checkchannel = channel then do
'GETUSERS'
UserChan = RESULT
opstatus = find(UserChan,'@'Mynick)
if opstatus = 0 then exit
end
Version = '|LaMeR KiLLeR|'
U = '16'x
B = '02'x
if open(chanlist,"ENV:LamerKiller/ChanList","READ") then do
do while eof(chanlist)=0
chanline = readln(chanlist)
wordchan = upper(word(chanline,1))
wordswitch = upper(word(chanline,2))
if wordchan = upper(channel) then do
if wordswitch ~= "WORDKICK" then exit;
end
end
end
if open(mots,"ENV:LamerKiller/WORDLIST","READ") then do
do while eof(mots)=0
ligne = readln(mots)
wordk = upper(word(ligne,1))
sentence = upper(sentence)
explanation = strip(delstr(ligne,1,wordlength(ligne,1)))
if index(sentence,wordk) > 0 then do
open(userlist,"ENV:LaMeRKiLLeR/UserList","READ")
do while ~eof(userlist)
usl = readln(userlist)
HIGH=0;
MID=0;
LOW=0;
TOTAL=0;
parse var usl unick'!'uusername'@'udynamic'.'udomain status modepro wordkick
if unick~="*" then do
if upper(nick)=upper(unick) then MID=1;
end
if udynamic~="*" then do
if dynamic=udynamic then LOW=2;
end
if uusername~="*" then do
if uusername=username then HIGH=1;
end
if udomain~="*" then do
if domain=udomain then LOW=2;
end
TOTAL=LOW+HIGH+MID
if TOTAL>2 then do
if wordkick="FREEWORD" then exit
end
end
'SAY' "/kick" channel nick B cause B '['U wordk U']' explanation version
end
end
end
 