Sehr Wichtig muss es bald haben!!!

Übersicht

BlitzBasic

Beginners-Corner

	Svolf Betreff: Sehr Wichtig muss es bald haben!!!	Sa, März 18, 2006 19:10 Antworten mit Zitat
Erstmal hallo an an und gleich ein großen Dank an alle die mir helfen. [Vorwort] Also mein Problem ist ich benötige ein Script bis Montag den 20.03.2006 also habe nicht mehr alzu viel Zeit dafür. Da ich noch Noob bin wollte ich fragen ob eine rmein Script weiter schreiben könnte, da ich nicht weis wie man zu einer 2 Frage kommen soll. [Vorstellung] Ich soll eich Quizspiel werden. Zur zeit habe ich das Menu und wenn man mit der Mautaste auf Start drückt gelangt man ins Spiel. Wo die Linien sind daran befinden sich die Fragen. Man sollte nun entweder mit Hilfe der MAus oder per knopfdruck (getkey) eien Antwortmöglichkeut answählen können und wenn sie auch noch richtig ist 1 Punkt dazu kommt (punkte = punkte + 1) und wenn sie falsch ist keien Punkte dazu kommen und dann zur nächsten Frage. [Script] Hier drunter sehen Sie mein Menu. Und ich wollte fragen da ich nicht viel Zeit habe und auch noch noob bin ob mir jemand ihn weiter schreiben könnte. Es muss nicht viel sein nur das man mindestens 3 Fragen hat und mit dem Punkten also wenns falsch ist dann keien Punkte und wenns richtig ist, dann Punkte. Ich hoffe mir schriebt einer ein Beispiel rein also in mein Script und erkärt auch ein wenig was er getan hat. [Zeit] Ich habe leider nicht alzu viel Zeit. Ich müsste schon was am 20.03.2006 haben. Und desswegen bitte ich alle mir zu helfen und den Script mit ein Beispiel weiter zu schreiben. Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 16, 1 SetBuffer BackBuffer() stars = LoadImage("Bilder\stars.bmp") ; defiant = LoadImage("Bilder\cursor.bmp") ; MaskImage defiant, 0, 0, 255 Color 255,0,0 FlushMouse FlushKeys Repeat Cls x_star = x_star + 1 If x_star = 201 Then x_star = 1 TileImage stars, x_star, 1 DrawImage defiant, MouseX(), MouseY() fntArialI=LoadFont("Arial",32,False,True,False) SetFont fntArialI Color 148,128,228 Text 310,80, "Willkommen im Quizi!",True,False FreeFont fntArialI Color 255,0,0 Text 300,200, "Start" Color 255,0,0 Text 295,250, "Credits" Color 255,0,0 Text 305,300, "Ende" If MouseHit(1) Then If RectsOverlap(MouseX(),MouseY(),1,1,305,300,StringWidth("Ende"),StringHeight("Ende")) Then Cls : End ElseIf RectsOverlap(MouseX(),MouseY(),1,1,300,200,StringWidth("Start"),StringHeight("Start")) Then Planetb=LoadImage("Bilder\Planetb.bmp") MaskImage Planetb, 255,255,255 Color 255,0,0 Punkte=0 Repeat Cls DrawImage Planetb, -195,-150 Color 0,255,0 Text 285,10, "Punkte" Color 255,0,0 Line 90,400,90,500 Line 90,400,510,400 Line 510,400,510,500 Line 60,200,60,250 Line 60,250,550,250 Line 550,250,550,200 Line 550,200,60,200 Line 260,30,360,30 Line 360,30,360,60 Line 360,60,260,60 Line 260,60,260,30 Flip Until KeyHit(1) EndIf EndIf Flip Until KeyHit(1) End DANKE!!!

Svolf

Betreff: Sehr Wichtig muss es bald haben!!!

Sa, März 18, 2006 19:10
Antworten mit Zitat

Erstmal hallo an an und gleich ein großen Dank an alle die mir helfen.

[Vorwort]
Also mein Problem ist ich benötige ein Script bis Montag den 20.03.2006 also habe nicht mehr alzu viel Zeit dafür. Da ich noch Noob bin wollte ich fragen ob eine rmein Script weiter schreiben könnte, da ich nicht weis wie man zu einer 2 Frage kommen soll.

