IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
9Beğeni(ler)
  • 5 Post By manikdepresif
  • 1 Post By blackhole
  • 2 Post By manikdepresif

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Ekim 2022, 21:33   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



[Açıklama]
Eskiden gsm telefonlardaki Snake oyununu mIRC ile yazmaya calistim.
Biraz ugrastiktan sonra tamamladim ve sizin begeninize sunuyorum.
;
Kod yazari: jeun
;
Kodu remotenize koyup /snake yazmaniz yeterlidir.
;
alias -l yem_buyuklugu return 20
alias -l yilan_kalinligi return 18
;yilan rengi 1~15 arasi istege bagli bir deger olmalidir.
alias -l yilan_rengi return 1
;yem rengi 1~15 arasi istege bagli bir deger olmalidir
alias -l yem_rengi return 1
alias -l snake_hizi return 11
;
Yukaridaki degerleri istege bagli degistirip renklendirme yapabilirsiniz.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;mIRC Snake Yilan Oyunu Calismasi(by jeun)
;Kullanim(Start) /snake 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Degistirilebilir Ayarlar
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l yem_buyuklugu return 20
alias -l yilan_kalinligi return 18
alias -l yilan_rengi return 1
alias -l yem_rengi return 1
alias -l snake_hizi return 11
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias -l snake_baslat {
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } | sn_pu_
  if (%snake_x) { $v1 %snake.x $snake_hizi }
  if (%snake_y) { $v1 %snake.y $snake_hizi }
  if ($inrect(%snake_yem_x,%snake_yem_y,%snake.x,%snake.y,$yem_buyuklugu,$yem_buyuklugu)) { snake_tit_pu | goto snake } 
  if ($inrect(%snake.x,%snake.y,%snake_yem_x,%snake_yem_y,$yem_buyuklugu,$yem_buyuklugu)) { snake_tit_pu } 
  :snake
  if (%snake_puan > 10 && $snake_kend_carp) { snake_bitir }
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  set %snake_coordi_ $gettok(%snake_coordi_,5-,32) 
  set %snake_coordi_ %snake_coordi_  %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi
  drawrect -fe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $yilan_rengi 1 %snake_coordi_
  if (%snake_yem_x == $null) { snake_yemle }
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $yem_rengi 2 %snake_yem_x %snake_yem_y $yem_buyuklugu $yem_buyuklugu
  if (%snake.x !isnum $+(1-,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).dw) || %snake.y !isnum $+(1-,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).dh)) { snake_bitir } 

}
alias -l snake_tit_pu { set %snake_coordi_ %snake_coordi_ %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi  | snake_yemle | inc %snake_puan | sn_pu_  }
alias -l sn_pu_ { titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Skor: %snake_puan }
alias -l snake_yemle {
  if $calc(%snake_maxlenl - 20) isnum $+(1,-,$len(%snake_coordi_)) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 $r(60,100) $r(60,100)  Oyunu denediginiz icin tesekkurler. :) | snake_bitir } 
  ;efekt
  if (%snake_yem_x) { drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $iif($yem_rengi == 4,12,4) 1 %snake_yem_x %snake_yem_y $yem_buyuklugu $yem_buyuklugu }
  set %snake_yem_x $r(20,$calc($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).bw - 30)) 
  set %snake_yem_y $r(20,$calc($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).bh - 30))
}

alias snake_kend_carp {
  var %m = 1
  set %snake_new $removecs($gettok(%snake_coordi_,-13-0,32),$+($chr(32),$yilan_kalinligi $yilan_kalinligi)) 
  var %new_lines = $calc($gettok(%snake_new,0,32) / 2)
  while %m <= %new_lines {
    var %snk = $replace($gettok(%snake_new,2-0,32) %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi,$chr(32),$chr(44))
    if $inrect( [ %snk ] ) { return $true }
    set %snake_new $gettok(%snake_new,3-,32)
    inc %m
  }
  unset %snake_new
}
alias -l snake_bitir {    
  .timersnake off | sn_pu_ 
  $iif($input(Oyun Bitti $crlf $+ Skor: %snake_puan puan $crlf $+ Tekrar Oynamak İster misin ?,y,Snake),snake,window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  halt
}
alias snake {

  noop $input(Oyunu Duraklatmak veya Yeniden devam ettirmek icin Space(Bosluk) $crlf $+ Hareket icin Yön Kontrol Tuslarini Kullanin,ok,Snake Bilgi)
  unset %snake*
  set %snake_puan 0 | set %snake.x 10 | set %snake.y 20
  set %snake_coordi_ %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi $calc(%snake.x + 7) %snake.y $yilan_kalinligi $yilan_kalinligi $calc(%snake.x + 14) %snake.y $yilan_kalinligi $yilan_kalinligi 
  set %snake_x inc | var_cap
  .timersnake -h 0 50 snake_baslat  
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ .timersnake off | unset %snake* }
on *:keydown:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:*: { 

  if ($keyval == 32 && $v1 != %snake_keyval ) { $iif($timer(snake),.timersnake off,.timersnake -h  0 50 /snake_baslat) }
  ;asagi 
  if ($keyval == 40 && $v1 != %snake_keyval && %snake_y != dec) { set %snake_y inc | unset %snake_x }
  ;yukari
  if ($keyval == 38 && $v1 != %snake_keyval && %snake_y != inc) { set %snake_y dec | unset %snake_x  }
  ;sag
  if ($keyval == 39 && $v1 != %snake_keyval && %snake_x != dec) { set %snake_x inc | unset %snake_y  }
  ;sol
  if ($keyval == 37 && %snake_x != inc) { set %snake_x dec | unset %snake_y  }
  set %snake_keyval $keyval
}
on *:active:*:{ if ($lactive == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { .timersnake off } }
alias -l var_cap { var %t | while (1) var %t = %t $+ . | :error | reseterror | set %snake_maxlenl $len(%t) | return %snake_maxlenl }


Eklenen Resim Ön İzlemesi Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
Konu Feragat tarafından (30 Ekim 2022 Saat 21:43 ) değiştirilmiştir. Sebep: Mesajlar Birleştirildi ve düzenlendi.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 30 Ekim 2022, 20:58   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Kod ve kullanımı hakkında biraz daha bilgi gerekiyor.

Eklenmesi/Kullanımı/Yazarı vs. Konu altından paylaşırsan birleştiririm.

Emeğine sağlık.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 30 Ekim 2022, 20:59   #3
Çevrimdışı
Che
~ Gevezeyiz.Net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Eline sağlık paylaşımınız için teşekkürler.

__________________
char *adres = [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] for(int i = 0; *(adres + i); i++) { putchar(toupper(adres[i])); }
 
Alıntı ile Cevapla

Alt 30 Ekim 2022, 22:18   #4
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Demo koysanız iyiydi

__________________
BLaCK_and_WHiTe is now known as SNOOPY
 
Alıntı ile Cevapla

Alt 30 Ekim 2022, 23:11   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



SNOOPY Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Demo koysanız iyiydi

begenilirse, kod uzerinde Bazi duzenletmeler yapabilirim.(Cok uzayinca kasma yapabiliyor)

 
Alıntı ile Cevapla

Alt 31 Ekim 2022, 08:47   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Eline emeğine sağlık, paylaşım için teşekkür ederiz.
Bu kodu herhalde ilk bana denetmiştin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
" Ya bir yol bul, ya bir yol aç yada yoldan çekil "
 
Alıntı ile Cevapla

Alt 26 Ocak 2023, 23:50   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Hsn'in rica etti, turbo ozelligi ekledimç yon kontrol tuslarina basinca hizlaniyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias -l yem_buyuklugu return 20
alias -l yilan_kalinligi return 18
;yilan rengi 1~15 arasi istege bagli bir deger olmalidir.
alias -l yilan_rengi return 1
;yem rengi 1~15 arasi istege bagli bir deger olmalidir
alias -l yem_rengi return 1
alias -l snake_hizi return $iif(%snake_tekrar,15,11)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l snake_baslat {
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -p @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } | sn_pu_
  if (%snake_x) { $v1 %snake.x $snake_hizi }
  if (%snake_y) { $v1 %snake.y $snake_hizi }
  if ($inrect(%snake_yem_x,%snake_yem_y,%snake.x,%snake.y,$yem_buyuklugu,$yem_buyuklugu)) { snake_tit_pu | goto snake }
  if ($inrect(%snake.x,%snake.y,%snake_yem_x,%snake_yem_y,$yem_buyuklugu,$yem_buyuklugu)) { snake_tit_pu }
  :snake
  if (%snake_puan > 10 && $snake_kend_carp) { snake_bitir }
  clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  set %snake_coordi_ $gettok(%snake_coordi_,5-,32)
  set %snake_coordi_ %snake_coordi_ %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi
  drawrect -fe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $yilan_rengi 1 %snake_coordi_
  if (%snake_yem_x == $null) { snake_yemle }
  drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $yem_rengi 2 %snake_yem_x %snake_yem_y $yem_buyuklugu $yem_buyuklugu
  if (%snake.x !isnum $+(1-,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).dw) || %snake.y !isnum $+(1-,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).dh)) { snake_bitir }
}
alias -l snake_tit_pu { set %snake_coordi_ %snake_coordi_ %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi | snake_yemle | inc %snake_puan | sn_pu_ }
alias -l sn_pu_ { titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Skor: %snake_puan }
alias -l snake_yemle {
  if $calc(%snake_maxlenl - 20) isnum $+(1,-,$len(%snake_coordi_)) { drawtext @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 $r(60,100) $r(60,100) Oyunu denediginiz icin tesekkurler. :) | snake_bitir }
  ;efekt
  if (%snake_yem_x) { drawrect -f @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $iif($yem_rengi == 4,12,4) 1 %snake_yem_x %snake_yem_y $yem_buyuklugu $yem_buyuklugu }
  set %snake_yem_x $r(20,$calc($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).bw - 30))
  set %snake_yem_y $r(20,$calc($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).bh - 30))
}
alias snake_kend_carp {
  var %m = 1
  set %snake_new $removecs($gettok(%snake_coordi_,-13-0,32),$+($chr(32),$yilan_kalinligi $yilan_kalinligi))
  var %new_lines = $calc($gettok(%snake_new,0,32) / 2)
  while %m <= %new_lines {
    var %snk = $replace($gettok(%snake_new,2-0,32) %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi,$chr(32),$chr(44))
    if $inrect( [ %snk ] ) { return $true }
    set %snake_new $gettok(%snake_new,3-,32)
    inc %m
  }
  unset %snake_new
}
alias -l snake_bitir {
  .timersnake off | sn_pu_
  $iif($input(Oyun Bitti $crlf $+ Skor: %snake_puan puan $crlf $+ Tekrar Oynamak İster misin ?,y,Snake),snake,window -c @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  halt
}
alias snake {
  noop $input(Oyunu Duraklatmak veya Yeniden devam ettirmek icin Space(Bosluk) $crlf $+ Hareket icin Yön Kontrol Tuslarini Kullanin,ok,Snake Bilgi)
  unset %snake*
  set %snake_puan 0 | set %snake.x 10 | set %snake.y 20
  set %snake_coordi_ %snake.x %snake.y $yilan_kalinligi $yilan_kalinligi $calc(%snake.x + 7) %snake.y $yilan_kalinligi $yilan_kalinligi $calc(%snake.x + 14) %snake.y $yilan_kalinligi $yilan_kalinligi
  set %snake_x inc | var_cap
  .timersnake -m 0 40 snake_baslat
}
on *:close:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:{ .timersnake off | unset %snake* }
on *:keydown:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:*: {
  if ($keyval == 32) { $iif($timer(snake),.timersnake off,.timersnake -m 0 40 /snake_baslat) }
  ;asagi
  if ($keyval == 40 && $v1 != %snake_keyval && %snake_y != dec) { set %snake_y inc | unset %snake_x }
  ;yukari
  if ($keyval == 38 && $v1 != %snake_keyval && %snake_y != inc) { set %snake_y dec | unset %snake_x }
  ;sag
  if ($keyval == 39 && $v1 != %snake_keyval && %snake_x != dec) { set %snake_x inc | unset %snake_y }
  ;sol
  if ($keyval == 37 && %snake_x != inc) { set %snake_x dec | unset %snake_y }
  if ($keyrpt && $regex($keyval,/(37|38|39|40)/)) { set -u1 %snake_tekrar ok }
  set %snake_keyval $keyval
}
on *:active:*:{ if ($lactive == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { .timersnake off } }
alias -l var_cap { var %t | while (1) var %t = %t $+ . | :error | reseterror | set %snake_maxlenl $len(%t) | return %snake_maxlenl }
 
Alıntı ile Cevapla

Alt 26 Ocak 2023, 23:52   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Eline emeğine sağlık.

__________________
" Ya bir yol bul, ya bir yol aç yada yoldan çekil "
 
Alıntı ile Cevapla

Alt 27 Ocak 2023, 17:43   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Elinize emeğinize sağlık..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Kim olduğunuzun önemi yok.; İNSAN olun yeter...
 
Alıntı ile Cevapla

Alt 27 Ocak 2023, 20:13   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRC Snake Game / Yılan Oyunu Calismasi



Harika çalışma

__________________
İstersem bırakırım dediğim herşeyin müptelasıyım iradem zayıf değil tutkularım güçlü
 
Alıntı ile Cevapla

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
mIRC Puzzle Oyunu - Pic Puzzle Game Lucifer mIRC Scripting Hazır Kodlar 2 04 Ocak 2012 20:46
Dövüş Oyunu (Game) Sevda Bilgisayar Oyunları 0 17 Ağustos 2011 07:09
C iLe Yılan Oyunu Cheki C ve C++ 0 04 Temmuz 2006 11:00




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
yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org