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