#AutoCommand()
fontsize(30)

************************************
done! = 0
while ( done! == 0 )
{
	drawtitle()	

***************************************
if ( item! == 1)
		{
	#Text(14, 4, "Item1 xX")
	#Text(14, 5.5, "Item2 xX")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("item1", item1!)	
		#ItemCount("item2", item2!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("item1")
		takeitem("item2")
		giveitem("NewItem")
		run("fuseshop.prg")
				}
		if(item2! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( item1! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
***************************************
if ( item! == 2)
		{
	Text (14, 3.5, "Item1 xX")
	Text (14, 5, "Item2 xX")
	*and so on...
	Font (Comic Sans MS)
	FontSize (48)
	Text (9.3, 6.4, "Buy")
	Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("item1", item1!)	
		#ItemCount("item2", item2!)
		if(item1! >= 1)
			{
		if(item2! >= 1)
				{
		takeitem("item1")
		takeitem("item2")
		giveitem("NewItem")
		run("fuseshop.prg")
				}
		if(item2! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( item1! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
*************
	***** Where it says item1 and item2 and item1! and item2!, just fill in the
	***** appropriate name/item. Look at the ones below for examples.
***************************************
if ( item! == 3)
		{
	#Text(14, 4, "Steel Bar x1")
	#Text(14, 5.5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_steel.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_steel.itm")
		giveitem("hammer_Steel.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
***************************************
if ( item! == 4)
		{
	#Text (14, 3.5, "")
	#Text (14, 5, "")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
***************************************
if ( item! == 5)
		{
	#Text(14, 4, "Copper Ore x1")
	#Text(14, 5.5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
***************************************
if ( item! == 6)
		{
	#Text (14, 3.5, "Iron Ore x1")
	#Text (14, 5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("FuseShop.prg")
	}

		}
***************************************
if ( item! == 7)
		{
	#Text(14, 4, "Copper Ore x1")
	#Text(14, 5.5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("Fuse2.prg")
	*************
	*** Since each page only holds 6 items, notice how every 6 pages
	*** cause the run program to switch .prgs
	***   (Instead of run("FuseShop.prg"), now it's run("Fuse2.prg")
	}

		}
***************************************
if ( item! == 8)
		{
	#Text (14, 3.5, "Iron Ore x1")
	#Text (14, 5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("Fuse2.prg")
	}

		}
***************************************
if ( item! == 9)
		{
	#Text (14, 3.5, "Iron Ore x1")
	#Text (14, 5, "Oak Wood x1")
	#Font (Comic Sans MS)
	#FontSize (48)
	#Text (9.3, 6.4, "Buy")
	#Text (12.2, 6.4, "No")
	Font ("default")
	FontSize (30)

	cMap! = CreateCursorMap()
	CursorMapAdd( 395, 285, cMap! )
	CursorMapAdd( 532, 285, cMap! )
	res! = CursorMapRun( cMap! )
	KillCursorMap( cMap! )

	if ( res! == 0 )
	{
		#ItemCount("ore_copper.itm", copper!)	
		#ItemCount("wood_oak.itm", wood!)
		if(copper! >= 1)
			{
		if(wood! >= 1)
				{
		takeitem("wood_oak.itm")
		takeitem("ore_copper.itm")
		giveitem("hammer_copper.itm")
		run("fuseshop.prg")
				}
		if(wood! < 1)
				{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
				}
			}
		if ( copper! < 1)
			{
		mwin(" I'm sorry, but you don't have the necessary items to make this.")
		wait(a$)
			}
	}
	if ( res! == 1 )
	{
		#run("Fuse2.prg")
	}

		}

}
end


*******************************************************
* This method draws the title screen...
*******************************************************
method drawtitle()
{
    Clear
    Bitmap("FuseShop.jpg")
}