IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Tetris oyunu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1075066-tetris-oyunu.html)

YouMyCure 02 Ocak 2026 20:19
Tetris oyunu
 
Başlatmak için /tetris komutunu kullanın.

Tuşlar:

Sol ok (sola gitme), Sağ ok (sağa gitme
),
Aşağı ok (daha hızlı aşağı inme),
Yukarı ok (boyutu değiştirme),
Boşluk tuşu (öğeyi anında döndürme),
Tek tıklama (çalışıyorsa duraklatır, oyun bittiğinde yeniden başlatır).

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
alias Tetris {
  Tetris:Cleanup
  window -Bdfhnpl20 +d @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer -1 -1 376 454
  if (!$isfile($scriptdirTetris.bmp)) { Tetris:MakeSprites }
  drawpic -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 0 0 $qt($scriptdirTetris.bmp)
  var %x 1 | while (%x < 26) { aline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 | inc %x }
  window -nBdfpk0C +d @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -1 -1 360 454
  set -e %Tetris:State Play
  Tetris:Shape
  window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  Tetris:Play
}

alias -l Tetris:Cleanup { .TimerTetris Off | unset %Tetris:* | close -@ @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]* }
alias -l Tetris:Shape {
  :loop
  set -e %Tetris:Shape %Tetris:nShape
  if ($r(1,7) == 1) { set %Tetris:nShape r 1 0 8 -1 8 -2 8 -3 8 }
  if ($v1 == 2) { set %Tetris:nShape g 1 0 8 0 7 -1 7 -1 8 }
  if ($v1 == 3) { set %Tetris:nShape b 1 0 8 0 7 -1 8 -1 9 }
  if ($v1 == 4) { set %Tetris:nShape o 1 0 8 0 9 -1 7 -1 8 }
  if ($v1 == 5) { set %Tetris:nShape y 1 0 8 -1 8 0 9 0 7 }
  if ($v1 == 6) { set %Tetris:nShape p 1 0 8 -1 8 -2 8 -2 7 }
  if ($v1 == 7) { set %Tetris:nShape t 1 0 8 -1 8 -2 8 -2 9 }
  if (!%Tetris:Shape) { set -e %Tetris:Shape %Tetris:nShape | goto loop }
  Tetris:Land
}
alias -l Tetris:Land {
  tokenize 32 %Tetris:Shape
  while ($3 < 25) && (!$gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$calc($3 +1),1),$4,32) && !$gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$calc($5 +1),1),$6,32) && !$gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$calc($7 +1),1),$8,32) && !$gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$calc($9 +1),1),$10,32)) { tokenize 32 $1-2 $calc($3 + 1) $4 $calc($5 +1) $6 $calc($7 + 1) $8 $calc($9 + 1) $10 }
  set -e %Tetris:Land $1-
}
alias -l Tetris:Redraw {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) || !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer)) { Tetris:Cleanup }
  drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 0 0 360 454 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 0
  var %x = 25, %c
  while ((%x && $line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,%x,1) != 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)) {
    tokenize 32 $v1
    var %y = $calc((%x -1) * 17 + 23)
    if ($1) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$1) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 7 %y }
    if ($2) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$2) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 24 %y }
    if ($3) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$3) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 41 %y }
    if ($4) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$4) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 58 %y }
    if ($5) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$5) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 75 %y }
    if ($6) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$6) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 92 %y }
    if ($7) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$7) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 109 %y }
    if ($8) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$8) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 126 %y }
    if ($9) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$9) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 143 %y }
    if ($10) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$10) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 160 %y }
    if ($11) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$11) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 177 %y }
    if ($12) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$12) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 194 %y }
    if ($13) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$13) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 211 %y }
    if ($14) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$14) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 228 %y }
    if ($15) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 $calc(16 * ($pos(rgboypt,$15) - 1)) 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 245 %y }
    dec %x 
  }
  tokenize 32 %Tetris:nShape
  %c = $calc(16 * ($pos(rgboypt,$1) - 1))
  drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(($4 -8)*17+294) $calc(($3 +3)*17+371)
  drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(($6 -8)*17+294) $calc(($5 +3)*17+371)
  drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(($8 -8)*17+294) $calc(($7 +3)*17+371)
  drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(($10 -8)*17+294) $calc(($9 +3)*17+371)
  var %lv = $floor($calc($iif(%Tetris:Lines,$v1,0) / 10))
  var %ln = $iif($calc(10 - %Tetris:Lines % 10),$v1,10)
  var %sc = $iif(%Tetris:Score,$v1,0) 
  drawtext -rno @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(128,128,128) Tahoma 12 $calc(348 - $width(%lv,Tahoma,12,1)) 50 %lv
  drawtext -rno @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(128,128,128) Tahoma 12 $calc(348 - $width(%ln,Tahoma,12,1)) 80 %ln
  drawtext -rno @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(128,128,128) Tahoma 12 $calc(348 - $width(%sc,Tahoma,12,1)) 110 %sc
  if (%Tetris:Land && !%TetrisHideGhost) {
    tokenize 32 %Tetris:Land
    var %c = $gettok(255 65280 16711680 33023 65535 16711935 16776960,$pos(rgboypt,$1),32)     
    if ($3 > 0) drawrect -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %c 2 $calc($4 *17 - 10) $calc($3 *17 + 6) 16 16
    if ($5 > 0) drawrect -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %c 2 $calc($6 *17 - 10) $calc($5 *17 + 6) 16 16
    if ($7 > 0) drawrect -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %c 2 $calc($8 *17 - 10) $calc($7 *17 + 6) 16 16
    if ($9 > 0) drawrect -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %c 2 $calc($10 *17 - 10) $calc($9 *17 + 6) 16 16
  }
  tokenize 32 %Tetris:Shape
  %c = $calc(16 * ($pos(rgboypt,$1) - 1))
  if ($3 > 0) drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(-10 + $4 * 17) $calc($3 * 17 + 6)
  if ($5 > 0) drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(-10 + $6 * 17) $calc($5 * 17 + 6)
  if ($7 > 0) drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(-10 + $8 * 17) $calc($7 * 17 + 6)
  if ($9 > 0) drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 360 %c 16 16 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc(-10 + $10 * 17) $calc($9 * 17 + 6)
  if (%Tetris:State == GAMEOVER) || (%Tetris:State == PAUSED) {
    var %m = $v1
    drawrect -rfn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(96,96,96) 1 34 185 200 100
    drawrect -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(192,192,192) 1 34 185 200 100
    drawtext -rno @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0 "Courier New" 40 $calc(34 + (200 - $width(%m,Courier New,40,1)) /2) $calc(185 + (100 - $height(%m,Courier New,40)) / 2) %m
  }
  drawdot @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
