1:1
2:0
3:1
4:1
5:1
6:0
7:1
8:0
9:0
10:1
11:1
12:0
13:0
14:0
15:0
16:0

local U = require "scriptbank\\utillib"

local names = {}
local lookingAt = nil
local nextCheck = 250
local collected = {}

function mappiece_init_name( e, name )

names[e] = name

collected[e] = 0

end

function mappiece_main(e)

RotateY(e,50)

if U.PlayerLookingNear( e, 80, 20 ) and GetEntityVisibility( e ) == 1 and GetTimer(e) > nextCheck and
		   ( lookingAt == nil or lookingAt == e ) then
			PromptLocal( e, "Press E to collect")
            lookingAt = e
			if g_KeyPressE == 1 then
			    StartTimer(e)
				PromptLocal( e, "" )
				PromptDuration("Collected "..names[e].."",3000)
				Hide(e)
				PlaySound( e, 0 )
				collected[e] = 1
				LookingAt = nil
			end
			elseif lookingAt == e then
			lookingAt = nil
			PromptLocal( e, "" )
		end

end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects puzzle Items - 3com

 imgPieces = {}
 sprPieces = {}
 Pieces = {}
 imgDirPath = "scriptbank\\images\\Puzzle16\\" -- Type here your image directory path
 local keypressed = 0
 
function collect_puzzleparts_init(e)
	
	for i = 0,15,1 do
		if i <= 9 then
			imgPieces[i+1] = LoadImage(imgDirPath .."00" ..i ..".png")
		else
			imgPieces[i+1] = LoadImage(imgDirPath .."0" ..i ..".png")
		end
	end
	
	for i = 0,15,1 do
		sprPieces[i+1] = CreateSprite ( imgPieces[i+1] )
		SetSpriteDepth ( sprPieces[i+1] , 100 )
		SetSpritePosition (sprPieces[i+1] , 200,200)
	end
	
end --init
 
function collect_puzzleparts_main(e)
	PlayerDist = GetPlayerDistance(e)
	
if PlayerDist < 80 then
    PlaySound(e,0)
    Collected(e)
	Pieces[e] = 1
	Prompt ("Press E key To see puzzle, Q key To hide puzzle")
end	

if g_KeyPressE == 1 and keypressed == 0 then	
	keypressed = 1
for i = 1,#Pieces,1 do	
	if Pieces[i] == 1 then
			myWidth = GetImageWidth ( imgPieces[i] )
			myHeight = GetImageHeight ( imgPieces[i] )	
		if i == 1 then
			SetSpritePosition (sprPieces[i],0,0)
		elseif i == 2 then
			SetSpritePosition (sprPieces[i],myWidth,0)
		elseif i == 3 then
			SetSpritePosition (sprPieces[i],myWidth*2,0)
		elseif i == 4 then
			SetSpritePosition (sprPieces[i],myWidth*3,0)
			
		elseif i == 5 then
			SetSpritePosition (sprPieces[i],0,myHeight)
		elseif i == 6 then
			SetSpritePosition (sprPieces[i],myWidth,myHeight)		
		elseif i == 7 then
			SetSpritePosition (sprPieces[i],myWidth*2,myHeight)		
		elseif i == 8 then
			SetSpritePosition (sprPieces[i],myWidth*3,myHeight)		
		
		elseif i == 9 then
			SetSpritePosition (sprPieces[i],0,myHeight*2)	
		elseif i == 10 then
			SetSpritePosition (sprPieces[i],myWidth,myHeight*2)
		elseif i == 11 then
			SetSpritePosition (sprPieces[i],myWidth*2,myHeight*2)
		elseif i == 12 then
			SetSpritePosition (sprPieces[i],myWidth*3,myHeight*2)
				
		elseif i == 13 then
			SetSpritePosition (sprPieces[i],0,myHeight*3)
		elseif i == 14 then
			SetSpritePosition (sprPieces[i],myWidth,myHeight*3)		
		elseif i == 15 then
			SetSpritePosition (sprPieces[i],myWidth*2,myHeight*3)		
		elseif i == 16 then
			SetSpritePosition (sprPieces[i],myWidth*3,myHeight*3)					
		end
	end
end	
	
end -- g_KeyPressE == 1
	
if g_KeyPressQ == 1 and keypressed == 0 then	
	keypressed = 1	
	
	for i = 1,#Pieces,1 do
		if Pieces[i] == 1 then
			SetSpritePosition (sprPieces[i] , 200,200)		
			Hide(i)
			CollisionOff(i)
		end
	end
	
end	 -- g_KeyPressQ == 1
	
if g_KeyPressE == 0 and g_KeyPressQ == 0 then keypressed = 0 end

end --main

