2D Araba Oyunu Projesi

hakanight · September 4, 2013

Merhaba arkadaşlar.

Ben can sıkıntısından 2d araba oyunu yaptım.

Fakat bu oyunun gelişmesi gerekiyor.

Ben arabanın sağa sola dönmesini yapamadım.

Yardımcı olursanız sevinirim.

Eskisi : https://hotfile.com/dl/243292684/aec98b1/game.rar.html

Yenisi [Biraz Geliştirdim. arka plan müziği,hata giderme, arkaplan saydam] : https://hotfile.com/dl/243346711/18677d0/game.rar.html

Oktuşlarıyla gidiliyor.

Sağ oktuşu ileri - Sol oktuşu geri

Edited September 4, 2013 by hakanight

hakanight · September 4, 2013

Arkadaşlar birazcık daha geliştirdim.

Hataları giderdim. Arkaplan müziği filan koydum.

Buyrun ;

https://hotfile.com/dl/243298410/4c0eb53/game.rar.html

- Lütfen yardım edin arkadaşlar.

lori · September 4, 2013

hangi program ve araçlarla yazıyorsun ?

hakanight · September 4, 2013

AutoIt ile yazdım.

hakanight · September 5, 2013

cevap verebilirmisiniz arkadaşlar?

asmazh · September 6, 2013

:D İhi oho ihi... Yaratıcı bir proje, ama biraz daha nesnel düşünmen lazım. Proje dosyanı aldım vakit bulduğumda biraz ilgileneceğim. Hade kolay gele.

Edited September 6, 2013 by asmazh

hakanight · September 9, 2013

Herkes projemi alabilir. Belki işinize yarar.

VE size hatırlatmak isterim.

Ben bu projeyi sizin sayenizde yaptım.

Adlibregister komutunu sizden öğrendim.

arkaplanın saydam olmasını sizden öğrendim.

Yanii sizin sayenizde yaptım.

Edited September 9, 2013 by hakanight

mesale0077 · September 9, 2013

http://s3.dosya.tc/server10/jHWTC2/gifanime.rar.html

farklı açıdan bakarsan :)

nightmare3519 · September 10, 2013

Hotkeyset("{RIGHT}","_SAG")
Hotkeyset("{LEFT}","_SOL")
Hotkeyset("{DOWN}","_ASAGI")
HotKeySet("{UP}","_YUKARI")

#include "_GUIResourcePic.au3"
#include <GDIPlus.au3>
#include <WINAPI.au3>
#include <ScreenCapture.au3>

Global $hBitmap, $hImage, $sCLSID, $tData, $tParams, $tmp = 0
$sag = 200
$hiz = 0
$son = ""
$ason = ""
$arabaon = 0
$arabaarka = 0
$kullan = "NO"
$form1 = GUICreate("Hakanight Game",1000,100,0,0,0x80000000, 0x00000080 + 0x00000008 + 0x00080000)

GUIsetstate(@SW_SHOW)
GUISetState(@SW_SHOWMAXIMIZED)
$araba = _GUICtrlpic_Create("araba1.png",$sag,200)
AdlibRegister("_KONTROL",0)
adlibregister("MUSIC",35000)
 GUISetBkColor(0xABCDEF)
 _WinAPI_SetLayeredWindowAttributes($form1, 0xABCDEF, 250)
While 1

      $nMsg = GUIGetMsg()
	Switch $nMsg
 Case -3
	Exit


	EndSwitch

	WEnd

	Func _SAG()
	   if $son = "" Then
		  $son = "SAG"
		  EndIF

	     if $son = "SOL" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SAG"
			 EndIf
			 Else
	   if $sag < @Desktopwidth - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SAG"
	   $son = "SAG"
	Else

	   if $arabaon < 3 Then
		  if $hiz > 5 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf


$hiz = 0
	   EndIf
	   EndIf
	EndFunc




	Func _SOL()
	     if $son = "" Then
		  $son = "SOL"
		  EndIF
	     if $son = "SAG" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SOL"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SOL"
	   $son = "SOL"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc



	func _ASAGI()

		   if $ason = "" Then
		  $ason = "ASAGI"
		  EndIF

	     if $ason = "YUKARI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "ASAGI"
			 EndIf
			 Else
	   if $sag < @Desktopheight - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz

	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "ASAGI"
	   $ason = "ASAGI"
	Else


_GUICtrlpic_setImage($araba,"araba1.png")



$hiz = 0
	   EndIf
	   EndIf


	endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	func _YUKARI()
  if $ason = "" Then
		  $ason = "YUKARI"
		  EndIF
	     if $son = "ASAGI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "YUKARI"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "YUKARI"
	   $ason = "YUKARI"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1.png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




	Func _KONTROL()
	     if $hiz < 0.1 Then
		 elseif $kullan = "NO" Then
			if $hiz > 0.1 Then
			   if $son = "SAG" Then
				    if $sag < @Desktopwidth - 260 Then
				    $hiz = $hiz - 1
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
	elseif $son = "SOL" Then
	   if $sag > 1 Then
	   $hiz = $hiz - 1
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
				  EndIf
			   EndIf
	EndIf
	$kullan = "NO"

	EndFunc


Func MUSIC()
   SoundPlay("music.mp3", 0)
 SoundSetWaveVolume(100)

   EndFunc

Bu kodlarla yukarı ve aşağı oluyor . Autoit bilmediğim için bazı hatalar olabilir.

hakanight · September 10, 2013

