CLUAConsole:MoveToArea("CP0001")
IF
Global("CPMelvinHQArrival","GLOBAL",1)
THEN
RESPONSE #100
ActionOverride("CPMELVIN",StartDialogNoSet(Player1))
END
IF ~~ THEN DO ~SetGlobal("CPMelvinHQArrival","GLOBAL",1)AddJournalEntry(@10013,QUEST)EscapeAreaMove("CP0001",738,363,3)~ EXIT
IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
SAY ~Hallo.~
++ ~Hallo selbst.~ + 1
++ ~Hau ab..~ + 2
END
IF ~NumTimesTalkedTo(1)~ THEN BEGIN 0a
SAY ~Hallo wieder.~
++ ~Hallo selbst.~ + 1
++ ~Hau ab..~ + 2
END
IF ~~ THEN BEGIN 1
SAY ~Danke.~
IF ~~ THEN DO ~SetNumTimesTalkedTo(1)~ EXIT
END
IF ~~ THEN BEGIN 2
SAY ~Blödmann.~
IF ~~ THEN DO ~SetNumTimesTalkedTo(2)EscapeAreaMove...()~ EXIT
END
IF
NumTimesTalkedTo(2)
See([PC])
THEN
RESPONSE #100
StartDialogNoSet([PC])
END
IF
Global("CPMelvinHQArrival","GLOBAL",1)
THEN
RESPONSE #100
StartDialogNoSet(Player1)
END