Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Versuch einer KI

Uploader:MitgliedThe_Muh
Datum/Zeit:14.09.2007 23:35:33

if spielerX(1) < objektX then
        newkey = chr(255,77)'rechts
        if key = chr(255,75) and spielerX(1) = 8 then
            if spielerY(1) = 8 then
                newkey = chr(255,80)
            elseif spielerY(1) = 392 then
                newkey = chr(255,72)
            else
                newkey = chr(255,72)
            end if
        end if
    end if
    if spielerX(1) > objektX then
        newkey = chr(255,75)'links
        if key = chr(255,77) and spielerX(1) = 392 then
            if spielerY(1) = 0 then
                newkey = chr(255,80)
            elseif spielerY(1) = 392 then
                newkey = chr(255,72)
            else
                newkey = chr(255,72)
            end if
        end if
    end if
    if spielerY(1) > objektY then
        newkey = CHR(255,72)'oben
        if key = chr(255,80) and spielerY(1) = 8 then
            if spielerX(1) = 8 then
                newkey = chr(255,75)
            elseif spielerX(1) = 392 then
                newkey = chr(255,75)
            else
                newkey = chr(255,75)
            end if
        end if
    end if
    if SpielerY(1) < objektY then
        newkey = chr(255,80)'unten
        if key = chr(255,72) and spielery(1) = 392 then
            if spielerX(1) = 8 then
                newkey = chr(255,75)
            elseif spielerX(1) = 392 then
                newkey = chr(255,75)
            else
                newkey = chr(255,75)
            end if
        end if
    end if