MessageBox treibt mich in den Wahnsinn

[Lazarus]

Was mir spontan einfällt: Getbuttonpressed gehört immer in den Menu- bzw. GameMode-Block. Vielleicht war's das. Aber am besten zeigst du uns deinen Script.

[bg2408]

Was mir spontan einfällt: Getbuttonpressed gehört immer in den Menu- bzw. GameMode-Block. Vielleicht war's das. Aber am besten zeigst du uns deinen Script.

...

Er ist im GameMode - Block (wobei ich auch genug Scripts kenne, die per Menumode funktionieren, wie z.B. der Quest Award Leveller von Quarn <- das klappte bei mir gar nicht! Derzeit funktioniert immerhin der erste Durchlauf, beim MenuMode nicht einmal das) ... das ist es ja. Inzwischen habe ich Oblivion soweit, daß es den ersten Buttonpress wahrnimmt. Aber irgendwie keinen zweiten mehr. Obwohl ich alle Variablen resette, und die Quest währenddessen resetted wird.

Ich habe das Script inzwischen ziemlich geschlachtet... außerdem verrate ich dann, woran ich derzeit arbeite... na egal... also hier kommt das, was zuerst ein Objektscript, dann ein Magicscript, und nun ein Questscript ist!

PHP-Code:

scn bgCatsAndRatsChooseQuest

Short Button
Short MenuShown
Short DoOnce
Short Reset
Float FQuestDelayTime

Begin GameMode

Set FQuestDelayTime to 0.01
; set extremely low so that it grabs every button press;

If Reset == 1
Set DoOnce to 0
Set Button to -1
Set MenuShown to 0
Set Reset to 0
Endif
; included to reset the script when it's running a second time;

If DoOnce == 0
; DoOnce necessary, because otherwise the menus show up indefinitely;
If bgCatsAndRatsSetting == 0
MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is insecure. Do you want to change it?" "Change to semi secure" "Change to secure" "Cancel"
Set MenuShown to 1
Set Button to GetButtonPressed
ElseIf bgCatsAndRatsSetting == 1
MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is semi secure. Do you want to change it?" "Change to insecure" "Change to secure" "Cancel"
Set MenuShown to 2
Set Button to GetButtonPressed
ElseIf bgCatsAndRatsSetting == 2
MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is secure. Do you want to change it?" "Change to insecure" "Change to semi secure" "Cancel"
Set MenuShown to 3
Set Button to GetButtonPressed
Endif

; I already tried to put GetButtonPressed to another parts of the script - it didn't work ;

Set DoOnce to 1
Endif

If MenuShown == 1
Set Button to GetButtonPressed
If button == 0
Set bgCatsAndRatsSetting to 1
StopQuest bgCatsAndRatsGuardsSecure 
StartQuest bgCatsandRatsGuardQuest
Message "Semi secure tagging enabled"
Set MenuShown to 4
ElseIf button == 1
Set bgCatsAndRatsSetting to 2
StartQuest bgCatsAndRatsGuardsSecure 
StopQuest bgCatsandRatsGuardQuest
Message "Secure tagging enabled"
Set MenuShown to 4
ElseIf button == 2
Set MenuShown to 4
return
Endif
Endif

If MenuShown == 2
Set Button to GetButtonPressed
If button == 0
Set bgCatsAndRatsSetting to 0
StopQuest bgCatsAndRatsGuardsSecure 
StopQuest bgCatsandRatsGuardQuest
Message "Insecure tagging enabled"
Set MenuShown to 4
ElseIf button == 1
Set bgCatsAndRatsSetting to 2
StartQuest bgCatsAndRatsGuardsSecure 
StopQuest bgCatsandRatsGuardQuest
Message "Secure tagging enabled"
Set MenuShown to 4
ElseIf button == 2
Set MenuShown to 4
return
Endif
Endif

