diff options
| author | william1008 <[email protected]> | 2015-03-23 12:57:33 +1300 |
|---|---|---|
| committer | william1008 <[email protected]> | 2015-03-23 12:57:33 +1300 |
| commit | 965207dac55e9e1cfbfcab7d229eca417d41d118 (patch) | |
| tree | cfdb8c1f32e5acf59ce22e665dab9e3d44eade6c /ShiftOS/Colour Picker.vb | |
| parent | a276b027fb14540aaae66b1e0f42706174b77938 (diff) | |
| download | shiftos-pr/18.tar.gz shiftos-pr/18.tar.bz2 shiftos-pr/18.zip | |
Mod workpr/18
Improved SRIP mod communication system and tested with mod, will soon
release mod template files and documentation. Currently only has 4
commands, please add more. This is a starter.
Diffstat (limited to 'ShiftOS/Colour Picker.vb')
| -rw-r--r-- | ShiftOS/Colour Picker.vb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/ShiftOS/Colour Picker.vb b/ShiftOS/Colour Picker.vb index 238b719..78865e3 100644 --- a/ShiftOS/Colour Picker.vb +++ b/ShiftOS/Colour Picker.vb @@ -21,6 +21,8 @@ Public redlevel As Integer Public pinklevel As Integer + Public sendToMod = False ' If true will output the rgb value for use of mod + #Region "Template Code" Private Sub Template_Load(sender As Object, e As EventArgs) Handles MyBase.Load @@ -1648,6 +1650,12 @@ End Sub Private Sub pnlnewcolour_Click(sender As Object, e As EventArgs) Handles pnlnewcolour.Click + If sendToMod = True Then + If Not My.Computer.FileSystem.DirectoryExists(NewAPI.modOutputPath) Then My.Computer.FileSystem.CreateDirectory(NewAPI.modOutputPath) + Dim sw As System.IO.StreamWriter = New IO.StreamWriter(NewAPI.modOutputPath & "\givecolour.srip") ' ShiftOS Request/Receive* Information Protocol (SRIP) *Depends on the direction + sw.WriteLine(pnlnewcolour.BackColor.ToArgb()) + sw.Close() + End If Select Case colourtochange Case "Username Text Color" Shifter.usernametextcolor = pnlnewcolour.BackColor @@ -1906,10 +1914,6 @@ Case "OrcWrite highlight text colour dono" OrcWrite.Button7.BackColor = pnlnewcolour.BackColor OrcWrite.RichTextBox1.SelectionBackColor = pnlnewcolour.BackColor - Case "mod dono" - 'Dim sw As New System.IO.StreamWriter(NewAPI.varpath & "\colourpickeroutput") - 'sw.WriteLine(pnlnewcolour.BackColor.ToArgb) - 'sw.Close() Case "artpallet1" : ArtPad.colourpallet1.BackColor = pnlnewcolour.BackColor Case "artpallet2" : ArtPad.colourpallet2.BackColor = pnlnewcolour.BackColor Case "artpallet3" : ArtPad.colourpallet3.BackColor = pnlnewcolour.BackColor |