Wie bekomme ich ein Bild als Mauszeiger ???

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Hannes1995

Betreff: Wie bekomme ich ein Bild als Mauszeiger ???

BeitragMi, Aug 08, 2007 21:02
Antworten mit Zitat
Benutzer-Profile anzeigen
1.Wie bekomme ich ein Bild als Mauszeiger ???(In diesem Fall soll es ein Fadenkreuz sein, das ich schon gemalt habe.)
2.Wie schaffe ich das der Hintergrund das Fadenkreuzes nicht eingeblendet ist ???

Bitte um schnelle Hilfe !

mas93

BeitragMi, Aug 08, 2007 21:06
Antworten mit Zitat
Benutzer-Profile anzeigen
HI,
das ist ganz einfach.

Du lädst das BIld so:
Code: [AUSKLAPPEN]

maus=loadimage("deinbild.png")
maskimage maus,255,0,255

die Zahlen hinter maskimage musst du durch den Farbcode der Farbe erstetzen die man nicht sehen soll.

Und so wird die maus dann gezeichnet:
Code: [AUSKLAPPEN]

drawimage maus,mousex(),mousey()



mfg
mas93

P.S.: Aber wenn du ein paar tutorials gelesen hättest, müsstest du das wissen.
www.lpbase.de
Meine Linkin Park Fanseite[Noch im Aufbau]

Hannes1995

Betreff: hab ich jetzt probiert

BeitragMi, Aug 08, 2007 21:23
Antworten mit Zitat
Benutzer-Profile anzeigen
hab ich jetzt probiert doch ich setzte den Code glaube ich falsch.
Hier ist der Code:
Code: [AUSKLAPPEN]
;COPYRIGHT by Hannes Voß
; Ego-Shooter.BB
Graphics 1024,768
SetBuffer BackBuffer()

        maus=LoadImage("fadenkreuz.png")
        MaskImage maus,255,255,255
        DrawImage maus,MouseX(),MouseY()
       
        ; Dateien werden geladen, und Bilder gezeichnet
        bild = LoadImage("grafiken/background.bmp")
        DrawImage bild, 0, 0, 0
   
        maus=LoadImage("fadenkreuz.bmp")
        MaskImage maus,255,255,255
        DrawImage maus,MouseX(),MouseY()

        gras = LoadImage("grafiken/gras.bmp")
        DrawImage gras, 0, 568
       
        maus = LoadImage("grafiken/fadenkreuz.bmp")

        ton = LoadSound("sounds/lions.wav")
        LoopSound ton
        PlaySound(ton) 
       
        sound1 = LoadSound("sounds/gun4p228.wav")
        sound2 = LoadSound("sounds/nachladen.wav")
        sound3 = LoadSound("sounds/gun1.wav")
        If bild = 0 Then Print "Fehler! Bilddatei nicht gefunden. Starten Sie das Spiel noch einmal."
        FreeImage bild

;Soundschleife
Repeat
 A = GetMouse()
 If A=1 Then PlaySound(sound1)
 If A=2 Then PlaySound(sound2)
Forever

WaitKey

Wenn den Fehler gefunden bitte Antworten !!!

BigMaexle

BeitragMi, Aug 08, 2007 21:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Du hast flip vergessen alles wird im Backbuffer gemalt den siehst du leider nicht, du solltest wirklich die Tutorials genauer lesen

Edit: im den Code sind viele kleine unstimmigkeiten ich bin mal so frei dir welche du zeigen

1. 2x Fadenkreuz zeichnen und 3x laden??? und das 3. mal in einem Ordner also wo ist dein Fadenkreuz in Grafiken oder nicht? denn wenn er in Grafiken ist wird er ihn nicht zeichnen
Code: [AUSKLAPPEN]

maus=LoadImage("fadenkreuz.bmp")
MaskImage maus,255,255,255
DrawImage maus,MouseX(),MouseY()


denn hier soll er im Hauptordner sein

2. die Reihenfolge in der die Sachen gezeichnet sind ist sehr unlogisch, überleg mal als erstes sollte der Hintergrund geziechnet werden dann das Gras und zu guter letzt das Fadenkreuz denn das soll ja immer zu sehen sein

3.
Repeat / Forever ist im Fenster okay aber im Vollbild muss du exit stehen damit du irgendwie aus der Endlos-Schleife ordnunggemäß heruaskommst