If MenuShown == 3
Set Button to GetButtonPressed
If button == 0
Set bgCatsAndRatsSetting to 0
StopQuest bgCatsAndRatsGuardsSecure 
StopQuest bgCatsandRatsGuardQuest
Message "Insecure tagging enabled"
Set MenuShown to 4
ElseIf button == 1
Set bgCatsAndRatsSetting to 1
StopQuest bgCatsAndRatsGuardsSecure 
StartQuest bgCatsandRatsGuardQuest
Message "Semi secure tagging enabled"
Set MenuShown to 4
ElseIf button == 2
Set MenuShown to 4
return
Endif
Endif

; MenuShown 4 is set once the game recognizes a button press, so the script is running until that is done. I can say that this scripts runs fine the first time, but fails to get the button press the second time and following;

if MenuShown == 4
Set Reset to 1
StopQuest bgCatsAndRatsChoose
Endif
End 

[Low Post]

Probier mal dieses Skript:

Code:

scn bgCatsAndRatsChooseActivatorScript

;Global: bgCatsAndRatsSetting

short button
short MessageNumber

Begin OnEquip Player
	if bgCatsAndRatsSetting == 0
		set MessageNumber to 1
		MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is insecure. Do you want to change it?" "Change to semi secure" "Change to secure" "Cancel"
	elseif bgCatsAndRatsSetting == 1
		set MessageNumber to 2
		MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is semi secure. Do you want to change it?" "Change to insecure" "Change to secure" "Cancel"
	elseif bgCatsAndRatsSetting == 2
		set MessageNumber to 3
		MessageBox "This version of Cats and Rats tags guards to stop them from going on a rampage. There are three tagging modes. Insecure (best perfomance, high miss chance). Semi secure (tagging once when entering a new cell. Small miss chance and nearly no perfomance loss). Secure (tagging every five seconds, nearly no misses, may cause small perfomance loss on some machines.) Current mode is secure. Do you want to change it?" "Change to insecure" "Change to semi secure" "Cancel"
	endif
End

Begin Menumode
	if MessageNumber == 1
		set button to GetButtonPressed + 1
	elseif MessageNumber == 2
		set button to GetButtonPressed + 11
	elseif MessageNumber == 3
		set button to GetButtonPressed + 21
	endif
	if button == 1
		Set bgCatsAndRatsSetting to 1
		StopQuest bgCatsAndRatsGuardsSecure
		StartQuest bgCatsandRatsGuardQuest
		Message "Semi secure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 2
		Set bgCatsAndRatsSetting to 2
		StartQuest bgCatsAndRatsGuardsSecure
		StopQuest bgCatsandRatsGuardQuest
		Message "Secure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 3
		set MessageNumber to 0
		set button to 0
	elseif button == 11
		Set bgCatsAndRatsSetting to 0
		StopQuest bgCatsAndRatsGuardsSecure
		StopQuest bgCatsandRatsGuardQuest
		Message "Insecure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 12
		Set bgCatsAndRatsSetting to 2
		StartQuest bgCatsAndRatsGuardsSecure
		StopQuest bgCatsandRatsGuardQuest
		Message "Secure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 13
		set MessageNumber to 0
		set button to 0
	elseif button == 21
		Set bgCatsAndRatsSetting to 0
		StopQuest bgCatsAndRatsGuardsSecure
		StopQuest bgCatsandRatsGuardQuest
		Message "Insecure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 22
		Set bgCatsAndRatsSetting to 1
		StopQuest bgCatsAndRatsGuardsSecure
		StartQuest bgCatsandRatsGuardQuest
		Message "Semi secure tagging enabled"
		set MessageNumber to 0
		set button to 0
	elseif button == 23
		set MessageNumber to 0
		set button to 0
	endif
End

Skript muss auf den Activator, Messageboxen kommen im Menumode-Block. Ich hab so ein ähnliches Skript schonmal geschrieben (anderer Text, mehr Auswahlmöglichkeiten, erste Messagebox immer gleich) und das funktioniert bei mir ohne Probleme.