Welcome to TVPaint Community forums !

Code: Select all

// Set_mark_colour.grg
// Set colours for each type of mark

// Ask for type of mark
tv_listrequest "Keyframe|Breakdown|Extreme|Inbetween|Other"
PARSE RESULT number key_type

// Ask for the colour of the selected type of mark
tv_listrequest "None|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"
PARSE RESULT id letter

// Save variables
tv_WriteUserString "LukasSketchPanel" key_type id
tv_WriteUserString "GroupLetter" key_type letter

// Gather id variables
tv_ReadUserString "LukasSketchPanel" Keyframe
keyframe_mark_id = RESULT
tv_ReadUserString "LukasSketchPanel" Breakdown
breakdown_mark_id = RESULT
tv_ReadUserString "LukasSketchPanel" Extreme
extreme_mark_id = RESULT
tv_ReadUserString "LukasSketchPanel" Inbetween
inbetween_mark_id = RESULT
tv_ReadUserString "LukasSketchPanel" Other
other_mark_id = RESULT

// Gather group letters
tv_ReadUserString "GroupLetter" Keyframe
keyframe_mark_colour = RESULT
tv_ReadUserString "GroupLetter" Breakdown
breakdown_mark_colour = RESULT
tv_ReadUserString "GroupLetter" Extreme
extreme_mark_colour = RESULT
tv_ReadUserString "GroupLetter" Inbetween
inbetween_mark_colour = RESULT
tv_ReadUserString "GroupLetter" Other
other_mark_colour = RESULT

// Display the colour scheme
tv_warn "Keyframe: " keyframe_mark_colour '\n' "Breakdown: " breakdown_mark_colour '\n' "Extreme: " extreme_mark_colour '\n' "Inbetween: " inbetween_mark_colour '\n' "Other: " other_mark_colour

Code: Select all

tv_ReadUserString "LukasSketchPanel" Keyframe
keyframe_mark_id = RESULT
tv_WriteUserString "LukasSketchPanel" "Color" keyframe_mark_id

Code: Select all

// Set_mark_colour_flip_keyboard.grg
// SET COLOURS FOR EACH TYPE OF MARK

// Set variables containing the colour for each type of markers. 
// To be then shown at the top of the menu.
tv_readuserstring [kcolour] Kflag 
cflagK = RESULT
If cflagK == -1
	keyframe_colour = "X"
ELSE
	keyframe_colour = equivalent_letter(cflagK)
END

tv_readuserstring [kcolour] BDflag 
cflagBD = RESULT
If cflagBD == -1
	breakdown_colour = "X"
ELSE
	breakdown_colour = equivalent_letter(cflagBD)
END

tv_readuserstring [kcolour] EXflag 
cflagEX = RESULT
If cflagEX == -1
	extreme_colour = "X"
ELSE
	extreme_colour = equivalent_letter(cflagEX)
END

tv_readuserstring [kcolour] IBflag 
cflagIB = RESULT
If cflagIB == -1
	inbetween_colour = "X"
ELSE
	inbetween_colour = equivalent_letter(cflagIB)
END

tv_readuserstring [kcolour] OTflag 
cflagOT = RESULT
If cflagOT == -1
	other_colour = "X"
ELSE
	other_colour = equivalent_letter(cflagOT)
END

// Sets the lists with submenus
colour_choice = 0
tv_listrequest "COLOURS: "keyframe_colour breakdown_colour extreme_colour inbetween_colour other_colour submenu("Keyframe") submenu("Breakdown") submenu("Extreme") submenu("Inbetween") submenu("Other")
PARSE RESULT colour_choice submenu

IF colour_choice == 0 || colour_choice == -1			
	EXIT
END

// Set Keyframe colour
IF colour_choice == 1 || colour_choice == 2 || colour_choice == 3 || colour_choice == 4 || colour_choice == 5 || colour_choice == 6 || colour_choice == 7 || colour_choice == 8 || colour_choice == 9 || colour_choice == 10 || colour_choice == 11 || colour_choice == 12 || colour_choice == 13 || colour_choice == 14 || colour_choice == 15 || colour_choice == 16 || colour_choice == 17 || colour_choice == 18 || colour_choice == 19 || colour_choice == 20 || colour_choice == 21 || colour_choice == 22 || colour_choice == 23 || colour_choice == 24 || colour_choice == 25 || colour_choice == 26 || colour_choice == 27
	colour_choice = colour_choice - 1
	key_type = Kflag