alias -l Tetris:MakeSprites {
  if ($isfile($scriptdirTetris.bmp)) { .remove $qt($scriptdirTetris.bmp) }
  var %x = 1, %c = 255,000,000 000,255,000 000,000,255 255,128,000 255,255,000 255,000,255 000,255,255
  if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites)) { window -c $v1 }
  window -Bdfhnp +d @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites -1 -1 376 454
  drawrect -nfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 0 1 0 0 360 454
  drawrect -nfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(128,128,128) 1 1 1 358 15
  drawrect -nrf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(32,32,32) 1 7 23 254 424 268 39 85 90
  drawrect -nfr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(96,96,96) 1 268 346 85 15 268 23 85 15
  drawrect -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 0 0 360 454 6 22 256 426 267 345 87 103 267 22 86 108
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 0 16 360 16
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 267 361 353 361
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 267 38 353 38
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 5 12 5 3 14 3 13 4 6 4 6 11 5 12
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(64,64,64) 1 15 4 15 13 6 13 7 12 14 12 14 5 15 4
  drawrect -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 55 2 10 2 55 12 6 2 57 4 2 8 63 4 2 2 62 8 2 6 64 12 2 2 67 2 6 2 67 12 6 2 69 4 2 8 75 4 2 2 83 4 2 2 75 10 2 2 83 10 2 2 75 2 10 2 75 12 10 2 331 10 8 2 19 2 2 4 27 2 2 4 21 2 6 2 23 5 2 7 21 12 6 2 31 2 10 2 31 12 10 2 33 4 2 8 36 7 2 2 39 4 2 2 39 10 2 2 43 2 2 4 51 2 2 4 45 2 6 2 47 5 2 7 45 12 6 2
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 63 5 58 10 58 11 64 5 63 5
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 75 5 83 10 84 10 76 5 75 5
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 345 5 351 11 352 11 346 5 345 5
  drawline -nr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) 1 351 5 345 11 346 11 352 5 351 5
  while (%x < 8) {
    tokenize 44 $gettok(%c,%x,32)
    var %nY = $calc(2 + 16 * (%x - 1)), %nY-2 = $calc(%nY -2), %nY-1 = $calc(%nY -1), %nY+1 = $calc(%nY +11), %nY+2 = $calc(%nY +12), %nY+3 = $calc(%nY +13)
    drawline -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites %tc 1 362 %nY-1 373 %nY-1 374 %nY-2 361 %nY-2 362 %nY-1
    drawline -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites %bc 1 362 %nY+2 373 %nY+2 374 %nY+3 361 %nY+3 362 %nY+2
    drawline -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites %sc 1 361 %nY 361 %nY+1 360 %nY+2 360 %nY-1 361 %nY
    drawline -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites %sc 1 374 %nY 374 %nY+1 375 %nY+2 375 %nY-1 374 %nY
    drawdot -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 1 360 %nY-2 361 %nY-1 374 %nY-1 375 %nY-2
    drawdot -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 1 360 %nY+3 361 %nY+2 374 %nY+2 375 %nY+3
    drawrect -fnr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb($1,$2,$3) 1 362 %nY 12 12
    inc %x
  }
  %x = 7 | while (%x < 41) { drawdot -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 4210752 1 %x $iif($calc(%x % 2),56,39) | inc %x }
  %x = 23 | while (%x < 57) { drawdot -rn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 4210752 1 $iif($calc(%x % 2),40,23) %x | inc %x }
  %x = 1 | while (%x < 12) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 7 23 34 $iif(%x == 1,34,50) @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 7 $calc(23 + 34 * %x) | inc %x }
  %x = 1 | while (%x < 7) { drawcopy -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 7 23 $iif(%x == 1,34,50) 424 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $calc(7 + 34 * %x) 23 | inc %x }
  drawcopy @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 15 31 85 85 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites 268 362
  drawtext -onr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) Tahoma 12 271 23 İstatistikler
  drawtext -onr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(128,128,128) Tahoma 12 274 39 Level:
  drawtext -onr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(128,128,128) Tahoma 12 274 69 Lines Left:
  drawtext -onr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(128,128,128) Tahoma 12 274 99 Score:
  drawtext -onr @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $rgb(192,192,192) Tahoma 12 271 346 Next
  drawdot @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites
  drawsave @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites $qt($scriptdirTetris.bmp)
  window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites
  :error
  if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites)) { window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:MakeSprites }
}

