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.
auton vaihto
auton vaihto
Paras koodi ikinä:
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
Re: auton vaihto
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)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: auton vaihto
Joo. mutta miten saisin silleen että painan vaikka leftkey tai rightkey niin se vaihtaa sen auton
Miten saisin tuon toimimaan.
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
Paras koodi ikinä:
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
repeat
if keydown (cbkeys) then makeerror "kuolit"
drawscreen
forever
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm