gemrb/GUIScripts/bg2/GUIOPT9.py

   1 # GemRB - Infinity Engine Emulator
   2 # Copyright (C) 2003 The GemRB Project
   3 #
   4 # This program is free software; you can redistribute it and/or
   5 # modify it under the terms of the GNU General Public License
   6 # as published by the Free Software Foundation; either version 2
   7 # of the License, or (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  17 #
  18 #
  19 #feedback
  20 import GemRB
  21
  22 FeedbackWindow = 0
  23 TextAreaControl = 0
  24
  25 def OnLoad():
  26         global FeedbackWindow, TextAreaControl
  27
  28         GemRB.LoadWindowPack("GUIOPT", 640, 480)
  29         FeedbackWindow = GemRB.LoadWindow(9)
  30
  31         MarkerSlider = FeedbackWindow.GetControl(30)
  32         MarkerSliderS = FeedbackWindow.GetControl(8)
  33
  34         LocatorSlider = FeedbackWindow.GetControl(31)
  35         LocatorSliderS = FeedbackWindow.GetControl(9)
  36
  37         THac0Rolls = FeedbackWindow.GetControl(32)
  38         THac0RollsB = FeedbackWindow.GetControl(10)
  39
  40         CombatInfo = FeedbackWindow.GetControl(33)
  41         CombatInfoB = FeedbackWindow.GetControl(11)
  42
  43         Actions = FeedbackWindow.GetControl(34)
  44         ActionsB = FeedbackWindow.GetControl(12)
  45
  46         StateChanges = FeedbackWindow.GetControl(35)
  47         StateChangesB = FeedbackWindow.GetControl(13)
  48
  49         SelectionText = FeedbackWindow.GetControl(36)
  50         SelectionTextB = FeedbackWindow.GetControl(14)
  51
  52         Miscellaneous = FeedbackWindow.GetControl(37)
  53         MiscellaneousB = FeedbackWindow.GetControl(15)
  54         OkButton = FeedbackWindow.GetControl(26)
  55         CancelButton = FeedbackWindow.GetControl(27)
  56         TextAreaControl = FeedbackWindow.GetControl(28)
  57
  58         TextAreaControl.SetText(18043)
  59         OkButton.SetText(11973)
  60         CancelButton.SetText(13727)
  61
  62         MarkerSlider.SetEvent(IE_GUI_BUTTON_ON_PRESS, MarkerSliderPress)
  63         MarkerSliderS.SetEvent(IE_GUI_SLIDER_ON_CHANGE, MarkerSliderPress)
  64         MarkerSliderS.SetVarAssoc("GUI Feedback Level",1)
  65
  66         LocatorSlider.SetEvent(IE_GUI_BUTTON_ON_PRESS, LocatorSliderPress)
  67         LocatorSliderS.SetEvent(IE_GUI_SLIDER_ON_CHANGE, LocatorSliderPress)
  68         LocatorSliderS.SetVarAssoc("Locator Feedback Level",1)
  69
  70         THac0Rolls.SetEvent(IE_GUI_BUTTON_ON_PRESS, THac0RollsPress)
  71         THac0RollsB.SetEvent(IE_GUI_BUTTON_ON_PRESS, THac0RollsBPress)
  72         THac0RollsB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  73         THac0RollsB.SetVarAssoc("Rolls",1)
  74
  75         CombatInfo.SetEvent(IE_GUI_BUTTON_ON_PRESS, CombatInfoPress)
  76         CombatInfoB.SetEvent(IE_GUI_BUTTON_ON_PRESS, CombatInfoBPress)
  77         CombatInfoB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  78         CombatInfoB.SetVarAssoc("Combat Info",1)
  79
  80         Actions.SetEvent(IE_GUI_BUTTON_ON_PRESS, ActionsPress)
  81         ActionsB.SetEvent(IE_GUI_BUTTON_ON_PRESS, ActionsBPress)
  82         ActionsB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  83         ActionsB.SetVarAssoc("Actions",1)
  84
  85         StateChanges.SetEvent(IE_GUI_BUTTON_ON_PRESS, StateChangesPress)
  86         StateChangesB.SetEvent(IE_GUI_BUTTON_ON_PRESS, StateChangesBPress)
  87         StateChangesB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  88         StateChangesB.SetVarAssoc("State Changes",1)
  89
  90         SelectionText.SetEvent(IE_GUI_BUTTON_ON_PRESS, SelectionTextPress)
  91         SelectionTextB.SetEvent(IE_GUI_BUTTON_ON_PRESS, SelectionTextBPress)
  92         SelectionTextB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  93         SelectionTextB.SetVarAssoc("Selection Text",1)
  94
  95         Miscellaneous.SetEvent(IE_GUI_BUTTON_ON_PRESS, MiscellaneousPress)
  96         MiscellaneousB.SetEvent(IE_GUI_BUTTON_ON_PRESS, MiscellaneousBPress)
  97         MiscellaneousB.SetFlags(IE_GUI_BUTTON_CHECKBOX, OP_OR)
  98         MiscellaneousB.SetVarAssoc("Miscellaneous Text",1)
  99
 100         OkButton.SetEvent(IE_GUI_BUTTON_ON_PRESS, OkPress)
 101         OkButton.SetFlags (IE_GUI_BUTTON_DEFAULT, OP_OR)
 102         CancelButton.SetEvent(IE_GUI_BUTTON_ON_PRESS, CancelPress)
 103         CancelButton.SetFlags (IE_GUI_BUTTON_CANCEL, OP_OR)
 104         FeedbackWindow.SetVisible(WINDOW_VISIBLE)
 105         return
 106
 107 def MarkerSliderPress():
 108         TextAreaControl.SetText(18024)
 109         return
 110
 111 def LocatorSliderPress():
 112         TextAreaControl.SetText(18025)
 113         return
 114
 115 def THac0RollsPress():
 116         TextAreaControl.SetText(18026)
 117         return
 118
 119 def THac0RollsBPress():
 120         #TODO: TextAreaControl.SetText()
 121         return
 122
 123 def CombatInfoPress():
 124         TextAreaControl.SetText(18027)
 125         return
 126
 127 def CombatInfoBPress():
 128         #TODO: TextAreaControl.SetText()
 129         return
 130
 131 def ActionsPress():
 132         TextAreaControl.SetText(18028)
 133         return
 134
 135 def ActionsBPress():
 136         #TODO: TextAreaControl.SetText(18028)
 137         return
 138
 139
 140 def StateChangesPress():
 141         TextAreaControl.SetText(18029)
 142         return
 143
 144 def StateChangesBPress():
 145         #TODO: TextAreaControl.SetText(18029)
 146         return
 147
 148 def SelectionTextPress():
 149         TextAreaControl.SetText(18030)
 150         return
 151
 152 def SelectionTextBPress():
 153         #TODO: TextAreaControl.SetText(18030)
 154         return
 155
 156 def MiscellaneousPress():
 157         TextAreaControl.SetText(18031)
 158         return
 159
 160 def MiscellaneousBPress():
 161         #TODO: TextAreaControl.SetText(18031)
 162         return
 163
 164
 165 def OkPress():
 166         if FeedbackWindow:
 167                 FeedbackWindow.Unload()
 168         GemRB.SetNextScript("GUIOPT8")
 169         return
 170
 171 def CancelPress():
 172         if FeedbackWindow:
 173                 FeedbackWindow.Unload()
 174         GemRB.SetNextScript("GUIOPT8")
 175         return
 176