END

// Set Breakdown colour
IF colour_choice == 28 || colour_choice == 29 || colour_choice == 30 || colour_choice == 31 || colour_choice == 32 || colour_choice == 33 || colour_choice == 34 || colour_choice == 35 || colour_choice == 36 || colour_choice == 37 || colour_choice == 38 || colour_choice == 39 || colour_choice == 40 || colour_choice == 41 || colour_choice == 42 || colour_choice == 43 || colour_choice == 44 || colour_choice == 45 || colour_choice == 46 || colour_choice == 47 || colour_choice == 48 || colour_choice == 49 || colour_choice == 50 || colour_choice == 51 || colour_choice == 52 || colour_choice == 53 || colour_choice == 54
	colour_choice = colour_choice - 28
	key_type = BDflag
END

// Set Extreme colour
IF colour_choice == 55 || colour_choice == 56 || colour_choice == 57 || colour_choice == 58 || colour_choice == 59 || colour_choice == 60 || colour_choice == 61 || colour_choice == 62 || colour_choice == 63 || colour_choice == 64 || colour_choice == 65 || colour_choice == 66 || colour_choice == 67 || colour_choice == 68 || colour_choice == 69 || colour_choice == 70 || colour_choice == 71 || colour_choice == 72 || colour_choice == 73 || colour_choice == 74 || colour_choice == 75 || colour_choice == 76 || colour_choice == 77 || colour_choice == 78 || colour_choice == 79 || colour_choice == 80 || colour_choice == 81
	colour_choice = colour_choice - 55
	key_type = EXflag
END

// Set Inbetween colour
IF colour_choice == 82 || colour_choice == 83 || colour_choice == 84 || colour_choice == 85 || colour_choice == 86 || colour_choice == 87 || colour_choice == 88 || colour_choice == 89 || colour_choice == 90 || colour_choice == 91 || colour_choice == 92 || colour_choice == 93 || colour_choice == 94 || colour_choice == 95 || colour_choice == 96 || colour_choice == 97 || colour_choice == 98 || colour_choice == 99 || colour_choice == 100 || colour_choice == 101 || colour_choice == 102 || colour_choice == 103 || colour_choice == 104 || colour_choice == 105 || colour_choice == 106 || colour_choice == 107 || colour_choice == 108
	colour_choice = colour_choice - 82
	key_type = IBflag
END

// Set Other colour
IF colour_choice == 109 || colour_choice == 110 || colour_choice == 111 || colour_choice == 112 || colour_choice == 113 || colour_choice == 114 || colour_choice == 115 || colour_choice == 116 || colour_choice == 117 || colour_choice == 118 || colour_choice == 119 || colour_choice == 120 || colour_choice == 121 || colour_choice == 122 || colour_choice == 123 || colour_choice == 124 || colour_choice == 125 || colour_choice == 126 || colour_choice == 127 || colour_choice == 128 || colour_choice == 129 || colour_choice == 130 || colour_choice == 131 || colour_choice == 132 || colour_choice == 133 || colour_choice == 134 || colour_choice == 135
	colour_choice = colour_choice - 109
	key_type = OTflag
END

// Save the mark's colour
tv_WriteUserString [kcolour] key_type colour_choice

// Gather id variables
tv_readuserstring [kcolour] Kflag
cflagK = RESULT
tv_readuserstring [kcolour] BDflag 
cflagBD = RESULT
tv_readuserstring [kcolour] EXflag
cflagEX = RESULT
tv_readuserstring [kcolour] IBflag
cflagIB = RESULT
tv_readuserstring [kcolour] OTflag
cflagOT = RESULT

// Display the colour scheme
//tv_warn "Keyframe: " equivalent_letter(cflagK) '\n' "Breakdown: " equivalent_letter(cflagBD) '\n' "Extreme: " equivalent_letter(cflagEX) '\n' "Inbetween: " equivalent_letter(cflagIB) '\n' "Other: " equivalent_letter(cflagOT)

