// Text of project 
C:\Documents and Settings\Administrator\My Documents\My Downloads\Newton\Programming\Newton Projects\Planks\Planks.NTK
written on: 05/01/04 14:21:31
// Beginning of file Planks.lyt
main :=
    {
     icon3tall:
       BuildPictureViewSlot({
       	imageFile4: "tall3.bmp", 
       	maskOption: 0}),
     viewFormat: 336,
     ViewQuitScript:
       // must return the value of inherited:?ViewQuitScript()
       func()
       begin
       	everyPole:=[pole1,pole2,pole3,pole4,pole5,pole6,pole7,pole8,pole9,pole10,pole11,pole12,pole13,pole14,pole15,
       		pole16,pole17,pole18,pole19,pole20,pole21,pole22,pole23,pole24,pole25,pole26,pole27,pole28,pole29,pole30,
       		pole31,pole32,pole33,pole34,pole35];
       	everyPlank:=[tall1plank1,tall1plank2,tall2plank1,tall2plank2,long3plank1];
       	foreach nilPole in everyPole do
       		begin
       			nilPole.fill:=nil;
       			nilPole.adjacents:=nil;
       		end;
       	foreach nilPlank in everyPlank do
       		begin
       			nilPlank.poleAdjacents:=nil;
       			nilPlank.adjacents:=nil;
       			nilPlank.size:=nil;
       		end;
       	everyPole:=nil;
       	everyPlank:=nil;
       	inherited:?ViewQuitScript();
       end;,
     viewFlags: 1,
     level2:
       func()
       begin
       
       currentSize:=nil;
       SetValue(pole2,'icon,personIcon);
       pole.current:=pole2;
       pole.adjacents:=[pole7];
       
       pole:createLevel([pole2,pole7,pole9,pole14,pole17,pole27,pole29,pole32]);
       
       long1plank1:Close();
       long1plank2:Close();
       long3plank1:Close();
       long3plank2:Close();
       tall3plank2:Close();
       
       planks:place(tall1plank1,65,85,41,68,[pole2,pole7],1,icon1tall);
       planks:place(tall1plank2,185,205,92,118,[pole9,pole14],nil,icon1tall);
       planks:place(tall1plank3,65,85,292,319,[pole27,pole32],nil,icon1tall);
       planks:place(tall2plank1,65,85,92,169,[pole7,pole17],1,icon2tall);
       planks:place(tall2plank2,65,85,191,268,[pole17,pole27],nil,icon2tall);
       planks:place(long2plank1,87,183,70,90,[pole7,pole9],nil,icon2long);
       planks:place(long2plank2,87,183,270,290,[pole27,pole29],nil,icon2long);
       planks:place(tall3plank1,185,205,141,268,[pole14,pole29],1,icon3tall);
       
       pole:place(pole2,[tall1plank1],[pole7]);
       pole:place(pole7,[tall1plank1,tall2plank1,long2plank1],[pole2,pole9,pole17]);
       pole:place(pole9,[tall1plank2,long2plank1],[pole7,pole14]);
       pole:place(pole14,[tall1plank2,tall3plank1],[pole9,pole29]);
       pole:place(pole17,[tall2plank1,tall2plank2],[pole7,pole27]);
       pole:place(pole29,[tall3plank1,long2plank2],[pole14,pole27]);
       pole:place(pole27,[tall1plank3,long2plank2,tall2plank2],[pole29,pole32,pole17]);
       pole:place(pole32,[tall1plank3],[pole27]);
       
       pole.win:=pole32;
       
       end;,
     icon2long:
       BuildPictureViewSlot({
       	imageFile4: "long2.bmp", 
       	maskOption: 0}),
     viewBounds: {left: 20, top: 20, bottom: 388, right: 289},
     iconPole:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     poleIcon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     planks:
       {
       all:[],
       createLevel:
       	func(gamePlanks)
       	begin
       		foreach aPlank in gamePlanks do
       			aPlank:Open();
        	end;,
       place:
       	func(aPlank,aLeft,aRight,aTop,aBottom,aAdjacents,aFill,aIcon)
       	begin
       		local bounds:=clone(aPlank.viewBounds);
       		bounds.left:=aLeft;
       		bounds.right:=aRight;
       		bounds.top:=aTop;
       		bounds.bottom:=aBottom;
       		aPlank.iconType:=aIcon;
       		aPlank.adjacents:=aAdjacents;
       		aPlank.fill:=aFill;
       		if aFill then
       			SetValue(aPlank,'icon,aPlank.iconType);
       		else
       			SetValue(aPlank,'icon,nil);
       		aPlank.viewBounds:=bounds;
       		aPlank:Close();
       		aPlank:Open();
       	end,
       size:nil;
       },
     adjacentPoles: nil,
     icon2tall:
       BuildPictureViewSlot({
       	imageFile4: "tall2.bmp", 
       	maskOption: 0}),
     allPlanks: nil,
     winner:
       func()
       begin
       winBox:Open();
       end;,
     iconPerson:
       BuildPictureViewSlot({
       	imageFile4: "person.bmp", 
       	maskOption: 0}),
     personIcon:
       BuildPictureViewSlot({
       	imageFile4: "person.bmp", 
       	maskOption: 0}),
     level1:
       func()
       begin
       
       //Setup Win Conditions
       
       currentSize:=nil;
       SetValue(pole4,'icon,personIcon);
       pole.win:=pole32;
       pole.current:=pole4;
       pole.adjacents:=[pole14];
       
       //Create Poles and Planks
       
       pole:createLevel([pole4,pole14,pole19,pole17,pole22,pole32]);
       
       //planks:createLevel([tall1plank1,tall1plank2,tall2plank1,tall2plank2,long2plank1]);
       
       //Setup planks for the level
       
       planks:place(tall2plank1,185,205,41,118,[pole4,pole14],1,icon2tall);
       planks:place(tall1plank1,185,205,142,168,[pole14,pole19],1,icon1tall);
       planks:place(long2plank1,87,183,170,190,[pole19,pole17],nil,icon2long);
       planks:place(tall1plank2,65,85,192,218,[pole17,pole22],nil,icon1tall);
       planks:place(tall2plank2,65,85,242,319,[pole22,pole32],nil,icon2tall);
       tall3plank1:Close();
       tall3plank2:Close();
       long3plank1:Close();
       long3plank2:Close();
       long1plank1:Close();
       long1plank2:Close();
       
       //Setup poles for the level
       
       pole:place(pole4,[tall2plank1],[pole14]);
       pole:place(pole14,[tall1plank1,tall2plank1],[pole4,pole19]);
       pole:place(pole19,[tall1plank1,long2plank1],[pole14,pole17]);
       pole:place(pole17,[tall1plank2,long2plank1],[pole19,pole22]);
       pole:place(pole22,[tall1plank2,tall2plank2],[pole17,pole32]);
       pole:place(pole32,[tall2plank2],[pole22]);
       
       end;,
     bounds: nil,
     declareSelf: 'base,
     ViewSetupFormScript:
       // be sure to call inherited:?ViewSetupFormScript()
       func()
       begin
       	inherited:?ViewSetupFormScript();
       	local allPlanks:=Clone(planks);
       	allPlanks.all:=[tall1plank1,tall1plank2,tall1plank3,
       					tall2plank1,tall2plank2,
       					tall3plank1,tall3plank2,];
       	planks:=clone(allPlanks);
       	//Close all planks
       	tall1plank1:Close();
       	tall1plank2:Close();
       	tall1plank3:Close();
       	tall2plank1:Close();
       	tall2plank2:Close();
       	tall3plank2:Close();
       	long1plank1:Close();
       	long1plank2:Close();
       	long2plank1:Close();
       	long2plank2:Close();
       	long3plank1:Close();
       	long3plank2:Close();
       	local allPoles:=Clone(pole);
       	allPoles.person:=personIcon;
       	allPoles.empty:=poleIcon;
       	allPoles.all:=[	pole1,pole2,pole3,pole4,pole5,
       					pole6,pole7,pole8,pole9,pole10,
       					pole11,pole12,pole13,pole14,pole15,
       					pole16,pole17,pole18,pole19,pole20,
       					pole21,pole22,pole23,pole24,pole25,
       					pole26,pole27,pole28,pole29,pole30,
       					pole31,pole32,pole33,pole34,pole35];
       	pole:=Clone(allPoles);
       end,
     currentSize: nil,
     viewClass: 74,
     icon1tall:
       BuildPictureViewSlot({
       	imageFile4: "tall1.bmp", 
       	maskOption: 0}),
     debug: "main",
     pole:
       {	place:
       		func(aPole,aPlankAdjacent,aPoleAdjacent)
       		begin
       			aPole.poleAdjacents:=aPoleAdjacent;
       			aPole.adjacents:=aPlankAdjacent;
       		end,		
       	person:nil,
       	empty:nil,
       	adjacents:nil,
       	win:nil,
       	move:nil,
       	moving:
       		func(aPole)
       		begin
       			if adjacents and SetContains(adjacents,aPole) then
       			begin
       				adjacentPlankIndex:=SetOverlaps(aPole.adjacents,current.adjacents);
       				if adjacentPlankIndex then
       				begin
       					if aPole.adjacents[adjacentPlankIndex].fill then
       					begin
       						SetValue(aPole,'icon,person);
       						SetValue(current,'icon,empty);
       						current:=aPole;
       						adjacents:=current.poleAdjacents;
       					end;
       				end;
       			end;
       		end,
       	current:nil,
       	createLevel:
       		func(thePoles)
       		begin
       		foreach closingPole in all do
       		begin
       			if not SetContains(thePoles,closingPole) then
       				closingPole:Close();
       			else
       				closingPole:Open();
       		end;
       		end,
       	all:[],
       		
       },
     allPosts: nil,
     movingPlank: nil,
     changePlank:
       func(clickPlank,clickSize,clickFill)
       begin
       // if plank is filled, is adjacent and no other planks have been picked up
       if clickFill and SetContains(clickPlank.adjacents,pole.current) and not currentSize then
       begin
       	currentSize:=clickSize;
       	SetValue(clickPlank,'icon,nil);
       	clickPlank.fill:=nil;
       end;
       else
       begin
       //if plank is not filled, is adjacent 
       	if not clickFill and clickSize = currentSize and SetContains(clickPlank.adjacents,pole.current) and currentSize then
       	begin
       		SetValue(clickPlank,'icon,iconType);
       		clickPlank.fill:=1;
       		currentSize:=nil;
       	end;
       end;
       end;
    };

_view000 := /* child of main */
    {
     icon:
       BuildPictureViewSlot({
       	imageFile4: "plank.bmp", 
       	maskOption: 0}),
     viewBounds: {left: -1, top: 16, bottom: 346, right: 271},
     viewFlags: 1,
     viewFormat: 0,
     viewClass: 76
    };



tall1plank1 := /* child of main */
    {viewBounds: {left: 125, top: 142, right: 145, bottom: 168},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     size: 1,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     debug: "tall1plank1",
     _proto: @198
    };
// View tall1plank1 is declared to main



tall1plank2 := /* child of main */
    {viewBounds: {left: 65, top: 292, bottom: 319, right: 85},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     size: 1,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     debug: "tall1plank2",
     _proto: @198
    };
// View tall1plank2 is declared to main



tall2plank1 := /* child of main */
    {viewBounds: {left: 64, top: 191, bottom: 268, right: 86},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 2,
     debug: "tall2plank1",
     _proto: @198
    };
// View tall2plank1 is declared to main



tall2plank2 := /* child of main */
    {viewBounds: {left: 65, top: 92, right: 85, bottom: 169},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 2,
     debug: "tall2plank2",
     _proto: @198
    };
// View tall2plank2 is declared to main



tall3plank1 := /* child of main */
    {viewBounds: {left: 184, top: 141, bottom: 268, right: 206},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: 1,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 3,
     debug: "tall3plank1",
     _proto: @198
    };
// View tall3plank1 is declared to main



tall3plank2 := /* child of main */
    {viewBounds: {left: 244, top: 192, bottom: 319, right: 266},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: 1,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 3,
     debug: "tall3plank2",
     _proto: @198
    };
// View tall3plank2 is declared to main



long1plank1 := /* child of main */
    {viewBounds: {left: 27, top: 322, bottom: 342, right: 63},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 1,
     debug: "long1plank1",
     _proto: @198
    };
// View long1plank1 is declared to main



long1plank2 := /* child of main */
    {viewBounds: {left: 87, top: 322, bottom: 342, right: 123},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 1,
     debug: "long1plank2",
     _proto: @198
    };
// View long1plank2 is declared to main



long2plank1 := /* child of main */
    {viewBounds: {left: 87, top: 70, right: 183, bottom: 90},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 2,
     debug: "long2plank1",
     _proto: @198
    };
// View long2plank1 is declared to main



long2plank2 := /* child of main */
    {viewBounds: {left: 87, top: 270, bottom: 290, right: 183},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 2,
     debug: "long2plank2",
     _proto: @198
    };
// View long2plank2 is declared to main



long3plank1 := /* child of main */
    {viewBounds: {left: 7, top: 195, right: 163, bottom: 215},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 3,
     debug: "long3plank1",
     _proto: @198
    };
// View long3plank1 is declared to main



long3plank2 := /* child of main */
    {viewBounds: {left: 7, top: 244, bottom: 264, right: 163},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     size: 3,
     debug: "long3plank2",
     _proto: @198
    };
// View long3plank2 is declared to main



pole1 := /* child of main */
    {viewBounds: {left: 5, top: 19, right: 25, bottom: 39},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: 24,
     viewFormat: 67109456,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole1",
     _proto: @198
    };
// View pole1 is declared to main



pole2 := /* child of main */
    {viewBounds: {left: 65, top: 19, right: 85, bottom: 39},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole2",
     _proto: @198
    };
// View pole2 is declared to main



pole3 := /* child of main */
    {viewBounds: {left: 125, top: 19, right: 145, bottom: 39},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole3",
     _proto: @198
    };
// View pole3 is declared to main



pole4 := /* child of main */
    {viewBounds: {left: 185, top: 19, right: 205, bottom: 39},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     viewFormat: 67109456,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole4",
     _proto: @198
    };
// View pole4 is declared to main



pole5 := /* child of main */
    {viewBounds: {left: 245, top: 19, bottom: 39, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole5",
     _proto: @198
    };
// View pole5 is declared to main



pole6 := /* child of main */
    {viewBounds: {left: 5, top: 70, right: 25, bottom: 90},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole6",
     _proto: @198
    };
// View pole6 is declared to main



pole7 := /* child of main */
    {viewBounds: {left: 65, top: 70, right: 85, bottom: 90},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole7",
     _proto: @198
    };
// View pole7 is declared to main



pole8 := /* child of main */
    {viewBounds: {left: 125, top: 70, right: 145, bottom: 90},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole8",
     _proto: @198
    };
// View pole8 is declared to main



pole9 := /* child of main */
    {viewBounds: {left: 185, top: 70, right: 205, bottom: 90},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole9",
     _proto: @198
    };
// View pole9 is declared to main



pole10 := /* child of main */
    {viewBounds: {left: 245, top: 70, bottom: 90, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     viewFormat: 67109457,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole10",
     _proto: @198
    };
// View pole10 is declared to main



pole11 := /* child of main */
    {viewBounds: {left: 5, top: 120, right: 25, bottom: 140},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole11",
     _proto: @198
    };
// View pole11 is declared to main



pole12 := /* child of main */
    {viewBounds: {left: 65, top: 120, right: 85, bottom: 140},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole12",
     _proto: @198
    };
// View pole12 is declared to main



pole13 := /* child of main */
    {viewBounds: {left: 125, top: 120, right: 145, bottom: 140},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole13",
     _proto: @198
    };
// View pole13 is declared to main



pole14 := /* child of main */
    {viewBounds: {left: 185, top: 120, right: 205, bottom: 140},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     viewFormat: 67109456,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole14",
     _proto: @198
    };
// View pole14 is declared to main



pole15 := /* child of main */
    {viewBounds: {left: 245, top: 120, bottom: 140, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole15",
     _proto: @198
    };
// View pole15 is declared to main



pole16 := /* child of main */
    {viewBounds: {left: 5, top: 170, right: 25, bottom: 190},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole16",
     _proto: @198
    };
// View pole16 is declared to main



pole17 := /* child of main */
    {viewBounds: {left: 65, top: 170, right: 85, bottom: 190},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole17",
     _proto: @198
    };
// View pole17 is declared to main



pole18 := /* child of main */
    {viewBounds: {left: 125, top: 170, right: 145, bottom: 190},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole18",
     _proto: @198
    };
// View pole18 is declared to main



pole19 := /* child of main */
    {viewBounds: {left: 185, top: 170, right: 205, bottom: 190},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole19",
     _proto: @198
    };
// View pole19 is declared to main



pole20 := /* child of main */
    {viewBounds: {left: 245, top: 170, bottom: 190, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole20",
     _proto: @198
    };
// View pole20 is declared to main



pole21 := /* child of main */
    {viewBounds: {left: 5, top: 220, right: 25, bottom: 240},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole21",
     _proto: @198
    };
// View pole21 is declared to main



pole22 := /* child of main */
    {viewBounds: {left: 65, top: 220, right: 85, bottom: 240},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole22",
     _proto: @198
    };
// View pole22 is declared to main



pole23 := /* child of main */
    {viewBounds: {left: 125, top: 220, right: 145, bottom: 240},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole23",
     _proto: @198
    };
// View pole23 is declared to main



pole24 := /* child of main */
    {viewBounds: {left: 185, top: 220, right: 205, bottom: 240},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole24",
     _proto: @198
    };
// View pole24 is declared to main



pole25 := /* child of main */
    {viewBounds: {left: 245, top: 220, bottom: 240, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole25",
     _proto: @198
    };
// View pole25 is declared to main



pole26 := /* child of main */
    {viewBounds: {left: 5, top: 270, bottom: 290, right: 25},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole26",
     _proto: @198
    };
// View pole26 is declared to main



pole27 := /* child of main */
    {viewBounds: {left: 65, top: 270, bottom: 290, right: 85},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole27",
     _proto: @198
    };
// View pole27 is declared to main



pole28 := /* child of main */
    {viewBounds: {left: 125, top: 270, bottom: 290, right: 145},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole28",
     _proto: @198
    };
// View pole28 is declared to main



pole29 := /* child of main */
    {viewBounds: {left: 185, top: 270, bottom: 290, right: 205},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole29",
     _proto: @198
    };
// View pole29 is declared to main



pole30 := /* child of main */
    {viewBounds: {left: 245, top: 270, bottom: 290, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole30",
     _proto: @198
    };
// View pole30 is declared to main



pole31 := /* child of main */
    {viewBounds: {left: 5, top: 321, bottom: 341, right: 25},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole31",
     _proto: @198
    };
// View pole31 is declared to main



pole32 := /* child of main */
    {viewBounds: {left: 65, top: 321, bottom: 341, right: 85},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       if pole.current = pole.win then
       	winBox:Open();
       
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole32",
     _proto: @198
    };
// View pole32 is declared to main



pole33 := /* child of main */
    {viewBounds: {left: 125, top: 321, bottom: 341, right: 145},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole33",
     _proto: @198
    };
// View pole33 is declared to main



pole34 := /* child of main */
    {viewBounds: {left: 185, top: 321, bottom: 341, right: 205},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole34",
     _proto: @198
    };
// View pole34 is declared to main



pole35 := /* child of main */
    {viewBounds: {left: 245, top: 321, bottom: 341, right: 265},
     buttonClickScript:
       func()
       begin
       pole:moving(self);
       end;,
     adjacents: nil,
     icon:
       BuildPictureViewSlot({
       	imageFile4: "pole.bmp", 
       	maskOption: 0}),
     debug: "pole35",
     _proto: @198
    };
// View pole35 is declared to main



_view001 := /* child of main */
    {text: "Planks",
     viewBounds: {left: 1, top: -1, bottom: 15, right: 111},
     viewJustify: 8388630,
     viewFont: ROM_fontSystem14Bold,
     _proto: @218
    };



_view002 := /* child of main */ {_proto: @163};



startButton := /* child of main */
    {text: "Start Game",
     viewBounds: {left: 32, top: 350, bottom: 363, right: 122},
     buttonClickScript:
       func()
       begin
       :Level1();
       end,
     debug: "startButton",
     _proto: @226
    };
// View startButton is declared to main



_view003 := /* child of main */
    {viewFlags: 515,
     viewBounds: {left: -116, top: 0, bottom: 13, right: -103},
     _proto: @478
    };



startButton2 := /* child of main */
    {text: "Start Game",
     viewBounds: {left: 139, top: 350, bottom: 363, right: 229},
     buttonClickScript:
       func()
       begin
       :Level2();
       end,
     debug: "startButton2",
     _proto: @226
    };
// View startButton2 is declared to main



winBox := /* child of main */
    {viewBounds: {left: -6, top: 135, bottom: 169, right: 138},
     ViewQuitScript:
       // must return the value of inherited:?ViewQuitScript()
       func()
       begin
       	SetValue(pole.win,'icon,iconPole);
       	inherited:?ViewQuitScript();
       end,
     debug: "winBox",
     _proto: @180
    };
// View winBox is declared to main

_view004 := /* child of winBox */
    {text: "Winner!",
     viewBounds: {left: 28, top: 2, bottom: 32, right: 118},
     viewJustify: 8388614,
     viewFont: ROM_fontSystem14,
     _proto: @218
    };





tall1plank3 := /* child of main */
    {viewBounds: {left: 65, top: 41, right: 85, bottom: 68},
     buttonClickScript:
       func()
       begin
       :changePlank(self,size,fill);
       end;,
     viewFormat: 0,
     fill: nil,
     adjacents: nil,
     size: 1,
     iconType:
       BuildPictureViewSlot({
       	maskOption: 0}),
     debug: "tall1plank3",
     _proto: @198
    };
// View tall1plank3 is declared to main




constant |layout_Planks.lyt| :=  main;
// End of file Planks.lyt