fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Futter-code

Uploader:	The_Muh
Datum/Zeit:	15.09.2007 16:55:49

    if ((spielerX(1)-objektx)*(spielerX(1)-objektx) + (spielerY(1)-objekty)*(spielerY(1)-objekty)) < 60 then

        laenge +=1

        Punkte += 10 * (laenge) / 2

        if speed = 15 then

            speed = speed

        else

            speed -= 1

        end if



        windowtitle punkte &" Punkte    Laenge = "& laenge



        randomize timer

        objektx = int((rnd*48)+1)*8+8

        objekty = int((rnd*48)+1)*8+8

        for pruefen2 = 1 to laenge+1

            if objektX = spielerX(pruefen2) and objektY = spielerY(pruefen2) then

                randomize timer

                objektx = int((rnd*48)+1)*8+8

                objekty = int((rnd*48)+1)*8+8

                randomize timer

                bonusX = int((rnd*48)+1)*8+8

                bonusY = int((rnd*48)+1)*8+8

            end if

        next pruefen2

    end if

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.