hur gör jag för att få något att röra sig i QB (börja inte tjaffsa nu om att det är gammalt och sånt) Hej igen om du gillar qb-spel så kan du ladda hem ett spel via länken nedan Jag skulle göra typ såhär (den här koden styr runt en pixel på skärmen): Jag ber om ursäkt om någon försökt använda koden från mitt förra inlägg, den var inte testad, utan bara snabbt hopraffsad. Här kommer en kodsnutt för samma ändamål som fungerar: hehe..=D QB är och förblir roligast!!! Det är kungen :D jag har inte gjort något på länge..men jag brukar sitta lite då och då med att läsa lite i hjälpen och på så sätt lära mig...=) Om någon är intresserad av konsolaktiga RPGn skrivna i QB, så vet jag en tävling om vem som gör det bästa min RPGt (max 10h speltid). Den är tyvärr inte öppen för fler tävlande, men man kan ju kolla på andras alster, dessutom kan det mycket väl bli en till tävling nästa år. jag har inte heller hållit på på ett tag nu... hur gör jag!!!!
jag vill bara kunna få något att föra sig på skärmen och man ska kunna styra det med W,S,A,D.
tjafsa inte om att det är gammalt!!!Sv: hur gör jag!!!!
Kolla den här siten
http://www.programmersheaven.com/zone6/index.htm
mvh
SvenSv: hur gör jag!!!!
http://user.tninet.se/~gcu225r/zips/mazken2.zipSv: hur gör jag!!!!
screen 12
do until inkey$ = chr$(27) ' Kör tills användaren trycker escape
select case inkey$
case "w"
y = y - 1
case "s"
y = y + 1
case "a"
x = x - 1
case "d"
x = x + 1
end select
pset (x, y), 15
loopSv: hur gör jag!!!!
SCREEN 12
x = 320
y = 240
DO UNTIL key$ = CHR$(27)
key$ = INKEY$
IF NOT key$ = "" THEN
PSET (x, y), 0
END IF
IF key$ = "w" THEN y = y - 5
IF key$ = "s" THEN y = y + 5
IF key$ = "a" THEN x = x - 5
IF key$ = "d" THEN x = x + 5
PSET (x, y), 15
LOOP
/ValdermanSv: hur gör jag!!!!
ja..lite gammalt inlägg...men jag tackar dig...=)
gillar fortfarande QB..=)
MVH
/bjSv: hur gör jag!!!!
Använd Put och Get för grafik, så kan du välja vilket sätt
bilden ska läggas in på oxå. Använd valdemars exempel
och ändra pset till put och get:
SCREEN 12
x = 320
y = 240
DO UNTIL key$ = CHR$(27)
key$ = INKEY$
IF NOT key$ = "" THEN
PUT (x, y), matris, behandling
END IF
IF key$ = "w" THEN y = y - 5
IF key$ = "s" THEN y = y + 5
IF key$ = "a" THEN x = x - 5
IF key$ = "d" THEN x = x + 5
PUT (x, y), matris, behandling
LOOP
matrisen är den som du lagrat bilden i. behandling är hur
bilden skrivs ut, ex. AND, OR, XOR.. ja du kan ju kolla QB
index där står allt...
mvh
John
ps. Vad är det för nåt du gör?? *nyfiken* ds.Sv: hur gör jag!!!!
/bj
ps: vad gör du då? =)Sv: hur gör jag!!!!
Sv: hur gör jag!!!!
men förr gjorde jag mest små enkla evighetsspel
typ snake, samt ett strategispel och ett halvklart
racespel, samt diverse kul grejer man kan ha nytta
av typ en 3D motor mm....
jag har länge funderat på att göra en uppföljare till
mitt strategispel (ships) som skulle gå i klass med
modernare strategispel som t.ex. command & conquer.
Men det skulle bli otroligt svårt och inte minst
tidskrävande så det blev tyvärr inte nåt... men
tanken lever kvar :)