color情報を格納するmoduleを作ってみました
情報を文字列で区別しようと思いましたが
遅そうなのと、オブジェクト名でもあんま変わらなさそうなので
情報はモジュール変数に入れることにしました

FILE名:FILE_color_set_get.hsp
#module color_set_get color_R,color_G,color_B
#modinit int p_r,int p_g,int p_b
color_R=p_r
color_G=p_g
color_B=p_b
return
#modfunc get_color_at_color_set_get var r_r,var r_g, var r_b
r_r=color_R
r_g=color_G
r_b=color_B
return
#modfunc color_at_color_set_get
color color_R,color_G,color_B
return
#global

以下TESTコード
#include "FILE_color_set_get.hsp"

newmod red,color_set_get,255,0,0
newmod green,color_set_get,0,255,0
newmod blue,color_set_get,0,0,255

color_at_color_set_get red
mes "red"
color_at_color_set_get green
mes "green"
color_at_color_set_get blue
mes "blue"

c1=0:c2=0:c3=0

get_color_at_color_set_get red,c1,c2,c3
color c1,c2,c3
mes "red_B"

get_color_at_color_set_get green,c1,c2,c3
color c1,c2,c3
mes "green_B"

get_color_at_color_set_get blue,c1,c2,c3
color c1,c2,c3
mes "blue_B"
stop