@name Gate Computer @inputs Iris Shutdown Autoclose EGP1:wirelink EGP2:wirelink Inbound @inputs EGP3:wirelink IncomingCode:string Chevrons @outputs DisableAutoclose IrisToggle Close @persist Version:string @trigger all Version = "0.0.1" if(Shutdown==1) { Close=1 } else { Close=0 } if(Iris==1) { IrisToggle=1 } else { IrisToggle=0 } if(Autoclose==1) { DisableAutoclose=1 } else { DisableAutoclose=0 } #///////////# #EGP Screen 1 #///////////# EGP1:egpClear() EGP1:egpLine(1,vec2(1,1),vec2(510,1)) EGP1:egpLine(2,vec2(1,510),vec2(510,510)) EGP1:egpLine(3,vec2(1,1),vec2(1,510)) EGP1:egpLine(4,vec2(510,1),vec2(510,510)) EGP1:egpLine(14,vec2(104,1),vec2(104,510)) EGP1:egpLine(15,vec2(104,54),vec2(510,54)) EGP1:egpLine(27,vec2(405,54),vec2(405,510)) EGP1:egpText(16,"Gate Computer",vec2(108,20)) EGP1:egpText(17,Version+"v",vec2(420,20)) EGP1:egpText(18,"Idle",vec2(40,20)) EGP1:egpText(19,"Idle",vec2(40,80)) EGP1:egpText(20,"Idle",vec2(40,140)) EGP1:egpText(21,"Idle",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) EGP1:egpBox(5,vec2(53,31),vec2(100,54)) EGP1:egpBox(6,vec2(53,87),vec2(100,54)) EGP1:egpBox(7,vec2(53,143),vec2(100,54)) EGP1:egpBox(8,vec2(53,199),vec2(100,54)) EGP1:egpBox(9,vec2(53,255),vec2(100,54)) EGP1:egpBox(10,vec2(53,311),vec2(100,54)) EGP1:egpBox(11,vec2(53,367),vec2(100,54)) EGP1:egpBox(12,vec2(53,423),vec2(100,54)) EGP1:egpBox(13,vec2(53,479),vec2(100,54)) EGP1:egpBox(28,vec2(458,84),vec2(100,54)) #///////////# #EGP Screen 2 #///////////# EGP2:egpLine(1,vec2(1,1),vec2(510,1)) EGP2:egpLine(2,vec2(1,510),vec2(510,510)) EGP2:egpLine(3,vec2(1,1),vec2(1,510)) EGP2:egpLine(4,vec2(510,1),vec2(510,510)) #///////////# #EGP Screen 3 #///////////# EGP3:egpLine(1,vec2(1,1),vec2(510,1)) EGP3:egpLine(2,vec2(1,510),vec2(510,510)) EGP3:egpLine(3,vec2(1,1),vec2(1,510)) EGP3:egpLine(4,vec2(510,1),vec2(510,510)) #//////////////////////////////# #EGP Screen 1: Chevrons Function #//////////////////////////////# function paintChevBox(ActiveChevrons) { if(Inbound==1) { switch(ActiveChevrons) { default, EGP1:egpColor(5,vec(71,71,71)) EGP1:egpColor(6,vec(71,71,71)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Idle",vec2(40,20)) EGP1:egpText(19,"Idle",vec2(40,80)) EGP1:egpText(20,"Idle",vec2(40,140)) EGP1:egpText(21,"Idle",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 1, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(71,71,71)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Idle",vec2(40,80)) EGP1:egpText(20,"Idle",vec2(40,140)) EGP1:egpText(21,"Idle",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 2, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Idle",vec2(40,140)) EGP1:egpText(21,"Idle",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 3, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Idle",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 4, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Idle",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 5, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(205,3,3)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Locked",vec2(40,250)) EGP1:egpText(23,"Idle",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 6, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(205,3,3)) EGP1:egpColor(10,vec(205,3,3)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Locked",vec2(40,250)) EGP1:egpText(23,"Locked",vec2(40,310)) EGP1:egpText(24,"Idle",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 7, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(205,3,3)) EGP1:egpColor(10,vec(205,3,3)) EGP1:egpColor(11,vec(205,3,3)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Locked",vec2(40,250)) EGP1:egpText(23,"Locked",vec2(40,310)) EGP1:egpText(24,"Locked",vec2(40,360)) EGP1:egpText(25,"Idle",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 8, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(205,3,3)) EGP1:egpColor(10,vec(205,3,3)) EGP1:egpColor(11,vec(205,3,3)) EGP1:egpColor(12,vec(205,3,3)) EGP1:egpColor(13,vec(71,71,71)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Locked",vec2(40,250)) EGP1:egpText(23,"Locked",vec2(40,310)) EGP1:egpText(24,"Locked",vec2(40,360)) EGP1:egpText(25,"Locked",vec2(40,410)) EGP1:egpText(26,"Idle",vec2(40,465)) break case 9, EGP1:egpColor(5,vec(205,3,3)) EGP1:egpColor(6,vec(205,3,3)) EGP1:egpColor(7,vec(205,3,3)) EGP1:egpColor(8,vec(205,3,3)) EGP1:egpColor(9,vec(205,3,3)) EGP1:egpColor(10,vec(205,3,3)) EGP1:egpColor(11,vec(205,3,3)) EGP1:egpColor(12,vec(205,3,3)) EGP1:egpColor(13,vec(205,3,3)) EGP1:egpText(18,"Locked",vec2(40,20)) EGP1:egpText(19,"Locked",vec2(40,80)) EGP1:egpText(20,"Locked",vec2(40,140)) EGP1:egpText(21,"Locked",vec2(40,200)) EGP1:egpText(22,"Locked",vec2(40,250)) EGP1:egpText(23,"Locked",vec2(40,310)) EGP1:egpText(24,"Locked",vec2(40,360)) EGP1:egpText(25,"Locked",vec2(40,410)) EGP1:egpText(26,"Locked",vec2(40,465)) break } } else { switch(ActiveChevrons) { default, EGP1:egpColor(5,vec(71,71,71)) EGP1:egpColor(6,vec(71,71,71)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 1, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(71,71,71)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 2, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(71,71,71)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 3, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(71,71,71)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 4, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(71,71,71)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 5, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(0,100,0)) EGP1:egpColor(10,vec(71,71,71)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 6, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(0,100,0)) EGP1:egpColor(10,vec(0,100,0)) EGP1:egpColor(11,vec(71,71,71)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 7, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(0,100,0)) EGP1:egpColor(10,vec(0,100,0)) EGP1:egpColor(11,vec(0,100,0)) EGP1:egpColor(12,vec(71,71,71)) EGP1:egpColor(13,vec(71,71,71)) break case 8, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(0,100,0)) EGP1:egpColor(10,vec(0,100,0)) EGP1:egpColor(11,vec(0,100,0)) EGP1:egpColor(12,vec(0,100,0)) EGP1:egpColor(13,vec(71,71,71)) break case 9, EGP1:egpColor(5,vec(0,100,0)) EGP1:egpColor(6,vec(0,100,0)) EGP1:egpColor(7,vec(0,100,0)) EGP1:egpColor(8,vec(0,100,0)) EGP1:egpColor(9,vec(0,100,0)) EGP1:egpColor(10,vec(0,100,0)) EGP1:egpColor(11,vec(0,100,0)) EGP1:egpColor(12,vec(0,100,0)) EGP1:egpColor(13,vec(0,100,0)) break } } } paintChevBox(Chevrons) #///////////////////////////////////# #EGP Screen 1: Iris Controll Function #///////////////////////////////////#