[Vorstellung]
Ich soll eich Quizspiel werden. Zur zeit habe ich das Menu und wenn man mit der Mautaste auf Start drückt gelangt man ins Spiel. Wo die Linien sind daran befinden sich die Fragen. Man sollte nun entweder mit Hilfe der MAus oder per knopfdruck (getkey) eien Antwortmöglichkeut answählen können und wenn sie auch noch richtig ist 1 Punkt dazu kommt (punkte = punkte + 1) und wenn sie falsch ist keien Punkte dazu kommen und dann zur nächsten Frage.

[Script]
Hier drunter sehen Sie mein Menu. Und ich wollte fragen da ich nicht viel Zeit habe und auch noch noob bin ob mir jemand ihn weiter schreiben könnte. Es muss nicht viel sein nur das man mindestens 3 Fragen hat und mit dem Punkten also wenns falsch ist dann keien Punkte und wenns richtig ist, dann Punkte. Ich hoffe mir schriebt einer ein Beispiel rein also in mein Script und erkärt auch ein wenig was er getan hat.

[Zeit]
Ich habe leider nicht alzu viel Zeit. Ich müsste schon was am 20.03.2006
haben. Und desswegen bitte ich alle mir zu helfen und den Script mit ein Beispiel weiter zu schreiben.

Code: [AUSKLAPPEN]

Graphics 640, 480, 16, 1
SetBuffer BackBuffer()

stars = LoadImage("Bilder\stars.bmp") ;
defiant = LoadImage("Bilder\cursor.bmp") ;

MaskImage defiant, 0, 0, 255

Color 255,0,0

FlushMouse
FlushKeys

Repeat

Cls

x_star = x_star + 1
If x_star = 201 Then x_star = 1

TileImage stars, x_star, 1
DrawImage defiant, MouseX(), MouseY()

fntArialI=LoadFont("Arial",32,False,True,False)
SetFont fntArialI
Color 148,128,228
Text 310,80, "Willkommen im Quizi!",True,False
FreeFont fntArialI

Color 255,0,0
Text 300,200, "Start"

Color 255,0,0
Text 295,250, "Credits"

Color 255,0,0
Text 305,300, "Ende"

If MouseHit(1) Then
If RectsOverlap(MouseX(),MouseY(),1,1,305,300,StringWidth("Ende"),StringHeight("Ende")) Then
Cls : End

ElseIf RectsOverlap(MouseX(),MouseY(),1,1,300,200,StringWidth("Start"),StringHeight("Start")) Then

Planetb=LoadImage("Bilder\Planetb.bmp")
MaskImage Planetb, 255,255,255

Color 255,0,0

Punkte=0

Repeat

Cls

DrawImage Planetb, -195,-150

Color 0,255,0
Text 285,10, "Punkte"

Color 255,0,0

Line 90,400,90,500
Line 90,400,510,400

Line 510,400,510,500
Line 60,200,60,250
Line 60,250,550,250
Line 550,250,550,200
Line 550,200,60,200

Line 260,30,360,30
Line 360,30,360,60
Line 360,60,260,60
Line 260,60,260,30

Flip
Until KeyHit(1)
EndIf
EndIf

Flip
Until KeyHit(1)
End

DANKE!!!

	Dreamora	Sa, März 18, 2006 19:14 Antworten mit Zitat
1. Programmiert man in Blitz, also Code und nicht Script. 2. Wenn du keine Zeit hast zum programmieren, lasse es. Allerdings sind die Kategorien BlitzBasic und BlitzMax nicht da um sich gleich ganze Programme schreiben zu lassen. Solltest du das Programm dringend brauchen, so suche im Smalltalk nach jemandem, der es dir gegen Bezahlung oder auch umsonst schreibt. (Aufgrund des Zeitfensters wahrscheinlich eher Bezahlung da nur noch 2 Tage übrig sind) ~GESCHLOSSEN~ 2. Dreamora
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Sa, März 18, 2006 19:14
Antworten mit Zitat

1. Programmiert man in Blitz, also Code und nicht Script.
2. Wenn du keine Zeit hast zum programmieren, lasse es. Allerdings sind die Kategorien BlitzBasic und BlitzMax nicht da um sich gleich ganze Programme schreiben zu lassen.
Solltest du das Programm dringend brauchen, so suche im Smalltalk nach jemandem, der es dir gegen Bezahlung oder auch umsonst schreibt. (Aufgrund des Zeitfensters wahrscheinlich eher Bezahlung da nur noch 2 Tage übrig sind)

~GESCHLOSSEN~

2.
Dreamora

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