on *:CLOSE:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ Tetris:Cleanup }

alias Tetris:Play {
  if ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer)) {
    if (%Tetris:State == Play) {
      :reCheck
      tokenize 32 %Tetris:Shape
      var %s, %sL, %sP, %nL, %x = 3, %ok, %nShape $1-2
      while (%x < 11) {
        var %sL = $(,$ $+ %x), %sP = $(,$ $+ $calc(%x +1)), %nL = $calc(%sL +1)
        if (%sL == 0) && ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,1,1),%sP,32) != 0) { set -e %Tetris:State GAMEOVER | break }
        elseif (%sL == 25) || (%sL isnum 0-24 && $gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,%nL,1),%sP,32) != 0) { break }
        else { %nShape = %nShape %nL %sP }
        inc %x 2
      }
      if (%Tetris:State == PLAY) {
        if ($numtok(%nShape,32) != 10) || ($v1 == 10 && 25 isin %nShape) {
          if ($numtok(%nShape,32) == 10 && 25 isin %nShape) { tokenize 32 $v2 }
          if ($3 < 1 || $4 < 1 || $7 < 1 || $9 < 1) { %Tetris:State = GAMEOVER | goto end }
          rline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer $3 $puttok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$3,1),$1,$4,32)
          rline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer $5 $puttok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$5,1),$1,$6,32)
          rline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer $7 $puttok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$7,1),$1,$8,32)
          rline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer $9 $puttok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$9,1),$1,$10,32)
          var %lns
          while ($fline(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,/^([^0](?:\x20|$)){15}$/,1,3)) {
            dline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer $v1
            iline -l @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
            inc %lns
          }
          if (%lns) { inc -e %Tetris:Lines %lns | inc -e %Tetris:Score $floor($calc(($floor($calc(%Tetris:Lines / 10)) +1) *10 * (1.2^ %lns))) }
          Tetris:Shape
          goto reCheck
        }
        else { 
          set -e %Tetris:Shape %nShape
          tokenize 32 %nShape
          if ($3 < 1 && $5 < 1 && $7 < 1 && $8 < 1) { goto reCheck }
        }
      }
    }
    :end
    Tetris:Redraw
    .timerTetris -h 1 $iif($iif(%Tetris:State != Play,0,$floor($calc(%Tetris:Lines / 10))) > 19,50,$floor($calc(50 + 1.435 ^(20 - $v1)))) Tetris:Play
  }
  else { Tetris:Cleanup }
}

Menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  $iif(!%TetrisHideGhost,$style(1)) Show Ghosts:{ set -e %TetrisHideGhost $iif(%TetrisHideGhost,$false,$true) | Tetris:Redraw }
  Restart:{ Tetris }
  -
  Close:{ Tetris:Cleanup }
}
Menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  sclick:{
    if (%Tetris:State == PAUSED) { set -e %Tetris:State PLAY | Tetris:Play }
    elseif ($inrect($mouse.x,$Mouse.y,329,3,12,11)) { set -e %Tetris:State PAUSED | window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
    elseif ($inrect($mouse.x,$mouse.y,344,3,12,11)) { Tetris:Cleanup }
    elseif (%Tetris:State == PLAY) { set -e %Tetris:State PAUSED | Tetris:Redraw }
    elseif (%Tetris:State == GAMEOVER) { Tetris }
  }
}

on *:KEYDOWN:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:*:{
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer)) { Tetris:Cleanup }
  elseif (%Tetris:State == GAMEOVER) { Tetris }
  elseif (%Tetris:State == PAUSED) { set -e %Tetris:State PLAY | Tetris:Redraw }
  elseif (%Tetris:State == PLAY) {
    if ($keyval == 32) {
      tokenize 32 %Tetris:Land
      set -e %Tetris:Shape $1-
      Tetris:Play
    }
    elseif ($keyval == 40 || $keyval == 100) && (%Tetris:Shape != %Tetris:Land) {
      tokenize 32 $v1
      set -e %Tetris:Shape $1-2 $calc($3 +1) $4 $calc($5 + 1) $6 $calc($7 +1) $8 $calc($9 +1) $10
      Tetris:Redraw
    }
    elseif ($istok(37 39 97 100,$Keyval,32)) {
      tokenize 32 %Tetris:Shape
      var %n = $iif($keyval isin 3797,-,+), %n1 = $calc($4 %n 1), %n2 = $calc($6 %n 1), %n3 = $calc($8 %n 1), %n4 = $calc($10 %n 1)
      if (%n1 !isnum 1-15 || %n2 !isnum 1-15 || %n3 !isnum 1-15 || %n4 !isnum 1-15) { return }
      if ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$3,1),%n1,32)) { return }
      if ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$5,1),%n2,32)) { return }
      if ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$7,1),%n3,32)) { return }
      if ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,$9,1),%n4,32)) { return }
      set -e %Tetris:Shape $1-3 %n1 $5 %n2 $7 %n3 $9 %n4
      Tetris:Land
      Tetris:Redraw
    }
    elseif ($keyval == 38 || $keyval == 119) {
      tokenize 32 %Tetris:Shape
      var %sL = $3
      var %sP = $4
      var %nShape
      if (!$regex($1,/^[rboypt]$/)) { return }
      elseif ($1 == r) {
        if ($2 == 1) && ($tetris:Check(%sL %sP  %sL $calc(%sP +1) %sL $calc(%sP +2) %sL $calc(%sP -1))) { %nShape = $1 2 $v1 }
        elseif ($2 == 2) && ($tetris:Check(%sL %sP $calc(%sL -1) %sP $calc(%sL -2) %sP $calc(%sL -3) %sP)) { %nShape = $1 1 $v1 }
        else { return }
      }
      elseif ($1 == b) {
        if ($2 == 1) && ($tetris:Check(%sL %sP $calc(%sL -1) %sp $calc(%sL -1) $calc(%sp -1) $calc(%sL -2) $calc(%sP -1))) { %nShape = $1 2 $v1 }
        elseif ($2 == 2) && ($tetris:Check(%sL %sp %sL $calc(%sP -1) $calc(%sL -1) %sp $calc(%sL -1) $calc(%sp +1))) { %nShape = $1 1 $v1 }
        else { return }
      }
      elseif ($1 == o) {
        if ($2 == 1) && ($tetris:Check(%sL %sP, $calc(%sL -1) %sp,$calc(%sL -1) $calc(%sp +1), $calc(%sL -2) $calc(%sP +1))) { %nShape = $1 2 $v1 }
        elseif ($2 == 2) && ($tetris:Check( %sL %sP, %sL $calc(%sP +1), $calc(%sL -1) %sp, $calc(%sL -1) $calc(%sp -1))) { %nShape = $1 1 $v1 }
        else { return }
      }
      elseif ($1 == y) {
        if ($2 == 1) && ($Tetris:Check($calc(%sL -2) %sP $calc(%sL -1) $calc(%sP +1))) { %nShape = $1 2 $3-6 $v1 }
        elseif ($2 == 2) && ($Tetris:Check($calc(%sL -1) $calc(%sP -1) $calc(%sL -1) $calc(%sp +1))) { %nShape = $1 3 $3-6 $v1 }
        elseif ($2 == 3) && ($Tetris:Check($calc(%sL -2) %sp $calc(%sL -1) $calc(%sp -1))) { %nShape = $1 4 $3-6 $v1 }
        elseif ($2 == 4) && ($tetris:Check(%sl $calc(%sP -1) %sL $calc(%sP +1))) { %nShape = $1 1 $3-6 $v1 }
        else { return }
      }
      elseif ($1 == p) {
        if ($2 == 1) && ($Tetris:Check(%sL $calc(%sP -1) %sL $calc(%sP +1) $calc(%sL -1) $calc(%sP +1))) { %nShape = $1 2 $3-4 $v1 }
        elseif ($2 == 2) && ($Tetris:Check(%sL $calc(%sp +1) $calc(%sL -1) %sp $calc(%sL -2) %sp)) { %nShape = $1 3 $3-4 $v1 }
        elseif ($2 == 3) && ($Tetris:Check(%sL $calc(%sp -1) $calc(%sl -1) $calc(%sp -1) $calc(%sL -1) %sp,$calc(%sL -1) $calc(%sP +1))) { %nShape = $1 4 $v1 }
        elseif ($2 == 4) && ($Tetris:Check(%sL $calc(%sp +1) $calc(%sL -1) $calc(%sp +1) $calc(%sL -2) $calc(%sP +1)  $calc(%sL -2) %sP)) { %nShape = $1 1 $v1 }
        else { return }
      }
      elseif ($1 == t) {
        if ($2 == 1) && ($Tetris:Check(%sL $calc(%sP +1) $calc(%sL -1) $calc(%sP +1) $calc(%sL -1) %sp $calc(%sL -1) $calc(%sP -1))) { %nShape = $1 2 $v1 }
        elseif ($2 == 2) && ($Tetris:Check(%sL $calc(%sp -1) %sL $calc(%sp -2) $calc(%sL -1) $calc(%sP -1) $calc(%sL -2) $calc(%sP -1))) { %nShape = $1 3 $v1 }
        elseif ($2 == 3) && ($Tetris:Check(%sL $calc(%sP +1) %sL $calc(%sP -1) $calc(%sl -1) $calc(%sP -1))) { %nShape = $1 4 $3-4 $v1 }
        elseif ($2 == 4) && ($Tetris:Check($calc(%sL -1) %sp $calc(%sL -2) %sp  $calc(%sL -2) $calc(%sP +1))) { %nShape = $1 1 $3-4 $v1 }
        else { return }
      }
      set -e %Tetris:Shape %nShape
      Tetris:Land
      Tetris:Redraw
    }
  }
}

