Mijn Wumpus game

Vragen en suggesties over het programmeren van spelletjes, sprites en dergelijke in Liberty BASIC

Moderator: anthonio

Mijn Wumpus game

Berichtdoor Gordon » za jan 26, 2008 12:04 am

Hier is mijn versie van de Wumpus
Veel plezier ermee.

Gordon

Het programma is iets groter dan 2 MB.
Daarom heb ik de twee grootste plaatjes in het volgende bericht geplaatst.
Bijlagen
wumpusGordon.zip
(1.26 MiB) 174 keer gedownload
wumpusbmp.zip
(1.55 MiB) 168 keer gedownload
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: Mijn Wumpus game

Berichtdoor Abcott » za jan 26, 2008 4:07 pm

Dag Gordon,

Leuk programma, maar zou je niet ook een
reuk DLL ontwikkelen?
Dit lijkt me een leerzaam programma te zijn.
Kun je dit programma in JustBASIC schrijven?

Succes.

Abcott.
Avatar gebruiker
Abcott
 
Berichten: 115
Geregistreerd: wo mei 25, 2005 9:58 pm

Re: Mijn Wumpus game

Berichtdoor Gordon » zo feb 03, 2008 3:06 pm

Abcott schreef:Dag Gordon,

Leuk programma, maar zou je niet ook een
reuk DLL ontwikkelen?
Dit lijkt me een leerzaam programma te zijn.
Kun je dit programma in JustBASIC schrijven?

Succes.

Abcott.


:lol:
Natuurlijk heb ik dat geprobeerd.
De hele zolder ruikt hier naar vleermuizen.

Het programma kan eenvoudig in JustBASIC geschreven worden.
De enige DLL die gebruikt wordt is niet strikt noodzakelijk.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: Mijn Wumpus game

Berichtdoor Gordon » ma feb 04, 2008 12:29 am

Code: Selecteer alles
dim b(22),b$(22)

'nomainwin

button #1.b1, "      ", [k1],ul 100,60
button #1.b2, "      ", [k2],ul 020,20
button #1.b3, "      ", [k3],ul 100,20
button #1.b4, "      ", [k4],ul 180,20

open "" for window as #1
#1 "trapclose [quit]"

[firstimeSetup]
r1 =(int(rnd(0)*22)+1)
b(1) = r1

            for Tn = 1 to b(1)
            read r2,r3,r4
            next Tn

            b(1) = r1
            b(2) = r2
            b(3) = r3
            b(4) = r4

b$(1) = "Cave "+str$(b(1))
b$(2) = "Cave "+str$(b(2))
b$(3) = "Cave "+str$(b(3))
b$(4) = "Cave "+str$(b(4))

            #1.b1 b$(1)
            #1.b2 b$(2)
            #1.b3 b$(3)
            #1.b4 b$(4)
wait

[quit]
close #1
end



[k1]
print "1e knop "+b$(1)
wait


[k2]
print "2e knop "+b$(2)
r1 = r2
b(1) = r1
            restore
            for Tn = 1 to b(1)
            read r2,r3,r4
            next Tn

            b(1) = r1
            b(2) = r2
            b(3) = r3
            b(4) = r4

b$(1) = "Cave "+str$(b(1))
b$(2) = "Cave "+str$(b(2))
b$(3) = "Cave "+str$(b(3))
b$(4) = "Cave "+str$(b(4))

            #1.b1 b$(1)
            #1.b2 b$(2)
            #1.b3 b$(3)
            #1.b4 b$(4)
wait

[k3]
print "3e knop "+b$(3)
r1 = r3
b(1) = r1
            restore
            for Tn = 1 to b(1)
            read r2,r3,r4
            next Tn

            b(1) = r1
            b(2) = r2
            b(3) = r3
            b(4) = r4

b$(1) = "Cave "+str$(b(1))
b$(2) = "Cave "+str$(b(2))
b$(3) = "Cave "+str$(b(3))
b$(4) = "Cave "+str$(b(4))

            #1.b1 b$(1)
            #1.b2 b$(2)
            #1.b3 b$(3)
            #1.b4 b$(4)
wait

[k4]
print "4e knop "+b$(4)
r1 = r4
b(1) = r1
            restore
            for Tn = 1 to b(1)
            read r2,r3,r4
            next Tn

            b(1) = r1
            b(2) = r2
            b(3) = r3
            b(4) = r4

b$(1) = "Cave "+str$(b(1))
b$(2) = "Cave "+str$(b(2))
b$(3) = "Cave "+str$(b(3))
b$(4) = "Cave "+str$(b(4))

            #1.b1 b$(1)
            #1.b2 b$(2)
            #1.b3 b$(3)
            #1.b4 b$(4)

wait

            data 11,02,12, 01,03,13, 02,04,14, 03,05,15, 04,06,16, 05,07,17
            data 06,08,18, 07,09,19, 08,10,20, 09,11,21, 10,01,22, 22,13,01
            data 12,14,02, 13,15,03, 14,16,04, 15,17,05, 16,18,06, 17,19,07
            data 18,20,08, 19,21,09, 20,22,10, 21,12,11
wait


Hier is een stukje code waarmee de teksten op de knoppen
wijzigen zonder gebruikt te maken van een DLL.
Met deze techniek kan Wumpus aangepast worden voor JustBASIC.

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar Games

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron