Mirc’de Türkiye Bayrağı

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ürkm 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.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir