Tag%Nacht wechsel

Übersicht BlitzBasic Blitz3D

Neue Antwort erstellen

 

sven123

Betreff: Tag%Nacht wechsel

 BeitragSa, März 12, 2005 18:36
Antworten mit Zitat
Benutzer-Profile anzeigen
So ich habe eine funktion zum Tag und Nact wechsel geschrieben.An bestimmten Uhrt´zeiten wir einfach das Amientlight 0,0,0 erstellt!Mein Problem wenn jetzt z.B 20:00:00 ist soll es im spiel Nacht werden wenn der Soieler das Game aber erst um 20:10:00 startet wird dieser wechsel nicht vollzogen,was kann ich tun dass wenn der Spieler z.b um 20:20:00 startet nacht wird auch wenn ich in meiner Abfrage nur 20:00:00 wird es dunkel angeben habe.
BlitzBasic: [AUSKLAPPEN] 

;Tag&Nacht
Function Tag$Nacht()
TZeit$=CurrentTime()

Select  TZeit$
Case \"7:00:00\"
Case \"8:00:00\"
Case \"9:00:00\"
Case \"10:00:00\"
Case \"11:00:00\"
Case \"12:00:00\"
Case \"13:00:00\"
Case \"14:00:00\"
Case \"15:00:00\"
Case \"16:00:00\"
Case \"17:00:00\"
Case \"18:00:00\"
Case \"19:00:00\"
Case \"20:00:00\"
AmbientLight 0,0,0 
Case \"21:00:00\"
AmbientLight 0,0,0
Case \"22:00:00\"
AmbientLight 0,0,0
Case \"23:00:00\"
AmbientLight 0,0,0
Case \"24:00:00\"
AmbientLight 0,0,0
Case \"1:00:00\"
AmbientLight 0,0,0
Case \"2:00:00\"
AmbientLight 0,0,0 
Case \"3:00:00\"
AmbientLight 0,0,0
Case \"4:00:00\"
AmbientLight 0,0,0
Case \"5:00:00\"
AmbientLight 0,0,0
Case \"6:00:00\"
AmbientLight 0,0,0
End Select 
 
End Function


Ich hoffe ihr versteht mein Problem!
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Digi_

 BeitragSa, März 12, 2005 18:41
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
;Tag&Nacht
Function Tag$Nacht()
TZeit$=Left$(CurrentTime(),2)

Select  TZeit$
Case \"7:\"
Case \"8:\"
Case \"9:\"
Case \"10\"
Case \"11\"
Case \"12\"
Case \"13\"
Case \"14\"
Case \"15\"
Case \"16\"
Case \"17\"
Case \"18\"
Case \"19\"
Case \"20\"
AmbientLight 0,0,0
Case \"21\"
AmbientLight 0,0,0
Case \"22\"
AmbientLight 0,0,0
Case \"23\"
AmbientLight 0,0,0
Case \"24\"
AmbientLight 0,0,0
Case \"1:\"
AmbientLight 0,0,0
Case \"2:\"
AmbientLight 0,0,0
Case \"3:\"
AmbientLight 0,0,0
Case \"4:\"
AmbientLight 0,0,0
Case \"5:\"
AmbientLight 0,0,0
Case \"6:\"
AmbientLight 0,0,0
End Select
 
End Function

so sollte es funktionieren
 

FBI-blitz

 BeitragSa, März 12, 2005 19:45
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich würde einfach solange den String bis zum doppelpunkt nehmen, und dann in integer umwandeln und mit > bzw. < arbeiten!


FBI-blitz
Computer 1: AMD Athlon64 3500+ | nVidia GF 7900GT | 1024 MB DDR-RAM | ASUS A8N-SLI Preimium | 250 GB SATA 2 || WindowsXP | Blitz3D | Blitz+
Computer 2: AMD AthlonXP 2400+ | ATI Radeon 9500 | 512 MB DDR-RAM | MSI K7N2 | 80 GB IDE | 160 GB IDE || WindowsXP | Blitz3D | Blitz+
Computer 3: Intel Pentium MMX | onBoard-Grafik | 32 MB RAM | 1 GB IDE || Windows 98 SE | Blitz+
 

NetPad

 BeitragSa, März 12, 2005 20:26
Antworten mit Zitat
Benutzer-Profile anzeigen
du solltest vielleicht die übergänge noch glätten. dann sieht das sofort viel besser aus.

für tag nacht wechsel kannst du vielleicht folgende funktion benützen:

fortschritt <----wie weit ist der wechsel fortgeschritten?
ziel <----wann ist der wechsel vollzogen?

sin(180/ziel*fortschritt+90)

hier ist noch eine darstellung des graphen. dass man sich in etwa vorstellen kann wie das funktioniert:
Code: [AUSKLAPPEN]

Graphics 640, 480, 32, 2
SetBuffer BackBuffer()

For i=0 To 180
Plot i+200, Sin(i+90)*100+200
Next

Flip
Delay 5000
End
 

sven123

 BeitragSo, März 13, 2005 14:53
Antworten mit Zitat
Benutzer-Profile anzeigen
@Digi_
So funktioniert es nicht!
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Digi_

 BeitragSo, März 13, 2005 15:01
Antworten mit Zitat
Benutzer-Profile anzeigen
warum nicht?
wo liegt denn der fehler?
 

sven123

 BeitragSo, März 13, 2005 15:30
Antworten mit Zitat
Benutzer-Profile anzeigen
So ich habs mal so abgeändert ich habe es aber auch ohne die Doppelpunkte versucht.Aber da passier gar nichts.Das ambientlight bei 14 habe ich zum Test hingemacht.Wenn die Routine funktionieren würde ,dann müsste also jetzt um 14 Uhr im spiel alles dunkel werden aber es passiert gar nichts.
BlitzBasic: [AUSKLAPPEN] 

;Tag&Nacht
Function TagNacht()
TZeit$=CurrentTime()

Select  TZeit$
Case \"7:\"
Case \"8:\"
Case \"9:\"
Case \"10:\"
Case \"11:\"
Case \"12:\"
Case \"13:\"
Case \"14:\"
AmbientLight 0,0,0 
Case \"15:\"
Case \"16:\"
Case \"17:\"
Case \"18:\"
Case \"19:\"
Case \"20:\"
AmbientLight 0,0,0 
Case \"21:\"
AmbientLight 0,0,0
Case \"22:\"
AmbientLight 0,0,0
Case \"23:\"
AmbientLight 0,0,0
Case \"24:\"
AmbientLight 0,0,0
Case \"1:\"
AmbientLight 0,0,0
Case \"2:\"
AmbientLight 0,0,0 
Case \"3:\"
AmbientLight 0,0,0
Case \"4:\"
AmbientLight 0,0,0
Case \"5:\"
AmbientLight 0,0,0
Case \"6:\"
AmbientLight 0,0,0
End Select 
 
End Function


Ups sorry ich habe die obere Zeile von deinem Code vergessen sorry!Vergiss einfach diesen Post.
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Digi_

 BeitragSo, März 13, 2005 15:33
Antworten mit Zitat
Benutzer-Profile anzeigen
LOL!
du hast wohl nichts kapiert
schaue dir den ganzen code an, denn du hast bei deinem jetzt das LEFT vergessen (und deine ':' wieder wegmachen)
Rolling Eyes
 

sven123

 BeitragSo, März 13, 2005 15:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja habe ich doch unten hingeschrieben, das ich es vergessen habe das left.Denn ich bin gerade etwas in Stress auf meinem computer bfindet sich ein dicker Trojaner den ich nicht mehr herunterbekomme trotz Antivir in der neusten Version,trotz Norman Firwall und Spybot und Adaware.Ich muss noch einen Praktikumsbericht schreiben den ich in 4Tagen abgegeben muss ich habe aber nur am Wochenende Zeit daran zu Arbeiten.Für Englisch muss ich noch The Greate Gatsby lesen,das ist wirklich übel.



Aber jetzt funktionierts thx Laughing
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Digi_

 BeitragSo, März 13, 2005 17:52
Antworten mit Zitat
Benutzer-Profile anzeigen
sry, habs übersehen Very Happy
hf&gl Wink
 

sven123

 BeitragDi, März 15, 2005 17:51
Antworten mit Zitat
Benutzer-Profile anzeigen
Kein Problem,ich habe ja unötig gefragt!

THx für deine Hilfe.
Amd Athlon 2200+,Saphire Atlantis Radeon9800pro,1024 MB DDR RAm,40 Gb Festblatte.
'in shâ'a llâh=so Gott will
Fertiges Projekt:Invasion der Heuschrecken

Markus2

 BeitragDo, März 17, 2005 13:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Guck ma https://www.blitzforum.de/viewtopic.php?t=4217

Neue Antwort erstellen


Übersicht BlitzBasic Blitz3D

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group