// Generates string for tv_listrequest
FUNCTION submenu(key_type)
	colour_None = key_type"/None"
	colour_A = key_type"/A"
	colour_B = key_type"/B"
	colour_C = key_type"/C"
	colour_D = key_type"/D"
	colour_E = key_type"/E"
	colour_F = key_type"/F"
	colour_G = key_type"/G"
	colour_H = key_type"/H"
	colour_I = key_type"/I"
	colour_J = key_type"/J"
	colour_K = key_type"/K"
	colour_L = key_type"/L"
	colour_M = key_type"/M"
	colour_N = key_type"/N"
	colour_O = key_type"/O"
	colour_P = key_type"/P"
	colour_Q = key_type"/Q"
	colour_R = key_type"/R"
	colour_S = key_type"/S"
	colour_T = key_type"/T"
	colour_U = key_type"/U"
	colour_V = key_type"/V"
	colour_W = key_type"/W"
	colour_X = key_type"/X"
	colour_Y = key_type"/Y"
	colour_Z = key_type"/Z"
	
	RETURN  "|"colour_None"|"colour_A"|"colour_B"|"colour_C"|"colour_D"|"colour_E"|"colour_F"|"colour_G"|"colour_H"|"colour_I"|"colour_J"|"colour_K"|"colour_L"|"colour_M"|"colour_N"|"colour_O"|"colour_P"|"colour_Q"|"colour_R"|"colour_S"|"colour_T"|"colour_U"|"colour_V"|"colour_W"|"colour_X"|"colour_Y"|"colour_Z
END

// Translates mark ids into their respective group letters
FUNCTION equivalent_letter(mark_id)
	IF mark_id == 0
		mark_letter = "None"
	END
	IF mark_id == 1
		mark_letter = "A" 
	END
	IF mark_id == 2
		mark_letter = "B"
	END
	IF mark_id == 3
		mark_letter = "C" 
	END
	IF mark_id == 4
		mark_letter = "D" 
	END
	IF mark_id == 5
		mark_letter = "E" 
	END
	IF mark_id == 6
		mark_letter = "F" 
	END
	IF mark_id == 7
		mark_letter = "G" 
	END
	IF mark_id == 8
		mark_letter = "H" 
	END
	IF mark_id == 9
		mark_letter = "I" 
	END
	IF mark_id == 10
		mark_letter = "J" 
	END
	IF mark_id == 11
		mark_letter = "K" 
	END
	IF mark_id == 12
		mark_letter = "L" 
	END
	IF mark_id == 13
		mark_letter = "M" 
	END
	IF mark_id == 14
		mark_letter = "N"
	END
	IF mark_id == 15
		mark_letter = "O"
	END
	IF mark_id == 16
		mark_letter = "P"
	END
	IF mark_id == 17
		mark_letter = "Q"
	END
	IF mark_id == 18
		mark_letter = "R" 
	END
	IF mark_id == 19
		mark_letter = "S" 
	END
	IF mark_id == 20
		mark_letter = "T" 
	END
	IF mark_id == 21
		mark_letter = "U" 
	END
	IF mark_id == 22
		mark_letter = "V" 
	END
	IF mark_id == 23
		mark_letter = "W"
	END
	IF mark_id == 24
		mark_letter = "X" 
	END
	IF mark_id == 25
		mark_letter = "Y" 
	END
	IF mark_id == 26
		mark_letter = "Z" 
	END
	RETURN mark_letter
END

Code: Select all

tv_readuserstring [kcolour] Kflag 0
cflagK = result
tv_readuserstring [kcolour] BDflag 0	
cflagBD = result
tv_readuserstring [kcolour] EXflag 0	
cflagEX = result

Code: Select all

IF Mark == cflagK &&	mflagK == 1 && CMP(state, head) == 1
	tv_layerimage i
	EXIT
END	

IF Mark == cflagBD && mflagBD == 1 && CMP(state, head) == 1
	tv_layerimage i 
	EXIT
END