alias -l Tetris:Check {
  tokenize 32 $1-
  var %x = 1, %r
  while (%x < $0) {
    var %sL = $(,$ $+ %x)
    var %sP = $(,$ $+ $calc(%x +1))
    if (%sL > 25) || (%sP !isnum 1-15) || ($gettok($line(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:Buffer,%sL,1),%sP,32)) { return }
    %r = %r %sL %sP
    inc %x 2
  }
  return %r
}
ALINTIDIR

Carpediem 09 Ocak 2026 14:18
Cevap: Tetris oyunu
 
sanırım bu yazılımda sorun var recep bi bak istersen

SNOOPY 09 Ocak 2026 15:10
Cevap: Tetris oyunu
 
Hata olarak ne aldığını bilmesemde alttaki değişiklik bence bug oluşması açısından fayda sağlayacaktır.
Kod:
var %lv = $floor($calc($iif(%Tetris:Lines,$v1,0) / 10))
yerine
Kod:
var %ln = $iif($calc(10 - %Tetris:Lines % 10),$v1,10)

SNOOPY 09 Ocak 2026 15:25
Cevap: Tetris oyunu
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Oyunu denediğimde herhangi bir hata almadım

manikdepresif 09 Ocak 2026 22:35
Cevap: Tetris oyunu
 
