Auttakaas tän koodin kans.

Voit pyytää apua ohjelmointiongelmiin täältä.
Forum rules
Post Reply
MikkoK

Auttakaas tän koodin kans.

Post by MikkoK »

Niin täs ois koodi jossa o jotai vikaa: taitaa jäädä peliprojekti tekemättä. ja tuo mopo1 o sillai et siin o ukko pääl siin mopos auttakaa plz!

Code: Select all

SCREEN 800,600,32,1

FrameLimit 35

ruoho=LoadImage("media/grass.bmp")
maa=MakeObjectFloor()
PaintObject maa,ruoho
mopo = LoadObject ("Media\suzukipv.bmp",72)
mopo1 = LoadObject ("Media\suzukipv2.bmp",72)
auto = LoadObject ("Media\corolla.bmp",72)
ukko = LoadObject ("Media\ukko.bmp",72)
PositionObject ukko,-100,100
PositionObject mopo,-110,110
PositionObject mopo1,-110,110
SetupCollision auto,ukko,2,2,2
SetupCollision ukko,auto,2,2,2
SetupCollision auto,mopo,2,2,2
SetupCollision mopo,auto,2,2,2
SetupCollision auto,mopo1,2,2,2
SetupCollision mopo1,auto,2,2,2
maxnopeus= 15'maksiminopeus




Repeat
  If mopossa=1 Then
  ShowObject mopo,OFF
  ShowObject ukko,OFF
  ShowObject mopo1,ON

  CloneObjectPosition ukko,mopo1
  CloneObjectPosition mopo,mopo1

         If LeftKey() Then TurnObject mopo, 3
       If RightKey() Then TurnObject mopo, -3 
        If UpKey() And nopeus#<maxnopeus Then 
           nopeus#= nopeus#+.5
           If nopeus<0 Then nopeus=0
        EndIf
 If UpKey()
          'Lasketaan auton liike x ja y suunnissa
           If NopeusX#>Cos(MopoKulma)*nopeus# Then NopeusX#=NopeusX#-1
           If NopeusX#<Cos(MopoKulma)*nopeus# Then NopeusX#=NopeusX#+1
           If NopeusY#>Sin(MopoKulma)*nopeus# Then NopeusY#=NopeusY#-1
           If NopeusY#<Sin(MopoKulma)*nopeus# Then NopeusY#=NopeusY#+1
        EndIf 
  If KeyHit(cbkeyreturn) Then mopossa=0
   EndIf

  'Jos ollaan autossa
  If autossa=1 Then
     'Piilotetaan ukko ja sijoitetaan se autoon
     ShowObject ukko,OFF
     CloneObjectPosition ukko,auto
     'Auton Ohjaus
       If LeftKey() Then TurnObject auto, 3
       If RightKey() Then TurnObject auto, -3 
        If UpKey() And nopeus#<maxnopeus Then 
           nopeus#= nopeus#+.5
           If nopeus<0 Then nopeus=0
        EndIf
        If DownKey() And nopeus#>-maxnopeus/3 Then 
           nopeus#= nopeus#-.5
           If nopeus>0 Then nopeus=0
        EndIf
        If UpKey() Or DownKey()
          'Lasketaan auton liike x ja y suunnissa
           If NopeusX#>Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#-1
           If NopeusX#<Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#+1
           If NopeusY#>Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#-1
           If NopeusY#<Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#+1
        EndIf 
     'Autosta poistutaan painamalla enteriä
     If KeyHit(cbkeyreturn) Then autossa=0
  EndIf

  'Jos ei olla autossa
  If autossa=0 Or mopossa=0 Then
     ShowObject ukko,ON'näytetään ukko
     ShowObject mopo1,OFF
     ShowObject mopo,ON
     'Ukon ohajus
     If LeftKey() Then TurnObject ukko,5
     If RightKey() Then TurnObject ukko,-5
     If UpKey() Then MoveObject ukko,3
     If DownKey() Then MoveObject ukko,-2

     'Mennään autoon jos ollaan tarpeeksi lähellä
     If Distance2(ukko,auto)<100 And Distance2(ukko,auto)>20 And KeyHit(cbkeyreturn) Then meeautoon=1
     'Jos ollaan menossa autoon
     If meeautoon=1
        PointObject ukko,auto
        MoveObject ukko,3
        If Distance2(ukko,auto)<60 Then autossa=1
     EndIf
  EndIf

        If autossa=1 Then meeautoon=0
             If Distance2(ukko,mopo)<100 And Distance2(ukko,mopo)>20 And KeyHit(cbkeyreturn) Then meemopoon=1
     'Jos ollaan menossa autoon
     If meemopoon=1
        PointObject ukko,mopo
        MoveObject ukko,3
        If Distance2(ukko,mopo)<60 Then mopossa=1
     EndIf


        If mopossa=1 Then meemopoon=0



  'Auton liike
  AutoKulma=ObjectAngle(Auto)
  TranslateObject auto,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99
  
    MopoKulma=ObjectAngle(Mopo)
  TranslateObject mopo1,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99