IF Mark == cflagEX && mflagEX == 1 && CMP(state, head) == 1
	tv_layerimage i 
	EXIT
END

Code: Select all

IF wrapflag == 0   								//If wrapping if off, will move to prev exposure
		tv_exposureprev
	ELSE 		
		//tv_writeuserstring [kcustom] wflag 0		//If wrapping is ON, will turn it off, and proceed with rest of script
		//wrapflag = 0
		//tv_exposureprev
		tv_layerimage LAST
	END

Code: Select all

IF wrapflag == 0								//If wrapping if off, will move to prev exposure
		tv_exposurenext
	ELSE 	
		//tv_writeuserstring [kcustom] wflag 0		//If wrapping is ON, will turn it off, and proceed with rest of script
		//wrapflag = 0
		//tv_exposurenext
		tv_layerimage FIRST
	END

Code: Select all

Mark = char(Cmark, 1)	

Code: Select all

IF Mark == cflagK && mflagK == 1 && CMP(state, head) == 1

Code: Select all

IF Mark == 2

Code: Select all

IF Mark == 24

Code: Select all

Mark = char(Cmark, 1)	

Code: Select all

	tv_layermarkget 0 i					//gets current image's mark
		Cmark = result
		Mark = char(Cmark, 1)

Code: Select all

	tv_layermarkget 0 i					//gets current image's mark
		parse result Mark r g b

Code: Select all

Cmark = result
Mark = char(Cmark, 1)

Code: Select all

// Gets details of local installation
tv_version
PARSE RESULT softwareName softwareVersion language

// Sets version number
numberVersion = CUT(softwareVersion,1,2)

// Gets current image's mark
tv_layermarkget 0 i

IF numberVersion == 12 //If TVPaint 12
	parse result Mark r g b
ELSE
	Mark = result
END

//tv_warn Mark

Code: Select all

IF CMP(inlayer, none) == 1 && curimage != First-1 

...

For i = image+1 to Last+1

...

IF CMP(state, none) == 1 && wrapflag == 0 && i == Last+1

...

IF i == Last +1 && wrapflag == 1			
	i = First -1
END

Code: Select all

tv_writeuserstring [kcustom] KButton "backwardDirection"

Code: Select all

tv_writeuserstring [kcustom] KButton "forwardDirection"

Code: Select all

// Checks config file for button direction
tv_readuserstring [kcustom] KButton  	
bDirection = RESULT

Code: Select all

// Sets the difference of direction
IF CMP(bDirection,"backwardDirection")
	bounded = Last + 1
	checkedImage = image - 1
	checkedFirstOrLast = First - 1
	checkedStep = -1
	stated = First - 1
	wrappedCondition = First - 1
	wrappedInstruction = Last + 1
ELSE // If "forwardDirection"
	bounded = First - 1
	checkedImage = image + 1
	checkedFirstOrLast = Last + 1
	checkedStep = 1
	stated = Last + 1
	wrappedCondition = Last + 1
	wrappedInstruction = First - 1
END

Code: Select all

// FlipKeyboardDirection.grg
// SETS THE FORWARD AND BACKWARD BUTTONS

// Checks config file for button direction
tv_readuserstring [kcustom] KButton  	
bDirection = RESULT
//tv_warn bDirection

tv_layerinfo
PARSE result _ _ _ LayerID TYPE First Last _ _ _ _ _ //get layerID first/last frame

IF CMP(TYPE, CAMERA) == 1 || CMP(TYPE, FOLDER) || CMP(TYPE, RIGGING) //if layer is a camera, folder, or puppet layer, exits
	EXIT
END

tv_readuserstring [kcustom] Kflag 0 	//checks config file for marker flag
mflagK = result
tv_readuserstring [kcustom] BDflag 0	//checks config file for marker flag
mflagBD = result
tv_readuserstring [kcustom] EXflag 0	//checks config file for marker flag
mflagEX = result
tv_readuserstring [kcustom] IBflag 0	//checks config file for marker flag
mflagIB = result
tv_readuserstring [kcustom] wflag 0 	//checks for wrap on/off
wrapflag = result

