%Star on Christmas tree
var starRand:int
var colorAroundStar:int:=14
var colorAroundStar1:int
var starx1:int:=1048
var stary1:int:=233
var starx2:int:=1067
var stary2:int:=254
var star1x:int:=1048
var star1y:int:=233
var star2x:int:=1067
var star2y:int:=254
%star on top of tree
    randint(starRand,1,15)
    randint(colorAroundStar1,1,255)
    if colorAroundStar1=14 then
        colorAroundStar:=14
    end if
    if colorAroundStar1=44 then
        colorAroundStar:=44
    end if
    if colorAroundStar1=67 then
        colorAroundStar:=67
    end if
    if colorAroundStar1=68 then
        colorAroundStar:=68
    end if
    if colorAroundStar1=69 then
        colorAroundStar:=69
    end if
    if colorAroundStar1=91 then
        colorAroundStar:=91
    end if
    if colorAroundStar1=92 then
        colorAroundStar:=92
    end if
    if colorAroundStar1=93 then
        colorAroundStar:=93
    end if
   
    drawfillstar(star1x,star1y,star2x,star2y,colorAroundStar)
    if starRand=2 then
        starx1:=starx2
        star1y:=stary2
        star2x:=starx1
        star2y:=stary1
    end if
    if starRand=4 then
        star1y:=stary1
        star1x:=starx1
        star2x:=starx2
        star2y:=stary2
    end if
   
    if starRand>0 and starRand<7 then
        %forth circle on star
        drawoval(1058,243,20,20,colorAroundStar)
        %third circle on star
        drawoval(1058,243,28,28,colorAroundStar)
        drawoval(1058,243,29,29,colorAroundStar)
        drawoval(1058,243,30,30,colorAroundStar)
    end if

    if colorAroundStar1=14 then
        colorAroundStar:=14
    end if
    if colorAroundStar1=44 then
        colorAroundStar:=44
    end if