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
  }
}