mIRC /seen kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
/seen nick yazaran belirlediginiz nickle en son nezaman hangi kanalda bulundugunuzu gorebilirsiniz. /seen list yaparak listenizi gorebilir, /seen clear yaparak listeyi temizleyebilirsiniz. Kod; ;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46) on *:JOIN:#: { if !$findfile($mircdir,$+(seen.,$server,.data),1) { hmake seen. $+ $server 50 hsave seen. $+ $server $+(seen.,$server,.data) } elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) } if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data } hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date) hsave seen. $+ $server $+(seen.,$server,.data) } alias seen { if $server { if $1 { if $1 == clear { hdel -w seen. $+ $server * echo -a Temizlendi hsave seen. $+ $server $+(seen.,$server,.data) } elseif $1 == list { var %s = 1,%nick,%time,%date while %s <= $hget(seen. $+ $server,0).item { %nick = $gettok($hget(seen. $+ $server,%s).data,1,46) %time = $gettok($hget(seen. $+ $server,%s).data,2,46) %date = $gettok($hget(seen. $+ $server,%s).data,3,46) echo -a %s Nick: %nick Time: %time Date: %date inc %s } } elseif $_find($1,1) { echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü... } else echo -a $1 $+ , Listemde yok.... } } else echo -a Ba?l? De?ilsiniz... |