Changeset 1262

Show
Ignore:
Timestamp:
1/21/2010 6:44:30 AM (8 weeks ago)
Author:
vessper
Message:

21/01/2010

- HQF: Enabled multiple module status changing

Location:
trunk/EveHQ.HQF/Controls
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • trunk/EveHQ.HQF/Controls/ShipSlotControl.designer.vb

    r1021 r1262  
    261261        Me.ctxSlots.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShowInfoToolStripMenuItem}) 
    262262        Me.ctxSlots.Name = "ctxSlots" 
    263         Me.ctxSlots.Size = New System.Drawing.Size(124, 26) 
     263        Me.ctxSlots.Size = New System.Drawing.Size(135, 26) 
    264264        Me.ctxSlots.Tag = " " 
    265265        ' 
    … …  
    267267        ' 
    268268        Me.ShowInfoToolStripMenuItem.Name = "ShowInfoToolStripMenuItem" 
    269         Me.ShowInfoToolStripMenuItem.Size = New System.Drawing.Size(123, 22) 
     269        Me.ShowInfoToolStripMenuItem.Size = New System.Drawing.Size(134, 22) 
    270270        Me.ShowInfoToolStripMenuItem.Text = "Show Info" 
    271271        ' 
    … …  
    286286        Me.ctxBays.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ctxRemoveItem, Me.ToolStripMenuItem1, Me.ctxAlterQuantity, Me.ctxSplitBatch, Me.ToolStripMenuItem2, Me.ctxShowBayInfoItem}) 
    287287        Me.ctxBays.Name = "ctx" 
    288         Me.ctxBays.Size = New System.Drawing.Size(156, 104) 
     288        Me.ctxBays.Size = New System.Drawing.Size(167, 104) 
    289289        ' 
    290290        'ctxRemoveItem 
    291291        ' 
    292292        Me.ctxRemoveItem.Name = "ctxRemoveItem" 
    293         Me.ctxRemoveItem.Size = New System.Drawing.Size(155, 22) 
     293        Me.ctxRemoveItem.Size = New System.Drawing.Size(166, 22) 
    294294        Me.ctxRemoveItem.Text = "Remove Item" 
    295295        ' 
    … …  
    297297        ' 
    298298        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" 
    299         Me.ToolStripMenuItem1.Size = New System.Drawing.Size(152, 6) 
     299        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6) 
    300300        ' 
    301301        'ctxAlterQuantity 
    302302        ' 
    303303        Me.ctxAlterQuantity.Name = "ctxAlterQuantity" 
    304         Me.ctxAlterQuantity.Size = New System.Drawing.Size(155, 22) 
     304        Me.ctxAlterQuantity.Size = New System.Drawing.Size(166, 22) 
    305305        Me.ctxAlterQuantity.Text = "Alter Quantity" 
    306306        ' 
    … …  
    308308        ' 
    309309        Me.ctxSplitBatch.Name = "ctxSplitBatch" 
    310         Me.ctxSplitBatch.Size = New System.Drawing.Size(155, 22) 
     310        Me.ctxSplitBatch.Size = New System.Drawing.Size(166, 22) 
    311311        Me.ctxSplitBatch.Text = "Split Batch" 
    312312        ' 
    … …  
    314314        ' 
    315315        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" 
    316         Me.ToolStripMenuItem2.Size = New System.Drawing.Size(152, 6) 
     316        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(163, 6) 
    317317        ' 
    318318        'ctxShowBayInfoItem 
    319319        ' 
    320320        Me.ctxShowBayInfoItem.Name = "ctxShowBayInfoItem" 
    321         Me.ctxShowBayInfoItem.Size = New System.Drawing.Size(155, 22) 
     321        Me.ctxShowBayInfoItem.Size = New System.Drawing.Size(166, 22) 
    322322        Me.ctxShowBayInfoItem.Text = "Show Drone Info" 
    323323        ' 
    … …  
    327327        Me.ctxRemoteFittings.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RemoveFittingToolStripMenuItem}) 
    328328        Me.ctxRemoteFittings.Name = "ctxRemoteFittings" 
    329         Me.ctxRemoteFittings.Size = New System.Drawing.Size(169, 26) 
     329        Me.ctxRemoteFittings.Size = New System.Drawing.Size(180, 26) 
    330330        ' 
    331331        'RemoveFittingToolStripMenuItem 
    … …  
    333333        Me.RemoveFittingToolStripMenuItem.Name = "RemoveFittingToolStripMenuItem" 
    334334        Me.RemoveFittingToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.Delete 
    335         Me.RemoveFittingToolStripMenuItem.Size = New System.Drawing.Size(168, 22) 
     335        Me.RemoveFittingToolStripMenuItem.Size = New System.Drawing.Size(179, 22) 
    336336        Me.RemoveFittingToolStripMenuItem.Text = "Remove Fitting" 
    337337        ' 
    … …  
    341341        Me.ctxRemoteModule.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuShowRemoteModInfo}) 
    342342        Me.ctxRemoteModule.Name = "ctxRemoteModule" 
    343         Me.ctxRemoteModule.Size = New System.Drawing.Size(124, 26) 
     343        Me.ctxRemoteModule.Size = New System.Drawing.Size(135, 26) 
    344344        ' 
    345345        'mnuShowRemoteModInfo 
    346346        ' 
    347347        Me.mnuShowRemoteModInfo.Name = "mnuShowRemoteModInfo" 
    348         Me.mnuShowRemoteModInfo.Size = New System.Drawing.Size(123, 22) 
     348        Me.mnuShowRemoteModInfo.Size = New System.Drawing.Size(134, 22) 
    349349        Me.mnuShowRemoteModInfo.Text = "Show Info" 
    350350        ' 
    … …  
    370370        Me.ctxShipSkills.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuAlterRelevantSkills}) 
    371371        Me.ctxShipSkills.Name = "ctxShipSkills" 
    372         Me.ctxShipSkills.Size = New System.Drawing.Size(169, 26) 
     372        Me.ctxShipSkills.Size = New System.Drawing.Size(180, 26) 
    373373        ' 
    374374        'mnuAlterRelevantSkills 
    375375        ' 
    376376        Me.mnuAlterRelevantSkills.Name = "mnuAlterRelevantSkills" 
    377         Me.mnuAlterRelevantSkills.Size = New System.Drawing.Size(168, 22) 
     377        Me.mnuAlterRelevantSkills.Size = New System.Drawing.Size(179, 22) 
    378378        Me.mnuAlterRelevantSkills.Text = "Alter Relevant Skills" 
    379379        ' 
    … …  
    10291029        Me.ctxBoosters.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuShowBoosterInfo, Me.ToolStripMenuItem3, Me.mnuBoosterPenalty1, Me.mnuBoosterPenalty2, Me.mnuBoosterPenalty3, Me.mnuBoosterPenalty4, Me.mnuSepPenalties, Me.mnuRandomSideEffects, Me.mnuAlterBoosterSkills, Me.ToolStripMenuItem4, Me.mnuRemoveBooster}) 
    10301030        Me.ctxBoosters.Name = "ctx" 
    1031         Me.ctxBoosters.Size = New System.Drawing.Size(174, 198) 
     1031        Me.ctxBoosters.Size = New System.Drawing.Size(185, 198) 
    10321032        ' 
    10331033        'mnuShowBoosterInfo 
    10341034        ' 
    10351035        Me.mnuShowBoosterInfo.Name = "mnuShowBoosterInfo" 
    1036         Me.mnuShowBoosterInfo.Size = New System.Drawing.Size(173, 22) 
     1036        Me.mnuShowBoosterInfo.Size = New System.Drawing.Size(184, 22) 
    10371037        Me.mnuShowBoosterInfo.Text = "Show Info" 
    10381038        ' 
    … …  
    10401040        ' 
    10411041        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" 
    1042         Me.ToolStripMenuItem3.Size = New System.Drawing.Size(170, 6) 
     1042        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(181, 6) 
    10431043        ' 
    10441044        'mnuBoosterPenalty1 
    … …  
    10461046        Me.mnuBoosterPenalty1.CheckOnClick = True 
    10471047        Me.mnuBoosterPenalty1.Name = "mnuBoosterPenalty1" 
    1048         Me.mnuBoosterPenalty1.Size = New System.Drawing.Size(173, 22) 
     1048        Me.mnuBoosterPenalty1.Size = New System.Drawing.Size(184, 22) 
    10491049        Me.mnuBoosterPenalty1.Text = "Penalty1" 
    10501050        ' 
    … …  
    10531053        Me.mnuBoosterPenalty2.CheckOnClick = True 
    10541054        Me.mnuBoosterPenalty2.Name = "mnuBoosterPenalty2" 
    1055         Me.mnuBoosterPenalty2.Size = New System.Drawing.Size(173, 22) 
     1055        Me.mnuBoosterPenalty2.Size = New System.Drawing.Size(184, 22) 
    10561056        Me.mnuBoosterPenalty2.Text = "Penalty2" 
    10571057        ' 
    … …  
    10601060        Me.mnuBoosterPenalty3.CheckOnClick = True 
    10611061        Me.mnuBoosterPenalty3.Name = "mnuBoosterPenalty3" 
    1062         Me.mnuBoosterPenalty3.Size = New System.Drawing.Size(173, 22) 
     1062        Me.mnuBoosterPenalty3.Size = New System.Drawing.Size(184, 22) 
    10631063        Me.mnuBoosterPenalty3.Text = "Penalty3" 
    10641064        ' 
    … …  
    10671067        Me.mnuBoosterPenalty4.CheckOnClick = True 
    10681068        Me.mnuBoosterPenalty4.Name = "mnuBoosterPenalty4" 
    1069         Me.mnuBoosterPenalty4.Size = New System.Drawing.Size(173, 22) 
     1069        Me.mnuBoosterPenalty4.Size = New System.Drawing.Size(184, 22) 
    10701070        Me.mnuBoosterPenalty4.Text = "Penalty4" 
    10711071        ' 
    … …  
    10731073        ' 
    10741074        Me.mnuSepPenalties.Name = "mnuSepPenalties" 
    1075         Me.mnuSepPenalties.Size = New System.Drawing.Size(170, 6) 
     1075        Me.mnuSepPenalties.Size = New System.Drawing.Size(181, 6) 
    10761076        ' 
    10771077        'mnuRandomSideEffects 
    10781078        ' 
    10791079        Me.mnuRandomSideEffects.Name = "mnuRandomSideEffects" 
    1080         Me.mnuRandomSideEffects.Size = New System.Drawing.Size(173, 22) 
     1080        Me.mnuRandomSideEffects.Size = New System.Drawing.Size(184, 22) 
    10811081        Me.mnuRandomSideEffects.Text = "Random Side Effects" 
    10821082        ' 
    … …  
    10841084        ' 
    10851085        Me.mnuAlterBoosterSkills.Name = "mnuAlterBoosterSkills" 
    1086         Me.mnuAlterBoosterSkills.Size = New System.Drawing.Size(173, 22) 
     1086        Me.mnuAlterBoosterSkills.Size = New System.Drawing.Size(184, 22) 
    10871087        Me.mnuAlterBoosterSkills.Text = "Alter Relevant Skills" 
    10881088        ' 
    … …  
    10901090        ' 
    10911091        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" 
    1092         Me.ToolStripMenuItem4.Size = New System.Drawing.Size(170, 6) 
     1092        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(181, 6) 
    10931093        ' 
    10941094        'mnuRemoveBooster 
    10951095        ' 
    10961096        Me.mnuRemoveBooster.Name = "mnuRemoveBooster" 
    1097         Me.mnuRemoveBooster.Size = New System.Drawing.Size(173, 22) 
     1097        Me.mnuRemoveBooster.Size = New System.Drawing.Size(184, 22) 
    10981098        Me.mnuRemoveBooster.Text = "Remove Booster" 
    10991099        ' 

  • trunk/EveHQ.HQF/Controls/ShipSlotControl.resx

    r1023 r1262  
    128128        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w 
    129129        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 
    130         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA8 
    131         HgAAAk1TRnQBSQFMAgEBBgEAAQkBAAEEAQABDwEAAQ8BAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAE8 
    132         AwABHgMAAQEBAAEgBQABIAEcEgABQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIO 
    133         AXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQQINAXEBOwIJAWIBKAIDATsBRQIQAXgBRQIQ 
    134         AXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQ 
    135         AXgBRQIQAXgBRQIQAXgBKwIEAUB4AAFcAjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFc 
    136         AjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFcAjQBxQFaAjEBwQFTAiMBpgE8AgoBZAFjAkkB7gFj 
    137         AkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFjAkkB7gFj 
    138         AkkB7gFjAkkB7gFjAkkB7gFHAhIBf3gAAVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHv 
    139         AVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHvAVoCTgHvAV0CRwHqAV4COQHKAUUCEQF7AwUB/wOj 
    140         Af8D2gH/A7EB/wOOAf8DhAH/AyEB/wMeAf8DGwH/AxsB/wMVAf8DCgH/AxIB/wMhAf8BSgIVAYh4AAFB 
    141         Aj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFBAj8B/QFB 
    142         Aj8B/QFBAj8B/QFdAjoB+AFhAkEB1gFIAhMBggMFAf8DlwH/A8IB/wOXAf8DGgH/AxEB/wMLAf8DCgH/ 
    143         AwoB/wMKAf8DCAH/AwYB/wMXAf8DiAH/AUoCFQGIeAACAQG/Af8CAQHfAf8CAQHrAf8CAQHiAf8CAQHT 
    144         Af8CAQHLAf8CAQHHAf8CAQHFAf8CAQHFAf8CAQHFAf8CAQHDAf8CAQHFAf8BTgEnAUoB+gFgAkAB2AFJ 
    145         AhMBgwMFAf8DjQH/A7AB/wOIAf8DDgH/AwgB/wMFAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMZAf8DjQH/ 
    146         AUoCFQGIeAACAQG/Af8CAQHfAf8CAQHoAf8CAQHbAf8CAQHLAf8CAQHEAf8CAQHBAf8CAQHBAf8CAQHB 
    147         Af8CAQHBAf8CAQG/Af8CAQHEAf8BTgEnAUoB+gFgAkAB2AFJAhMBgwMFAf8DhAH/A6AB/wMjAf8DCAH/ 
    148         AwYB/wMFAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMaAf8DjwH/AUoCFQGIeAACAQG/Af8CAQHfAf8CAQHo 
    149         Af8CAQHYAf8CAQHGAf8CAQHAAf8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQHEAf8BTgEn 
    150         AUoB+gFgAkAB2AFJAhMBgwMFAf8DgQH/A5UB/wMcAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMFAf8DBQH/ 
    151         AwUB/wMdAf8DmAH/AUoCFQGIeAACAQG/Af8CAQHfAf8CAQHnAf8CAQHWAf8CAQHEAf8CAQG/Af8CAQG/ 
    152         Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQHEAf8BTgEnAUoB+gFgAkAB2AFJAhMBgwMFAf8DIAH/ 
    153         A48B/wMaAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMjAf8DpQH/AUoCFQGIeAACAQG/ 
    154         Af8CAQHfAf8CAQHnAf8CAQHWAf8CAQHEAf8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/ 
    155         Af8CAQHEAf8BTgEnAUoB+gFgAkAB2AFJAhMBgwMFAf8DHgH/A4sB/wMYAf8DBQH/AwUB/wMFAf8DBQH/ 
    156         AwUB/wMFAf8DBQH/AwUB/wODAf8DtQH/AUoCFQGIeAACAQG/Af8CAQHeAf8CAQHmAf8CAQHWAf8CAQHE 
    157         Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQG/Af8CAQHEAf8BTgEnAUoB+gFgAkAB2AFJ 
    158         AhMBgwMFAf8DHwH/A4wB/wMZAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wOLAf8DxwH/ 
    159         AUoCFQGIeAACAQG/Af8CAQHcAf8CAQHkAf8CAQHVAf8CAQHFAf8CAQHAAf8CAQHAAf8CAQHAAf8CAQHA 
    160         Af8CAQHAAf8CAQHAAf8CAQHFAf8BTgJKAfoBYAJAAdgBSQITAYMDBQH/Ax4B/wOLAf8DGAH/AwUB/wMF 
    161         Af8DBQH/AwUB/wMFAf8DBQH/AwUB/wMFAf8DkwH/A9gB/wFKAhUBiHgAAgEBvwH/AgEB2gH/AgEB4QH/ 
    162         AgEB1AH/AgEByAH/AgEBwwH/AgEBwwH/AgEBwwH/AgEBwwH/AgEBwwH/AgEBwwH/AgEByAH/AU4CSgH6 
    163         AWACQAHYAUkCEwGDAwUB/wMaAf8DhQH/AxUB/wMFAf8DBQH/AwUB/wMFAf8DBQH/AwUB/wMFAf8DBQH/ 
    164         A5kB/wPnAf8BSgIVAYh4AAIBAb8B/wIBAdYB/wIBAd4B/wIBAdgB/wIBAdAB/wIBAc0B/wIBAc0B/wIB 
    165         Ac0B/wIBAc0B/wIBAc0B/wIBAc0B/wIBAdIB/wFOAkoB+gFgAkAB2AFJAhMBgwMFAf8DFgH/A4EB/wMU 
    166         Af8DCAH/AwgB/wMIAf8DCAH/AwkB/wMJAf8DCgH/AwwB/wOkAf8D9AH/AUoCFQGIeAACAQG/Af8CAQHQ 
    167         Af8CAQHcAf8CAQHhAf8CAQHjAf8CAQHiAf8CAQHiAf8CAQHiAf8CAQHiAf8CAQHiAf8CAQHiAf8CAQHl 
    168         Af8BTgJKAfoBYAJAAdgBSQITAYMDBQH/AxEB/wMcAf8DHQH/Ax0B/wMdAf8DHgH/Ax4B/wMhAf8DgQH/ 
    169         A4kB/wOVAf8DwQH/A/gB/wFKAhUBiHgAAgEBvwH/AgEBygH/AgEB2gH/AgEB7gH/AgEB+wH/AgEC/wIB 
    170         Av8CAQL/AgEC/wIBAv8CDAL/AqMC/wFOAkoB+gFgAkAB2AFJAhMBgwMFAf8DDAH/AxQB/wOBAf8DjAH/ 
    171         A4wB/wONAf8DjgH/A5MB/wOcAf8DrQH/A8QB/wPfAf8D+wH/AUoCFQGIeAABRQIQAXgBRQIQAXgBRQIQ 
    172         AXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQAXgBRQIQ 
    173         AXgBRQIQAXgBKwIEAUABQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIO 
    174         AXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQQINAXEBOwIJAWIBKAIDATsBQwIOAXMBQwIOAXMBQwIO 
    175         AXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQwIOAXMBQQIN 
    176         AXEBOwIJAWIBKAIDATsEAAEDAgEBAwEMAgEBDgEVAgEBGwEXAgEBHgEWAgEBHQEcAgIBJgEdAgIBKAEZ 
    177         AgEBIQEYAgEBHwETAgEBGAEJAgEBCgEDAgEBAwgAAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHu 
    178         AWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAWMCSQHuAUcCEgF/ 
    179         AVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHF 
    180         AVwCNAHFAVwCNAHFAVoCMQHBAVMCIwGmATwCCgFkAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHF 
    181         AVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVwCNAHFAVoCMQHBAVMCIwGmATwCCgFk 
    182         AQIDAQENAgEBDwEqAgMBPgFGAhIBfQFJARUBFgGIAUECDQFxAVECIAGeAVICIQGiAUgBEwEUAYMBSwIY 
    183         AY0BSQEVARYBiAEtAgQBQwEMAgEBDgEDAgEBAgQAA48B/wPDAf8D7QH/A9MB/wO8Af8DswH/A6wB/wOo 
    184         Af8DpgH/A6YB/wOfAf8DlAH/A50B/wOtAf8BSgIVAYgBWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJO 
    185         Ae8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BXQJHAeoBXgI5AcoBRQIR 
    186         AXsBWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJOAe8BWgJO 
    187         Ae8BWgJOAe8BWgJOAe8BXQJHAeoBXgI5AcoBRQIRAXsBBAIBAQQBHQICASgBUQIgAZ4BQgFaAacB+QFO 
    188         AVcBiAHzAVoBQgFMAd0BQgFHAaEB+QE/AUUBjQH2AVcBRAFVAeQBUAFJAXsB8QFGAUsBigH0AUkBFQEW 
    189         AYcBGAIBAR8BBAIBAQQEAAOPAf8DvQH/A+AB/wO/Af8DpQH/A5wB/wOVAf8DlQH/A5QB/wOUAf8DkgH/ 
    190         A5AB/wOhAf8DuAH/AUoCFQGIAUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9 
    191         AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AV0COgH4AWECQQHWAUgCEwGCAUECPwH9AUECPwH9 
    192         AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9AUECPwH9 
    193         AV0COgH4AWECQQHWAUgCEwGCAQcCAQEHASsCAwE/AVsBPwFDAdcBSgF8AdYB/gFAAUsBqQH6ATgBQgGD 
    194         AfYBPgFuAecB/wFFAU8BpgH6AUEBQwGcAfkBRgF1AdMB/gFIAV0BigH0AUcCEwGAARUCAQEbAQMCAQED 
    195         BAADjwH/A7cB/wPWAf8DtAH/A5kB/wOTAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DowH/A70B/wFK 
    196         AhUBiAEBAr8B/wEBAt8B/wEBAusB/wEBAuIB/wEBAtMB/wEBAssB/wEBAscB/wEBAsUB/wEBAsUB/wEB 
    197         AsUB/wEBAsMB/wEBAsUB/wFOAkoB+gFgAkAB2AFJAhMBgwEBAb8BAQH/AQEB3wEBAf8BAQHrAQEB/wEB 
    198         AeIBAQH/AQEB0wEBAf8BAQHLAQEB/wEBAccBAQH/AQEBxQEBAf8BAQHFAQEB/wEBAcUBAQH/AQEBwwEB 
    199         Af8BAQHFAQEB/wFOAUoBJwH6AWACQAHYAUkCEwGDAQcCAQEIAS0CBAFEAVgBQgFLAd8BLAFHAb4B/AFJ 
    200         AUgBdgHxAT8BPAF/AfUBNQFKAagB+gFNAUgBZgHuAUMBSwGCAfQBQgFNAasB+gFYATIBNQHCATECBQFM 
    201         AQsCAQENAQIDAQQAA48B/wOxAf8DywH/A6sB/wOSAf8DkAH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/ 
    202         A6QB/wO/Af8BSgIVAYgBAQK/Af8BAQLfAf8BAQLoAf8BAQLbAf8BAQLLAf8BAQLEAf8BAQLBAf8BAQLB 
    203         Af8BAQLBAf8BAQLBAf8BAQK/Af8BAQLEAf8BTgJKAfoBYAJAAdgBSQITAYMBAQG/AQEB/wEBAd8BAQH/ 
    204         AQEB6AEBAf8BAQHbAQEB/wEBAcsBAQH/AQEBxAEBAf8BAQHBAQEB/wEBAcEBAQH/AQEBwQEBAf8BAQHB 
    205         AQEB/wEBAb8BAQH/AQEBxAEBAf8BTgFKAScB+gFgAkAB2AFJAhMBgwEGAgEBBgElAgIBNQFaATQBNgHD 
    206         AjoBnQH4AVYBRgFdAegBVQFJAWYB6wFTAUwBagHsAVoBOAE6AcsBWgFFAVMB4wFWAUgBWwHoAUsCFwGK 
    207         AR0CAgEnAQUCAQEFCAADjwH/A60B/wPEAf8DpgH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOP 
    208         Af8DpgH/A8YB/wFKAhUBiAEBAr8B/wEBAt8B/wEBAugB/wEBAtgB/wEBAsYB/wEBAsAB/wEBAr8B/wEB 
    209         Ar8B/wEBAr8B/wEBAr8B/wEBAr8B/wEBAsQB/wFOAkoB+gFgAkAB2AFJAhMBgwEBAb8BAQH/AQEB3wEB 
    210         Af8BAQHoAQEB/wEBAdgBAQH/AQEBxgEBAf8BAQHAAQEB/wEBAb8BAQH/AQEBvwEBAf8BAQG/AQEB/wEB 
    211         Ab8BAQH/AQEBvwEBAf8BAQHEAQEB/wFOAUoBJwH6AWACQAHYAUkCEwGDAQMCAQEDARkCAQEgAUkCFQGG 
    212         AVcBRwFYAeYBUAFFAWoB7QFbAT8BRQHXAVoBRAFLAdwBVwIqAbIBWAEvATEBvAFZAUQBTAHeAU0CGgGS 
    213         ASECAgEuAQYCAQEGCAADjwH/A6sB/wO/Af8DowH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOP 
    214         Af8DqwH/A88B/wFKAhUBiAEBAr8B/wEBAt8B/wEBAucB/wEBAtYB/wEBAsQB/wEBAr8B/wEBAr8B/wEB 
    215         Ar8B/wEBAr8B/wEBAr8B/wEBAr8B/wEBAsQB/wFOAkoB+gFgAkAB2AFJAhMBgwEBAb8BAQH/AQEB3wEB 
    216         Af8BAQHnAQEB/wEBAdYBAQH/AQEBxAEBAf8BAQG/AQEB/wEBAb8BAQH/AQEBvwEBAf8BAQG/AQEB/wEB 
    217         Ab8BAQH/AQEBvwEBAf8BAQHEAQEB/wFOAUoBJwH6AWACQAHYAUkCEwGDBAABDQIBARABMQIFAUsBVQIo 
    218         Aa4BVgFFAVwB5wFaATgBOgHLAVcCKwG1AVUCKAGuAUwCGQGQAVwCOAHIAVcBLAEtAbcBLgIEAUYBCgIB 
    219         AQwBAwIBAQIEAAOPAf8DqQH/A7wB/wOiAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOv 
    220         Af8D2QH/AUoCFQGIAQECvwH/AQEC3wH/AQEC5wH/AQEC1gH/AQECxAH/AQECvwH/AQECvwH/AQECvwH/ 
    221         AQECvwH/AQECvwH/AQECvwH/AQECxAH/AU4CSgH6AWACQAHYAUkCEwGDAQEBvwEBAf8BAQHfAQEB/wEB 
    222         AecBAQH/AQEB1gEBAf8BAQHEAQEB/wEBAb8BAQH/AQEBvwEBAf8BAQG/AQEB/wEBAb8BAQH/AQEBvwEB 
    223         Af8BAQG/AQEB/wEBAcQBAQH/AU4BSgEnAfoBYAJAAdgBSQITAYMBAgMBAQYCAQEGARwCAgElAUQCDwF3 
    224         AV4BQAFDAdQBWAExATMBvwFNAhoBkgFPAhwBmAFBAg0BcQFVASgBKgGwAVkBMAEyAb0BMQIFAUsBCwIB 
    225         AQ0BAwIBAQIEAAOPAf8DqQH/A70B/wOjAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOy 
    226         Af8D4gH/AUoCFQGIAQECvwH/AQEC3gH/AQEC5gH/AQEC1gH/AQECxAH/AQECvwH/AQECvwH/AQECvwH/ 
    227         AQECvwH/AQECvwH/AQECvwH/AQECxAH/AU4CSgH6AWACQAHYAUkCEwGDAQEBvwEBAf8BAQHeAQEB/wEB 
    228         AeYBAQH/AQEB1gEBAf8BAQHEAQEB/wEBAb8BAQH/AQEBvwEBAf8BAQG/AQEB/wEBAb8BAQH/AQEBvwEB 
    229         Af8BAQG/AQEB/wEBAcQBAQH/AU4BSgEnAfoBYAJAAdgBSQITAYMEAAEDAgEBAgERAgEBFQE8AgoBZQFY 
    230         ATEBNAHBAVEBIAEhAZ8BTAIZAZABRQIQAXgBQQINAXABVwIrAbMBSwIXAYsBIQICAS4BCAIBAQkBAgMB 
    231         BAADjwH/A6gB/wO7Af8DogH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DtgH/A+oB/wFK 
    232         AhUBiAEBAr8B/wEBAtwB/wEBAuQB/wEBAtUB/wEBAsUB/wEBAsAB/wEBAsAB/wEBAsAB/wEBAsAB/wEB 
    233         AsAB/wEBAsAB/wEBAsUB/wFOAkoB+gFgAkAB2AFJAhMBgwEBAb8BAQH/AQEB3AEBAf8BAQHkAQEB/wEB 
    234         AdUBAQH/AQEBxQEBAf8BAQHAAQEB/wEBAcABAQH/AQEBwAEBAf8BAQHAAQEB/wEBAcABAQH/AQEBwAEB 
    235         Af8BAQHFAQEB/wFOAkoB+gFgAkAB2AFJAhMBgwQAAQMCAQECARICAQEXAUUCEAF5AUkCFQGIAUYCEgF9 
    236         AUQCDwF3ASwCBAFBAUYCEgF/AU0BGQEaAZEBLAIEAUIBDwIBARIBAwIBAQMIAAOPAf8DpQH/A7UB/wOf 
    237         Af8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wO5Af8D8QH/AUoCFQGIAQECvwH/AQEC2gH/ 
    238         AQEC4QH/AQEC1AH/AQECyAH/AQECwwH/AQECwwH/AQECwwH/AQECwwH/AQECwwH/AQECwwH/AQECyAH/ 
    239         AU4CSgH6AWACQAHYAUkCEwGDAQEBvwEBAf8BAQHaAQEB/wEBAeEBAQH/AQEB1AEBAf8BAQHIAQEB/wEB 
    240         AcMBAQH/AQEBwwEBAf8BAQHDAQEB/wEBAcMBAQH/AQEBwwEBAf8BAQHDAQEB/wEBAcgBAQH/AU4CSgH6 
    241         AWACQAHYAUkCEwGDBAABAgMBARcCAQEeAUsCFwGLATUCBwFTAToCCQFeAToCCQFeAR0CAgEnAUUCEAF4 
    242         AT0CCwFnARQCAQEaAQcCAQEHAQIDAQgAA48B/wOhAf8DrwH/A54B/wOSAf8DkgH/A5IB/wOSAf8DkwH/ 
    243         A5MB/wOUAf8DlQH/A8AB/wP3Af8BSgIVAYgBAQK/Af8BAQLWAf8BAQLeAf8BAQLYAf8BAQLQAf8BAQLN 
    244         Af8BAQLNAf8BAQLNAf8BAQLNAf8BAQLNAf8BAQLNAf8BAQLSAf8BTgJKAfoBYAJAAdgBSQITAYMBAQG/ 
    245         AQEB/wEBAdYBAQH/AQEB3gEBAf8BAQHYAQEB/wEBAdABAQH/AQEBzQEBAf8BAQHNAQEB/wEBAc0BAQH/ 
    246         AQEBzQEBAf8BAQHNAQEB/wEBAc0BAQH/AQEB0gEBAf8BTgJKAfoBYAJAAdgBSQITAYMEAAECAwEBEgIB 
    247         ARcBQAINAW4BMQIFAUwBJQICATUBMQIFAUwBIQICAi4CBAFGATACBQFKARACAQETAQMCAQECDAADjwH/ 
    248         A5wB/wOnAf8DpwH/A6gB/wOoAf8DqAH/A6kB/wOrAf8DrwH/A7QB/wO8Af8D2AH/A/oB/wFKAhUBiAEB 
    249         Ar8B/wEBAtAB/wEBAtwB/wEBAuEB/wEBAuMB/wEBAuIB/wEBAuIB/wEBAuIB/wEBAuIB/wEBAuIB/wEB 
    250         AuIB/wEBAuUB/wFOAkoB+gFgAkAB2AFJAhMBgwEBAb8BAQH/AQEB0AEBAf8BAQHcAQEB/wEBAeEBAQH/ 
    251         AQEB4wEBAf8BAQHiAQEB/wEBAeIBAQH/AQEB4gEBAf8BAQHiAQEB/wEBAeIBAQH/AQEB4gEBAf8BAQHl 
    252         AQEB/wFOAkoB+gFgAkAB2AFJAhMBgwgAAQUCAQEFARQCAQEaARYCAQEcAQoCAQEMAQoCAQEMAQcCAQEH 
    253         AQkCAQEKARECAQEVAQcCAQEIEAADjwH/A5YB/wOfAf8DsAH/A70B/wO9Af8DvgH/A78B/wPDAf8DygH/ 
    254         A9UB/wPjAf8D8AH/A/0B/wFKAhUBiAEBAr8B/wEBAsoB/wEBAtoB/wEBAu4B/wEBAvsB/wEBA/8BAQP/ 
    255         AQED/wEBA/8BAQP/AQwD/wGjA/8BTgJKAfoBYAJAAdgBSQITAYMBAQG/AQEB/wEBAcoBAQH/AQEB2gEB 
    256         Af8BAQHuAQEB/wEBAfsBAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEBAf8BAQH/AQEB/wEM 
    257         Af8BDAH/AaMB/wGjAf8BTgJKAfoBYAJAAdgBSQITAYMMAAECAwEBAwIBAQIBAwIBAgIDASAAAUIBTQE+ 
    258         BwABPgMAASgDAAE8AwABHgMAAQEBAAEBBQAB8BcAA/9+AAEEAQABMAcAARAHAAEQBwABEAcAARAHAAEw 
    259         BwABMAUAAQQBAAEQBwABEAUAAQQBAAEQBQABBAEAATAFAAEEAQABMAUAAQQBAAFwBQABBgEAAfAFAAEH 
    260         AQ8B8As= 
     130        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABa 
     131        HQAAAk1TRnQBSQFMAgEBBgEAAQkBAAEEAQABDwEAAQ8BAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAE8 
     132        AwABHgMAAQEBAAEgBQABIAEcEgABQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4 
     133        AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQQI3AXEBPAI0AWIBKAInATsBRQI5AXgBRQI5 
     134        AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5 
     135        AXgBRQI5AXgBRQI5AXgBKwIpAUB4AAFcAkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFc 
     136        AkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFcAkQBxQFaAkMBwQFTAkABpgE8AjUBZAFjAkwB7gFj 
     137        AkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFjAkwB7gFj 
     138        AkwB7gFjAkwB7gFjAkwB7gFHAjoBf3gAAVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHv 
     139        AVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHvAVsCUAHvAV0CSwHqAV4CRgHKAUUCOQF7AwYB/wOj 
     140        Af8D2gH/A7EB/wOOAf8DhAH/AyIB/wMfAf8DHAH/AxwB/wMWAf8DCwH/AxMB/wMiAf8BSgI7AYh4AANB 
     141        Af0DQQH9A0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QFdAjwB+AFhAksB1gFI 
     142        AjoBggMGAf8DlwH/A8IB/wOXAf8DGwH/AxIB/wMMAf8DCwH/AwsB/wMLAf8DCQH/AwcB/wMYAf8DiAH/ 
     143        AUoCOwGIeAACAgG/Af8CAgHfAf8CAgHrAf8CAgHiAf8CAgHTAf8CAgHLAf8CAgHHAf8CAgHFAf8CAgHF 
     144        Af8CAgHFAf8CAgHDAf8CAgHFAf8BTgEpAUwB+gFgAkkB2AFJAjsBgwMGAf8DjQH/A7AB/wOIAf8DDwH/ 
     145        AwkB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMaAf8DjQH/AUoCOwGIeAACAgG/Af8CAgHfAf8CAgHo 
     146        Af8CAgHbAf8CAgHLAf8CAgHEAf8CAgHBAf8CAgHBAf8CAgHBAf8CAgHBAf8CAgG/Af8CAgHEAf8BTgEp 
     147        AUwB+gFgAkkB2AFJAjsBgwMGAf8DhAH/A6AB/wMkAf8DCQH/AwcB/wMGAf8DBgH/AwYB/wMGAf8DBgH/ 
     148        AwYB/wMbAf8DjwH/AUoCOwGIeAACAgG/Af8CAgHfAf8CAgHoAf8CAgHYAf8CAgHGAf8CAgHAAf8CAgG/ 
     149        Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgHEAf8BTgEpAUwB+gFgAkkB2AFJAjsBgwMGAf8DgQH/ 
     150        A5UB/wMdAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMeAf8DmAH/AUoCOwGIeAACAgG/ 
     151        Af8CAgHfAf8CAgHnAf8CAgHWAf8CAgHEAf8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/ 
     152        Af8CAgHEAf8BTgEpAUwB+gFgAkkB2AFJAjsBgwMGAf8DIQH/A48B/wMbAf8DBgH/AwYB/wMGAf8DBgH/ 
     153        AwYB/wMGAf8DBgH/AwYB/wMkAf8DpQH/AUoCOwGIeAACAgG/Af8CAgHfAf8CAgHnAf8CAgHWAf8CAgHE 
     154        Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/Af8CAgHEAf8BTgEpAUwB+gFgAkkB2AFJ 
     155        AjsBgwMGAf8DHwH/A4sB/wMZAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wODAf8DtQH/ 
     156        AUoCOwGIeAACAgG/Af8CAgHeAf8CAgHmAf8CAgHWAf8CAgHEAf8CAgG/Af8CAgG/Af8CAgG/Af8CAgG/ 
     157        Af8CAgG/Af8CAgG/Af8CAgHEAf8BTgEpAUwB+gFgAkkB2AFJAjsBgwMGAf8DIAH/A4wB/wMaAf8DBgH/ 
     158        AwYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wOLAf8DxwH/AUoCOwGIeAACAgG/Af8CAgHcAf8CAgHk 
     159        Af8CAgHVAf8CAgHFAf8CAgHAAf8CAgHAAf8CAgHAAf8CAgHAAf8CAgHAAf8CAgHAAf8CAgHFAf8BTgJM 
     160        AfoBYAJJAdgBSQI7AYMDBgH/Ax8B/wOLAf8DGQH/AwYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMG 
     161        Af8DkwH/A9gB/wFKAjsBiHgAAgIBvwH/AgIB2gH/AgIB4QH/AgIB1AH/AgIByAH/AgIBwwH/AgIBwwH/ 
     162        AgIBwwH/AgIBwwH/AgIBwwH/AgIBwwH/AgIByAH/AU4CTAH6AWACSQHYAUkCOwGDAwYB/wMbAf8DhQH/ 
     163        AxYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/AwYB/wMGAf8DBgH/A5kB/wPnAf8BSgI7AYh4AAICAb8B/wIC 
     164        AdYB/wICAd4B/wICAdgB/wICAdAB/wICAc0B/wICAc0B/wICAc0B/wICAc0B/wICAc0B/wICAc0B/wIC 
     165        AdIB/wFOAkwB+gFgAkkB2AFJAjsBgwMGAf8DFwH/A4EB/wMVAf8DCQH/AwkB/wMJAf8DCQH/AwoB/wMK 
     166        Af8DCwH/Aw0B/wOkAf8D9AH/AUoCOwGIeAACAgG/Af8CAgHQAf8CAgHcAf8CAgHhAf8CAgHjAf8CAgHi 
     167        Af8CAgHiAf8CAgHiAf8CAgHiAf8CAgHiAf8CAgHiAf8CAgHlAf8BTgJMAfoBYAJJAdgBSQI7AYMDBgH/ 
     168        AxIB/wMdAf8DHgH/Ax4B/wMeAf8DHwH/Ax8B/wMiAf8DgQH/A4kB/wOVAf8DwQH/A/gB/wFKAjsBiHgA 
     169        AgIBvwH/AgIBygH/AgIB2gH/AgIB7gH/AgIB+wH/AgIC/wICAv8CAgL/AgIC/wICAv8CDQL/AqMC/wFO 
     170        AkwB+gFgAkkB2AFJAjsBgwMGAf8DDQH/AxUB/wOBAf8DjAH/A4wB/wONAf8DjgH/A5MB/wOcAf8DrQH/ 
     171        A8QB/wPfAf8D+wH/AUoCOwGIeAABRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5 
     172        AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBRQI5AXgBKwIpAUABQwI4AXMBQwI4 
     173        AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4 
     174        AXMBQQI3AXEBPAI0AWIBKAInATsBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4 
     175        AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQwI4AXMBQQI3AXEBPAI0AWIBKAInATsEAAQDAwwBDgMV 
     176        ARsDFwEeARcCFgEdAxwBJgEeAh0BKAMZASEBGAIXAR8DEwEYAwkBCgQDCAABYwJMAe4BYwJMAe4BYwJM 
     177        Ae4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJMAe4BYwJM 
     178        Ae4BYwJMAe4BRwI6AX8BXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJE 
     179        AcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBWgJDAcEBUwJAAaYBPAI1AWQBXAJEAcUBXAJEAcUBXAJE 
     180        AcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBXAJEAcUBWgJD 
     181        AcEBUwJAAaYBPAI1AWQDAgEBAw0BDwEqAigBPgFGAjoBfQFKAjsBiAFBAjcBcQFRAj8BngFSAj8BogFJ 
     182        AjsBgwFLAjwBjQFKAjsBiAEtAioBQwMMAQ4DAwECBAADjwH/A8MB/wPtAf8D0wH/A7wB/wOzAf8DrAH/ 
     183        A6gB/wOmAf8DpgH/A58B/wOUAf8DnQH/A60B/wFKAjsBiAFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFb 
     184        AlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFdAksB6gFeAkYBygFF 
     185        AjkBewFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFbAlAB7wFb 
     186        AlAB7wFbAlAB7wFbAlAB7wFdAksB6gFeAkYBygFFAjkBewQEAR4CHQEoAVECPwGeAUMBWwGjAfkBUAFZ 
     187        AYYB8wFcAUoBUgHdAUMBSAGeAfkBQgFIAYkB9gFaAUsBVwHkAVQBTQF5AfEBSQFOAYYB9AFKATsBPAGH 
     188        ARgCFwEfBAQEAAOPAf8DvQH/A+AB/wO/Af8DpQH/A5wB/wOVAf8DlQH/A5QB/wOUAf8DkgH/A5AB/wOh 
     189        Af8DuAH/AUoCOwGIA0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9 
     190        AV0CPAH4AWECSwHWAUgCOgGCA0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QNBAf0DQQH9A0EB/QNB 
     191        Af0DQQH9AV0CPAH4AWECSwHWAUgCOgGCBAcBKwIoAT8BXQFIAUwB1wFLAX0B1AH+AUIBTQGnAfoBOwFF 
     192        AYAB9gE/AW8B5wH/AUcBTwGkAfoBQgFEAZkB+QFHAXYB0QH+AUsBXgGGAfQBSAI7AYADFQEbBAMEAAOP 
     193        Af8DtwH/A9YB/wO0Af8DmQH/A5MB/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOjAf8DvQH/AUoCOwGI 
     194        AQICvwH/AQIC3wH/AQIC6wH/AQIC4gH/AQIC0wH/AQICywH/AQICxwH/AQICxQH/AQICxQH/AQICxQH/ 
     195        AQICwwH/AQICxQH/AU4CTAH6AWACSQHYAUkCOwGDAQIBvwECAf8BAgHfAQIB/wECAesBAgH/AQIB4gEC 
     196        Af8BAgHTAQIB/wECAcsBAgH/AQIBxwECAf8BAgHFAQIB/wECAcUBAgH/AQIBxQECAf8BAgHDAQIB/wEC 
     197        AcUBAgH/AU4BTAEpAfoBYAJJAdgBSQI7AYMDBwEIAS0CKgFEAVsBSgFRAd8BLAFHAbwB/AFNAUsBdgHx 
     198        AUMBQAF8AfUBOAFMAaYB+gFRAUsBZQHuAUYBTgF/AfQBRAFOAakB+gFaAUMBRQHCATECLQFMAwsBDQMC 
     199        AQEEAAOPAf8DsQH/A8sB/wOrAf8DkgH/A5AB/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOkAf8DvwH/ 
     200        AUoCOwGIAQICvwH/AQIC3wH/AQIC6AH/AQIC2wH/AQICywH/AQICxAH/AQICwQH/AQICwQH/AQICwQH/ 
     201        AQICwQH/AQICvwH/AQICxAH/AU4CTAH6AWACSQHYAUkCOwGDAQIBvwECAf8BAgHfAQIB/wECAegBAgH/ 
     202        AQIB2wECAf8BAgHLAQIB/wECAcQBAgH/AQIBwQECAf8BAgHBAQIB/wECAcEBAgH/AQIBwQECAf8BAgG/ 
     203        AQIB/wECAcQBAgH/AU4BTAEpAfoBYAJJAdgBSQI7AYMEBgElAiQBNQFcAkYBwwI8AZsB+AFYAUwBXwHo 
     204        AVcBTQFmAesBVwFPAWkB7AFcAkcBywFbAUsBVwHjAVgBTgFdAegBSwI8AYoBHQIcAScEBQgAA48B/wOt 
     205        Af8DxAH/A6YB/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A6YB/wPGAf8BSgI7AYgBAgK/ 
     206        Af8BAgLfAf8BAgLoAf8BAgLYAf8BAgLGAf8BAgLAAf8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/ 
     207        Af8BAgLEAf8BTgJMAfoBYAJJAdgBSQI7AYMBAgG/AQIB/wECAd8BAgH/AQIB6AECAf8BAgHYAQIB/wEC 
     208        AcYBAgH/AQIBwAECAf8BAgG/AQIB/wECAb8BAgH/AQIBvwECAf8BAgG/AQIB/wECAb8BAgH/AQIBxAEC 
     209        Af8BTgFMASkB+gFgAkkB2AFJAjsBgwQDARkCGAEgAUkCOwGGAVoBTAFaAeYBUgFJAWsB7QFdAUgBTQHX 
     210        AV0BTQFSAdwBWAJCAbIBWQJDAbwBWwFLAVEB3gFNAj0BkgEhAiABLgQGCAADjwH/A6sB/wO/Af8DowH/ 
     211        A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DqwH/A88B/wFKAjsBiAECAr8B/wECAt8B/wEC 
     212        AucB/wECAtYB/wECAsQB/wECAr8B/wECAr8B/wECAr8B/wECAr8B/wECAr8B/wECAr8B/wECAsQB/wFO 
     213        AkwB+gFgAkkB2AFJAjsBgwECAb8BAgH/AQIB3wECAf8BAgHnAQIB/wECAdYBAgH/AQIBxAECAf8BAgG/ 
     214        AQIB/wECAb8BAgH/AQIBvwECAf8BAgG/AQIB/wECAb8BAgH/AQIBvwECAf8BAgHEAQIB/wFOAUwBKQH6 
     215        AWACSQHYAUkCOwGDBAADDQEQATECLQFLAVUCQQGuAVkBTAFdAecBXAJHAcsBWAJCAbUBVQJBAa4BTQI9 
     216        AZABXAJHAcgBWAJDAbcBLgIrAUYDCgEMAwMBAgQAA48B/wOpAf8DvAH/A6IB/wOPAf8DjwH/A48B/wOP 
     217        Af8DjwH/A48B/wOPAf8DjwH/A68B/wPZAf8BSgI7AYgBAgK/Af8BAgLfAf8BAgLnAf8BAgLWAf8BAgLE 
     218        Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgLEAf8BTgJMAfoBYAJJAdgBSQI7 
     219        AYMBAgG/AQIB/wECAd8BAgH/AQIB5wECAf8BAgHWAQIB/wECAcQBAgH/AQIBvwECAf8BAgG/AQIB/wEC 
     220        Ab8BAgH/AQIBvwECAf8BAgG/AQIB/wECAb8BAgH/AQIBxAECAf8BTgFMASkB+gFgAkkB2AFJAjsBgwMC 
     221        AQEEBgEcAhsBJQFEAjkBdwFfAUoBTQHUAVoCRAG/AU0CPQGSAU8CPgGYAUECNwFxAVYBQQFCAbABWgJE 
     222        Ab0BMQItAUsDCwENAwMBAgQAA48B/wOpAf8DvQH/A6MB/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wOP 
     223        Af8DjwH/A7IB/wPiAf8BSgI7AYgBAgK/Af8BAgLeAf8BAgLmAf8BAgLWAf8BAgLEAf8BAgK/Af8BAgK/ 
     224        Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgK/Af8BAgLEAf8BTgJMAfoBYAJJAdgBSQI7AYMBAgG/AQIB/wEC 
     225        Ad4BAgH/AQIB5gECAf8BAgHWAQIB/wECAcQBAgH/AQIBvwECAf8BAgG/AQIB/wECAb8BAgH/AQIBvwEC 
     226        Af8BAgG/AQIB/wECAb8BAgH/AQIBxAECAf8BTgFMASkB+gFgAkkB2AFJAjsBgwQAAwMBAgMRARUBPQI1 
     227        AWUBWgFDAUUBwQFSAT4BPwGfAU0CPQGQAUUCOQF4AUECNwFwAVcCQQGzAUsCPAGLASECIAEuAwgBCQMC 
     228        AQEEAAOPAf8DqAH/A7sB/wOiAf8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DjwH/A48B/wO2Af8D6gH/ 
     229        AUoCOwGIAQICvwH/AQIC3AH/AQIC5AH/AQIC1QH/AQICxQH/AQICwAH/AQICwAH/AQICwAH/AQICwAH/ 
     230        AQICwAH/AQICwAH/AQICxQH/AU4CTAH6AWACSQHYAUkCOwGDAQIBvwECAf8BAgHcAQIB/wECAeQBAgH/ 
     231        AQIB1QECAf8BAgHFAQIB/wECAcABAgH/AQIBwAECAf8BAgHAAQIB/wECAcABAgH/AQIBwAECAf8BAgHA 
     232        AQIB/wECAcUBAgH/AU4CTAH6AWACSQHYAUkCOwGDBAADAwECAxIBFwFFAjkBeQFKAjsBiAFGAjoBfQFE 
     233        AjkBdwEsAikBQQFHAjoBfwFNATwBPQGRASwCKQFCAw8BEgQDCAADjwH/A6UB/wO1Af8DnwH/A48B/wOP 
     234        Af8DjwH/A48B/wOPAf8DjwH/A48B/wOPAf8DuQH/A/EB/wFKAjsBiAECAr8B/wECAtoB/wECAuEB/wEC 
     235        AtQB/wECAsgB/wECAsMB/wECAsMB/wECAsMB/wECAsMB/wECAsMB/wECAsMB/wECAsgB/wFOAkwB+gFg 
     236        AkkB2AFJAjsBgwECAb8BAgH/AQIB2gECAf8BAgHhAQIB/wECAdQBAgH/AQIByAECAf8BAgHDAQIB/wEC 
     237        AcMBAgH/AQIBwwECAf8BAgHDAQIB/wECAcMBAgH/AQIBwwECAf8BAgHIAQIB/wFOAkwB+gFgAkkB2AFJ 
     238        AjsBgwQAAwIBAQMXAR4BSwI8AYsBNQIwAVMBOgIzAV4BOgIzAV4BHQIcAScBRQI5AXgBPgI1AWcDFAEa 
     239        BAcDAgEBCAADjwH/A6EB/wOvAf8DngH/A5IB/wOSAf8DkgH/A5IB/wOTAf8DkwH/A5QB/wOVAf8DwAH/ 
     240        A/cB/wFKAjsBiAECAr8B/wECAtYB/wECAt4B/wECAtgB/wECAtAB/wECAs0B/wECAs0B/wECAs0B/wEC 
     241        As0B/wECAs0B/wECAs0B/wECAtIB/wFOAkwB+gFgAkkB2AFJAjsBgwECAb8BAgH/AQIB1gECAf8BAgHe 
     242        AQIB/wECAdgBAgH/AQIB0AECAf8BAgHNAQIB/wECAc0BAgH/AQIBzQECAf8BAgHNAQIB/wECAc0BAgH/ 
     243        AQIBzQECAf8BAgHSAQIB/wFOAkwB+gFgAkkB2AFJAjsBgwQAAwIBAQMSARcBQQI3AW4BMQItAUwBJQIk 
     244        ATUBMQItAUwBIQIgAi4CKwFGATACLQFKARACDwETAwMBAgwAA48B/wOcAf8DpwH/A6cB/wOoAf8DqAH/ 
     245        A6gB/wOpAf8DqwH/A68B/wO0Af8DvAH/A9gB/wP6Af8BSgI7AYgBAgK/Af8BAgLQAf8BAgLcAf8BAgLh 
     246        Af8BAgLjAf8BAgLiAf8BAgLiAf8BAgLiAf8BAgLiAf8BAgLiAf8BAgLiAf8BAgLlAf8BTgJMAfoBYAJJ 
     247        AdgBSQI7AYMBAgG/AQIB/wECAdABAgH/AQIB3AECAf8BAgHhAQIB/wECAeMBAgH/AQIB4gECAf8BAgHi 
     248        AQIB/wECAeIBAgH/AQIB4gECAf8BAgHiAQIB/wECAeIBAgH/AQIB5QECAf8BTgJMAfoBYAJJAdgBSQI7 
     249        AYMIAAQFAxQBGgMWARwDCgEMAwoBDAQHAwkBCgMRARUDBwEIEAADjwH/A5YB/wOfAf8DsAH/A70B/wO9 
     250        Af8DvgH/A78B/wPDAf8DygH/A9UB/wPjAf8D8AH/A/0B/wFKAjsBiAECAr8B/wECAsoB/wECAtoB/wEC 
     251        Au4B/wECAvsB/wECA/8BAgP/AQID/wECA/8BAgP/AQ0D/wGjA/8BTgJMAfoBYAJJAdgBSQI7AYMBAgG/ 
     252        AQIB/wECAcoBAgH/AQIB2gECAf8BAgHuAQIB/wECAfsBAgH/AQIB/wECAf8BAgH/AQIB/wECAf8BAgH/ 
     253        AQIB/wECAf8BAgH/AQIB/wENAf8BDQH/AaMB/wGjAf8BTgJMAfoBYAJJAdgBSQI7AYMMAAMCAQEDAwEC 
     254        AwMEAgEBIAABQgFNAT4HAAE+AwABKAMAATwDAAEeAwABAQEAAQEFAAHwFwAD/34AAQQBAAEwBwABEAcA 
     255        ARAHAAEQBwABEAcAATAHAAEwBQABBAEAARAHAAEQBQABBAEAARAFAAEEAQABMAUAAQQBAAEwBQABBAEA 
     256        AXAFAAEGAQAB8AUAAQcBDwHwCw== 
    261257</value> 
    262258  </data> 

  • trunk/EveHQ.HQF/Controls/ShipSlotControl.vb

    r1023 r1262  
    13891389 
    13901390    Private Sub lvwSlots_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lvwSlots.MouseDown 
     1391        Call Me.ChangeModuleStateMMB(e) 
     1392    End Sub 
     1393 
     1394    Private Sub ChangeModuleStateMMB(ByVal e As System.Windows.Forms.MouseEventArgs) 
    13911395        Dim hti As ListViewHitTestInfo = lvwSlots.HitTest(e.X, e.Y) 
    13921396        If hti.Item IsNot Nothing Then 
    … …  
    13991403                If My.Computer.Keyboard.AltKeyDown Then keyMode += 4 
    14001404 
    1401                 If hti.Location = ListViewHitTestLocations.Image Or hti.Location = ListViewHitTestLocations.Label Or hti.Location = ListViewHitTestLocations.RightOfClientArea Then 
    1402                     ' Get the module details 
    1403                     Dim modID As String = CStr(ModuleLists.moduleListName.Item(hti.Item.Text)) 
    1404                     Dim currentMod As New ShipModule 
    1405                     Dim fittedMod As New ShipModule 
    1406                     Dim sep As Integer = hti.Item.Name.LastIndexOf("_") 
    1407                     Dim slotType As Integer = CInt(hti.Item.Name.Substring(0, sep)) 
    1408                     Dim slotNo As Integer = CInt(hti.Item.Name.Substring(sep + 1, 1)) 
    1409                     Dim canOffline As Boolean = True 
    1410                     Select Case slotType 
    1411                         Case 1 ' Rig 
    1412                             currentMod = currentShip.RigSlot(slotNo) 
    1413                             fittedMod = fittedShip.RigSlot(slotNo) 
    1414                             canOffline = False 
    1415                         Case 2 ' Low 
    1416                             currentMod = currentShip.LowSlot(slotNo) 
    1417                             fittedMod = fittedShip.LowSlot(slotNo) 
    1418                         Case 4 ' Mid 
    1419                             currentMod = currentShip.MidSlot(slotNo) 
    1420                             fittedMod = fittedShip.MidSlot(slotNo) 
    1421                         Case 8 ' High 
    1422                             currentMod = currentShip.HiSlot(slotNo) 
    1423                             fittedMod = fittedShip.HiSlot(slotNo) 
    1424                         Case 16 ' Subsystem 
    1425                             currentMod = currentShip.SubSlot(slotNo) 
    1426                             fittedMod = fittedShip.SubSlot(slotNo) 
    1427                             canOffline = False 
    1428                     End Select 
    1429  
    1430                     If currentMod IsNot Nothing Then 
    1431                         Dim currentstate As Integer = currentMod.ModuleState 
    1432                         ' Check for status 
    1433                         Dim canDeactivate As Boolean = False 
    1434                         Dim canOverload As Boolean = False 
    1435                         ' Check for activation cost 
    1436                         If currentMod.Attributes.Contains("6") = True Or currentMod.Attributes.Contains("669") Or currentMod.IsTurret Or currentMod.IsLauncher Or currentMod.Attributes.Contains("713") Then 
    1437                             canDeactivate = True 
    1438                         End If 
    1439                         If currentMod.Attributes.Contains("1211") = True Then 
    1440                             canOverload = True 
    1441                         End If 
    1442  
    1443                         ' Do new routine for handling module state changes 
    1444                         Select Case keyMode 
    1445                             Case 0 ' No additional keys 
    1446                                 If currentstate = ModuleStates.Offline Or currentstate = ModuleStates.Inactive Or currentstate = ModuleStates.Overloaded Then 
    1447                                     currentstate = ModuleStates.Active 
    1448                                 ElseIf currentstate = ModuleStates.Active Then 
    1449                                     If canDeactivate = True Then 
    1450                                         currentstate = ModuleStates.Inactive 
    1451                                     End If 
    1452                                 End If 
    1453                             Case 1 ' Shift 
    1454                                 If currentstate = ModuleStates.Overloaded Then 
    1455                                     currentstate = ModuleStates.Active 
    1456                                 Else 
    1457                                     If canOverload = True Then 
    1458                                         currentstate = ModuleStates.Overloaded 
    1459                                     End If 
    1460                                 End If 
    1461                             Case 2 ' Ctrl 
    1462                                 If currentstate = ModuleStates.Offline Then 
    1463                                     currentstate = ModuleStates.Active 
    1464                                 Else 
    1465                                     If canOffline = True Then 
    1466                                         currentstate = ModuleStates.Offline 
    1467                                     End If 
    1468                                 End If 
    1469                         End Select 
    1470  
    1471                         ' Update only if the module state has changed 
    1472                         If currentstate <> currentMod.ModuleState Then 
    1473                             Dim oldState As Integer = currentMod.ModuleState 
    1474                             currentMod.ModuleState = currentstate 
    1475                             ' Check for maxGroupActive flag 
    1476                             If (currentstate = ModuleStates.Active Or currentstate = ModuleStates.Overloaded) And currentMod.Attributes.ContainsKey("763") = True Then 
    1477                                 If currentMod.DatabaseGroup <> "316" Then 
    1478                                     If IsModuleGroupLimitExceeded(fittedMod, False) = True Then 
    1479                                         ' Set the module offline 
    1480                                         MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this group.", "Module Group Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    1481                                         currentMod.ModuleState = oldState 
    1482                                         Exit Sub 
    1483                                     End If 
    1484                                 Else 
    1485                                     If IsModuleGroupLimitExceeded(fittedMod, False) = True Then 
    1486                                         ' Set the module offline 
    1487                                         MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this group.", "Module Group Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    1488                                         currentMod.ModuleState = oldState 
    1489                                         Exit Sub 
    1490                                     Else 
    1491                                         If CountActiveTypeModules(fittedMod.ID) > CInt(fittedMod.Attributes("763")) Then 
    1492                                             ' Set the module offline 
    1493                                             MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this type.", "Module Type Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
    1494                                             currentMod.ModuleState = oldState 
    1495                                             Exit Sub 
    1496                                         End If 
    1497                                     End If 
    1498                                 End If 
    1499                             End If 
    1500                             ' Check for activation of siege mode with remote effects 
    1501                             If fittedMod.ID = "20280" Then 
    1502                                 If fittedShip.RemoteSlotCollection.Count > 0 Then 
    1503                                     Dim msg As String = "You have active remote modules and activating Siege Mode will cancel these effects. Do you wish to continue activating Siege Mode?" 
    1504                                     Dim reply As Integer = MessageBox.Show(msg, "Confirm Activate Siege Mode", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
    1505                                     If reply = DialogResult.No Then 
    1506                                         fittedMod.ModuleState = oldState 
    1507                                         Exit Sub 
    1508                                     Else 
    1509                                         currentShip.RemoteSlotCollection.Clear() 
    1510                                         Call Me.ResetRemoteEffects() 
    1511                                     End If 
    1512                                 End If 
    1513                             End If 
    1514                             ' Check for activation of triage mode with remote effects 
    1515                             If fittedMod.ID = "27951" Then 
    1516                                 If fittedShip.RemoteSlotCollection.Count > 0 Then 
    1517                                     Dim msg As String = "You have active remote modules and activating Traige Mode will cancel these effects. Do you wish to continue activating Triage Mode?" 
    1518                                     Dim reply As Integer = MessageBox.Show(msg, "Confirm Activate Triage Mode", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
    1519                                     If reply = DialogResult.No Then 
    1520                                         fittedMod.ModuleState = oldState 
    1521                                         Exit Sub 
    1522                                     Else 
    1523                                         currentShip.RemoteSlotCollection.Clear() 
    1524                                         Call Me.ResetRemoteEffects() 
    1525                                     End If 
    1526                                 End If 
    1527                             End If 
    1528                             currentInfo.ShipType = currentShip 
    1529                             currentInfo.BuildMethod = BuildType.BuildFromEffectsMaps 
    1530                             Call Me.UpdateAllSlotLocations() 
    1531                         End If 
    1532                     End If 
    1533                 End If 
     1405                ' Check which mode, single or multi 
     1406                If lvwSlots.SelectedItems.Count > 1 Then 
     1407                    For Each i As ListViewItem In lvwSlots.SelectedItems 
     1408                        Call Me.ChangeModuleStateSingleMod(keyMode, i) 
     1409                    Next 
     1410                Else 
     1411                    If hti.Location = ListViewHitTestLocations.Image Or hti.Location = ListViewHitTestLocations.Label Or hti.Location = ListViewHitTestLocations.RightOfClientArea Then 
     1412                        Call Me.ChangeModuleStateSingleMod(keyMode, hti.Item) 
     1413                    End If 
     1414                End If 
     1415 
     1416                ' Update the ship data 
     1417                currentInfo.ShipType = currentShip 
     1418                currentInfo.BuildMethod = BuildType.BuildFromEffectsMaps 
     1419                Call Me.UpdateAllSlotLocations() 
     1420            End If 
     1421        End If 
     1422    End Sub 
     1423 
     1424    Private Sub ChangeModuleStateSingleMod(ByVal KeyMode As Integer, ByVal HTIItem As ListViewItem) 
     1425        ' Get the module details 
     1426        Dim modID As String = CStr(ModuleLists.moduleListName.Item(HTIItem.Text)) 
     1427        Dim currentMod As New ShipModule 
     1428        Dim fittedMod As New ShipModule 
     1429        Dim sep As Integer = HTIItem.Name.LastIndexOf("_") 
     1430        Dim slotType As Integer = CInt(HTIItem.Name.Substring(0, sep)) 
     1431        Dim slotNo As Integer = CInt(HTIItem.Name.Substring(sep + 1, 1)) 
     1432        Dim canOffline As Boolean = True 
     1433        Select Case slotType 
     1434            Case 1 ' Rig 
     1435                currentMod = currentShip.RigSlot(slotNo) 
     1436                fittedMod = fittedShip.RigSlot(slotNo) 
     1437                canOffline = False 
     1438            Case 2 ' Low 
     1439                currentMod = currentShip.LowSlot(slotNo) 
     1440                fittedMod = fittedShip.LowSlot(slotNo) 
     1441            Case 4 ' Mid 
     1442                currentMod = currentShip.MidSlot(slotNo) 
     1443                fittedMod = fittedShip.MidSlot(slotNo) 
     1444            Case 8 ' High 
     1445                currentMod = currentShip.HiSlot(slotNo) 
     1446                fittedMod = fittedShip.HiSlot(slotNo) 
     1447            Case 16 ' Subsystem 
     1448                currentMod = currentShip.SubSlot(slotNo) 
     1449                fittedMod = fittedShip.SubSlot(slotNo) 
     1450                canOffline = False 
     1451        End Select 
     1452 
     1453        If currentMod IsNot Nothing Then 
     1454            Dim currentstate As Integer = currentMod.ModuleState 
     1455            ' Check for status 
     1456            Dim canDeactivate As Boolean = False 
     1457            Dim canOverload As Boolean = False 
     1458            ' Check for activation cost 
     1459            If currentMod.Attributes.Contains("6") = True Or currentMod.Attributes.Contains("669") Or currentMod.IsTurret Or currentMod.IsLauncher Or currentMod.Attributes.Contains("713") Then 
     1460                canDeactivate = True 
     1461            End If 
     1462            If currentMod.Attributes.Contains("1211") = True Then 
     1463                canOverload = True 
     1464            End If 
     1465 
     1466            ' Do new routine for handling module state changes 
     1467            Select Case keyMode 
     1468                Case 0 ' No additional keys 
     1469                    If currentstate = ModuleStates.Offline Or currentstate = ModuleStates.Inactive Or currentstate = ModuleStates.Overloaded Then 
     1470                        currentstate = ModuleStates.Active 
     1471                    ElseIf currentstate = ModuleStates.Active Then 
     1472                        If canDeactivate = True Then 
     1473                            currentstate = ModuleStates.Inactive 
     1474                        End If 
     1475                    End If 
     1476                Case 1 ' Shift 
     1477                    If currentstate = ModuleStates.Overloaded Then 
     1478                        currentstate = ModuleStates.Active 
     1479                    Else 
     1480                        If canOverload = True Then 
     1481                            currentstate = ModuleStates.Overloaded 
     1482                        End If 
     1483                    End If 
     1484                Case 2 ' Ctrl 
     1485                    If currentstate = ModuleStates.Offline Then 
     1486                        currentstate = ModuleStates.Active 
     1487                    Else 
     1488                        If canOffline = True Then 
     1489                            currentstate = ModuleStates.Offline 
     1490                        End If 
     1491                    End If 
     1492            End Select 
     1493 
     1494            ' Update only if the module state has changed 
     1495            If currentstate <> currentMod.ModuleState Then 
     1496                Dim oldState As Integer = currentMod.ModuleState 
     1497                currentMod.ModuleState = currentstate 
     1498                ' Check for maxGroupActive flag 
     1499                If (currentstate = ModuleStates.Active Or currentstate = ModuleStates.Overloaded) And currentMod.Attributes.ContainsKey("763") = True Then 
     1500                    If currentMod.DatabaseGroup <> "316" Then 
     1501                        If IsModuleGroupLimitExceeded(fittedMod, False) = True Then 
     1502                            ' Set the module offline 
     1503                            MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this group.", "Module Group Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
     1504                            currentMod.ModuleState = oldState 
     1505                            Exit Sub 
     1506                        End If 
     1507                    Else 
     1508                        If IsModuleGroupLimitExceeded(fittedMod, False) = True Then 
     1509                            ' Set the module offline 
     1510                            MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this group.", "Module Group Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
     1511                            currentMod.ModuleState = oldState 
     1512                            Exit Sub 
     1513                        Else 
     1514                            If CountActiveTypeModules(fittedMod.ID) > CInt(fittedMod.Attributes("763")) Then 
     1515                                ' Set the module offline 
     1516                                MessageBox.Show("You cannot activate the " & currentMod.Name & " due to a restriction on the maximum number permitted for this type.", "Module Type Restriction", MessageBoxButtons.OK, MessageBoxIcon.Information) 
     1517                                currentMod.ModuleState = oldState 
     1518                                Exit Sub 
     1519                            End If 
     1520                        End If 
     1521                    End If 
     1522                End If 
     1523                ' Check for activation of siege mode with remote effects 
     1524                If fittedMod.ID = "20280" Then 
     1525                    If fittedShip.RemoteSlotCollection.Count > 0 Then 
     1526                        Dim msg As String = "You have active remote modules and activating Siege Mode will cancel these effects. Do you wish to continue activating Siege Mode?" 
     1527                        Dim reply As Integer = MessageBox.Show(msg, "Confirm Activate Siege Mode", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
     1528                        If reply = DialogResult.No Then 
     1529                            fittedMod.ModuleState = oldState 
     1530                            Exit Sub 
     1531                        Else 
     1532                            currentShip.RemoteSlotCollection.Clear() 
     1533                            Call Me.ResetRemoteEffects() 
     1534                        End If 
     1535                    End If 
     1536                End If 
     1537                ' Check for activation of triage mode with remote effects 
     1538                If fittedMod.ID = "27951" Then 
     1539                    If fittedShip.RemoteSlotCollection.Count > 0 Then 
     1540                        Dim msg As String = "You have active remote modules and activating Traige Mode will cancel these effects. Do you wish to continue activating Triage Mode?" 
     1541                        Dim reply As Integer = MessageBox.Show(msg, "Confirm Activate Triage Mode", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 
     1542                        If reply = DialogResult.No Then 
     1543                            fittedMod.ModuleState = oldState 
     1544                            Exit Sub 
     1545                        Else 
     1546                            currentShip.RemoteSlotCollection.Clear() 
     1547                            Call Me.ResetRemoteEffects() 
     1548                        End If 
     1549                    End If 
     1550                End If 
     1551                 
    15341552            End If 
    15351553        End If 
    … …  
    23362354            End If 
    23372355        End If 
    2338             currentInfo.ShipType = currentShip 
    2339             currentInfo.BuildMethod = BuildType.BuildFromEffectsMaps 
    2340             Call Me.UpdateAllSlotLocations() 
     2356        currentInfo.ShipType = currentShip 
     2357        currentInfo.BuildMethod = BuildType.BuildFromEffectsMaps 
     2358        Call Me.UpdateAllSlotLocations() 
    23412359    End Sub 
    23422360 
    … …  
    42784296#End Region 
    42794297 
    4280   
     4298 
    42814299End Class