[amibroker] brain isn't firing what am i missing

["mytakeismine" <mytakeismine@xxxxxxxxx>]

Hi I am kind of new to AMI and am trying to modify AFL "Lunar Phase". 
Instead of moons I am loading vertical bars (styleHistogram) and that 
has worked nicely, my problem is that I would like the bars to load 
Blue Green Red Orange and then repeat Blue Green ect. and what I am 
getting is ALL Orange bars or all Blue bars or endless loop Errors.

I thought that maybe it was storing the dates in an array and then 
plotting all of the dates at the same time so I tried [i]. I have 
tried putting "{" brace before each IF and all of the "}" closed 
braces at the end thinking that once it hits it would move on. I used 
to write a little in Paradox so I have a little knowledge.(and that's 
where I went wrong) Thanx 
Any ideas? or if you can point me in the right direction I would 
appreciate it.
Thanks
Kim
mytakeismine

_SECTION_BEGIN("moonlines");
// start of dummy code to get a demonstrable display 
Plot(Close, "Close", colorBlack, styleCandle); 

TZ=Param("Your local Time Zone? [-12 to +12hrs]",2, -12,12,1);

// Lunar cycle
LunarMonth=29.530589;
Offset=7.254621;

// Calendar }
leap=frac(Year( )/4)==0 AND frac(Year()/ 100)!=0 OR frac(Year()/ 400)
==0;
y=Year()*365+ int(Year( )/4)-int( Year()/100) +int(Year( )/400);


m=

IIf(Month()==2,31-leap,
IIf(Month()==3,59,
IIf(Month()==4,90,
IIf(Month()==5,120,
IIf(Month()==6,151,
IIf(Month()==7,181,
IIf(Month()==8,212,
IIf(Month()==9,243,
IIf(Month()==10,273,
IIf(Month()==11,304,
IIf(Month()==12,334, -leap)))))))))));
for( i = 1; i < 5; i++ ) 

if( i == 1)
{
mooncolor=colorBlue;
}
else
if ( i == 2)
{
mooncolor=colorGreen;
}
else

if ( i == 3)
{
mooncolor=colorRed;
}
else

if ( i == 4)
{
mooncolor=colorOrange;
}

CurrentDay=y+m+Day()-TZ/ 24-Offset;

// Full Moon }
FM=frac(CurrentDay/ LunarMonth) ;
FM=PeakBars( FM, 1, 1)==0;

FullMoon=FM==1;

Plot(FullMoon,"FullMoon",mooncolor,styleHistogram|styleThick| 
styleOwnScale ); 
 

_SECTION_END();


Content-Description: "AVG certification"
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.441 / Virus Database: 268.17.37/682 - Release Date: 2/12/2007 1:23 PM