+- Qbasicnews.com (http://qbasicnews.com/newforum)
+-- Forum: QBasic (http://qbasicnews.com/newforum/forum-4.html)
+--- Forum: QB Projects (http://qbasicnews.com/newforum/forum-12.html)
+--- Thread: Nifty pallete checker (/thread-7107.html)
Nifty pallete checker - Pyrokid - 04-29-2005
well this is pritty simple. Its somewhat of a gui in the sense that it uses a mouse but w/e check it out its pritty nice when tryin to check out your pallete uses RGB values
left click on the boxs next to the values to add to them and right click to subtract
Code:
DECLARE SUB pal (col!, r!, g!, b!)
DECLARE SUB mouse ()
'$INCLUDE: 'qb.bi'
SCREEN 12
DIM SHARED in AS RegTypeX, outr AS RegTypeX
CLS
in.ax = 0: mouse
LINE (50, 0)-(100, 40), 7, B
LINE (150, 0)-(200, 40), 7, B
LINE (250, 0)-(300, 40), 7, B
in.ax = 1: mouse
r = 2: b = 2: g = 2
DO UNTIL a$ = CHR$(27)
a$ = INKEY$
LOCATE 2, 1: PRINT "R:"; r
LOCATE 2, 14: PRINT "G:"; g
LOCATE 2, 27: PRINT "B:"; b
FOR i = 1 TO 100000: IF a$ = CHR$(27) THEN END
NEXT
in.ax = 3: mouse
IF r < 63 AND outr.bx = 1 AND outr.cx > 50 AND outr.cx < 100 AND outr.dx > 0 AND outr.dx < 40 THEN
r = r + 1
END IF
IF g < 63 AND outr.bx = 1 AND outr.cx > 150 AND outr.cx < 200 AND outr.dx > 0 AND outr.dx < 40 THEN
g = g + 1
END IF
IF b < 63 AND outr.bx = 1 AND outr.cx > 250 AND outr.cx < 300 AND outr.dx > 0 AND outr.dx < 40 THEN
b = b + 1
END IF
IF r > 0 AND outr.bx = 2 AND outr.cx > 50 AND outr.cx < 100 AND outr.dx > 0 AND outr.dx < 40 THEN
r = r - 1
END IF
IF g > 0 AND outr.bx = 2 AND outr.cx > 150 AND outr.cx < 200 AND outr.dx > 0 AND outr.dx < 40 THEN
g = g - 1
END IF
IF b > 0 AND outr.bx = 2 AND outr.cx > 250 AND outr.cx < 300 AND outr.dx > 0 AND outr.dx < 40 THEN
b = b - 1
END IF
pal 1, r, g, b
LINE (0, 100)-(640, 400), 1, BF
LOOP
SUB mouse
CALL INTERRUPTX(&H33, in, outr)
END SUB
SUB pal (col, r, g, b)
PALETTE col, (b * 256 ^ 2) + (g * 256) + r
END SUBWell i thought it was neat