//  Generated by EX4-TO-MQ4 decompiler V4.0.224.1 []
//+------------------------------------------------------------------+
//|                       GoldenFinger.mq4                           |
//|                       Copyright ｩ 2010, StarLimit Software Corp. |
//|                       Created 29/12/2010 3:24AM                  |
//+------------------------------------------------------------------+

#property copyright "Copyright ｩ 2010, StarLimit Software Corp."
#property link "starlimit03@yahoo.com"


#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Aqua
#property indicator_color2 Red
#property indicator_width1 2
#property indicator_width2 2

extern int RISK = 6;
double g_ibuf_80[];
double g_ibuf_84[];
int gi_88 = 0;
int gi_92 = 0;
//double lda_64_0[];
double lda_64[];

int init()
{
   IndicatorBuffers( 3 );

   SetIndexStyle(0, DRAW_ARROW, STYLE_SOLID, 2);   
   SetIndexArrow(0, 159);
   SetIndexBuffer(0, g_ibuf_80);
   SetIndexStyle(1, DRAW_ARROW, STYLE_SOLID, 2);
   SetIndexArrow(1, 159);
   SetIndexBuffer(1, g_ibuf_84);
   SetIndexEmptyValue(0,0.0);
   SetIndexEmptyValue(1,0.0);

   SetIndexBuffer(2, lda_64);
   return (0);
}

int deinit()
{
   Comment(" ");
   return (0);
}

int start()
{
   double ld_0;
   double ld_8;
   int l_count_16;
   int li_20;
   int li_24;
   int li_28;
   double ld_32;
   double ld_40;
   double ld_48;
   double ld_56;
   //double lda_64[500][2];
   double ld_68 = 10;
   double ld_76 = 70;
   double ld_84 = 30;
   int li_92 = IndicatorCounted();
   ld_68 = RISK * 2 + 3;
   ld_76 = RISK + 67;
   ld_84 = 33 - RISK;
   double l_period_96 = ld_68;
   
   if(li_92 < 0)
      return (-1);
   
   if(li_92 > 0)
      li_92--;
   
   int li_104 = Bars - li_92 - 1;
   
   for(int li_108 = li_104; li_108 > 0; li_108--) {
      
      if((gi_88 != 0 || gi_92 != 0) && li_108 <= 1)
  //     Comment(li_108 + " gi_88=" + gi_88 + " gi_92=" + gi_92);
    //  Comment("GoldFingerB >>> "+ g_ibuf_80[li_108] + "\n\nGoldFingerS >>> "+ g_ibuf_84[li_108]);
      li_20 = li_108;
      ld_32 = 0;
      ld_40 = 0;

      for(li_20 = li_108; li_20 <= li_108 + 9; li_20++)  
         ld_40 += MathAbs(High[li_20] - Low[li_20]);     // ９本分の中間値の平均を求め

      ld_32 = ld_40 / 10.0;
      li_20 = li_108;
      l_count_16 = 0;

      while(li_20 < li_108 + 9 && l_count_16 < 1) {
         if(MathAbs(Open[li_20] - (Close[li_20 + 1])) >= 2.0 * ld_32)   // ９本文のローソク本体の大きさをチェックしl_count_16にカ�
            l_count_16++;
         li_20++;
      }

      if(l_count_16 >= 1)  // なんかしらんけど li_24 を求め
         li_24 = li_20;
      else
         li_24 = -1;

      li_20 = li_108;
      l_count_16 = 0;

      while(li_20 < li_108 + 6 && l_count_16 < 1) {
         if(MathAbs(Close[li_20 + 3] - Close[li_20]) >= 4.6 * ld_32)
            l_count_16++;
         li_20++;
      }

      if(l_count_16 >= 1)  // なんか知らんけど li_28 を求める
         li_28 = li_20;
      else
         li_28 = -1;

      if(li_24 > -1)       // なんか知らんけど l_period_96 を求める
         l_period_96 = 3;
      else
         l_period_96 = ld_68;

      if(li_28 > -1)
         l_period_96 = 4;
      else
         l_period_96 = ld_68;

      ld_0 = 100 - MathAbs(iWPR(NULL, 0, l_period_96, li_108));   // iWPR 
      //lda_64[li_108][0] = li_108;
      lda_64[li_108] = ld_0;
      ld_48 = 0;
      ld_56 = 0;
      ld_8 = 0;

      if(ld_0 < ld_84) {
         for(int li_112 = 1;
             lda_64[li_108 + li_112] >= ld_84
             && lda_64[li_108 + li_112] <= ld_76; li_112++) {
         }
         if(lda_64[li_108 + li_112] > ld_76) {
            ld_8 = High[li_108] + ld_32 / 2.0;
            ld_48 = ld_8;
         }
      }

      if(ld_0 > ld_76) {
         for(li_112 = 1;
             lda_64[li_108 + li_112] >= ld_84
             && lda_64[li_108 + li_112] <= ld_76; li_112++) {
         }
         if(lda_64[li_108 + li_112] < ld_84) {
            ld_8 = Low[li_108] - ld_32 / 2.0;
            ld_56 = ld_8;
         }
      }

      if(ld_56 != 0.0 && gi_88 == FALSE) {
         g_ibuf_80[li_108] = ld_56 - 1.0 * Point;
         gi_88 = TRUE;
         gi_92 = FALSE;
         if(li_104 <= 2)
            Alert(Symbol(), " ", Period(), "M  Golden Finger BUY ");
      }

      if(ld_48 != 0.0 && gi_92 == FALSE) {
         g_ibuf_84[li_108] = ld_48 + 1.0 * Point;
         gi_92 = TRUE;
         gi_88 = FALSE;
         if(li_104 <= 2)
            Alert(Symbol(), " ", Period(), "M   Golden Finger SELL ");
      }
   }
 // Comment("Golden Finger Buy signal value is >>>  ",g_ibuf_80[li_108],"\n\n Golden Finger Sell signal value is >>>  ",g_ibuf_84[li_108]);
   return (0);
}