menu * {
  -
  Duck Shoot:{
    window -pdk0 @DuckShoot 0 0 700 500
    DsSt
  }
  -
}
alias DsM1 {
  if (%DsDi == 1) {
    set %DsP $calc($gettok(%DsP,1,32) + %DsSp) $calc($gettok(%DsP,2,32) $iif($r(0,1),-,+) $r(1,4))
    if ($gettok(%DsP,1,32) > 820) {
      DsNew
      inc %DsMi
    }
  }
  elseif (%DsDi == 0) {
    set %DsP $calc($gettok(%DsP,1,32) - %DsSp) $calc($gettok(%DsP,2,32) $iif($r(0,1),-,+) $r(1,4))
    if ($gettok(%DsP,1,32) < -120) {
      DsNew
      inc %DsMi
    }
  }
  if (%DsMi >= 5) DsEnd
  elseif (%DsMi < 5) {
    drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
    drawpic -tc @DuckShoot 16777215 $iif($mouse.x,$mouse.x,350) 350 DuckShoot\Gun.PNG
    drawpic -tc @DuckShoot 16777215 %DsP %DsPi
    drawtext @DuckShoot 4 arial 30 200 10 Kaçırılan: %DsMi
    drawtext @DuckShoot 6 arial 30 400 10 En Yüksek Puan: $iif(%HiDs,%HiDs,N/A)
    drawtext @DuckShoot 1 arial 30 10 10 Puan: %DsSc
    drawrect -e @DuckShoot 1 2 $calc($mouse.x - 30) $calc($mouse.y - 30) 60 60
    drawrect -e @DuckShoot 1 2 $calc($mouse.x - 50) $calc($mouse.y - 50) 100 100
    drawline @DuckShoot 1 2 $calc($mouse.x - 70) $mouse.y $calc($mouse.x + 70) $mouse.y 
    drawline @DuckShoot 1 2 $mouse.x $calc($mouse.y - 70) $mouse.x $calc($mouse.y + 70)
  }
}
menu @DuckShoot {
  sclick:{
    if (%DsOv) DsSt
    else {
      if (($mouse.y isnum $+($gettok(%DsP,2,32),-,$+($calc($gettok(%DsP,2,32) + 100)))) && ($mouse.x isnum $+($gettok(%DsP,1,32),-,$+($calc($gettok(%DsP,1,32) + 100))))) {
        inc %DsSc %DsSp
        splay -w $scriptdirquack.wav
        DsNew
      }
    }
  }
}
on *:CLOSE:*:{
  if ($target == @DuckShoot) {
    unset %ds*
    .timerds* off
  }
}
alias DsSt {
  if (!%HiDs) set %HiDs 0
  if (%DsOv) unset %DsOv
  drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
  drawtext @DuckShoot 1 arial 30 10 10 Puan: 0
  drawtext @DuckShoot 4 arial 30 200 10 Kaçırılan: 0
  drawtext @DuckShoot 6 arial 30 400 10 En Yüksek Puan: $iif(%HiDs,%HiDs,N/A)
  drawpic -tc @DuckShoot 16777215 50 50 DuckShoot\duck1.PNG
  set %DsMi 0
  set %DsSc 0
  set %DsP -118 $r(10,200)
  drawpic @DuckShoot 0 0 DuckShoot\dsbg.PNG
  set %DsSp 15
  set %DsPi DuckShoot\duck1.PNG
  set %DsDi 1
  .timerDsD1 -h 0 100 DsM1
}
alias DsEnd {
  .timerds* off
  if (%DsSc > %HiDs) set %HiDs %DsSc
  drawpic -c @DuckShoot 0 0 DuckShoot\dsbg.PNG
  drawtext @DuckShoot 13 arial 50 100 200 Kaybettiniz! Puan: %DsSc
  drawtext @DuckShoot 13 arial 20 230 250 Sag Tıklayarak Yeniden Başlatın
  drawtext @DuckShoot 1 arial 30 10 10 Score: %DsSc
  drawtext @DuckShoot 6 arial 30 400 10 Highest score: $iif(%HiDs,%HiDs,N/A)
  drawtext @DuckShoot 4 arial 30 200 10 Missed: %DsMi
  unset %ds*
  set %DsOv true
  DsNew
}
alias DsNew {
  set %DsDi $r(0,1)
  inc %DsSp 1
  set %DsDi $r(0,1)
  if (%DsDi == 1) {
    set %DsPi DuckShoot\duck $+ $iif($rand(0,19),1,2) $+ .PNG
    set %DsP -300 $r(10,250)
  }
  else {
    set %DsPi DuckShoot\duck $+ $iif($rand(0,19),3,4) $+ .PNG
    set %DsP 1000 $r(10,250)
  }
}