Ylivoimainen homma minulle, julkaisen lähdekoodin jos siitä jollekin hyötyä on.

Jos jaksatte vääntää niin voitte laittaa kuvia ^^

Lataa Filefrontista korjattu versio

Kyse on siis pelkästä pienestä tekstipelistä, jossa on vaihtoehtoja grindata, ostaa parannusjuomia ja parempia miekkoja. Blessed swordista aina kolmosluokan enchanted onyx swordiin tulee huimia bonuksia xpn suhteen.

Arvostelkaa, mutta älkää olko liian kriittisiä

EDIT. Viilailtu bugi, asekauppa ei toiminut, toimiva versio jaossa

EDIT.2. Juu voi olla. Taas yks liiankin sitkeä bugi on se että kauppa kyllä toimii mutta sieltä ei pysty ostamaan mitään, kaikki muuttujat yms on kunnossa. Kaipa tämä tästä sutviutuu mikäli joku oikeasta jaksaa tätä pelata?

EDIT.3. Lähdekoodit ulkona julkisesti

Kielenä toimii coolbasic. (www.coolbasic.com)

Lainaus:FrameLimit 20

nxp=2
cash=10
HP=10
pots=0

mainloop:
Repeat

aikavar+1
hiid=aikavar/100

If xp>nxp Then lvl+1
If xp>nxp Then nxp=nxp*2

Text 20,20,"1. Grinding!"
Text 20,30,"2. Buy HP potion"
Text 20,40,"3. Drink Potion!"
Text 20,50,"4. Buy weapons"
Text 20,60,"F5 to Save game"
Text 20,70,"F7 to Load game"


Text 200,20,"HP: "+hp
Text 200,30,"Cash: "+cash
Text 200,40,"LvL: "+lvl
Text 200,50,"EXP: "+xp
Text 200,60,"Needed EXP: "+nxp
Text 200,70,"HP Pots: "+pots
Text 200,80,"Weapon: "+weapon
Text 200,90,"Hiscore ID: "+hiid

If KeyHit(2) Then xp+1
If KeyHit(2) Then cash+3
If KeyHit(2) Then hp-2

If KeyHit(2) And weapon="Blessed sword" Then xp+3
If KeyHit(2) And weapon="Enchanted onyx sword (+1)" Then xp=5
If KeyHit(2) And weapon="Enchanted onyx sword (+2)" Then xp=8
If KeyHit(2) And weapon="Enchanted onyx sword (+3)" Then xp=10

If KeyHit(3) And cash>0 Then cash-5
If KeyHit(3) And cash>0 Then pots+1

If KeyHit(4) And pots>0 Then hp+10
If KeyHit(4) Then pots-1

If KeyHit(5) Then Goto sielut

If hp<0 Then Exit

If KeyHit(cbkeyf5) Then SaveProgram "savegame.sav"
If KeyHit(cbkeyf7) Then LoadProgram "savegame.sav"




DrawScreen

Forever


sielut:


Repeat

DrawGame

Text 100,20,"1. Buy copper sword [50]"
Text 100,30,"2. Buy iron sword [200] "
Text 100,40,"3. Buy elemental sword [1400]"
Text 100,50,"4. Buy blessed sword[11000]"
Text 100,60,"5. Buy Enchanted onyx sword +1 [160000]"
Text 100,70,"6. Buy Enchanted onyx sword +2 [666000]"
Text 100,80,"7. Buy Enchanted onyx sword +3 [5000000]"
Text 100,90,"8. Return"

If KeyDown(2) And cash>50 Then cash-50
If KeyDown(2) And cash>50 Then weapon="Copper sword"
If KeyHit(3) And cash>200 Then cash-200
If KeyHit(3) And cash>200 Then weapon="Iron sword"
If KeyHit(4) And cash>1400 Then cash-1400
If KeyHit(4) And cash>1400 Then weapon="Elemental sword"
If KeyHit(5) And cash>11000 Then cash-11000
If KeyHit(5) And cash>11000 Then weapon="Blessed sword"
If KeyHit(6) And cash>160000 Then cash-160000
If KeyHit(6) And cash>160000 Then weapon="Enchanted onyx sword (+1)"
If KeyHit(7) And cash>666000 Then cash-666000
If KeyHit(7) And cash>660000 Then weapon="Enchanted onyx sword (+2)"
If KeyHit( And cash>5000000 Then cash-5000000
If KeyHit( And cash>5000000 Then weapon="Enchanted onyx sword (+3)"
If KeyHit(9) Then Goto mainloop



Forever

Taitaa olla tämä väärällä alueella?