title image


Smiley Code: Mini-Adventure mit Merlin!!!
Hi!Probiert mal folgenden Code aus. Macht echt Spaß.MFG,Andreas 'Merlin, der Zauberer als Mini-Adventure. ' 'Folgendes wird außer dem Form namens frmMain noch gebraucht: '* Ein Menue namens mnuMenue, Caption egal '* Sieben Unterpunkte des Menues namens mnuZaubern, mnuWahrsagen, mnuLob, mnuSüß, mnuFliegen, mnuSonst, mnuEnde Option Explicit Dim Merlin As IAgentCtlCharacterEx Dim Erstflug As Boolean Private Sub Form_Load() Agent1.Characters.Load "merlin.acs", "merlin.acs" Set Merlin = Agent1.Characters("merlin.acs") Merlin.LanguageID = &H407 ' Deutsch Merlin.MoveTo 300, 300 ' Agent1.ShowPopupMenu Merlin.Show Merlin.Play "Wave" Merlin.Play "Blink" Merlin.Think "Jemand zu Hause?" Merlin.Play "GetAttention" Merlin.Play "GetAttention" Merlin.Play "Blink" Merlin.Play "Greet" Merlin.Play "Blink" Merlin.Speak "Hallo, ich bin Merlin, der Zauberer!|Mein Name ist Merlin. Zauberer - von Berufs wegen.|Darf ich mich vorstellen? Ich bin Merlin. Und ich kann zaubern!" Merlin.Play "Restpose" Merlin.Speak "Du kannst mich anklicken, um mit mir zu reden!|Klick mich an und red' mit mir!|Klick mich doch mal an!" ' Merlin.Play "Congratulate_2" ' Merlin.Play "Announce" mnuZaubern.Caption = "Du und Zaubern? Glau' ich nicht!" mnuWahrsagen.Caption = "Kannst Du vielleicht noch die Zukunft lesen?" mnuWahrsagen.Visible = False mnuLob.Caption = "Du bist der beste Zauberer, den ich kenne!" mnuLob.Visible = False mnuSüß.Caption = "Oh, Gott! Bist Du süß!" mnuSonst.Caption = "Kannst Du sonst noch was?" mnuSonst.Visible = False mnuFliegen.Caption = "Mach' mir den Karlsson!" mnuEnde.Caption = "Ende" Randomize Erstflug = True frmMain.Hide End Sub Private Sub Agent1_Click(ByVal CharacterID As String, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Integer, ByVal y As Integer) PopupMenu mnuMenue End Sub Private Sub mnuLob_Click() Merlin.Speak "Danke! Man tut, was man kann!|Oh, ein Lob von so hoher Stelle. Da werd ich ja ganz rot." mnuLob.Visible = False mnuWahrsagen.Visible = True End Sub Private Sub mnuWahrsagen_Click() Merlin.Play "Blink" Merlin.Speak "Die Zukunft lesen?" Merlin.Play "Explain" Merlin.Speak "Ja, das kann ich. Aber nur, weil Du's bist!|OK. Ausnahmsweise." Merlin.Play "Search" Merlin.Speak "Ich sehe... in Deine Zukunft. Ah, ja. Sehr interessant!|Oooh, Deine Zukunft ist aber interessant!|Hui, hast Du eine Zukunft!|Ich sehe... Ich sehe... Nichts. Hat jemand meine Brille gesehen?" Merlin.Play "Blink" Merlin.Speak "Deine Zukunft sieht rosig aus. Du bist zu beneiden.|Du wirst ein langes, erfülltes Leben haben.|Alle Deine Wünsche werden in Erfüllung gehen.|Du lebst glücklich und zufrieden bis an das Märchenende.|Oh, Mist! Jetzt habe ich den Text vergessen. Hat vielleicht jemand einen Glückskeks für mich? Aber bitte unauffällig!" Merlin.Play "Restpose" Merlin.Speak "Ich hoffe, das hat Dir irgendwie weitergeholfen.|Soviel zu Deinem Schicksal. Wenn's nicht zutrifft, gibt's leider kein Geld zurück." Merlin.Play "Explain" mnuWahrsagen.Caption = "Lies doch nochmal die Zukunft, bitte!" mnuLob.Visible = True End Sub Private Sub mnuZaubern_Click() Merlin.Speak "Und ob ich zaubern kann!" Merlin.Think "Keiner glaubt mir ..." Merlin.Speak "Ich werde jetzt ..." Merlin.Play "think" Merlin.Speak "... jemand aus dem Publikum spurlos verschwinden lassen!" Merlin.Play "pleased" Merlin.Speak "Wer würde sich denn freiwillig dafür melden?" Merlin.Play "wave" Merlin.Play "uncertain" Merlin.Speak "Niemand?" Merlin.Play "sad" Merlin.Speak "Dann muß ich mir was anderes überlegen!|Das ist aber eine schwache Beteiligung. Dann zaubern wir eben etwas anderes." Merlin.Play "think" Merlin.Think "Hmm. Mal überlegen. Aaah! Ich hab's:" Merlin.Play "Suggest" Merlin.Speak "Ich werde mich selbst verschwinden lassen." Merlin.Play "restpose" Merlin.Speak "Und als besondere Schwierigkeit werde ich mich selbst natürlich auch wieder auftauchen lassen. Aber an anderer Stelle!" Merlin.Play "Read" Merlin.Speak "Abra Cadabra. Dreimal schwarzer Kater. Merlinibus verschwindifix." Merlin.Play "Readreturn" Merlin.Play "doMagic1" Merlin.Play "domagic2" Merlin.Hide Merlin.MoveTo Int((Screen.Width / Screen.TwipsPerPixelX) * 0.9 * Rnd()), Int((Screen.Height / Screen.TwipsPerPixelY) * 0.8 * Rnd()), 1 Merlin.Show Merlin.Play "congratulate_2" Merlin.Speak "Danke, Danke, vielen Dank!" Merlin.Think "Puh, das ging ja gerade noch mal gut..." mnuZaubern.Visible = False mnuSonst.Visible = True mnuLob.Visible = True End Sub Private Sub mnuSüß_Click() Merlin.Play "pleased" Merlin.Speak "Oh, Danke! Ich liebe Komplimente.|Dankeschön! Du bist ja so nett!" mnuSüß.Visible = False mnuWahrsagen.Visible = True End Sub Private Sub mnuFliegen_Click() If Erstflug = True Then Erstflug = False Merlin.Speak "Karlsson? Vom Dach? Der mit dem Propeller? Das kann ich auch! Hier - kuck mal!" Else Merlin.Speak "Nochmal? Na dann...|Immer wieder fliegen!|Ich glaube, ich eröffne eine Fluglinie.|Fliegen Fliegen, fliegen Fliegen hinterher!" End If Merlin.MoveTo Int((Screen.Width / Screen.TwipsPerPixelX) * 0.9 * Rnd()), Int((Screen.Height / Screen.TwipsPerPixelY) * 0.8 * Rnd()) Merlin.Speak "Ich kann fliegen!|Fliegen ist ja soo schööön!|Huiuiuiui! Dabei wird einem ja ganz schön schwindelig!" mnuFliegen.Caption = "Kannst Du nicht nochmal fliegen?" mnuLob.Visible = TrueEnd Sub Private Sub mnuSonst_Click() Merlin.Speak "Ob Du's glaubst oder nicht: Ich kann kochen!" Merlin.Speak "Ich werde jetzt einen Zaubertrank zubereiten!" Merlin.Think "Hmmmm. Lecker!" Merlin.Play "process" Merlin.Speak "Möchte jemand probieren?" Merlin.Speak "Heißt hier zufällig jemand Obelix?" mnuSonst.Visible = False mnuLob.Visible = True End Sub Private Sub mnuEnde_Click() Merlin.Speak "Bis bald.|Tschüß!|Auf Wiedersehen!" Merlin.Hide 'Do ' DoEvents ' If Merlin.Status = 0 Then Exit Do 'Loop 'End End Sub
MFG, EW-Andy.


vbBooks.de - VB-Bücher zum Schmökern und Links zu allen Tutorien und Tips&Tricks-Seiten.



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: