alias users {
who $chan
users2
}
alias users2 {
/lastwords
/topic $chan
write -c users.html <html><head><title>Current Users on $chan </title></head><body bgcolor="black" text="yellow"><center>
write users.html The current topic is <br> $strip(%topic,burcmo) <hr width="50%"> <h2>Current Users in #USA</h2><table border="1" bordercolor="blue">
listppl
}
alias lastwords {
savebuf 10 #usa lastwords.txt
}
alias listppl {
set %i 1
:next
set %nick $nick(#,%i)
if %nick == $null goto done
if %nick isop #usa { /write users.html <tr><td><center> %nick is an Op</center></tr></td> }
elseif %nick ishop #usa { /write users.html <tr><td><center> %nick is a HalfOp</center></tr></td> }
elseif %nick isvoice #usa { /write users.html <tr><td><center> %nick is voiced</center></tr></td> }
elseif %nick isreg #usa { /write users.html <tr><td><center> %nick is a regular user</center></tr></td> }
inc %i
goto next
:done
/write users.html </table><br>
closehtml
}
alias closehtml {
write users.html <hr width="50%"> Last 10 lines of text said.<br> $read(lastwords.txt, 1) <br> $read(lastwords.txt, 2) <br> $read(lastwords.txt, 3) <br> $read(lastwords.txt, 4) <br> $read(lastwords.txt, 5) <br> $read(lastwords.txt, 6) <br> $read(lastwords.txt, 7) <br> $read(lastwords.txt, 8) <br> $read(lastwords.txt, 9) <br> $read(lastwords.txt, 10) <br> <hr width=50%"> Updated Every 10 minutes<br>Last update $asctime(h:nn:ss tt z) GMT <br> This has been updated by : $nick </center></body></html>
upload
}
alias upload {
run transer.bat.pif
.timer 1 15 /msg $chan Hey your famous, your on the net @ http://mrurl.com/
}