IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Mirc'de Türkiye Bayrağı (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/174451-mircde-turkiye-bayragi.html)

Mirc'de Türkiye Bayrağı

Başlıktanda anlaşılacağı gibi bayrağımızı, mIRC'in aktif olduğu ekranda görebiliyoruz.Aktif ekranda border durumda olan bayrağımızın koordinatlarını kendinize göre değişebilirsiniz.(çift tıklamanız halinde)

Görüntü :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

menu @Türkiyem {

  dclick:if ($window(@Türkiyem)) && !$var(%mouse) { set -e $+(%,mouse) ok | window -c @Türkiyem | window -pdk0 +let @Türkiyem 675 75 142 95 | drawrect -f @Türkiyem 0 0 0 0 500 300 | drawtext -r @Türkiyem $rgb(244,19,200) Verdana 9 1 5 Bayrak yerini sabitledikten | drawtext -r @Türkiyem $rgb(244,19,200) Verdana 9 1 25 sonra noktaya sağ tıklayın | drawdot @Türkiyem 1 3 25 60 | drawtext -r @Türkiyem $rgb(62,135,255) Verdana 9 90 50 Difuzyon }

  rclick:if %mouse { unset %mouse | set $+(%,mou***) $calc($+($mouse.dx,-,21)) | set $+(%,mousey) $calc($+($mouse.dy,-,80)) | bayrak }

  sclick:editbox -s Ne mutlu Türk'üm diyene...

}

on 1:APPACTIVE:if $window(@Türkiyem) { $iif($appactive == $false,window -uh @Türkiyem,window -ao @Türkiyem) }

alias bayrak {

  $iif($window(@Türkiyem),window -c @Türkiyem)

  window -hpdk0o +lbn @Türkiyem 0 0 845 660 

  drawrect -f @Türkiyem 4 1 335 318 135 90

  drawdot @Türkiyem 0 32 385 365

  drawdot @Türkiyem 4 23 396 365

  drawline @Türkiyem 0 1 419 360 450 360

  drawline @Türkiyem 0 1 434 348 422 378

  drawline @Türkiyem 0 1 434 348 446 378

  drawline @Türkiyem 0 1 419 360 446 378

  drawline @Türkiyem 0 1 450 360 422 378

  drawdot @Türkiyem 0 7 436 367

  drawdot @Türkiyem 0 4 436 357 437 360 444 365 441 372 431 372 428 364

  drawdot @Türkiyem 0 3 434 360 446 363 444 375 428 375

  drawdot @Türkiyem 0 2 436 354 448 363 446 377 443 369 426 377 434 372 430 369 424 363

  drawdot @Türkiyem 0 1 434 350

  drawcopy @Türkiyem 335 318 135 90 @Türkiyem 0 0 135 90

  window -h @Türkiyem $iif(%mou***,%mou***,675) $iif(%mousey,%mousey,75) 135 90

  var %Jenk = 0

  setlayer 0 @Türkiyem

  window -a @Türkiyem

  :difi

  if %Jenk != 255 {

    setlayer %Jenk @Türkiyem

    inc %Jenk

    goto difi

  }

}

Kodu remote kısmına ekledikten sonra /bayrak yapmanız yeterlidir.

Hoşca paylaşımlar...