// PIN-Generator by TyphusSoft - Dial Typhoon BBS +358 2 236 1075 - 24h 

// This is a VERY simple PIN-generator. It might be buggy and etc... but it
// works, atleast somehow. If you find buggs, then correct them yourself,
// script is only a example on how to make a PIN generator VERY easily and
// simply.


int main()
{
  int name_input,pin1,pin2,pin3,pin4,pin_nr;

  bbbs("cls"); name_input=input("Write name to generate PIN for: ",50,0);

// The following code reads the first, second, third and fourth letter
// of your name, so when generating a pin it's useless to write the
// entire name, just type the four first letters. It's not a problem if the
// first name only includes fewer letters than four.

// The characters numerical value can and should be changed if you intend to
// use this script. Remeber that the first letters value should be an even
// thousand (preferably not 0), the second letters value an even hundred or
// 0, the third letters value an even tenth or 0 and the fourth letters
// value any number between 0-9.

  pin1=copy(name_input,1,1);
  pin2=copy(name_input,2,1);
  pin3=copy(name_input,3,1);
  pin4=copy(name_input,4,1);

  {
    if(pin1=="a") { pin1=6000; }
    if(pin1=="b") { pin1=2000; }
    if(pin1=="c") { pin1=3000; }
    if(pin1=="d") { pin1=4000; }
    if(pin1=="e") { pin1=5000; }
    if(pin1=="f") { pin1=6000; }
    if(pin1=="g") { pin1=1000; }
    if(pin1=="h") { pin1=2000; }
    if(pin1=="i") { pin1=6000; }
    if(pin1=="j") { pin1=7000; }
    if(pin1=="k") { pin1=5000; }
    if(pin1=="l") { pin1=3000; }
    if(pin1=="m") { pin1=2000; }
    if(pin1=="n") { pin1=1000; }
    if(pin1=="o") { pin1=6000; }
    if(pin1=="p") { pin1=4000; }
    if(pin1=="q") { pin1=3000; }
    if(pin1=="r") { pin1=9000; }
    if(pin1=="s") { pin1=8000; }
    if(pin1=="t") { pin1=7000; }
    if(pin1=="u") { pin1=2000; }
    if(pin1=="w") { pin1=3000; }
    if(pin1=="v") { pin1=5000; }
    if(pin1=="x") { pin1=6000; }
    if(pin1=="y") { pin1=7000; }
    if(pin1=="z") { pin1=1000; }
   }
  {
    if(pin2=="a") { pin2=200; }
    if(pin2=="b") { pin2=300; }
    if(pin2=="c") { pin2=500; }
    if(pin2=="d") { pin2=900; }
    if(pin2=="e") { pin2=100; }
    if(pin2=="f") { pin2=200; }
    if(pin2=="g") { pin2=500; }
    if(pin2=="h") { pin2=400; }
    if(pin2=="i") { pin2=800; }
    if(pin2=="j") { pin2=600; }
    if(pin2=="k") { pin2=500; }
    if(pin2=="l") { pin2=200; }
    if(pin2=="m") { pin2=100; }
    if(pin2=="n") { pin2=700; }
    if(pin2=="o") { pin2=600; }
    if(pin2=="p") { pin2=500; }
    if(pin2=="q") { pin2=300; }
    if(pin2=="r") { pin2=900; }
    if(pin2=="s") { pin2=200; }
    if(pin2=="t") { pin2=400; }
    if(pin2=="u") { pin2=900; }
    if(pin2=="w") { pin2=800; }
    if(pin2=="v") { pin2=500; }
    if(pin2=="x") { pin2=500; }
    if(pin2=="y") { pin2=800; }
    if(pin2=="z") { pin2=100; }
   }                   
  {                       
    if(pin3=="a") { pin3=60; }
    if(pin3=="b") { pin3=30; }
    if(pin3=="c") { pin3=20; }
    if(pin3=="d") { pin3=40; }
    if(pin3=="e") { pin3=90; }
    if(pin3=="f") { pin3=80; }
    if(pin3=="g") { pin3=70; }
    if(pin3=="h") { pin3=10; }
    if(pin3=="i") { pin3=30; }
    if(pin3=="j") { pin3=70; }
    if(pin3=="k") { pin3=60; }
    if(pin3=="l") { pin3=30; }
    if(pin3=="m") { pin3=20; }
    if(pin3=="n") { pin3=70; }
    if(pin3=="o") { pin3=80; }
    if(pin3=="p") { pin3=40; }
    if(pin3=="q") { pin3=50; }
    if(pin3=="r") { pin3=60; }
    if(pin3=="s") { pin3=70; }
    if(pin3=="t") { pin3=30; }
    if(pin3=="u") { pin3=20; }
    if(pin3=="w") { pin3=40; }
    if(pin3=="v") { pin3=60; }
    if(pin3=="x") { pin3=10; }
    if(pin3=="y") { pin3=30; }
    if(pin3=="z") { pin3=90; }
   }                    
  {
    if(pin4=="a") { pin4=8; }
    if(pin4=="b") { pin4=1; }
    if(pin4=="c") { pin4=2; }
    if(pin4=="d") { pin4=7; }
    if(pin4=="e") { pin4=7; }
    if(pin4=="f") { pin4=9; }
    if(pin4=="g") { pin4=8; }
    if(pin4=="h") { pin4=7; }
    if(pin4=="i") { pin4=6; }
    if(pin4=="j") { pin4=4; }
    if(pin4=="k") { pin4=2; }
    if(pin4=="l") { pin4=7; }
    if(pin4=="m") { pin4=5; }
    if(pin4=="n") { pin4=2; }
    if(pin4=="o") { pin4=1; }
    if(pin4=="p") { pin4=9; }
    if(pin4=="q") { pin4=6; }
    if(pin4=="r") { pin4=5; }
    if(pin4=="s") { pin4=4; }
    if(pin4=="t") { pin4=2; }
    if(pin4=="u") { pin4=3; }
    if(pin4=="w") { pin4=9; }
    if(pin4=="v") { pin4=7; }
    if(pin4=="x") { pin4=5; }
    if(pin4=="y") { pin4=4; }
    if(pin4=="z") { pin4=1; }
   }                    

  pin_nr=(pin1+pin2+pin3+pin4);

  printf("Your PIN is: %d\n\n",pin_nr);
 }