well...it's my very first snippet, and its very usefull!!! hope u enjoy useing it :-) its a personal seen module... just hold alt and press R paste and it's yours. simply type /lastseen have fun
;Personal seen module v0.2
;Coded by PePpEr
;Email:PePpEriRC@Gmail.com
on *:load:{
echo -a 5<<<Loaded>>> PeppEr's personal Seen module | echo -a 5Please type: /lastseen to launch the module.
if ($exists(data\seen.txt) == $false) { mkdir data | write -c data\seen.txt }
_vw msgrouter version lastsee1.1
_vw lastseen switch 1
_vw lastseen logquits 1
_vw lastseen logparts 1
_vw lastseen lognick 1
_vw lastseen logkicks 1
}
;[read write data/setting.ini]
alias _vr {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
return $readini data\setting.ini $1 $2
}
alias _vw {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
writeini data\setting.ini $1 $2 $3-
}
alias _vrem {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
remini data\setting.ini $1 $2
}
alias lastseensw {
if ($_vr(lastseen,switch) == 1) return (on)
else return (off)
}
on *:TEXT:!seen*:#: {
if ($_vr(lastseen,switch) == 1) {
if (%ty >= 3) {
if ($me ison $chan) { .ignore -cu60 $nick | echo -a 0,4( ALERT ) $nick is Trigger Flooding. Ignore will be removed in 60 seconds. | .notice $nick You are ignored for Trigger Flooding. }
if ($me isop $chan) { ban -u60 $chan $nick 3 | kick $chan $nick AUTO-KICK Trigger Flood | notice $nick You have been banned for Trigger Flooding. The ban and Ignore will be revoked in 60 seconds. }
halt
}
inc %ty
.timer 1 20 unset %ty
:end
if ($2 == $null) { .notice $nick You did not enter a nick to search. | halt }
var %find = $read -s $+ $2- data\seen.txt
if ($2 == $nick) { .notice $nick Looking for yourself, eh $nick $+ ? | halt }
if ($2 == $me) { .notice $nick $nick $+ , I'm right here! | halt }
if ($2 ison $chan) { .notice $nick $2 is here in $chan | halt }
if (%find == $null) { .notice $nick $2 has not been seen by me. | halt }
else { .notice $nick $2- $read -s $+ $2- data\seen.txt }
}
}
on *:QUIT: if ($_vr(lastseen,logquits) == 1) { write -ds $+ $nick data\seen.txt | write data\seen.txt $nick - $address Quit at: $asctime(mmmm d yyyy h:nn:sstt) Last Note: $chan Quit: $1- }
on *:PART:#: if ($_vr(lastseen,logparts) == 1) { write -ds $+ $nick data\seen.txt | write data\seen.txt $nick - $address Left at: $asctime(mmmm d yyyy h:nn:sstt) Last Note: Left $chan }
on *:KICK:#: if ($_vr(lastseen,logkicks) == 1) { write -ds $+ $nick data\seen.txt | write data\seen.txt $knick - $address Kicked at: $asctime(mmmm d yyyy h:nn:sstt) Last Note: Kicked from $chan $1- }
on *:NICK: if ($_vr(lastseen,lognick) == 1) { write -ds $+ $nick data\seen.txt | /write data\seen.txt $nick - $address Changed Nicks at: $asctime(mmmm d yyyy h:nn:sstt) Last Note: *** $nick is now known as $newnick $+ }
alias lastseen {
if ($dialog(lastseen) == $null) { dialog -m lastseen lastseen }
}
dialog lastseen {
title "Seen module by PePpEr"
option pixels
size -1 -1 170 250
edit "", 4, 10 40 150 20,autohs, center
button "Clear Database", 11, 5 185 80 20, ok default
button "Search", 17, 60 65 50 20, ok default
button "Close", 12, 60 220 50 20, ok default
text "Search Nick:", 13, 10 25 80 15
check "Enable Public !seen", 15, 10 5 120 20
button "Help", 16,120 24 40 15, hide
text "", 18, 97 188 80 15
box "", 19, 92 178 75 28
check "Log Quits", 20, 15 95 80 20
check "Log Parts", 21, 15 115 80 20
check "Log Nick Changes", 22, 15 135 110 20
check "Log Kicks", 23, 15 155 80 20
box "", 24, 5 85 160 95
}
on *:dialog:lastseen:init:*:{
if ($isalias(help-lastseen) == $true) did -v lastseen 16
did -o lastseen 18 1 $file(data\seen.txt).size bytes
if ($_vr(lastseen,switch) == 1) did -c lastseen 15
if ($_vr(lastseen,logquits) == 1) did -c lastseen 20
if ($_vr(lastseen,logparts) == 1) did -c lastseen 21
if ($_vr(lastseen,lognick) == 1) did -c lastseen 22
if ($_vr(lastseen,logkicks) == 1) did -c lastseen 23
}
on *:dialog:lastseen:edit:*:{
}
on *:dialog:lastseen:sclick:*:{
if ($did == 11) { write -c data\seen.txt | did -o lastseen 18 1 $file(data\seen.txt).size bytes | beep }
if ($did == 17) {
if ($did(lastseen,4).text == $null) halt
var %find = $read -s $+ $did(lastseen,4).text data\seen.txt
if ($did(lastseen,4).text == $me) { echo -a LASTSEEN: $me $+ , umm look in the mirror | halt }
if (%find == $null) { echo -a LASTSEEN: $did(lastseen,4).text has not been seen by me. | halt }
else { echo -a LASTSEEN: $did(lastseen,4).text $read -s $+ $did(lastseen,4).text data\seen.txt }
beep
}
if ($did == 15) _vw lastseen switch $did($did).state
if ($did == 16) help-lastseen
if ($did == 20) _vw lastseen logquits $did($did).state
if ($did == 21) _vw lastseen logparts $did($did).state
if ($did == 22) _vw lastseen lognick $did($did).state
if ($did == 23) _vw lastseen logkicks $did($did).state
}