Problem mit data Wichtig! auch für admin

Übersicht

BlitzBasic

Beginners-Corner

	Mathias-Kwiatkowski Betreff: Problem mit data Wichtig! auch für admin	So, Aug 14, 2005 15:14 Antworten mit Zitat
misst bei mir öffnet sich das alte topic nimmer und daher am admin bitte lasse dieses topic bestehen und lösche das alte, Danke im vorraus! damit auch ich eure antworten lesen kann bitte schreibt sie hier hin, dfanke, nun das problem ich habe mir diesen quellcode abgeschrieben, danke deswegen! aber ich weiss nich wie die function aussehen muss hier nochmal der quellcode BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 Global breite=99 ;X Global hoehe=99 ;Y Dim welt(breite,hoehe) Restore weltdaten For x=0 To 99 For y=0 To 99 Read index welt (x,y)=index Next Next Global tilewidth=32 ;breite Global tileheight=32 ;hoehe Global playerx=0 : playery=0 For y=0 To 19 For x=0 To 19 DrawImage tilegrafik(welt(player+x,playery+y)),xtilewidth,ytileheight Next Next Function tilegrafik() grass=LoadImage(\"grass.bmp\") wasser=LoadImage (\"wasser.bmp\") haus=LoadImage(\"haus.bmp\") strasse=LoadImage(\"strasse.bmp\") End Function .weltdaten ;alle data sachen drin danke für jede hilfe

Mathias-Kwiatkowski

Betreff: Problem mit data Wichtig! auch für admin

So, Aug 14, 2005 15:14
Antworten mit Zitat

misst bei mir öffnet sich das alte topic nimmer und daher am admin bitte lasse dieses topic bestehen und lösche das alte, Danke im vorraus!

damit auch ich eure antworten lesen kann bitte schreibt sie hier hin, dfanke, nun das problem ich habe mir diesen quellcode abgeschrieben, danke deswegen! aber ich weiss nich wie die function aussehen muss
hier nochmal der quellcode

BlitzBasic: [AUSKLAPPEN]


Graphics 800,600,32,2



Global breite=99   ;X
Global hoehe=99  ;Y

Dim welt(breite,hoehe)



Restore weltdaten


For x=0 To 99
 For y=0 To 99
   Read index
   welt (x,y)=index
 Next
Next

Global tilewidth=32 ;breite
Global tileheight=32 ;hoehe

Global playerx=0 : playery=0

For y=0 To 19
 For x=0 To 19
  DrawImage tilegrafik(welt(player+x,playery+y)),x*tilewidth,y*tileheight
 Next
Next






Function tilegrafik()


grass=LoadImage(\"grass.bmp\")
wasser=LoadImage (\"wasser.bmp\")
haus=LoadImage(\"haus.bmp\")
strasse=LoadImage(\"strasse.bmp\")

End Function














.weltdaten
;alle data sachen drin

danke für jede hilfe

	Kryan	So, Aug 14, 2005 19:35 Antworten mit Zitat
was ist denn dein genaues problem?
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

So, Aug 14, 2005 19:35
Antworten mit Zitat

was ist denn dein genaues problem? Very Happy

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	D2006 Administrator	So, Aug 14, 2005 20:12 Antworten mit Zitat
~Gelöscht~ Ich habe den anderen Thread entfernt. MfG D2006

D2006

Administrator

So, Aug 14, 2005 20:12
Antworten mit Zitat

~Gelöscht~
Ich habe den anderen Thread entfernt.

MfG
D2006

	Mathias-Kwiatkowski	So, Aug 14, 2005 20:26 Antworten mit Zitat
mein problemis das ich net weis was in der function stehen muss damit das programm funktioniert

Mathias-Kwiatkowski

So, Aug 14, 2005 20:26
Antworten mit Zitat

mein problemis das ich net weis was in der function stehen muss damit das programm funktioniert

	Klip	So, Aug 14, 2005 22:45 Antworten mit Zitat
Öhm, du willst die Funktion malen? Wie kannst du Grafiken, die in einer Funktion als lokal definiert werden, im Hauptprogramm benutzen? Und wieso bitte versuchst du, mit DrawImage eine Funktion aufzurufen?! Zeile: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] DrawImage tilegrafik(welt(player+x,playery+y)),xtilewidth,ytileheight

Klip

So, Aug 14, 2005 22:45
Antworten mit Zitat

Öhm, du willst die Funktion malen? Wie kannst du Grafiken, die in einer Funktion als lokal definiert werden, im Hauptprogramm benutzen?

Und wieso bitte versuchst du, mit DrawImage eine Funktion aufzurufen?!

Zeile:
BlitzBasic: [AUSKLAPPEN]

DrawImage tilegrafik(welt(player+x,playery+y)),x*tilewidth,y*tileheight

	Vertex	Mo, Aug 15, 2005 1:14 Antworten mit Zitat
Jup, du lädst 400 mal die selben Bilder. Also die Variablen grass, haus, wasser, strasse Global machen, und gleich am anfang: Code: [AUSKLAPPEN] [EINKLAPPEN] grass=LoadImage("grass.bmp") wasser=LoadImage ("wasser.bmp") haus=LoadImage("haus.bmp") strasse=LoadImage("strasse.bmp") Dann eben wie Klip beschreibt. mfg olli
vertex.dreamfall.at \| GitHub

Vertex

Mo, Aug 15, 2005 1:14
Antworten mit Zitat

Jup, du lädst 400 mal die selben Bilder. Also die Variablen grass, haus, wasser, strasse Global machen, und gleich am anfang:
Code: [AUSKLAPPEN]

grass=LoadImage("grass.bmp")
wasser=LoadImage ("wasser.bmp")
haus=LoadImage("haus.bmp")
strasse=LoadImage("strasse.bmp")

Dann eben wie Klip beschreibt.

mfg olli

vertex.dreamfall.at | GitHub

	Mathias-Kwiatkowski	Mo, Aug 15, 2005 11:02 Antworten mit Zitat
und was kommt dann in dieser procedure? wenn das geladeneda raus is?

Mathias-Kwiatkowski

Mo, Aug 15, 2005 11:02
Antworten mit Zitat

und was kommt dann in dieser procedure?

wenn das geladeneda raus is?

	Dreamora	Mo, Aug 15, 2005 11:06 Antworten mit Zitat
in die funktion garnix, denn sie tut ja ohnehin nix sprich kannst sie weglassen und direkt welt (x,y) benutzen
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mo, Aug 15, 2005 11:06
Antworten mit Zitat

in die funktion garnix, denn sie tut ja ohnehin nix sprich kannst sie weglassen und direkt welt (x,y) benutzen

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Alfadur	Mo, Aug 15, 2005 12:26 Antworten mit Zitat
cool wäre es erstmal wenn er sagen würde was die funktion machen soll, oder was das ganze programm machen soll. irgendwie ists ja schon klar und ersichtlich, aber er sagt keinen ton, weiß er es etwa selber nicht?
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Mo, Aug 15, 2005 12:26
Antworten mit Zitat

cool wäre es erstmal wenn er sagen würde was die funktion machen soll, oder was das ganze programm machen soll. irgendwie ists ja schon klar und ersichtlich, aber er sagt keinen ton, weiß er es etwa selber nicht?

A Cray is the only computer that runs an endless loop in less than four hours.

	Ebola33	Mo, Aug 15, 2005 17:04 Antworten mit Zitat
Holla, hier habe ich wohl was verpasst. Also der alte Thread existiert ja nicht mehr. Diesen code hat er von mir und das ist keine funktion sondern ein feld wo die grafiken drin gespeichert sind. also so : BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim tilegrafik(4) tilegrafik(1) = LoadImage(\"grass.bmp\") tilegrafik(2) = LoadImage(\"wasser.bmp\") tilegrafik(3) = LoadImage(\"haus.bmp\") tilegrafik(4) = LoadImage(\"strasse.bmp\") Hab ich ihm aber gesagt daß er so ein array benötigt. EDIT : So sollte es aussehen@Matthias BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() Dim TileGrafik(4) TileGrafik(1) = LoadImage(\"grass.bmp\") TileGrafik(2) = LoadImage(\"wasser.bmp\") TileGrafik(3) = LoadImage(\"haus.bmp\") TileGrafik(4) = LoadImage(\"strasse.bmp\") Global breite=99 ;X Global hoehe=99 ;Y Dim welt(breite,hoehe) ;Restore weltdaten For x=0 To 99 For y=0 To 99 ;Read index index = Rand(1,4) welt (x,y)=index Next Next Global tilewidth=32 ;breite Global tileheight=32 ;hoehe Global playerx=0 : playery=0 While Not KeyHit(1) Cls For y=0 To 19 For x=0 To 19 DrawImage tilegrafik(welt(playerx+x,playery+y)),xtilewidth,ytileheight Next Next If KeyDown(200) Then playery=playery-1 If playery<0 Then playery=0 EndIf If KeyDown(208) Then playery=playery+1 If playery>79 Then playery=79 EndIf If KeyDown(205) Then playerx=playerx+1 If playerx>79 Then playerx=79 EndIf If KeyDown(203) Then playerx=playerx-1 If playerx<0 Then playerx=0 EndIf Flip Wend mfg
ansteckend... verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

Ebola33

Mo, Aug 15, 2005 17:04
Antworten mit Zitat

Holla,
hier habe ich wohl was verpasst. Also der alte Thread existiert ja nicht mehr. Diesen code hat er von mir und das ist keine funktion sondern ein feld wo die grafiken drin gespeichert sind. also so :
BlitzBasic: [AUSKLAPPEN]



Dim tilegrafik(4)

tilegrafik(1) = LoadImage(\"grass.bmp\")
tilegrafik(2) = LoadImage(\"wasser.bmp\")
tilegrafik(3) = LoadImage(\"haus.bmp\")
tilegrafik(4) = LoadImage(\"strasse.bmp\")

Hab ich ihm aber gesagt daß er so ein array benötigt. Wink

EDIT : So sollte es aussehen@Matthias

BlitzBasic: [AUSKLAPPEN]


Graphics 800,600,32,2
SetBuffer BackBuffer()

Dim TileGrafik(4)

TileGrafik(1) = LoadImage(\"grass.bmp\")
TileGrafik(2) = LoadImage(\"wasser.bmp\")
TileGrafik(3) = LoadImage(\"haus.bmp\")
TileGrafik(4) = LoadImage(\"strasse.bmp\") 

Global breite=99   ;X
Global hoehe=99  ;Y

Dim welt(breite,hoehe)

;Restore weltdaten

For x=0 To 99
 For y=0 To 99
   ;Read index
	index = Rand(1,4)
   welt (x,y)=index
 Next
Next

Global tilewidth=32 ;breite
Global tileheight=32 ;hoehe
Global playerx=0 : playery=0



While Not KeyHit(1)
Cls

For y=0 To 19
 For x=0 To 19
  DrawImage tilegrafik(welt(playerx+x,playery+y)),x*tilewidth,y*tileheight
 Next
Next

If KeyDown(200) Then 
	playery=playery-1
	If playery<0 Then playery=0
EndIf
If KeyDown(208) Then 
	playery=playery+1
	If playery>79 Then playery=79
EndIf
If KeyDown(205) Then 
	playerx=playerx+1
	If playerx>79 Then playerx=79
EndIf
If KeyDown(203) Then 
	playerx=playerx-1
	If playerx<0 Then playerx=0
EndIf
Flip
Wend

mfg

ansteckend... Wink

verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

	Mathias-Kwiatkowski	Di, Aug 16, 2005 0:32 Antworten mit Zitat
oh, danke na dann! sorry

Mathias-Kwiatkowski

Di, Aug 16, 2005 0:32
Antworten mit Zitat

oh, danke

na dann! sorry

	Mathias-Kwiatkowski	Di, Aug 16, 2005 11:56 Antworten mit Zitat
mhh der code funct aber net wirklich... habe dort data 1,1,1, usw. usw. alles 100 mal gemacht nur das problem liegt darian das tilegrafik 1 z.b. grass is so und wenn ich ein data feld mit 1 habe dann habe ich logischerweise nur grass, dieses habe ich aber nicht! bei mir is alles kunterbund! woran liegt das? und warum is dieser befehl rausgenommen? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For x=0 To 99 For y=0 To 99 ;Read index

Mathias-Kwiatkowski

Di, Aug 16, 2005 11:56
Antworten mit Zitat

mhh der code funct aber net wirklich...

habe dort
data 1,1,1, usw.
usw.

alles 100 mal gemacht nur das problem liegt darian das tilegrafik 1 z.b. grass is so und wenn ich ein data feld mit 1 habe dann habe ich logischerweise nur grass, dieses habe ich aber nicht! bei mir is alles kunterbund! woran liegt das?

und warum is dieser befehl rausgenommen?

BlitzBasic: [AUSKLAPPEN]



For x=0 To 99 
 For y=0 To 99 
   ;Read index

	d-bug	Di, Aug 16, 2005 12:31 Antworten mit Zitat
@Matthias krztbfgblubbla (unsaussprechlicher Name ) Ebola hat dir lediglich ein Beispiel gezeigt wie es strukturell zu handhaben ist. Code: [AUSKLAPPEN] [EINKLAPPEN] For x=0 To 99 For y=0 To 99 ;Read index index = Rand(1,4) welt (x,y)=index Next Next Diese Stelle im Code wählt die Tiles per Zufall aus und setzt sie in die Welt. Deswegen werden sie gemischt. Du wirst wohl nicht darum herum kommen, diese Stelle durch einen eigenen Code zu ersetzen, der deine Data's vernünftig ausliest. greetz

d-bug

Di, Aug 16, 2005 12:31
Antworten mit Zitat

@Matthias krztbfgblubbla (unsaussprechlicher Name Wink

)

Ebola hat dir lediglich ein Beispiel gezeigt wie es strukturell zu handhaben ist.

Code: [AUSKLAPPEN]

For x=0 To 99
For y=0 To 99
;Read index
index = Rand(1,4)
welt (x,y)=index
Next
Next

Diese Stelle im Code wählt die Tiles per Zufall aus und setzt sie in die Welt. Deswegen werden sie gemischt. Du wirst wohl nicht darum herum kommen, diese Stelle durch einen eigenen Code zu ersetzen, der deine Data's vernünftig ausliest. Wink

greetz

	Alfadur	Di, Aug 16, 2005 13:14 Antworten mit Zitat
du wirst auch nicht darum kommen dich erstmal mit den befehlen von bb auseinanderzusetzen um zu verstehen was der code macht den du einfach irgendwo abschreibst/kopierst....
A Cray is the only computer that runs an endless loop in less than four hours.

Alfadur

Di, Aug 16, 2005 13:14
Antworten mit Zitat

du wirst auch nicht darum kommen dich erstmal mit den befehlen von bb auseinanderzusetzen um zu verstehen was der code macht den du einfach irgendwo abschreibst/kopierst....

A Cray is the only computer that runs an endless loop in less than four hours.

	Ebola33	Mi, Aug 17, 2005 1:10 Antworten mit Zitat
Genau, D:BUG und Alfadur treffen es auf den Punkt. Und wenn ich mir hier deine ganzen Threads mal so anschaue fällt mir auf daß du an mindestens 37 Projekten gleichzeitig arbeitest - Respekt Aber wie wär's denn wenn du mal 1. Sache richtig machen würdest und dich erst dann der nächsten zu wendest ? Dann könntest du dir nämlich über die hälfte deiner Threads sparen Mfg Ebola
ansteckend... verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

Ebola33

Mi, Aug 17, 2005 1:10
Antworten mit Zitat

Genau, D:BUG und Alfadur treffen es auf den Punkt. Und wenn ich mir hier deine ganzen Threads mal so anschaue fällt mir auf daß du an mindestens 37 Projekten gleichzeitig arbeitest Shocked

- Respekt

Aber wie wär's denn wenn du mal 1. Sache richtig machen würdest und dich erst dann der nächsten zu wendest ?
Dann könntest du dir nämlich über die hälfte deiner Threads sparen Wink

Mfg Ebola

ansteckend... Wink

verstaubtes Projekt : http://www.mitglied.lycos.de/ebola33/

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Problem mit data Wichtig! auch für admin

Betreff: Problem mit data Wichtig! auch für admin