Hotkeyset("{RIGHT}","_SAG")
Hotkeyset("{LEFT}","_SOL")
Hotkeyset("{DOWN}","_ASAGI")
HotKeySet("{UP}","_YUKARI")

#include "_GUIResourcePic.au3"
#include <GDIPlus.au3>
#include <WINAPI.au3>
#include <ScreenCapture.au3>

Global $hBitmap, $hImage, $sCLSID, $tData, $tParams, $tmp = 0
$sag = 200
$hiz = 0
$son = ""
$ason = ""
$arabaon = 0
$arabaarka = 0
$kullan = "NO"
$form1 = GUICreate("Hakanight Game",1000,100,0,0,0x80000000, 0x00000080 + 0x00000008 + 0x00080000)

GUIsetstate(@SW_SHOW)
GUISetState(@SW_SHOWMAXIMIZED)
$araba = _GUICtrlpic_Create("araba1.png",$sag,200)
AdlibRegister("_KONTROL",0)
adlibregister("MUSIC",35000)
 GUISetBkColor(0xABCDEF)
 _WinAPI_SetLayeredWindowAttributes($form1, 0xABCDEF, 250)
While 1

      $nMsg = GUIGetMsg()
	Switch $nMsg
 Case -3
	Exit


	EndSwitch

	WEnd

	Func _SAG()
	   if $son = "" Then
		  $son = "SAG"
		  EndIF

	     if $son = "SOL" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SAG"
			 EndIf
			 Else
	   if $sag < @Desktopwidth - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SAG"
	   $son = "SAG"
	Else

	   if $arabaon < 3 Then
		  if $hiz > 5 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf


$hiz = 0
	   EndIf
	   EndIf
	EndFunc




	Func _SOL()
	     if $son = "" Then
		  $son = "SOL"
		  EndIF
	     if $son = "SAG" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$son = "SOL"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	   $kullan = "SOL"
	   $son = "SOL"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc



	func _ASAGI()

		   if $ason = "" Then
		  $ason = "ASAGI"
		  EndIF

	     if $ason = "YUKARI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "ASAGI"
			 EndIf
			 Else
	   if $sag < @Desktopheight - 260 Then
		  if $hiz < 15 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag + $hiz

	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "ASAGI"
	   $ason = "ASAGI"
	Else


_GUICtrlpic_setImage($araba,"araba1.png")



$hiz = 0
	   EndIf
	   EndIf


	endfunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	func _YUKARI()
  if $ason = "" Then
		  $ason = "YUKARI"
		  EndIF
	     if $son = "ASAGI" Then
			 if $hiz > 0 Then
				$hiz = $hiz - 0.5
			 Else
				$ason = "YUKARI"
			 EndIf
			 Else
	   if $sag > 1 Then


		  if $hiz < 10 Then
		  $hiz = $hiz + 0.2
		  EndIf
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,"",$sag)
	   $kullan = "YUKARI"
	   $ason = "YUKARI"
	Else
	      if $arabaarka < 3 Then
			 if $hiz > 5 Then
		 $arabaarka = $arabaarka + 1
_GUICtrlpic_setImage($araba,"araba1.png")
EndIf
EndIf
	   $hiz = 0
	EndIf
 EndIf
	EndFunc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




	Func _KONTROL()
	     if $hiz < 0.1 Then
		 elseif $kullan = "NO" Then
			if $hiz > 0.1 Then
			   if $son = "SAG" Then
				    if $sag < @Desktopwidth - 260 Then
				    $hiz = $hiz - 1
	   $sag = $sag + $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
	elseif $son = "SOL" Then
	   if $sag > 1 Then
	   $hiz = $hiz - 1
	   $sag = $sag - $hiz
	   GUICtrlSetPos($araba,$sag)
	Else
	     if $arabaon < 3 Then
		  if $hiz > 3 Then
		 $arabaon = $arabaon + 1
_GUICtrlpic_setImage($araba,"araba1-ikisi-"&$arabaarka&"-"&$arabaon&".png")
EndIf
EndIf
	   $hiz = 0
	   EndIf
				  EndIf
			   EndIf
	EndIf
	$kullan = "NO"

	EndFunc


Func MUSIC()
   SoundPlay("music.mp3", 0)
 SoundSetWaveVolume(100)

   EndFunc

Bu kodlarla yukarı ve aşağı oluyor . Autoit bilmediğim için bazı hatalar olabilir.

Kardeş. İlk başta düşündüğün için saol.

FAkat öyle yapmayı bende biliyorum.

Ancak araba aşağı doğru dönmüyor. İşte tıkandığım nokta orası.

nightmare3519 · September 10, 2013

Onu yapmak daha kolay kardeş.

Mesela Sol fonksiyonunun en başına önce resmin boyutunu ayarlayacaksın sonrada resmi objede göstereceksin

AMS'de şu şekilde

Image.SetSize("Image1",100,100)

Image.Load("Image1", nData) gibi gibi

Autoit öğrenmeye alışıyorum ama mantık bu.

hakanight · September 12, 2013

Onu yapmak daha kolay kardeş.

Mesela Sol fonksiyonunun en başına önce resmin boyutunu ayarlayacaksın sonrada resmi objede göstereceksin

AMS'de şu şekilde

Image.SetSize("Image1",100,100)

Image.Load("Image1", nData) gibi gibi

Autoit öğrenmeye alışıyorum ama mantık bu.

Kardeşim. Ben şu şekil diyorum.

Gta da nasıl araba sağa sola dönüyor? O şekil.

hakanight · September 16, 2013

Yardımcı olacak yokmu?

Sign In

2D Araba Oyunu Projesi

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members