Sieh das als konstruktive Kritik an und schau dir intensiv die Tutorials auf www.robsite.de an Wink

MFG Maexle
--------------------------------------
Ich bin unfreiwillig ein Mitglied dieser kapitalistischen Gesellschaft, wo jeder Geldgeile Unternehmer an mein Geld will und ich selbst bei meinen Entscheidungen so gut wie willenlos bin...... und ich bin glücklich drüber
  • Zuletzt bearbeitet von BigMaexle am Mi, Aug 08, 2007 21:50, insgesamt einmal bearbeitet

Hannes1995

Betreff: -.-

BeitragMi, Aug 08, 2007 21:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich glaub ich hab wohl ein tut erwischt wo das nicht drin stand.
Aber, egal. Wohin sollte das Flip denn genau ???
(ich gebs zu bin ein totaler noob)

BigMaexle

BeitragMi, Aug 08, 2007 21:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Keine Sorge war absolut und ohne Asunahme jeder von uns ich bin glaub ich auch noch nicht ganz aus diesem Status raus Razz

Also für solche Fragen ist das Forum nicht da

http://www.robsite.de/bbkurs2/index.htm da lernt man alles notwendige. Lies es! Versteh es! und wende es an! dann kann dir so leicht nix mehr passieren
--------------------------------------
Ich bin unfreiwillig ein Mitglied dieser kapitalistischen Gesellschaft, wo jeder Geldgeile Unternehmer an mein Geld will und ich selbst bei meinen Entscheidungen so gut wie willenlos bin...... und ich bin glücklich drüber

Kernle 32DLL

BeitragMi, Aug 08, 2007 22:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Zitat:
If bild = 0 Then Print "Fehler! Bilddatei nicht gefunden. Starten Sie das Spiel noch einmal."
FreeImage bild

Absoluter murks ^^
Ob das Bild da ist oder nicht, du versuchst es zu "Free'n"... Nicht gut ^^
Und print sollte wohl auch eher "RunTimeError" heißen...

Überhaupt ist der Code an allen Ecken Käse... Du maskest z.b. das Fadenkreuz, überprüfst aber erst später ob es überhaupt geladen wurde...

Wenn du wie von BigMaexle vorgeschlagen das RobSite Tutorial durch hast, müsstes du zumindest die Grundlagen können ^^ Und wenn du die kannst, darfst du versuchen diesem Codeumbau zu verstehen Wink

Zitat:
;Grafik Init
Graphics 800,600
SetBuffer BackBuffer()

; Dateien werden geladen
Global Hintergrund = LoadImage("grafiken/background.bmp")
Global Fadenkreuz = LoadImage("grafiken/fadenkreuz.bmp")

;Sounds und so nen kram laden
Global sound1 = LoadSound("sounds/gun4p228.wav")
Global sound2 = LoadSound("sounds/nachladen.wav")

;Fehlerprüfung...
If Hintergrund = 0 Then RuntimeError "Fehler! 'grafiken/background.bmp' nicht gefunden"
If Fadenkreuz = 0 Then RuntimeError "Fehler! 'grafiken/fadenkreuz.bmp' nicht gefunden"
MaskImage Fadenkreuz ,255,255,255

Global MausT ;Maustaste
Global MausX
Global MausY

;Anmerkung:
;Wenn du das Robsite Tutorial müsstest du wissen weshalb
;vor dem ganzen Kram oben ein "Global" steht... Damit du die
;Grafiken/Sounds auch in Funktionen benutzen kannst...

;Hauptschleife
Repeat
MausX = MouseX ()
MausY = MouseY ()
MausT = GetMouse ()

If MausT = 1 Then PlaySound(sound1)
If MausT = 2 Then PlaySound(sound2)

;Wird ESC gedrückt, springen wir aus der Schleife
If KeyHit(1) Then Exit
Forever

FreeImage Hintergrund
FreeImage Fadenkreuz
WaitKey()


Und ja, ich war auch mal so ein Anfänger ^^
War wohl jeder mal Razz
Mein PC: "Bluelight" - Xtreme Gamer PC [Video]
Meine Projekte: Cube-Wars 2010 [Worklog]
Anerkennungen: 1. Platz BCC #7 , 1. Platz BCC #22 , 3. Platz BAC #89
Ich war dabei: NRW Treff III, IV ; Frankfurter BB Treffen 2009

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group