| CoCoRiCo | 27 Ekim 2016 14:19 |
ileti yaziyor - Okundu vs.
Biraz paslarımızı dökelim dedik..
Herkesin bildiği gibi
msn,skype vebenzerlerinin vazgeçilmez özelliğidir ileti yazıyor - iletilme meselesi..
bende bunu mIRC'ye uyarladım güle güle kullanın. Eksikler hatalar öneriler alışıldığı gibi bu başlık altına yazılsın.. ve tabiki kodun mantıgı her iki konuşan kişide olması ;). iyi eğlenceler. http://image.prntscr.com/image/a1828...7756571671.png Kod:
;;*** Olaylar
on *:LOAD: read_t
on *:START: read_t
on *:CLOSE:?: { if *serv* !iswm $nick { $iif($hget(read_t,$target),$read_t($target).cls) } }
on *:OPEN:?: { if *serv* !iswm $nick { $read_t($nick).ilt } }
on *:ACTIVE:*: { if $window($active).type == Query && *serv* !iswm $nick { $read_t($active).akt } }
on *:APPACTIVE: { if $window($active).type != Query { window -c @` } }
on ^*:TEXT:*:?: {
if *serv* !iswm $nick {
if $window($active) == $nick || $mouse.win == $nick { $read_t($nick).win }
if $window($active) != $nick && $query($nick) { $read_t($nick).ilt }
hadd -m read_t $nick $md5($1-)
}
}
;**** durum motoru
alias read_t {
if $prop == ilt { .timer_i 1 1 .ctcp $1 \\ccrc ilt | w_pos }
if $prop == cls { .timer_o 1 1 .ctcp $1 \\ccrc ret }
if $prop == akt && $hget(read_t,$1) || $prop == win {
.timer_a 1 1 .ctcp $1 \\ccrc ok | hdel read_t $1 }
if !$isid {
.timer_typ_w 0 3 read_t
if $window($active).type == Query && $editbox($active,0) && $md5($editbox($active,0)) != $hget(read_typ,$active) {
hadd -mu10 read_typ $active $md5($editbox($active,0))
.ctcp $window($active) \\ccrc typ
}
}
}
;**** eylem yorumlama
CTCP *:\\ccrc*:?: {
haltdef
if $2 == ilt && $window($nick) { _tw $nick Ileti Gonderildi. }
if $2 == ret && $window($nick) { _tw $nick $nick Ileti Reddedildi.! }
if $2 == ok && $window($nick) { _tw $nick $nick Ileti Okundu }
if $2 == typ { _typ $nick }
}
;**** ileti yaziyor animasyonu
alias _typ {
$iif(!%:o,set %:o 1,inc %:o)
if %:o < 6 {
if $window($1) {
_tw $1 $+(Ileti yaziyor,$left(....,%:o),$gettok(|./.\,$r(1,3),46))
}
.timer_anim -m 1 300 _typ $1
}
if %:o > 6 { unset %:o | titlebar @` | window -c @` | .timer_winp off }
}
alias _tw { w_pos | titlebar @` $1 $2- }
alias w_pos {
.timer_winp -m 1 100 w_pos
if $window($active).type == Query {
window $iif($window(!$query($active)).ontop,-dahHzk0 +L,-dhoHzk0 +L) @` $&
$window($query($active)).dx $calc($window($query($active)).dy + $window($active).h -90) 200 10
}
else { window -c @` | .timer_winp off }
}
| 