You can drop this code into a front script.
Code: Select all
command seColorizationLoadScheme pScheme, @rPreferencesArray
if not the hilite of button "Dark Theme" of card "development tools" of stack "DEV TOOLS" then
put "group commands none 73,116,200" & return & \
"group properties none 50,50,50" & return & \
"group functions none 246,127,23" & return & \
"class error none 255,0,0" & return & \
"class singlecomment bold 250,175,190" & return & \
"class multicomment italic 250,175,190" & return & \
"class identifier none 50,50,50" & return & \
"class literal none 50,50,50" & return & \
"class number none 50,50,50" & return & \
"class keyword none 50,50,50" & return & \
"class operator none 50,50,50" & return & \
"class continuation none 50,50,50" & return & \
"keyword command none 50,50,50" & return & \
"keyword private none 50,50,50" & return & \
"keyword on none 155,155,0" & return & \
"keyword end none 155,155,0" & return & \
"keyword if none 155,155,0" & return & \
"keyword then none 155,155,0" & return & \
"keyword else none 155,155,0" & return & \
"keyword function none 155,155,0" & return & \
"keyword setprop none 50,50,50" & return & \
"keyword getprop none 50,50,50" & return & \
"keyword repeat none 155,155,0" & return & \
"keyword switch none 155,155,0" & return & \
"keyword try none 155,155,0" & return & \
"keyword catch none 155,155,0" & return & \
"keyword case none 155,155,0" & return & \
"keyword default none 155,155,0" & return & \
"keyword finally none 155,155,0" & return & \
"keyword next none 155,155,0" & return & \
"keyword ; none 155,155,0" & return & \
"keyword exit none 155,155,0" & return into rPreferencesArray["colorization,config"]
break
pass seColorizationLoadScheme
end if
switch pScheme
case "default"
put "group commands none 173,216,230" & return & \
"group properties none 252,252,252" & return & \
"group functions none 246,127,23" & return & \
"class error none 255,0,0" & return & \
"class singlecomment bold 250,175,190" & return & \
"class multicomment italic 250,175,190" & return & \
"class identifier none 252,252,252" & return & \
"class literal none 252,252,252" & return & \
"class number none 252,252,252" & return & \
"class keyword none 252,200,252" & return & \
"class operator none 252,252,252" & return & \
"class continuation none 252,252,252" & return & \
"keyword command none 252,252,252" & return & \
"keyword private none 252,252,252" & return & \
"keyword on none 255,255,0" & return & \
"keyword end none 255,255,0" & return & \
"keyword if none 255,255,0" & return & \
"keyword then none 255,255,0" & return & \
"keyword else none 255,255,0" & return & \
"keyword function none 255,255,0" & return & \
"keyword setprop none 252,252,252" & return & \
"keyword getprop none 252,252,252" & return & \
"keyword repeat none 255,255,0" & return & \
"keyword switch none 255,255,0" & return & \
"keyword try none 255,255,0" & return & \
"keyword catch none 255,255,0" & return & \
"keyword case none 255,255,0" & return & \
"keyword default none 255,255,0" & return & \
"keyword finally none 255,255,0" & return & \
"keyword next none 255,255,0" & return & \
"keyword ; none 255,255,0" & return & \
"keyword exit none 255,255,0" & return into rPreferencesArray["colorization,config"]
--set the ink of field "Script" of grp "Editor" of cd "Main" of stack "revNewScriptEditor 1" to "blendSrcOver"
break
--COBALT
--IDEAL BACKGROUND: 23,47,82
--IDEAL HILITECOLOR: 62,62,23
case "revolution classic"
put "group commands none 0,255,192" & return & \
"group properties none 255,98,140" & return & \
"group functions none 0,255,192" & return & \
"group structures none 202,5,23" & return & \
"class error none 255,30,0" & return & \
"class singlecomment none 0,160,255" & return & \
"class multicomment none 0,160,255" & return & \
"class identifier none 225,239,255" & return & \
"class literal none 58,217,0" & return & \
"class number none 58,217,0" & return & \
"class keyword none 225,239,255" & return & \
"class operator none 225,239,255" & return & \
"keyword on none 255,255,0" & return & \
"keyword command none 255,255,0" & return & \
"keyword private none 255,255,0" & return & \
"keyword end none 255,255,0" & return & \
"keyword if none 255,255,0" & return & \
"keyword then none 255,255,0" & return & \
"keyword else none 255,255,0" & return & \
"keyword function none 255,255,0" & return & \
"keyword setprop none 226,239,255" & return & \
"keyword getprop none 226,239,255" & return & \
"keyword repeat none 255,255,0" & return & \
"keyword switch none 255,255,0" & return & \
"keyword try none 255,255,0" & return & \
"keyword catch none 255,255,0" & return & \
"keyword case none 255,255,0" & return & \
"keyword default none 255,255,0" & return & \
"keyword finally none 255,255,0" into rPreferencesArray["colorization,config"]
--set the ink of field "Script" of grp "Editor" of cd "Main" of stack "revNewScriptEditor 1" to "blendDifference"
break
case "no colorization"
put "group commands none 0,0,0" & return & \
"group properties none 0,0,0" & return & \
"group functions none 0,0,0" & return & \
"class error none 0,0,0" & return & \
"class singlecomment none 0,0,0" & return & \
"class multicomment none 0,0,0" & return & \
"class identifier none 0,0,0" & return & \
"class literal none 0,0,0" & return & \
"class number none 0,0,0" & return & \
"class keyword none 0,0,0" & return & \
"class operator none 0,0,0" & return & \
"keyword on none 0,0,0" & return & \
"keyword end none 0,0,0" & return & \
"keyword if none 0,0,0" & return & \
"keyword then none 0,0,0" & return & \
"keyword else none 0,0,0" & return & \
"keyword function none 0,0,0" & return & \
"keyword setprop none 0,0,0" & return & \
"keyword getprop none 0,0,0" & return & \
"keyword repeat none 0,0,0" & return & \
"keyword switch none 0,0,0" & return & \
"keyword try none 0,0,0" & return & \
"keyword catch none 0,0,0" & return & \
"keyword case none 0,0,0" & return & \
"keyword default none 0,0,0" & return & \
"keyword finally none 0,0,0" into rPreferencesArray["colorization,config"]
break
end switch
end seColorizationLoadScheme