YesNoOk
avatar

[PALETTES] Color Palette Decrypting - Console KOF Style (Read 3455 times)

Started by RockHowardMX, October 13, 2016, 04:17:34 am
Share this topic:
[PALETTES] Color Palette Decrypting - Console KOF Style
#1  October 13, 2016, 04:17:34 am
  • **
  • Also in the sky, the strength of love has wings...
    • Mexico
Hello everybody here on MFG, I've created something you'll need for making your KOF/SVC/CVS Style Palettes, it works like the Color Editing of KOF 2002 UM or NGBC...

Here is a Screenshot of how does it works...

Ver 1.00.00


Ver 1.00.25 <- Current Version



The Limit of Each RGB Color Scroll is 31, it means 255 on RGB Values, like Options said before, the only thing you have to do is capturing Screen with the ImprPant Key of your Keyboard for Obtaining the True Value of your Color...

(Key Shortcuts: Alt+E = EXIT, Alt+R = RANDOM, keep pressing Alt+R for TRUE Random)

You can donwload it HERE ↓



Any feedback is welcome...Enjoy it!!


UPDATE v1.00.25 (Well, not.) - Added the True RGB Values, ommit why does the 31 only reaches the 248, VB Rounding are just...well, but if you wanna suggest me how can I improve the Decrypting System, I'll improve it ASAP, read ya!

Last Edit: October 16, 2016, 05:10:24 am by RockHowardMX
Re: [PALETTES] Color Palette Decrypting - Console KOF Style
#2  November 21, 2016, 01:55:16 am
  • ******
  • Just a butcher on a mission
    • www.justnopoint.com/lbends
Use bit duplication to improve the range of 16 bit colors.

Color8 = (Color5 << 3)  |  (Color5 >> 2)
Re: [PALETTES] Color Palette Decrypting - Console KOF Style
#3  November 21, 2016, 05:31:13 am
  • **
  • Also in the sky, the strength of love has wings...
    • Mexico
I've used Visual Basic 6.0 for this, so, the key is almost 8, tell me how can I improve this...
Re: [PALETTES] Color Palette Decrypting - Console KOF Style
#4  November 21, 2016, 04:51:00 pm
  • ******
  • Just a butcher on a mission
    • www.justnopoint.com/lbends
Re: [PALETTES] Color Palette Decrypting - Console KOF Style
#5  November 22, 2016, 05:46:59 pm
  • **
  • Also in the sky, the strength of love has wings...
    • Mexico
Hello, this is my whole code:

Code:
Dim R5, R8
R5 = &h1F
R8 = ((R5 << 3) Or (R5 >> 2))
Console.WriteLine (R8)
Public Sub RGBTrueValues()
LabelRGBTV.Caption = "RGB( " & Str((HScrollRed.Value) * Fix(8.25806451612903)) & ", " & Fix((HScrollGreen.Value) * Fix(8.25806451612903)) & ", " & Str((HScrollBlue.Value) * Int(8.25806451612903)) & ")"
End Sub
Private Sub CommandExit_Click()
End
End Sub
Private Sub CommandRND_Click()
HScrollRed.Value = Int((Rnd * 31))
HScrollGreen.Value = Int((Rnd * 31))
HScrollBlue.Value = Int((Rnd * 31))
End Sub
Private Sub HScrollBlue_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
BlueCount.Caption = HScrollBlue.Value
End Sub
Private Sub HScrollGreen_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
GreenCount.Caption = HScrollGreen.Value
End Sub
Private Sub HScrollRed_Change()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
RedCount.Caption = HScrollRed.Value
End Sub
Private Sub HScrollRed_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.2258064516129))
RedCount.Caption = HScrollRed.Value
End Sub
Private Sub HScrollGreen_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
GreenCount.Caption = HScrollGreen.Value
End Sub
Private Sub HScrollBlue_Scroll()
Call RGBTrueValues
ColorDisplay.BackColor = RGB((HScrollRed.Value) * Fix(8.25806451612903), (HScrollGreen.Value) * Fix(8.25806451612903), (HScrollBlue.Value) * Fix(8.25806451612903))
BlueCount.Caption = HScrollBlue.Value
End Sub

But I've added the thing you said and marks me "Compilation Error: Unvalid External Procedure", so please, help me on that...