Jeg vil lave et skydespil??

skulle overskriften så ikke have været "jeg vil ha et skydespil"? ;)

Men i princippet er det meget meget nemt at lave et simpelt skydespil. Nogle movieclips med knapper i animeret langs nogle paths og en custom cursor, så har du et meget simpelt skydespil som faktisk kan gøres sjovt. Det eneste script du skal bruge er stop();´s, gotoAndPlay();´s og en enkelt:

onClipEvent (mouseMove) {
this._x = _root._xmouse;
this._y = _root._ymouse;
updateAfterEvent();
}

..så har du lavet det selv :)

(men jeg er ret sikker på at de andre gerne vil give dig kilden til deres alligevel :)

mvh mat

Jeg er vildt skuffet over at xp-invaders ikke er nævnt, så den får du ikke kilden til :P

Hov... Så lige, at der var noget fejl med en tekst-fil. Det er rettet nu. :o)

PS: Jeg ku' nu meget godt li' xp-invaders. Genial feature med exit-fidusen!

alexander, jeg har ikke set xp-invaders vil du ikke lægge et link :)

Michael, jeg synes dit spil var hylende morsomt...og kanon fede tegninger :) har du ikke stadig fla.filen, jeg kunne godt tænke mig at se hvordan du har lavet det. :)))

Man mindes jo de gode gamle dage.... Skal vi snart have en konkurrence igen ? (o;

Jubii interesse for mit gamle spil: http://home19.inet.tele.dk/sirvival/xp-invaders.html

Skal vi snart lave en ny konkurence? Et bilspil måske?

/Alexander

jeg ville gerne være med i en ny konkurrence, selvom jeg ikke er specielt god

Okay, det er så i orden, at I helst vil beholde jeres fla. filer for jer selv, men kan I så fortælle mig hvordan jeg laver en highscore til et skydespil, det er vel noget med, når man er GAME OVER over kalder en txt./asp fil, der sammenligner slutpointene med dem der ligger i databasen eller ???????
Jeg tror det var Michael eller Legende, som sagde det var supernemt. ?

reptil> Det med koden er så nemt. Omkring samme tid, som skydespillet bliv bikset sammen, fik jeg et af de store computernedbrud, hvor to harddiske og et motherboard stod af. Harddisken var selvfølgelig den med mine fla-filer, grafik-filer etc. Så jeg har skam lært at ta' backup. Som bevis kan du se her, hvor jeg får hjælp til opsætning af processor:  http://www.eksperten.dk/spm/256652

Michael>Det var da ærgerligt, det var ellers et sjovt spil, jeg kunne ikke rive min kæreste væk fra computeren :)hun nåede lige at komme på highscore listen i går :)
Men hvad med koden til highscore listen, kan du huske hvordan du gjorde det, eller måske Legende kan ?

Der er mange måder at lave highscore på - de fleste bruger en database, men sådan en fylder som regelt væsenligt mere end en tekstfil - derfor vælger jeg at lave den i en tekstfil!

Jeg har 10 linier hvor scoren står og 10 linier hvor navnene står!

Jeg er ikke speciel sej til asp, så det kan muligvis gøres nemmere, men det virker da!

Og jo du må da gerne se koden til xp-invaders, men jeg tror ikke du kan finde rundt i den!

aspkode for at skrive til highscoren:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../../dindatabaseellertekstmappe/dinhighscoretekstfil.txt")

'henter score
Set f = fso.OpenTextFile(filespec,1)
myarray = Array(f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, request("score"))
myarray1 = Array(f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, f.ReadLine, request("name"))
f.Close

'sortere score
do
    swapped = false
        for y = 0 to ubound(myArray)-1
            if cint(myArray(y)) < cint(myArray(y+1)) then
                tmp = myArray(y)
                myArray(y) = myArray(y+1)
                myArray(y+1) = tmp
               
                tmp = myArray1(y)
                myArray1(y) = myArray1(y+1)
                MyArray1(y+1) = tmp
               
                swapped = true
            end if
    Next
loop while swapped

'skriver score
Set f = fso.OpenTextFile(filespec,2)
for t = 0 to 9
f.WriteLine myArray(t)
Next
for t = 0 to 9
f.WriteLine myArray1(t)
Next
f.Close
response.Write "succes"
%>

aspkode for at læse highscoren:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../../dindatabaseellertekstmappe/dinhighscoretekstfil.txt")

'henter score
Set f = fso.OpenTextFile(filespec,1)
response.Write "num0="&f.ReadLine
response.Write "&num1="&f.ReadLine
response.Write "&num2="&f.ReadLine
response.Write "&num3="&f.ReadLine
response.Write "&num4="&f.ReadLine
response.Write "&num5="&f.ReadLine
response.Write "&num6="&f.ReadLine
response.Write "&num7="&f.ReadLine
response.Write "&num8="&f.ReadLine
response.Write "&num9="&f.ReadLine

response.Write "&nam0="&f.ReadLine
response.Write "&nam1="&f.ReadLine
response.Write "&nam2="&f.ReadLine
response.Write "&nam3="&f.ReadLine
response.Write "&nam4="&f.ReadLine
response.Write "&nam5="&f.ReadLine
response.Write "&nam6="&f.ReadLine
response.Write "&nam7="&f.ReadLine
response.Write "&nam8="&f.ReadLine
response.Write "&nam9="&f.ReadLine
f.Close
%>

Sku' vi lave en ny konkurence? Eller er vi blevet for seriøse til det?

Jeg er påbegyndt mit lille bilspil, hvis det blir' emnet: http://home19.inet.tele.dk/sirvival/car.html

/Alexander

Alexander> Ser meget cool ud. Mener en hel del om det gamle 2-kroners spil fra midten af 80'erne, hvor man skulle drøne rundt på samme slags bane. :o)
Skal du så ikke også ha' det med flere levels, hvor der kommer flere og flere modstandere på, som man kan skal undgå ved at fyre 'røg' efter dem?

Havde tænkt noget i den stil, men er kun i startfasen! Skal lige optimere koden, som er blevet noget bøvlet!

michael --> nu er der kommet en ekstra bil på banen, samt lidt flag man kan samle - point, våben, nye baner og sådan må komme til senere!

Alexander> Cool! :o) Opdagede lige en mindre fejl. I dit radar-vindue kan de blå prikker godt ryge ud af radaren og 'køre' ned på selve spillet. Skal fjenderne ikk' også ha' en eller anden form for intelligens, så de faktisk jagter en.
I det spil, jeg ævlede om, var våbnet nu bare, at når der kommer en bil efter én, så kan man fyre noget røg ud af udstødningsrøret - og når de andre biler så kører ind i det, stopper de i et par sekunder og fortsætter derefter jagten igen...

nice

Hmm så er bilspillet http://home19.inet.tele.dk/sirvival/car.html på det nærmeste spilbart -mangler blot bedre lyde samt en highscore - og derudover kan der naturligvis tilføjes jeg ved ikke hvad!

reptil -> måske er det tid til at lukke spørgsmålet?

UPS, den havde jeg lige glemt :=)...Sådan