'Kamera seuraa ukkoa
CloneCameraPosition ukko


DrawGame



DrawScreen
Until EscapeKey()
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Ei oo kauaa aikaa sori tuplaposti mut voisitteko auttaa kun tuo auto liikkuu mopon kans samaa matkaa ja mopo ei käänny ja ukko ei katoo ku menee mopoon :( oon aika alottelija viel mut luulin et toimmis noin
Top
Nemesis
Member
Posts: 51
Joined: Sat May 17, 2008 1:54 pm

Re: Auttakaas tän koodin kans.

Post by Nemesis »

Sinun täytyy määritellä ajoneuvojen nopeudet erikseen. Eli esim. mopon nopeuden muuttujiksi mopoX ja mopoY ja autolle autoX ja autoY. En viitsi laittaa suoraa esimerkkikoodia, että voisit kopioida.
EDIT:

En sitten tiedä, mikä tuossa showobjectissa kusee...

Asian tuntian oikein kirjoitus ohjeet:
-Älä tee yhdys sana virheitä.
-Vältä lyhenteitä mahd. muk.
-Yksi sanaiset lauseet? Unohda.
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Sain sen showobjectin toimii nyt meen koittaa KIITOS :D
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Siis täh en tajunnu kyl mitää vähä enemmä neuvoo kun koodin kans oon taistellu niin kauan
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Code: Select all

    If nopeusX# <>0 Then mopoX#= mopoX#*0.99
  If nopeusX#>-1 Or mopoX<1 Then mopoX#= mopoX#*0.99
  
  If nopeusY# <>0 Then mopoY#= mopoY#*0.99
  If nopeusY#>-1 Or mopoY<1 Then mopoY#= nopeusY#*0.99
Näinkö ja autolle samanlailla?
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Code: Select all

SCREEN 800,600,32,1

FrameLimit 35

ruoho=LoadImage("media/grass.bmp")
maa=MakeObjectFloor()
PaintObject maa,ruoho
mopo = LoadObject ("Media\suzukipv.bmp",72)
mopo1 = LoadObject ("Media\suzukipv2.bmp",72)
auto = LoadObject ("Media\corolla.bmp",72)
ukko = LoadObject ("Media\ukko.bmp",72)
PositionObject ukko,-100,100
PositionObject mopo,-110,110
PositionObject mopo1,-110,110
SetupCollision auto,ukko,2,2,2
SetupCollision ukko,auto,2,2,2
SetupCollision auto,mopo,2,2,2
SetupCollision mopo,auto,2,2,2
SetupCollision auto,mopo1,2,2,2
SetupCollision mopo1,auto,2,2,2
maxnopeus= 15'maksiminopeus
maxmopo= 10



Repeat

  If mopossa=1 Then
  ShowObject mopo,OFF
  ShowObject ukko,OFF
  ShowObject mopo1,ON

  CloneObjectPosition ukko,mopo1
  CloneObjectPosition mopo,mopo1

         If LeftKey() Then TurnObject mopo1, 3
       If RightKey() Then TurnObject mopo1, -3 
        If UpKey() And nopeus1#<maxmopo Then 
           nopeus1#= nopeus1#+.5
           If nopeus1<0 Then nopeus1=0
        EndIf
If UpKey()
          'Lasketaan auton liike x ja y suunnissa
           If nopeus1X#>Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#-1
           If nopeus1X#<Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#+1
           If nopeus1Y#>Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#-1
           If nopeus1Y#<Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#+1
        EndIf 
  If KeyHit(cbkeyreturn) Then mopossa=0
   EndIf

  'Jos ollaan autossa
  If autossa=1 Then
     'Piilotetaan ukko ja sijoitetaan se autoon
     ShowObject ukko,OFF
     CloneObjectPosition ukko,auto
     'Auton Ohjaus
       If LeftKey() Then TurnObject auto, 3
       If RightKey() Then TurnObject auto, -3 
        If UpKey() And nopeus#<maxnopeus Then 
           nopeus#= nopeus#+.5
           If nopeus<0 Then nopeus=0
        EndIf
        If DownKey() And nopeus#>-maxnopeus/3 Then 
           nopeus#= nopeus#-.5
           If nopeus>0 Then nopeus=0
        EndIf
        If UpKey() Or DownKey()
          'Lasketaan auton liike x ja y suunnissa
           If NopeusX#>Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#-1
           If NopeusX#<Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#+1
           If NopeusY#>Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#-1
           If NopeusY#<Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#+1
        EndIf 
     'Autosta poistutaan painamalla enteriä
     If KeyHit(cbkeyreturn) Then autossa=0
  EndIf

  'Jos ei olla autossa
  If autossa=0 Then
     ShowObject ukko,ON'näytetään ukko
     
     'Ukon ohajus
     If LeftKey() Then TurnObject ukko,5
     If RightKey() Then TurnObject ukko,-5
     If UpKey() Then MoveObject ukko,3
     If DownKey() Then MoveObject ukko,-2

     'Mennään autoon jos ollaan tarpeeksi lähellä
     If Distance2(ukko,auto)<100 And Distance2(ukko,auto)>20 And KeyHit(cbkeyreturn) Then meeautoon=1
     'Jos ollaan menossa autoon
     If meeautoon=1
        PointObject ukko,auto
        MoveObject ukko,3
        If Distance2(ukko,auto)<60 Then autossa=1
      If autossa=1 Then meeautoon=0
     EndIf
  EndIf
  
   If mopossa=0 Then
     ShowObject ukko,ON'näytetään ukko
     ShowObject mopo1,OFF
     ShowObject mopo,ON
     'Ukon ohajus
     If LeftKey() Then TurnObject ukko,5
     If RightKey() Then TurnObject ukko,-5
     If UpKey() Then MoveObject ukko,3
     If DownKey() Then MoveObject ukko,-2


      
             If Distance2(ukko,mopo)<100 And Distance2(ukko,mopo)>20 And KeyHit(cbkeyreturn) Then meemopoon=1
     'Jos ollaan menossa autoon
     If meemopoon=1
        PointObject ukko,mopo
        MoveObject ukko,3
        If Distance2(ukko,mopo)<60 Then mopossa=1
     EndIf


        If mopossa=1 Then meemopoon=0



  'Auton liike
  AutoKulma=ObjectAngle(Auto)
  TranslateObject auto,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99
  
    MopoKulma=ObjectAngle(Mopo)
  TranslateObject mopo1,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99




'Kamera seuraa ukkoa
CloneCameraPosition ukko


DrawGame



DrawScreen
Until EscapeKey()
Yritin korjata ja nyt valittaa cant find missing repeat structure start missing in line 156
Top
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:
Contact valscion

Re: Auttakaas tän koodin kans.

Post by valscion »

Et ole sulkenut oikein kaikkia IF lausekkeita. Tarkistas koodis uudestaan.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Code: Select all

SCREEN 800,600,32,1

FrameLimit 35

ruoho=LoadImage("media/grass.bmp")
maa=MakeObjectFloor()
PaintObject maa,ruoho
mopo = LoadObject ("Media\suzukipv.bmp",72)
mopo1 = LoadObject ("Media\suzukipv2.bmp",72)
auto = LoadObject ("Media\corolla.bmp",72)
ukko = LoadObject ("Media\ukko.bmp",72)
PositionObject ukko,-100,100
PositionObject mopo,-110,110
PositionObject mopo1,-110,110
SetupCollision auto,ukko,2,2,2
SetupCollision ukko,auto,2,2,2
SetupCollision auto,mopo,2,2,2
SetupCollision mopo,auto,2,2,2
SetupCollision auto,mopo1,2,2,2
SetupCollision mopo1,auto,2,2,2
maxnopeus= 15'maksiminopeus
maxmopo= 10



Repeat 

  If mopossa=1 Then
  ShowObject mopo,OFF
  ShowObject ukko,OFF
  ShowObject mopo1,ON

  CloneObjectPosition ukko,mopo1
  CloneObjectPosition mopo,mopo1

         If LeftKey() Then TurnObject mopo1, 3
       If RightKey() Then TurnObject mopo1, -3 
        If UpKey() And nopeus1#<maxmopo Then 
           nopeus1#= nopeus1#+.5
           If nopeus1<0 Then nopeus1=0
        EndIf
If UpKey()
          'Lasketaan auton liike x ja y suunnissa
           If nopeus1X#>Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#-1
           If nopeus1X#<Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#+1
           If nopeus1Y#>Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#-1
           If nopeus1Y#<Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#+1
        EndIf 
  If KeyHit(cbkeyreturn) Then mopossa=0
   EndIf

  'Jos ollaan autossa
  If autossa=1 Then
     'Piilotetaan ukko ja sijoitetaan se autoon
     ShowObject ukko,OFF
     CloneObjectPosition ukko,auto
     'Auton Ohjaus
       If LeftKey() Then TurnObject auto, 3
       If RightKey() Then TurnObject auto, -3 
        If UpKey() And nopeus#<maxnopeus Then 
           nopeus#= nopeus#+.5
           If nopeus<0 Then nopeus=0
        EndIf
        If DownKey() And nopeus#>-maxnopeus/3 Then 
           nopeus#= nopeus#-.5
           If nopeus>0 Then nopeus=0
        EndIf
        If UpKey() Or DownKey()
          'Lasketaan auton liike x ja y suunnissa
           If NopeusX#>Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#-1
           If NopeusX#<Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#+1
           If NopeusY#>Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#-1
           If NopeusY#<Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#+1
        EndIf 
     'Autosta poistutaan painamalla enteriä
     If KeyHit(cbkeyreturn) Then autossa=0
  EndIf

  'Jos ei olla autossa
  If autossa=0 And mopossa=0 Then
     ShowObject ukko,ON'näytetään ukko
     ShowObject mopo1,OFF
     'Ukon ohajus
     If LeftKey() Then TurnObject ukko,5
     If RightKey() Then TurnObject ukko,-5
     If UpKey() Then MoveObject ukko,3
     If DownKey() Then MoveObject ukko,-2

     'Mennään autoon jos ollaan tarpeeksi lähellä
     If Distance2(ukko,auto)<100 And Distance2(ukko,auto)>20 And KeyHit(cbkeyreturn) Then meeautoon=1
     'Jos ollaan menossa autoon
     If meeautoon=1
        PointObject ukko,auto
        MoveObject ukko,3
        If Distance2(ukko,auto)<60 Then autossa=1
      If autossa=1 Then meeautoon=0
     EndIf
  EndIf
  



      
             If Distance2(ukko,mopo)<100 And Distance2(ukko,mopo)>20 And KeyHit(cbkeyreturn) Then meemopoon=1
     'Jos ollaan menossa autoon
     If meemopoon=1
        PointObject ukko,mopo
        MoveObject ukko,3
        If Distance2(ukko,mopo)<60 Then mopossa=1
     EndIf


        If mopossa=1 Then meemopoon=0



  'Auton liike
  AutoKulma=ObjectAngle(Auto)
  TranslateObject auto,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99
  
    MopoKulma=ObjectAngle(Mopo)
  TranslateObject mopo1,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99




'Kamera seuraa ukkoa
CloneCameraPosition ukko


DrawGame



DrawScreen
Until EscapeKey()
Noniin kivaa nyt toimii MELKEIN
mopo vaan ei liiku siihe apuja se kääntyy kyl mut ei mee eteenpäi? :D
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Code: Select all

SCREEN 800,600,32,1

FrameLimit 35

ruoho=LoadImage("media/grass.bmp")
maa=MakeObjectFloor()
PaintObject maa,ruoho
mopo = LoadObject ("Media\suzukipv.bmp",72)
mopo1 = LoadObject ("Media\suzukipv2.bmp",72)
auto = LoadObject ("Media\corolla.bmp",72)
ukko = LoadObject ("Media\ukko.bmp",72)
PositionObject ukko,-100,100
PositionObject mopo,-110,110
PositionObject mopo1,-110,110
SetupCollision auto,ukko,2,2,2
SetupCollision ukko,auto,2,2,2
SetupCollision auto,mopo,2,2,2
SetupCollision mopo,auto,2,2,2
SetupCollision auto,mopo1,2,2,2
SetupCollision mopo1,auto,2,2,2
SetupCollision ukko,mopo,2,2,2
SetupCollision mopo,ukko,2,2,2
maxnopeus= 15'maksiminopeus
maxmopo= 10



Repeat 

  If mopossa=1 Then
  ShowObject mopo,OFF
  ShowObject ukko,OFF
  ShowObject mopo1,ON

  CloneObjectPosition ukko,mopo1
  CloneObjectPosition mopo,mopo1

         If LeftKey() Then TurnObject mopo1, 3
       If RightKey() Then TurnObject mopo1, -3 
        If UpKey() And nopeus1#<maxmopo Then 
           nopeus1#= nopeus1#+.5
           If nopeus1<0 Then nopeus1=0
        EndIf
If UpKey()
          'Lasketaan auton liike x ja y suunnissa
           If nopeus1X#>Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#-1
           If nopeus1X#<Cos(MopoKulma)*nopeus1# Then mopo1X#=mopo1X#+1
           If nopeus1Y#>Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#-1
           If nopeus1Y#<Sin(MopoKulma)*nopeus1# Then mopo1Y#=mopo1Y#+1
        EndIf 
  If KeyHit(cbkeyreturn) Then mopossa=0
   EndIf

  'Jos ollaan autossa
  If autossa=1 Then
     'Piilotetaan ukko ja sijoitetaan se autoon
     ShowObject ukko,OFF
     CloneObjectPosition ukko,auto
     'Auton Ohjaus
       If LeftKey() Then TurnObject auto, 3
       If RightKey() Then TurnObject auto, -3 
        If UpKey() And nopeus#<maxnopeus Then 
           nopeus#= nopeus#+.5
           If nopeus<0 Then nopeus=0
        EndIf
        If DownKey() And nopeus#>-maxnopeus/3 Then 
           nopeus#= nopeus#-.5
           If nopeus>0 Then nopeus=0
        EndIf
        If UpKey() Or DownKey()
          'Lasketaan auton liike x ja y suunnissa
           If NopeusX#>Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#-1
           If NopeusX#<Cos(AutoKulma)*nopeus# Then NopeusX#=NopeusX#+1
           If NopeusY#>Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#-1
           If NopeusY#<Sin(AutoKulma)*nopeus# Then NopeusY#=NopeusY#+1
        EndIf 
     'Autosta poistutaan painamalla enteriä
     If KeyHit(cbkeyreturn) Then autossa=0
  EndIf

  'Jos ei olla autossa
  If autossa=0 And mopossa=0 Then
     ShowObject ukko,ON'näytetään ukko
     ShowObject mopo1,OFF
     ShowObject mopo,ON
     'Ukon ohajus
     If LeftKey() Then TurnObject ukko,5
     If RightKey() Then TurnObject ukko,-5
     If UpKey() Then MoveObject ukko,3
     If DownKey() Then MoveObject ukko,-2

     'Mennään autoon jos ollaan tarpeeksi lähellä
     If Distance2(ukko,auto)<100 And Distance2(ukko,auto)>20 And KeyHit(cbkeyreturn) Then meeautoon=1
     'Jos ollaan menossa autoon
     If meeautoon=1
        PointObject ukko,auto
        MoveObject ukko,3
        If Distance2(ukko,auto)<60 Then autossa=1
      If autossa=1 Then meeautoon=0
     EndIf
  EndIf
  



      
             If Distance2(ukko,mopo)<100 And Distance2(ukko,mopo)>10 And KeyHit(cbkeyreturn) Then meemopoon=1
     'Jos ollaan menossa autoon
     If meemopoon=1
        PointObject ukko,mopo
        MoveObject ukko,3
        If Distance2(ukko,mopo)<60 Then mopossa=1
     EndIf


        If mopossa=1 Then meemopoon=0



  'Auton liike
  AutoKulma=ObjectAngle(Auto)
  TranslateObject auto,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99
  
    MopoKulma=ObjectAngle(Mopo)
  TranslateObject mopo1,NopeusX#,NopeusY#
  
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
  
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99




'Kamera seuraa ukkoa
CloneCameraPosition ukko


DrawGame



DrawScreen
Until EscapeKey()[code] Muokkasin täs taas vähä mut mopo ei vielkää liiku muute o täydellistä :P
Top
MikkoK

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Määhän muuten opin jotai mahtava tunne tää oppimisen tunne :P :O
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Noniin tein profiilin mut miks toi mopo ei edelleenkää liiku?

E:Pian julkistan projektini projekteis :D kunhan saan sen mopon liikkuun.
Huomisesks pitäs saaha testaajille betatestiversio :P

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Auttakaa ny joku :( :!:

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Ei enään mitään muuta kuin lukkoa.
Last edited by MikkoK on Thu Jun 05, 2008 9:56 pm, edited 1 time in total.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
Nemesis
Member
Posts: 51
Joined: Sat May 17, 2008 1:54 pm

Re: Auttakaas tän koodin kans.

Post by Nemesis »

Code: Select all

  'Auton liike
  AutoKulma=ObjectAngle(Auto)
  TranslateObject auto,NopeusX#,NopeusY#
 
  If nopeusX# <>0 Then nopeusX#= nopeusX#*0.99
  If nopeusX#>-1 Or nopeusX<1 Then nopeusX#= nopeusX#*0.99
 
  If nopeusY# <>0 Then nopeusY#= nopeusY#*0.99
  If nopeusY#>-1 Or nopeusY<1 Then nopeusY#= nopeusY#*0.99
 
    MopoKulma=ObjectAngle(Mopo1)
  TranslateObject mopo1,moponopeusX#,moponopeusY#
 
  If moponopeusX# <>0 Then moponopeusX#= moponopeusX#*0.99
  If moponopeusX#>-1 Or moponopeusX<1 Then moponopeusX#= moponopeusX#*0.99
 
  If moponopeusY# <>0 Then moponopeusY#= moponopeusY#*0.99
  If moponopeusY#>-1 Or moponopeusY<1 Then moponopeusY#= moponopeusY#*0.99
Sinulla oli mennyt mopo1 ja mopo sekaisin. Vaihdoin rivin MopoKulma=ObjectAngle(Mopo) -> MopoKulma=ObjectAngle(Mopo1), koska seuraavalla rivillä liikutat mopo1:stä
Asian tuntian oikein kirjoitus ohjeet:
-Älä tee yhdys sana virheitä.
-Vältä lyhenteitä mahd. muk.
-Yksi sanaiset lauseet? Unohda.
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Ei enään muuta kuin lukkoa.
Last edited by MikkoK on Thu Jun 05, 2008 9:56 pm, edited 1 time in total.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:
Contact valscion

Re: Auttakaas tän koodin kans.

Post by valscion »

Jos pelisi on kansiossa "C:/Peli/" niin onko myös "C:/Peli/Media/pelto.til" olemassa? Jos ei ole niin siinähän on se ongelma.
Virheesi ilmoittaa ettei se löydä Media/pelto.til tiedostoa. Katso onko se olemassa
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Ei enään muuta kuin lukkoa.
Last edited by MikkoK on Thu Jun 05, 2008 9:57 pm, edited 1 time in total.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
Olwi
Devoted Member
Posts: 557
Joined: Sun Dec 30, 2007 4:15 pm
Location: Muhos

Re: Auttakaas tän koodin kans.

Post by Olwi »

(varoitus)WannaBeModetusta

Mikko,rauhotus vähä.
Edit-nappulakin on keksitty,ja jokaista pientä edistystä ei tarvi foorumeille kertoa... :D
Voisit myös tarkistaa kirjoitusasua hieman.

Mutta onnea mopo-projektille:D
Huuda mun ip:tä!
Top
MikkoK
Devoted Member
Posts: 813
Joined: Thu Jun 05, 2008 2:13 pm
Location: City 17

Re: Auttakaas tän koodin kans.

Post by MikkoK »

Ei enään muuta kuin lukkoa.
Last edited by MikkoK on Thu Jun 05, 2008 9:57 pm, edited 1 time in total.

Code: Select all

#aha. @ IRCNet
<Grandi> Voit laittaa jo valmiiks hailaittiin "Amis-Mikko", koska alan kutsua sua sillä nimellä.
Top
Post Reply

Return to “Ongelmat”