hakanight Posted September 4, 2013 Share Posted September 4, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 4, 2013 Author Share Posted 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. Quote Link to comment Share on other sites More sharing options...
lori Posted September 4, 2013 Share Posted September 4, 2013 hangi program ve araçlarla yazıyorsun ? Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 4, 2013 Author Share Posted September 4, 2013 AutoIt ile yazdım. Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 5, 2013 Author Share Posted September 5, 2013 cevap verebilirmisiniz arkadaşlar? Quote Link to comment Share on other sites More sharing options...
asmazh Posted September 6, 2013 Share Posted September 6, 2013 (edited) :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 Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 9, 2013 Author Share Posted September 9, 2013 (edited) 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 Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted September 9, 2013 Share Posted September 9, 2013 http://s3.dosya.tc/server10/jHWTC2/gifanime.rar.html farklı açıdan bakarsan :) Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted September 10, 2013 Share Posted 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. Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 10, 2013 Author Share Posted 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ı. Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted September 10, 2013 Share Posted 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. Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 12, 2013 Author Share Posted 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. Quote Link to comment Share on other sites More sharing options...
hakanight Posted September 16, 2013 Author Share Posted September 16, 2013 Yardımcı olacak yokmu? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.