Tha-Doctor

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