IF mflagK == 0 && mflagBD == 0 && mflagEX == 0 && mflagIB == 0 //if all frane flags are off sets IB flag on to prevent nothing from happening	
	tv_writeuserstring [kcustom] IBFLAG 1	
	mflagIB = 1		
END

tv_layergetimage					 //current image in layer
curimage = result
image = curimage

tv_exposureinfo curimage
inlayer = result


////////////////////////////////////////////////

// Sets the difference of direction
IF CMP(bDirection,"backwardDirection")
	bounded = Last + 1
	checkedImage = image - 1
	checkedFirstOrLast = First - 1
	checkedStep = -1
	stated = First - 1
	wrappedCondition = First - 1
	wrappedInstruction = Last + 1
ELSE // If "forwardDirection"
	bounded = First - 1
	checkedImage = image + 1
	checkedFirstOrLast = Last + 1
	checkedStep = 1
	stated = Last + 1
	wrappedCondition = Last + 1
	wrappedInstruction = First - 1
END
//tv_warn bounded checkedImage checkedFirstOrLast stated wrappedCondition wrappedInstruction

////////////////////////////////////////////////


IF CMP(inlayer, none) == 1 && curimage != bounded 	//Out of Bounds(OOB) Check to see if current frame is outside current layer length, if so will execute special rules, otherwise continue normal function of script

	IF wrapflag == 0   								//If wrapping if off, will move to prev exposure
		tv_exposureprev
	ELSE 		
		tv_writeuserstring [kcustom] wflag 0		//If wrapping is ON, will turn it off, and proceed with rest of script
		wrapflag = 0
		tv_exposureprev
	END

ELSE

	FOR i = checkedImage to checkedFirstOrLast STEP checkedStep	//Main purpose of script, checks each frame BEFORE current frame for MARKS/No Mark, and moves accordingly (will wrap back around to the END if WRAP IS ON)
				
			tv_exposureinfo i
			parse result state a a	
					
			IF CMP(state, none) == 1 && wrapflag == 0 && i == stated	//This will fire only if used on the first frame of layer, otherwise the Line 54 takes care of OOB 				
				tv_layerimage i
				EXIT
			END
			
			IF i == curimage					 //prevent infinite loop if loop ends up back at current frame due to WRAP on
				If wrapflag == 1
					tv_warn "No other instances with current flag(s), WRAP IS ON"
					EXIT
				ELSE
					tv_warn "No other frames with current flag(s)" //this part shouldn't happen **for debugging how it got into a loop without wrap on
					EXIT
				END
			END
			
			// Gets details of local installation
			tv_version
			PARSE RESULT softwareName softwareVersion language

			// Sets version number
			numberVersion = CUT(softwareVersion,1,2)

			// Gets current image's mark
			tv_layermarkget 0 i

			IF numberVersion == 12
				parse result Mark r g b
			ELSE
				Mark = result
			END
				
			tv_readuserstring [kcustom] wflag 0 //if wrap flag is on when loop reaches first frame outside beginning of layer this wraps back around to end frame
			wrapflag = result
				IF i == wrappedCondition && wrapflag == 1
					i = wrappedInstruction
				END
		
			IF Mark == 1 &&	mflagK == 1 && CMP(state, head) == 1		//checks if exposure has Mark 1(Key) and if Key flag is on, goes to that frame
					tv_layerimage i
					EXIT
			END	
			
			IF Mark == 2 && mflagBD == 1 && CMP(state, head) == 1		//checks if exposure has Mark 2(BD) and if BD flag is on, goes to that frame
					tv_layerimage i 
					EXIT
			END
			
			IF Mark == 3 && mflagEX == 1 && CMP(state, head) == 1		//checks if exposure has Mark 3(EX) and if BD flag is on, goes to that frame
					tv_layerimage i 
					EXIT
			END
			
			IF Mark == 0 && mflagIB == 1		//checks if exposure has no Mark, and if it is an Instance Head
			
					tv_exposureinfo i
					parse result state a a	
								
					IF CMP(state, head) == 1    //if checked frame is instance head, moves to it
						tv_layerimage i 
						EXIT				
					END
					
			END
			
	END
END