auton vaihto

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
Coolariko
Newcomer
Posts: 41
Joined: Mon Sep 24, 2007 6:14 pm

auton vaihto

Post by Coolariko »

Miten saisin peliini Helposti semmoisen jutun.
Että on auto valikko valitse auto
nyt vaikka valitsen auto1 ja painan pelaa
Niin sen jälkeen sammutan oelin
laitan uudestaan päälle vaihan auton auto2
painan peli niin se on Se auto1.
Sori mutta en osaa selittää
ja koodia ei ole.
jos voitte laittaa koodin
joissa käytätte coolbasic car ja car1 tai 2 en tiiä mikä se on.
kiitos etukäteen.
Paras koodi ikinä:
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: auton vaihto

Post by Harakka »

En ole varma, mitä meinasit. Ehkä näin?

Code: Select all

uusivalinta:
Repeat
  autonum = Input("Auto 1 vai auto 2? ")
  drawscreen
Until keyhit(cbkeyreturn)
CloseInput : ClearKeys
autonum = int(autonum)

If autonum = 1 then
  auto = LoadObject("media/car.bmp",90)
ElseIf autonum = 2 then
  auto = LoadObject("media/car2.bmp",90)
Else
  Locate 0,13
  AddText "Syöttämäsi numero ei kelpaa!"
  DrawScreen
  WaitKey
  ClearText
  Goto uusivalinta
EndIf

Repeat
  MoveObject auto,(Upkey()-downkey())*4
  TurnObject auto,(LeftKey()-RightKey())*4
  DrawScreen
Forever
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Coolariko
Newcomer
Posts: 41
Joined: Mon Sep 24, 2007 6:14 pm

Re: auton vaihto

Post by Coolariko »

Joo. mutta miten saisin silleen että painan vaikka leftkey tai rightkey niin se vaihtaa sen auton

Code: Select all

    uusivalinta:
    Repeat
If LeftKey() then autonum = 1
If RightKey() then autonum =2
      drawscreen
    until keyhit(cbkeyreturn)
    autonum = int(autonum)

    If autonum = 1 then
      auto = LoadObject("media/car.bmp",90)
    ElseIf autonum = 2 then
      auto = LoadObject("media/car2.bmp",90)
 
    EndIf

    Repeat
      MoveObject auto,(UpKey()-downkey())*4
      TurnObject auto,(RightKey()-LeftKey())*4
      DrawScreen
    Forever
Miten saisin tuon toimimaan.
Paras koodi ikinä:
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: auton vaihto

Post by Koodiapina »

Post Reply