Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

9Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 02 Ocak 2026, 20:19   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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).


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

 

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Efsanevi Tetris oyunu 40 yaşında: Londra'da dev ekranda oynandı CyBeR Oyun Dünyası 5 30 Ekim 2024 10:40
Tetris Sarya Fıkra 2 12 Şubat 2022 22:15
Tetris oyunu, kötü anıları yok ediyor ! Luis IF Ekstra 0 22 Nisan 2010 13:13

×



Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet teması takipçi satın al anime izle tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers sohbet siteleri sohbet odaları sohbet odaları sohbet Akyazı Haber Sitesi Ankara Haber
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