Mirc’de Türkiye Bayrağı

menu @Türkiyem {

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) }
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 - @Türkiyem
:difi
if %Jenk != 255 {
setlayer %Jenk @Türkiyem
inc %Jenk
goto difi
}
}

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