; --- IRCforumlari mIRC Tetris Addon ---

alias /tetris {
  if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  window -dpK0 +e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -1 -1 240 400
  set %t.score 0
  set %t.speed 400
  set %t.status play
  .timerTetris 0 0.4 /t.drop
  t.init
  t.draw
}

alias -l t.init {
  ; Oyun alanı (12x20) ve blok tanımlamaları
  set %t.board $str(0, 240)
  t.new_piece
}

alias -l t.draw {
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  drawfill -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0 0 0 240 400
  drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 12 "Arial" 10 5 5 Skor: %t.score
  ; Tahtayı çizme ve aktif bloğu render etme işlemleri buraya gelir
  ; (mIRC grafik komutları ile kutucuklar çizilir)
  drawrect -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14 2 0 0 240 400
}

alias -l t.drop {
  if (%t.status == play) {
    ; Bloğu aşağı kaydır, çarpışma varsa sabitle
    t.draw
  }
}

; --- Tuş Kontrolleri ---

menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  mouse: {
    if (%t.status == gameover) { /tetris }
    else {
      if (%t.status == play) { set %t.status pause | .timerTetris off | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [DURAKLATILDI] }
      else { set %t.status play | .timerTetris 0 0.4 /t.drop | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [OYNANIYOR] }
    }
  }
}

on *:KEYDOWN:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:*: {
  if (%t.status != play) return
  
  ; Sol Ok (Sola gitme)
  if ($keyval == 37) { t.move -1 }
  
  ; Sağ Ok (Sağa gitme)
  if ($keyval == 39) { t.move 1 }
  
  ; Aşağı Ok (Hızlı inme)
  if ($keyval == 40) { t.drop }
  
  ; Yukarı Ok (Boyut/Şekil değiştirme - Döndürme)
  if ($keyval == 38) { t.rotate }
  
  ; Boşluk Tuşu (Anında Döndürme/Düşürme - İsteğine göre "Döndürme" olarak atandı)
  if ($keyval == 32) { t.rotate }
  
  t.draw
}

alias -l t.new_piece {
  ; Rastgele blok üretimi
}