cok guzel dusunulup yazilmis bir kod, begendim.

YouMyCure 10 Ocak 2026 11:12
Cevap: Tetris oyunu
 
Alıntı:
Carpediem Nickli Üyeden Alıntı (Mesaj 1043127657)
sanırım bu yazılımda sorun var recep bi bak istersen
nasıl bir hata var alıntı oldugu icin detaylı incelemedim

Carpediem 10 Ocak 2026 12:25
Cevap: Tetris oyunu
 
ok tuşları yönlendirme yapmıyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 12:25 -->-> Daha önceki mesaj 12:18 --

Alıntı:
SNOOPY Nickli Üyeden Alıntı (Mesaj 1043127678)
Hata olarak ne aldığını bilmesemde alttaki değişiklik bence bug oluşması açısından fayda sağlayacaktır.
Kod:
var %lv = $floor($calc($iif(%Tetris:Lines,$v1,0) / 10))
yerine
Kod:
var %ln = $iif($calc(10 - %Tetris:Lines % 10),$v1,10)
evet buydu.

Ali 10 Ocak 2026 13:34
Cevap: Tetris oyunu
 
Kod:
; --- 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
}

; Not: mIRC'de tam fonksiyonel bir Tetris için matris hesaplamaları
; oldukça uzundur, bu şablon istediğin komut ve tuş yapısını kurar.[/PHP]mIRC programını açın.

Klavyenizden Alt + R tuşlarına basarak "Remote" (Uzaktan Komutlar) sekmesini açın.

Yukarıdaki kodu boş bir sayfaya yapıştırın ve Tamam (OK) deyin.

Herhangi bir kanal penceresine veya statüs ekranına /tetris yazarak oyunu başlatın.

Dipnot; mobil olduğum için denenmedi deneyen olursa geri dönüş sağlanırsa sevinirim
Ayrıca emeğine sağlık güzel düşünmüşsun recep,

SNOOPY 10 Ocak 2026 17:13
Cevap: Tetris oyunu
 
Alıntı:
Ali Nickli Üyeden Alıntı (Mesaj 1043127970)
Kod:
; --- 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
}
; Not: mIRC'de tam fonksiyonel bir Tetris için matris hesaplamaları
; oldukça uzundur, bu şablon istediğin komut ve tuş yapısını kurar.[/PHP]mIRC programını açın.

Klavyenizden Alt + R tuşlarına basarak "Remote" (Uzaktan Komutlar) sekmesini açın.

Yukarıdaki kodu boş bir sayfaya yapıştırın ve Tamam (OK) deyin.

Herhangi bir kanal penceresine veya statüs ekranına /tetris yazarak oyunu başlatın.

Dipnot; mobil olduğum için denenmedi deneyen olursa geri dönüş sağlanırsa sevinirim
Ayrıca emeğine sağlık güzel düşünmüşsun recep,
Kod her yanı ile sorun dolu daha yükler yüklemez mirc kitliyor.

YouMyCure 10 Ocak 2026 19:27
Cevap: Tetris oyunu
 
Chatgpt e mi yazdırdın hatali yazmış


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:25.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk