This works for Admin, Owner, Host and Trusted level:
This works for MSN / IRCx and IRCd
on ^*:JOIN:#: {
if ($nick == $me) { goto joinme }
if (Admin_* isin $nick) || (Sysop_* isin $nick) || (Guide_* isin $nick) || (*_Bot isin $nick) { return }
if (Guest_* isin $nick) || (> isin $nick) { goto guest }
if (%historyroom == $null) { return }
if (%historyroom != $null) {
if ($$ial($nick $+ *,1).addr == $gettok($read(ulhistory.txt, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) {
set %line $readn
if (admin isin $level($address($nick,1))) {
goto adminold
}
if (owner isin $level($address($nick,1))) {
goto ownerold
}
if (host isin $level($address($nick,1))) {
goto hostold
}
if (trusted isin $level($address($nick,1))) {
goto trustedold
}
goto normalold
}
else {
if (admin isin $level($address($nick,1))) {
goto adminnew
}
if (owner isin $level($address($nick,1))) {
goto ownernew
}
if (host isin $level($address($nick,1))) {
goto hostnew
}
if (trusted isin $level($address($nick,1))) {
goto trustednew
}
goto normalnew
}
:adminnew {
if ($me isowner $chan) || ($me isop $chan) {
msg $chan 2Welcome $nick i see this is your first visit to %historyroom
msg $chan 2You are in my Admin user list. Write 4@admin 2to see your commands.
write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
return
}
}
:ownernew {
if ($me isowner $chan) || ($me isop $chan) {
msg $chan 2Welcome $nick i see this is your first visit to %historyroom
msg $chan 2You are in my Owner user list. Write 4@owner 2to see your commands.
write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
return
}
}
:hostnew {
if ($me isowner $chan) || ($me isop $chan) {
msg $chan 2Welcome $nick i see this is your first visit to %historyroom
msg $chan 2You are in my Host user list. Write 4@host 2to see your commands.
write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
return
}
}
:trustednew {
if ($me isowner $chan) || ($me isop $chan) {
msg $chan Welcome $nick i see this is your first visit to %historyroom
msg $chan You are in my Trusted user list. Write @trust to see your commands.
write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
return
}
}
:normalnew {
return
}
:adminold {
if ($me isowner $chan) || ($me isop $chan) {
if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Admin user list write 4@admin 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Admin user list write 4@admin 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
}
}
:ownerold {
if ($me isowner $chan) || ($me isop $chan) {
if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Owner user list write 4@owner 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Owner user list write 4@owner to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
}
}
:hostold {
if ($me isowner $chan) || ($me isop $chan) {
if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Host user list write 4@host 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Host user list write 4@host 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
}
}
:trustedold {
if ($me isowner $chan) || ($me isop $chan) {
if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32)
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
msg $chan 2Hi $nick Welcome back to %historyroom
msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands.
msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32))
write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
}
}
:normalold {
return
}
:guest {
msg $chan 2Welcome $nick $+ , Hope ya register your nickname soon $+ .
}
:joinme {
timer.j1. $+ $rand(000,111) 1 2 check.isopowner
}
}
}
alias check.isopowner {
if ($me isowner $chan) || ($me isop $chan) {
set %historyroom $chan
}
}
IRCD addons
in IRCd Addons
Posted
The history onjoin is nice but can be better
if ppl are in level on your script.
This works for Admin, Owner, Host and Trusted level:
This works for MSN / IRCx and IRCd
on ^*:JOIN:#: { if ($nick == $me) { goto joinme } if (Admin_* isin $nick) || (Sysop_* isin $nick) || (Guide_* isin $nick) || (*_Bot isin $nick) { return } if (Guest_* isin $nick) || (> isin $nick) { goto guest } if (%historyroom == $null) { return } if (%historyroom != $null) { if ($$ial($nick $+ *,1).addr == $gettok($read(ulhistory.txt, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) { set %line $readn if (admin isin $level($address($nick,1))) { goto adminold } if (owner isin $level($address($nick,1))) { goto ownerold } if (host isin $level($address($nick,1))) { goto hostold } if (trusted isin $level($address($nick,1))) { goto trustedold } goto normalold } else { if (admin isin $level($address($nick,1))) { goto adminnew } if (owner isin $level($address($nick,1))) { goto ownernew } if (host isin $level($address($nick,1))) { goto hostnew } if (trusted isin $level($address($nick,1))) { goto trustednew } goto normalnew } :adminnew { if ($me isowner $chan) || ($me isop $chan) { msg $chan 2Welcome $nick i see this is your first visit to %historyroom msg $chan 2You are in my Admin user list. Write 4@admin 2to see your commands. write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { return } } :ownernew { if ($me isowner $chan) || ($me isop $chan) { msg $chan 2Welcome $nick i see this is your first visit to %historyroom msg $chan 2You are in my Owner user list. Write 4@owner 2to see your commands. write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { return } } :hostnew { if ($me isowner $chan) || ($me isop $chan) { msg $chan 2Welcome $nick i see this is your first visit to %historyroom msg $chan 2You are in my Host user list. Write 4@host 2to see your commands. write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { return } } :trustednew { if ($me isowner $chan) || ($me isop $chan) { msg $chan Welcome $nick i see this is your first visit to %historyroom msg $chan You are in my Trusted user list. Write @trust to see your commands. write -n ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { return } } :normalnew { return } :adminold { if ($me isowner $chan) || ($me isop $chan) { if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Admin user list write 4@admin 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Admin user list write 4@admin 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32)) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } } } :ownerold { if ($me isowner $chan) || ($me isop $chan) { if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Owner user list write 4@owner 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Owner user list write 4@owner to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32)) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } } } :hostold { if ($me isowner $chan) || ($me isop $chan) { if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Host user list write 4@host 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Host user list write 4@host 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32)) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } } } :trustedold { if ($me isowner $chan) || ($me isop $chan) { if ($nick == $gettok($read(ulhistory.txt,%line),2,32)) { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } else { msg $chan 2Hi $nick Welcome back to %historyroom msg $chan 2You are in my Trusted user list write 4@trust 2to see your commands. msg $chan 2You were last here on the $gettok($read(ulhistory.txt,%line),4,32) at $gettok($read(ulhistory.txt,%line),3,32) and were known as $gettok($read(ulhistory.txt,%line),2,32)) write -l %line ulhistory.txt $$ial($nick $+ *,1).addr $nick $time $date $chan return } } } :normalold { return } :guest { msg $chan 2Welcome $nick $+ , Hope ya register your nickname soon $+ . } :joinme { timer.j1. $+ $rand(000,111) 1 2 check.isopowner } } } alias check.isopowner { if ($me isowner $chan) || ($me isop $chan) { set %historyroom $chan } }; official code by ozzy10
; edited by tha-doctor