// is have done it buildet a drug only neet power wtf?
//27Watt highpower led stroposcope (4x 3Watt blue, 2x 3Watt RGB, 2x 3Watt white, 6x 0.5Watt ultrahighpower5mm
//power by 5V its the brightest light ever seen the blue led dots feeling in eyes lice purrfull mini white superbright miniexplosions
//its a eyetrap xasnt stop wathing in it this brainfuck making realy happy :3
//have fun use kote or parts if usefull :3 [MEOW}
/* pictures:
 *  https://marderchen.lima-city.de/NEU+/90000mcd_500mW_3v2leds_with5Vpulsedbytransistor.jpg
 *  https://marderchen.lima-city.de/NEU+/white_8chanstropoaddon.jpg
 *  https://marderchen.lima-city.de/NEU+/Superbright_Over18Watt_colorflasherstropoaCope_Maindrainbord.jpg
 *  (led powerde over D882 3A NPN transistor to 5V 33yF tantal capacitor parralel to every led and soldering the led on cooper wire making this possible
 */


#define t1   PA15
#define t2   PA12
#define t3   PB14
#define t4   PB13
#define t5   PB12

#define rot1  PC13 //high power 3watt RGB
#define grun1 PC14
#define blau1 PC15
#define rot2  PA0
#define grun2 PA3
#define blau2 PA5
#define hblau1 PA2 //high power 3Watt blau
#define hblau2 PA1
#define hblau3 PA4
#define hblau4 PA6
//platine2
#define hweis1 PB0 //high power 3Watt white
#define hweis2 PA7
#define uweis6 PB1 //60000mcd 0.5W 5mm white
#define uweis5 PB10
#define uweis4 PB11
#define uweis3 PB9
#define uweis2 PB6
#define uweis1 PB7

void setup(){
pinMode(t1, INPUT); pinMode(t2, INPUT); pinMode(t3, INPUT); pinMode(t4, INPUT); pinMode(t5, INPUT);
pinMode(hweis1,OUTPUT); pinMode(hweis2,OUTPUT); //3watt white
pinMode(uweis1,OUTPUT); pinMode(uweis2,OUTPUT); pinMode(uweis3,OUTPUT); pinMode(uweis4,OUTPUT); pinMode(uweis5,OUTPUT);  pinMode(uweis6,OUTPUT);//0.5Watt 5mm
pinMode(hblau1,OUTPUT); pinMode(hblau2,OUTPUT); pinMode(hblau3,OUTPUT); pinMode(hblau4,OUTPUT); //3Watt blue
pinMode(rot1,OUTPUT); pinMode(blau1,OUTPUT); pinMode(grun1,OUTPUT); pinMode(rot2,OUTPUT); pinMode(blau2,OUTPUT); pinMode(grun2,OUTPUT); //3Watt RGB
delay(300);
   }

uint8_t onpress[12];
uint32_t  timez=20500;//17340;// need more time for adjusting

uint32_t offtime =100;
uint8_t whitesp,ww;
uint32_t white[10];
uint32_t stepcount,blauu1,blauu2,blauu3,blauu4,blauer;
uint32_t root1,root2,gruun1,gruun2,blauz1,blauz2,sometimes,swix;
void loop(){ zeitreise();}

long maintime=millis();long littletime=micros();long slowtime=micros();long dimmer=micros();long dimmer2=micros();
void zeitreise(void){
 while ((millis()- maintime)  >=  5){maintime=millis();onpress[10]++;istinput();}
  while ((micros()- slowtime)  >=   timez){

  whitesp++;if (whitesp >5) {whitesp=1;}

   blauer++;if (blauer >=40){blauer=1;sometimes++;  if(sometimes >48){sometimes=1;}}
    // blauu1=96;blauu2=90;blauu3=110;blauu4=120;blauz1=50;blauz2=50;}

    if(blauer==1){blauu1=128;}
  if(sometimes <12){
    if(blauer==5 || blauer == 25){blauu3=100;}
    if(blauer==15 || blauer == 35){blauu2=40;}}
  if(sometimes >=12 && sometimes <24){
    if(blauer==5 || blauer == 25){root1=100;}
    if(blauer==15 || blauer == 35){root2=120;}}
  if(sometimes >=24 && sometimes <30){
    if(blauer==5 || blauer == 25){blauz1=100;}
    if(blauer==15 || blauer == 35){blauz2=120;}}
  if(sometimes >=30 && sometimes <42){
    if(blauer==5 || blauer == 25){blauz1=100;}
    if(blauer==15 || blauer == 35){blauz2=120;}
    if(blauer==20){blauu4=140;blauu1=80;}if(blauer==10){blauu3=140;blauu2=100;}}
  if(sometimes >=30 && sometimes <42){
    if(blauer==5 || blauer == 25){blauu3=150;}
    if(blauer==15 || blauer == 35){blauu1=160;}
    if(blauer==20){root1=80;} if(blauer==30){root2=80;}}
    if(blauer==20){blauu4=140;}
    if(sometimes<=4){
     swix++; if (swix >=5) {swix=1;}
     if(swix==1) {ww=1;for(uint8_t fi=4;fi<9;fi++){white[fi]=40;}}
     if(swix==3) {ww=1;for(uint8_t fi=0;fi<5;fi++){white[fi]=100;}}}
    if(sometimes>=4 && sometimes <12){
      swix++; if (swix >=18) {swix=1;}
     if(swix==1) {ww=1;for(uint8_t fi=4;fi<9;fi++){white[fi]=60;}}
     if(swix==10) {ww=1;for(uint8_t fi=0;fi<5;fi++){white[fi]=80;}}}
    if(sometimes>=16 && sometimes <24){
      swix++; if (swix >=9) {swix=1;}
     if(swix==1) {ww=1;for(uint8_t fi=4;fi<9;fi++){white[fi]=100;}}
     if(swix==5) {ww=1;for(uint8_t fi=0;fi<5;fi++){white[fi]=80;}}}
     slowtime = micros();
  }
  while ((micros()- dimmer)  >=   800){ for(uint8_t fa=0;fa<9;fa++){if(white[fa]>=10){white[fa]-=10;}}dimmer = micros();}//downfade
    while ((micros()- dimmer2)  >=   8000){
   if (blauu1 >=16) {blauu1-=16;}
   if (blauu2 >=5) {blauu2-=5;}
   if (blauu3 >=10) {blauu3-=10;}
   if (blauu4 >=20) {blauu4-=20;}
   if (blauz1 >=10) {blauz1-=10;}
   if (blauz2 >=20) {blauz2-=20;}
   if (root1 >=10) {root1-=10;}
   if (root2 >=10) {root2-=10;}
   dimmer2 = micros();}//downfade

  while ((micros()- littletime)  >=  2000){littletime = micros();pulspowder();}
  }

