Verfügbare Informationen zu "Spiel geht nicht"
Qualität des Beitrags: Beteiligte Poster: Moritz - Dragorad Forum: Tutorials.at Forenbeschreibung: Programmierforum aus dem Unterforum: Pascal Antworten: 3 Forum gestartet am: Mittwoch 19.04.2006 Sprache: deutsch Link zum Originaltopic: Spiel geht nicht Letzte Antwort: vor 16 Jahren, 5 Monaten, 25 Tagen, 23 Stunden, 13 Minuten
Alle Beiträge und Antworten zu "Spiel geht nicht"
Re: Spiel geht nicht
Moritz - 04.11.2007, 21:37Spiel geht nicht
Hallo,
ich habe mal versucht ein kleines "Spiel" zu programmieren (erst einmal nur eine sich bewegende "#" mit Hintergrund):
1.:
Code:
program game;
uses crt, printscreen;
var _N: integer=1;
eingabe: char;
x1, y1: integer;
begin
x:=12;
y:=12;
{-------------------------------------------------------}
repeat
eingabe:=readkey;
screen (_N);
case eingabe of
'a': x1:=x1-1;
'd': x1:=x1+1;
's': y1:=y1+1;
'w': y1:=y1-1;
end;
gotoxy (x1, y1);
write ('#');
until (ord(eingabe)=27);
end.
hier die unit:
Code:
unit printscreen;
interface
uses crt;
var lvl: text;
_p : char;
x, y: integer;
const ln: integer = 24;
cl: integer = 80;
procedure screen (_N: integer);
implementation
procedure screen (_N: integer);
begin
case _N of
1: assign (lvl, 'C:\tmg\lvl1.txt');
2: assign (lvl, 'C:\tmg\lvl2.txt');
end;
reset (lvl);
for y:=1 to ln do
begin
for x:=1 to cl do
begin
readln (lvl, _p);
gotoxy (x, y);
write (_p);
end;
end;
end;
end.
und hier ein Programm zum erstellen der Levels in dem Spiel
Code:
program makelvl;
uses crt;
var lvl: text;
x, y, xx, yy: integer;
wall, waller: char;
const path: string = 'C:\tmg\lvl1.txt';
_x: integer = 80;
_y: integer = 24;
begin
{========================##-makelvl-##==============================}
write( 'Programm wird gestartet.....');
delay (2000);
clrscr;
{========================##-makelvl-##==============================}
assign (lvl, path);
rewrite (lvl);
yy:=1;
xx:=1;
for y:=1 to _y do
begin
inc (yy);
for x:=1 to _x do
begin
inc (yy);
wall:=readkey;
if ord(wall) =27 then
begin
for y:=yy to _y do
begin
for x:=xx to _x do
begin
waller:=' ';
writeln (lvl, waller);
end;
end;
writeln (lvl, wall);
gotoxy (x, y);
write (wall);
end;
end;
end;
readkey;
delay (1000);
readkey;
clrscr;
write ('zum beenden Taste drücken');
readkey;
clrscr;
write ('Programm wird beendet......');
delay (3000);
end.
(das zweite Programm soll den Hintergrund für 'game' editieren, und wenn eingabe=[esc] dann soll es für den rest der Datei eventuell notwendige Leerzeichen einfügen)
aber irgendwie funktioniert es nicht?!?!?!?!
Re: Spiel geht nicht
Dragorad - 04.11.2007, 23:53
Unit hat folgendes geschrieben: const ln: integer = 24;
cl: integer = 80;
ich würde mal denken, dass Konstanten so deklariert werden:
Code: const ln=24;
also ohne das Integer (das ja für 'ne Variable gedacht ist),
ansonsten wäre hilfreich zu wissen was passiert, wenn du zu compilieren versuchst ...
Re: Spiel geht nicht
Moritz - 05.11.2007, 18:21
Man kann constanten auch mit
Code:
const x: integer = 33;
benennen,
und daran liegt der Fehler auch nicht. Das Problem ist, dass erstens Beim "editor-Programm" der effekt, dass beim Beenden mit esc eventuell notwendige Leerzeichen angefügt werden, nicht funktioniert, und zweitens dass beim "game"-Programm zwar der Hintergrund angezeigt wird, aber nicht die '#' bzw sie bewegt sich nicht und bleibt stur unten links in der ecke.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Tutorials.at
Volumenrechner [Erledigt] - gepostet von AQE89 am Sonntag 28.05.2006
Mache ich den richtigen Kurs? - gepostet von Cypher am Samstag 03.03.2007
Frauen? - gepostet von Dubbel am Montag 08.01.2007
Problembeicht senden alert bei Rechner - gepostet von Tropf am Sonntag 01.10.2006
fflush(stdin) verhält sich komisch - gepostet von detewe89 am Donnerstag 14.06.2007
Dev C++ ein Download-Problem - gepostet von mismis am Mittwoch 27.12.2006
Ein Project fuer Forum, warum nicht ? - gepostet von EndSub am Freitag 14.07.2006
Ähnliche Beiträge wie "Spiel geht nicht"
WM Total (Schweiz spiel in gefahr) - Angel (Sonntag 18.06.2006)
bin dabei wenns kla geht ! - Dj One Shotz (Sonntag 18.03.2007)
fragen zum spiel - Der Arier (Dienstag 18.04.2006)
so geht es nicht weiter - my-key (Mittwoch 19.09.2007)
Das BB4U Sperrung Spiel - GenrePöpel (Mittwoch 03.05.2006)
SUCHE JEMAND FÜR DONNERSTAG ZUR GANG BANG PARTY - nike88 (Montag 06.12.2010)
Wie geht`s euch heute? - Jen (Freitag 22.09.2006)
Spiel gegen Langeweile - Todesengelchen (Mittwoch 16.02.2005)
Filmzitate Spiel - Yorî (Samstag 24.03.2007)
Frage - Antwort Spiel - Ashurek (Dienstag 06.03.2007)