@name Printer Warning
@inputs P1:entity P2:entity P3:entity P4:entity EGP:wirelink
@outputs
@persist Pr1 Pr2 Pr3 Pr4
@trigger
runOnChat(1)
interval(1000)
Pr1 = P1:moneyAmount()
Pr2 = P2:moneyAmount()
Pr3 = P3:moneyAmount()
Pr4 = P4:moneyAmount()

EGP:egpDrawTopLeft(1)

EGP:egpBox(30,vec2(0,0),vec2(512,512))
EGP:egpColor(30,vec(50,50,50))

EGP:egpBox(31,vec2(35,75),vec2(450,15))
EGP:egpColor(31,vec(255,0,0))
EGP:egpAlign(31,30)

EGP:egpText(32,"Money Printer Checker",vec2(40,5))
EGP:egpFont(32,"Times New Roman")
EGP:egpSize(32,50)

EGP:egpBox(33,vec2(35,450),vec2(450,15))
EGP:egpSize(33,50)
EGP:egpColor(33,vec(255,0,0))



if (changed(P1:moneyAmount()) | changed(P2:moneyAmount()) | changed(P3:moneyAmount() | changed(P4:moneyAmount()))){
EGP:egpText(1,"Printer 1: "+Pr1+" Kr.",vec2(35,100))
EGP:egpSize(1,40)
EGP:egpText(2,"Printer 2: "+Pr2+" Kr.",vec2(35,150))
EGP:egpSize(2,40)
EGP:egpText(3,"Printer 3: "+Pr3+" Kr.",vec2(35,200))
EGP:egpSize(3,40)
EGP:egpText(4,"Printer 4: "+Pr4+" Kr.",vec2(35,250))
EGP:egpSize(4,40)
EGP:egpText(10,"Penge i alt: "+(Pr1+Pr2+Pr3+Pr4),vec2(35,300))
EGP:egpSize(10,40)
hint("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+" | I alt: "+(Pr1+Pr2+Pr3+Pr4),2)
}
if (Pr1>3000 | Pr2>3000 | Pr3>3000 | Pr4>3000){
 print("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+"| I alt: "+(Pr1+Pr2+Pr3+Pr4))
 print("Skynd dig at tage dine penge!")
}
if (changed(P1:moneyAmount())&P1:moneyAmount()  >3000 | changed(P2:moneyAmount())&P2:moneyAmount()>3000 | changed(P3:moneyAmount())&P3:moneyAmount()>3000 | changed(P4:moneyAmount())&P4:moneyAmount()>3000)
{
EGP:egpText(1,"Printer 1: "+Pr1+" Kr.",vec2(35,100))
EGP:egpSize(1,40)
EGP:egpText(2,"Printer 2: "+Pr2+" Kr.",vec2(35,150))
EGP:egpSize(2,40)
EGP:egpText(3,"Printer 3: "+Pr3+" Kr.",vec2(35,200))
EGP:egpSize(3,40)
EGP:egpText(4,"Printer 4: "+Pr4+" Kr.",vec2(35,250))
EGP:egpSize(4,40)
EGP:egpText(10,"Penge i alt: "+(Pr1+Pr2+Pr3+Pr4),vec2(35,300))
EGP:egpSize(10,40)
    hint("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+" | I alt: "+(Pr1+Pr2+Pr3+Pr4),2)
if (Pr1>3000 | Pr2>3000 | Pr3>3000 | Pr4>3000){
 print("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+"| I alt: "+(Pr1+Pr2+Pr3+Pr4))
print("Skynd dig at tage dine penge!")
}

}
if (chatClk()&lastSpoke()==owner()){
 if (lastSaid()=="!pe"){
 hideChat(1)
EGP:egpText(1,"Printer 1: "+Pr1+" Kr.",vec2(35,100))
EGP:egpSize(1,40)
EGP:egpText(2,"Printer 2: "+Pr2+" Kr.",vec2(35,150))
EGP:egpSize(2,40)
EGP:egpText(3,"Printer 3: "+Pr3+" Kr.",vec2(35,200))
EGP:egpSize(3,40)
EGP:egpText(4,"Printer 4: "+Pr4+" Kr.",vec2(35,250))
EGP:egpSize(4,40)
EGP:egpText(10,"Penge i alt: "+(Pr1+Pr2+Pr3+Pr4),vec2(35,300))
EGP:egpSize(10,40)
 print("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+" | I alt: "+(Pr1+Pr2+Pr3+Pr4))
    hint("Printer1: "+Pr1+"|Printer2: "+Pr2+"|Printer3: "+Pr3+"|Printer4: "+Pr4+" | I alt: "+(Pr1+Pr2+Pr3+Pr4),2)

    }
}

EGP:egpText(50,"<->CasperDK",vec2(0,485))