void istinput(void){
  if (onpress[10] >4) {
  if (digitalRead(t1) == HIGH && onpress[0] ==0) { onpress[0] =1; timez+=500;}
  if (onpress[0] == 1) { onpress[1]++;} if (onpress[1] >= 10) { onpress[1] =0; onpress[0]=0; }
  if (digitalRead(t2) == HIGH && onpress[2] ==0) { onpress[2] =1;}
  if (onpress[2] == 1) { onpress[3]++;} if (onpress[3] >= 5) { onpress[3] =0; onpress[2]=0; }
  if (digitalRead(t3) == HIGH && onpress[4] ==0 &&  timez >=2) { onpress[4] =1;  timez--;}
  if (onpress[4] == 1) { onpress[5]++;} if (onpress[5] >= 5) { onpress[5] =0; onpress[4]=0; }
  if (digitalRead(t4) == HIGH && onpress[6] ==0) { onpress[6] =1;}
  if (onpress[6] == 1) { onpress[7]++;} if (onpress[7] >= 5) { onpress[7] =0; onpress[6]=0; }
  if (digitalRead(t5) == HIGH && onpress[8] ==0) { onpress[8] =1; timez-=500;}
  if (onpress[8] == 1) { onpress[9]++;} if (onpress[9] >= 5) { onpress[9] =0; onpress[8]=0; }
 onpress[10]=0;
}}

void pulspowder(void) {
  for (uint32_t fcount=1; fcount <(offtime); fcount++) {
    if (fcount<=white[1]) {digitalWrite(hweis1,HIGH);} if (fcount> white[1]) {digitalWrite(hweis1, LOW); }
    if (fcount<=white[2]) {digitalWrite(uweis1,HIGH);} if (fcount> white[2]) {digitalWrite(uweis1, LOW); }
    if (fcount<=white[3]) {digitalWrite(uweis2,HIGH);} if (fcount> white[3]) {digitalWrite(uweis2, LOW); }
    if (fcount<=white[4]) {digitalWrite(uweis3,HIGH);} if (fcount> white[4]) {digitalWrite(uweis3, LOW); }
    if (fcount<=white[5]) {digitalWrite(uweis4,HIGH);} if (fcount> white[5]) {digitalWrite(uweis4, LOW); }
    if (fcount<=white[6]) {digitalWrite(uweis5,HIGH);} if (fcount> white[6]) {digitalWrite(uweis5, LOW); }
    if (fcount<=white[7]) {digitalWrite(uweis6,HIGH);} if (fcount> white[7]) {digitalWrite(uweis6, LOW); }
    if (fcount<=white[8]) {digitalWrite(hweis2,HIGH);} if (fcount> white[8]) {digitalWrite(hweis2, LOW); }

    if (fcount<=blauu1) {digitalWrite(hblau1, HIGH);} if (fcount> blauu1) {digitalWrite(hblau1, LOW); }
    if (fcount<=blauu2) {digitalWrite(hblau2, HIGH);} if (fcount> blauu2) {digitalWrite(hblau2, LOW); }
    if (fcount<=blauu3) {digitalWrite(hblau3, HIGH);} if (fcount> blauu3) {digitalWrite(hblau3, LOW); }
    if (fcount<=blauu4) {digitalWrite(hblau4, HIGH);} if (fcount> blauu4) {digitalWrite(hblau4, LOW); }

    if (fcount<=root1) {digitalWrite(rot1,HIGH);} if (fcount> root1) {digitalWrite(rot1, LOW); }
    if (fcount<=gruun1) {digitalWrite(grun1,HIGH);} if (fcount> gruun1) {digitalWrite(grun1, LOW); }
    if (fcount<=blauz1) {digitalWrite(blau1,HIGH);} if (fcount> blauz1) {digitalWrite(blau1, LOW); }
    if (fcount<=root2) {digitalWrite(rot2,HIGH);} if (fcount> root2) {digitalWrite(rot2, LOW); }
    if (fcount<=gruun2) {digitalWrite(grun2,HIGH);} if (fcount> gruun2) {digitalWrite(grun2, LOW); }
    if (fcount<=blauz2) {digitalWrite(blau2,HIGH);} if (fcount> blauz2) {digitalWrite(blau2, LOW); }
}}