Pankki, rahat ja tuotteet

[-Guest-]

Moro,

Ongelman nimi on se että systeemini pankin, kodin ja tuotteiden määrien välillä ei toimi. Kun pankissani ("pankki:") on rahaa alussa 1000€, voin nostaa sieltä itselleni vaikka 100€ (tämä toimii). Mutta siirtyminen peliin ("goto peli") tuottaa ongelmia. Peli ei tavallaan enää muistaa raha-muuttujiani ja pelin alussa pitäisi määritellä "rahat=1000" <-- jokin summa rahoilleni. Mutta tämä systeemihän muuttaa alkuperäisen rahatilanteeni yhtäkkiä määriteltyyn tuhanteen.

Olen joskus nähnyt esimerkin miten peli muistaa pelaajan nimen vielä pelissäkin. Tämän pitäisi toimia samalla tavalla. Tuohon summan kohdalle piti vain laittaa jonkinlainen #%&?=*^ (jokin noista?)-merkki. Ja nyt kun en satu sitä muistamaan. En tiedä tajusiko kukaan vielä mitään. Mutta ongelma syntyy ilmeisesti hyppiessä pankin ja kodin välillä, summien heitellessä ihan vääriksi. Palatessani pankkiin, siellä ei olekaan sitä 512€ joka sinne viimeksi jäi vaan "1000€" minkä pitäisi olla se määritelty aloitusraha. Eikä peli enää muista kodissa (työosiossa) ansaittuja rahojakaan. Miten tämän hyppimisen voisi saada toimivaksi, että sama laskuri pysyisi yllä rahatilanteesta, aina pankkiin palatessa tai kotiin mennessä, ja samalla tuoton ja verojen laskiessa.

Kun miettii tarkasti, tämä on paljon yksinkertaisempaa kuin se näyttää. Osaan aina vain selittää kaiken sillä hankalimmalla tavalla. Pahoittelen.

[elmo123]

Pistä ihan pelin alkuun tuo raha=1000, älä missään nimessä muualle pelin keskelle, muutenhan rahat pysyy tonnissa ja voi ostaa loputtomasti tavaroita. Peli voi muistaa pelaajan nimen seuraavallakin käynnistyskerralla, jos pistät SaveProgram tallennus_paikka$
pelin tallennuksessa ja LoadProgram tallennus_nimi$ ja tallennuspaikkaan pääsee laittamalla GotoSavedLocation.
Jos haluat pelaajan nimen säilyvän, pelin alussa pistä:

Code: Select all

Repeat
nimi$ = Input("Anna pelaajan nimi:")
DrawSCreen
Until KeyHit(28)
CloseInput
'ja halutessa vaikka salasana ettei kukaan pääse sorkkimaan :D :
Repeat
salasana$ = Input("Anna pelaajan salasana:")
DrawScreen
Until KeyHit(28)
CloseInput

'...

'kun lataat pelin, muista kysyä salasanaa
Repeat
check$ = Input("Anna pelaajan salasana:")
DrawScreen
Until KeyHit(28)
CloseInput
If check$=salasana$ Then GotoSavedLocation Else MakeError "Väärä salasana!" 

Jos ymmärsin väärin ongelmasi niin kerro tarkemmin

[Purple]

Code: Select all

'Rahat
Raha = 1000 'rahaa on alussa 1000
'Tekstit
AddText "Coins:" 'teksti
Text 50, 0, Raha 'ilmioittaa raha määrän ruudulle
DrawScreen 'päivittää ruudun
'Rahaa vähentyy noin 5 sekunnin kuluttua
'Ota rahaa 500euroa
Wait 5000 '5 sekunttia
Raha -500 'vähentää rahaa
Text 50, 0, Raha 'ilmoittaa rahat ruudulle ja poistaa vanhan
DrawScreen 'päivittää ruudun
WaitKey 'paina mitä tahansa nappia niin ohjelma sammuu

Auttoikohan tämä mitään Oon vasta alottelia mutta haluun auttaa