Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code

mIRC’de 2 tarafli kullanilmaya acık bir cod sayesinde özelde konustugunda iletildi, yaziyor, okundu gibi buton’larla özelinizi dahada süslendirebilirsiniz.

;*** 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 }
}

;*** 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 }

}

önceki yazımızda « mIRC Radyo Sistemi Dialog’lu makelemiz var.

Makale Yazarı : admin

27 Kasım, 2018

163

Yazı kategorisi : mIRC Hazır Kodlar

yorum yok

Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code

Etiketler

mirc ileti yazıyor mirc whatsapp kodu

Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code İle Benzer Sohbet Yazıları

Mirc Seslenme Addonu

mIRC Fullname yasaklama txt

mIRC Version Yasaklama

Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code

Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code İle Benzer Sohbet Yazıları

Whatsap tarzı – ileti yazıyor – iletildi – okundu vs. mIRC Code yazına yapılan yorumlar

Bir Yorum Yazmak İstermisiniz ?