local index = 0
for y = 0, 3 do 
  for x = 0, 2 do
     index = index + 1
    if Pieces[index] == 1 then 
        myWidth = GetImageWidth ( imgPieces[index] )
        myHeight = GetImageHeight ( imgPieces[index] )  
        SetSpritePosition(SetSpritePosition (sprPieces[index],x*myWidth,y*myHeight)
    end
  end
end

local U = require "scriptbank\\utillib"

local names = {}
local lookingAt = nil
local nextCheck = 250
local collected = {}

function mappiece_init_name( e, name )

names[e] = name

collected[e] = 0

local mapfile = io.open ("variables.txt", "w")
      mapfile:write("g_map01 \n")
	  mapfile:write("g_map02 \n")
      mapfile:close()

end

function mappiece_main(e)

RotateY(e,50)

if g_map01 == nil then
   g_map01 = 0
end
if g_map02 == nil then
   g_map02 = 0
end

if U.PlayerLookingNear( e, 80, 20 ) and GetEntityVisibility( e ) == 1 and GetTimer(e) > nextCheck and
		   ( lookingAt == nil or lookingAt == e ) then
			PromptLocal( e, "Press E to collect")
            lookingAt = e
			if g_KeyPressE == 1 then
			    StartTimer(e)
				PromptLocal( e, "" )
				--PromptDuration("Collected "..names[e].."",3000)
				Hide(e)
				PlaySound( e, 0 )
				collected[e] = 1
				LookingAt = nil
			end
			elseif lookingAt == e then
			lookingAt = nil
			PromptLocal( e, "" )
		end

if names[e] == "map01" and collected[e] == 1 then
g_map01 = 1
local mapfile = io.open ("variables.txt", "w")
      mapfile:write(g_map01.."\n")
      mapfile:close()
elseif names[e] == "map02" and collected[e] == 1 then
g_map02 = 1
local mapfile = io.open ("variables.txt", "w")
      mapfile:write(g_map02.."\n")
      mapfile:close()
end

--Prompt (g_map01.." , "..g_map02)

end

function mappuzzle_init(e)
 
 local mapfile = io.open("variables.txt", "r")
    g_map01 = mapfile:read("*n", "*1")
    g_map02 = mapfile:read("*n", "*1")
    mapfile:close()

end

function mappuzzle_main(e)

Prompt (g_map01.." , "..g_map02)
  
end

function mappuzzle_init(e)
  
 local mapfile = io.open("variables.txt", "r")
    tmap1 = mapfile:read("*n", "*1")
    tmap2 = mapfile:read("*n", "*1")
    g_map01 = tmap1 
    g_map02 = tmap2
    mapfile:close()
 
end
 
function mappuzzle_main(e)
 
Prompt (tmap1.." , "..tmap2)
   
end

local U = require "scriptbank\\utillib"

local names = {}
local lookingAt = nil
local nextCheck = 250
local collected = {}

function mappiece_init_name( e, name )

names[e] = name

collected[e] = 0

local mapfile = io.open ("mappuzzle.txt", "w")
      mapfile:write(g_map01.."\n"..g_map02.."\n")
	  mapfile:close()

end

function mappiece_main(e)

RotateY(e,50)

if g_map01 == nil then
   g_map01 = 0
end
if g_map02 == nil then
   g_map02 = 0
end


if U.PlayerLookingNear( e, 80, 20 ) and GetEntityVisibility( e ) == 1 and GetTimer(e) > nextCheck and
		   ( lookingAt == nil or lookingAt == e ) then
			PromptLocal( e, "Press E to collect")
            lookingAt = e
			if g_KeyPressE == 1 then
			    StartTimer(e)
				Hide(e)
				PlaySound( e, 0 )
				collected[e] = 1
				CollisionOff(e)
				LookingAt = nil
			end
			elseif lookingAt == e then
			lookingAt = nil
			PromptLocal( e, "" )
		end

if collected[e] == 1 then		
		if names[e] == "map01" and g_map01 == 0 then -- without the g_map01, I get stuck in an infinite loop
           PromptDuration("Collected "..names[e].."",2000)
		   g_map01 = 1
		elseif names[e] == "map02" and g_map02 == 0 then 
           PromptDuration("Collected "..names[e].."",2000)
		   g_map02 = 1
		end
end

local mapfile = io.open ("mappuzzle.txt", "w")
      mapfile:write(g_map01.."\n"..g_map02.."\n")
      mapfile:close()

--Prompt (g_map01.." , "..g_map02)

end

1
0

1,0

function mappuzzle_init(e)
 
 local mapfile = io.open("mappuzzle.txt", "r")
   	 g_map01 = mapfile:read("*L", "*1")
	 g_map02 = mapfile:read("*L", "*1")
	 mapfile:close()

end

function mappuzzle_main(e)

Prompt (g_map01.." , "..g_map02)
  
end

local names = {}
local lookingAt = nil
local nextCheck = 250
local collected = {}
 
function mappiece_init_name( e, name ) 
	names[e] = name
	if g_map01 == nil then
		 g_map01 = 0
	end
	if g_map02 == nil then
		 g_map02 = 0
	end
	 
	collected[e] = 0
	 
	local mapfile = io.open ("mappuzzle.txt", "w")
	mapfile:write(g_map01.."\n"..g_map02.."\n")
	mapfile:close()
end
 
function mappiece_main(e) 
	RotateY(e,50)
	if U.PlayerLookingNear( e, 80, 20 ) and GetEntityVisibility( e ) == 1 and GetTimer(e) > nextCheck and
	 ( lookingAt == nil or lookingAt == e ) then
		PromptLocal( e, "Press E to collect")
		lookingAt = e
		if g_KeyPressE == 1 then
			StartTimer(e)
			Hide(e)
			PlaySound( e, 0 )
			collected[e] = 1
			CollisionOff(e)
			LookingAt = nil			
			if names[e] == "map01" and g_map01 == 0 then -- without the g_map01, I get stuck in an infinite loop
				 PromptDuration("Collected "..names[e].."",2000)
				 g_map01 = 1
			elseif names[e] == "map02" and g_map02 == 0 then
				 PromptDuration("Collected "..names[e].."",2000)
				 g_map02 = 1
			end
                        local mapfile = io.open ("mappuzzle.txt", "w")
			mapfile:write(g_map01.."\n"..g_map02.."\n")
			mapfile:close()
		end
	elseif lookingAt == e then
		lookingAt = nil
	end
--Prompt (g_map01.." , "..g_map02)
end

local U = require "scriptbank\\utillib"

local names = {}
local lookingAt = nil
local nextCheck = 250
local collected = {}

function mappiece2_init_name( e, name )

names[e] = name

collected[e] = 0

-- added in this section to test reading back the file so GG knows g_map01 and g_map02 are not nil values...
local mapfiler = io.open ("mappuzzle.txt", "r")
      mapfiler:read()
	  mapfiler:close()

end

function mappiece2_main(e)

if g_map01 == nil then 
   g_map01 = 0 
end

if g_map02 == nil then
   g_map02 = 0
end   
   
if g_map03 == nil then
   g_map03 = 0
end 

RotateY(e,50)

if U.PlayerLookingNear( e, 80, 20 ) and GetEntityVisibility( e ) == 1 and GetTimer(e) > nextCheck and
		   ( lookingAt == nil or lookingAt == e ) then
			PromptLocal( e, "Press E to collect")
            lookingAt = e
			if g_KeyPressE == 1 then
			    StartTimer(e)
				Hide(e)
				PlaySound( e, 0 )
				collected[e] = 1
				CollisionOff(e)
				LookingAt = nil
				  if names[e] == "map01" and g_map01 == 0 then 
                      PromptDuration("Collected "..names[e].."",2000)
		              g_map01 = 1
				  elseif names[e] == "map02" and g_map02 == 0 then 
                      PromptDuration("Collected "..names[e].."",2000)
		              g_map02 = 1
				  elseif names[e] == "map03" and g_map03 == 0 then 
                      PromptDuration("Collected "..names[e].."",2000)
		              g_map03 = 1
				  end
				local mapfile = io.open ("mappuzzle.txt", "w")
                      mapfile:write("g_map01="..g_map01.."\ng_map02="..g_map02.."\ng_map03="..g_map03.."\n")
                      mapfile:close()
		    end
			
		elseif lookingAt == e then
			lookingAt = nil
	end

--Prompt (g_map01.." , "..g_map02)

end

function read_from_line(linenumber)
local file1 = io.open ("mappuzzle.txt", "r")
local line = {}
for a = 1, 9 do
line[a] = file1:read("*l")
if a == linenumber then
 file1:close()
 return line[a]
end
end
file1:close()
end

function write_to_line(linenumber,value)
local file1 = io.open ("mappuzzle.txt", "r")
local line = {}
for a = 1, 9 do
line[a] = file1:read("*l")
end
file1:close()
local file2 = io.open ("mappuzzle.txt", "w")
for a = 1, 9 do
if a == linenumber then
file2:write(value)
else
file2:write(line[a])
end 
file2:write("/n")
end
file2:close()  
end

function save (name, value, saved) -- based on example in manual
	saved = saved or {}       -- initial value
	io.write(name, "=")
	if type(value) == "number" or type(value) == "string" then
		io.write(bS(value), "\n")
	elseif type(value) == "table" then
		if saved[value] then    -- value already saved?
			io.write(saved[value], "\n")  -- use the previous name
		else
			saved[value] = name   -- save name use next time
			io.write("{}\n")     -- create new table
			for k,v in pairs(value) do      -- save its fields
				local fieldname = string.format("%s[%s]", name, bS(k))
				save(fieldname, v, saved) -- recursion be very careful <<<<<<<<<<<< SAVE CALLS ITS SELF HERE <<<<<<<<<<
			end
		end
	else
		io.write("Error ".. name," -- cannot save a " .. type(value).."\n") -- this will fail as bad line on load
	end
end