mIRC Reklam Efeckt Kodu

tarafından
42
mIRC Reklam Efeckt Kodu

Merhaba arkadaşlar bu kodumuzla mirc scriptimizde tanıtim yapabilir mirc açılırken mauseyi nerede tutuyorsak orada reklam çıkartabiliriz. GüsEL bir Kod.

Remotelere eklemeniz gerekn kod.
on *:ACTIVE:@tooltip: {
  window -a $qt($lactive)
  window -o @tooltip
}
on *:APPACTIVE: if (!$appactive) && ($window(@tooltip)) window -c @tooltip

alias tooltip {
  if ($window(@tooltip)) window -c @tooltip
  var %font = Tahoma, %fontsize = 11, %time = 4, %rgb = 14811135
  var %x = 1, %long = $gettok($1-,%x,13)
  while ($gettok($1-,%x,13)) {
    if ($len($v1) > $len(%long)) %long = $gettok($1-,%x,13)
    inc %x
  }
  var %w = $width(%long,%font,%fontsize,0,1) + 7, %h = $calc($gettok($1-,0,13) * $height($1-,%font,%fontsize) + 5)
  window -pBhdo +dL @tooltip $mouse.dx $calc($mouse.dy - 20) %w %h
  drawfill -r @tooltip %rgb %rgb 0 0
  drawrect @tooltip 1 0.5 0 0 %w %h
  %x = 1
  while ($gettok($1-,%x,13)) {
    drawtext -p @tooltip 1 %font %fontsize $iif($left($v1,1) == $chr(2),3,4) $iif(%x == 1,1,$calc((%x - 1) * 13)) $gettok($1-,%x,13)
    inc %x
  }
  window -a @tooltip
  .timertip 0 %time window -c @tooltip
}
Kodu çaliştirmak için Komutumuz şu :
//tooltip Selam Sohbetc v.mIRC'e HoşGeldiniz !
 $cr $+ Ben absolut Bu Scipti Size Sunan Kişiyim !
 $cr $+ Avatarli ve Titreşimli Özel Bir Mirc Sizlerele !
$cr HoşSohbetLer Dilerim.. Sohbetc.oRg