Formeln in VB (Kollisionssystem)

[Asmodial]

Es ist 2D (dann sollte es ja eigentlich einfach sein)

EDIT:
Ich habs jetzt tatsächlich hingekriegt o.O Ich habe bloss einen winzigen
Fehler gemacht... ich hätte 2 Felder blockend machen sollen... Allerdings nur bei de Abfrage.

Code: Alles auswählen

If Objekt((Charakters(1).X \ 25 + 1), Charakters(1).Y \ 25 + 1).Block <> True And Objekt((Charakters(1).X \ 25 + 1), Charakters(1).Y \ 25).Block <> True Then Charakters(1).X = Charakters(1).X + 2
End If

Dann wird alles noch durch Variabeln ersetzt und es funktioniert....
Teilweise Jetzt wird immer ein Pixel zu spät kollidiert. Wär ja nicht so schlimm, aber dann kann man an den Wänden nicht nach oben/unten/was auch immer laufen, sondern muss zuerst weg von der Wand :/

Klingt leider etwas einfacher (und weniger an Quelltext ) als es ist.