Redlion

Redlion

Joined
Nov 12, 2018
Occupation
Learner
Location
Riyadh, KSA

Activity Stream

Redlion commented on a Page, Join Counter (Nick Based)  -  Mar 07, 2020

on *:START: {
hmake jcount 100
if ($isfile(jcount.dat)) hload jcount jcount.dat
.timerjcount 0 3600 hsave -o jcount jcount.dat
}

on :JOIN:#: {
var %jnick $nick, %chan $chan
if (%jnick == $me) {
if ($hget(jcount,$+($network,.,%chan))) { halt }
else {
hadd -m jcount $+($network,.,%chan) $ctime
}
}
if ($me isop %chan) {
if ($hget(jcount,$+($network,.,%chan,.,%jnick))) {
tokenize 32 $v1
var %t = $calc($1 + 1)
.notice %jnick Welcome back 12 $+ %jnick $+ ! Last time you joined 12 $+ %chan $+ was on 12 $+ $asctime($2,ddd $+ $chr(44) dd mmm yyyy - HH:nn:ss) $+ ,7 $duration($calc($ctime - $2)) ago $+ . You have joined us here 12 $+ %t $+ times. 11Thank you and have fun!
hadd -m jcount $+($network,.,%chan,.,%jnick) %t $ctime
}
else {
hinc -m jcount $+($network,.,%chan,.,total.count)
.notice %jnick Welcome 12 $+ %jnick $+ ! You're visitor No.12 $+ $hget(jcount,$+($network,.,%chan,.,total.count)) to join 12 $+ %chan since 12 $+ $asctime($hget(jcount, $+($network,.,%chan)),ddd $+ $chr(44) dd mmm yyyy - HH $+ $chr(58) $+ nn $+ $chr(58) $+ ss) $+ . 11Thank you and have fun!
hadd -m jcount $+($network,.,%chan,.,%jnick) 1 $ctime
}
}
}
on
:EXIT: hsave -o jcount jcount.dat

 Respond  
Redlion commented on a Page, Join Counter (Nick Based)  -  Jan 05, 2019

on :START: {
hmake jcount 100
if ($isfile(jcount.dat)) hload jcount jcount.dat
.timerjcount 0 600 hsave -o jcount jcount.dat
}
on
:EXIT: hsave -o jcount jcount.dat
on @!:JOIN:#: {
if ( $hget(jcount,$+($network,.,$chan,.,$nick)) ) {
tokenize 32 $v1
var %t = $calc($1 + 1)
.notice $nick Welcome back 12 $+ $nick $+ ! Last time you joined 12 $+ $chan $+ was on 12 $+ $2 $+ , $3 - $4 $+ , $duration($calc($ctime - $5)) ago $+ . You have joined us here 12 $+ %t $+ times.
hadd -m jcount $+($network,.,$chan,.,$nick) %t $asctime($ctime,ddd dd/mm/yyyy HH:nn:ss) $ctime
}
else {
hinc -m jcount $+($network,.,$chan,.,total.count)
.notice $nick Welcome 12 $+ $nick $+ ! You're visitor No. 12 $+ $hget(jcount,$+($network,.,$chan,.,total.count)) $+ to join 12 $+ $chan $+ since 12 $+ $hget(jcount, $+($network,.,$chan)) $+ .
hadd -m jcount $+($network,.,$chan,.,$nick) 1 $asctime($ctime,ddd dd/mm/yyyy HH:nn:ss) $ctime
}
}
on
:JOIN:#: {
if ($nick == $me) {
if ($hget(jcount,$+($network,.,$chan))) { halt }
else {
hadd -m jcount $+($network,.,$chan) $asctime($ctime,ddd $+ $chr(44) dd mmm yyyy - HH:nn:ss)
;hadd -m jcount $+($network,.,$chan) $ctime
}
}
}

 Respond  
Redlion created a Page  -  Nov 24, 2018

auto voice snippets

Redlion   -  Nov 24, 2018

autovoice the identified nick

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.