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

Bir cevap yazın

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