De lo contrario, corazón roto() – Guía de creación de bases de datos

This guide helps you make a basic makeshift database. You can include various items such as rooms. You can also add custom types for things like bank accounts and tasks.

Application of Code

Para acelerar las cosas, tweak the computer speed and make sure the database computer can run endlessly. Use a screwdriver with the Screwdriver Code to adjust both the database computer (preferably the one with the memory API) and the workstation computer in the Police Station, specifically the yellow-screened one with the GetAllRooms function. The corner computer with the red screen also has the memory API, making it a convenient choice.

After adjusting both computers, hack into the database computer, the one with the memory API or save/load memory functions. Take the Database Code from this guide and apply it to the computer. Compile the code and close the interface. You’ll observe the code running on the screen.

Ahora, hack into the yellow-screened workstation and apply the Workstation Code to it.

Actualmente, there’s a basic demonstration. Work is still in progress to create a menu with options for slurping, relocating, and parsing coordinates. Pressing enter with no input will scroll through the lists.

Screwdriver Code

SetMhz(500)
SetMaxTime(-2)

Database Code

##############################################
#            Main Custom Functions
#---------------------------------------------
#array GetItems(string type)
#array GetTypes()
#bool Save(string type,string name)    
##############################################

#Ayudante - For initial database setup Auto'd by Save()    
void createTypes()
    bool test = HasMemory('Types')
    
    si !test
        SaveMemory('Types',0)    
    end
end

#Helper - Test blank input
bool inputBlank(var test)
    if test == ""
        return True
    else
        return False
    end
end

#Helper - Check if database information has been imported
void Setup()
    bool testDB = HasMemory('Database')
    si !testDB
        ClearText()
        Imprimir("Database has not been built")
        Imprimir("Running now...")
        Dormir(4)
        BuildDatabase()
    end
end

#Saves items to database
bool Save(string type,string name)

    bool test = HasMemory(tipo)
    number qty
    number typesQty
    bool testTypes = HasMemory('Types')
    
    if inputBlank(tipo)
        return false
    end
    
    if inputBlank(nombre)
        return false
    end
    
    if testTypes
        
    else
        createTypes()
    end
    
if test
    qty = LoadMemory(tipo)
    qty++
    SaveMemory(tipo,qty)
else
    typesQty = LoadMemory('Types')
    typesQty++
    SaveMemory('Types' + typesQty,tipo)
    SaveMemory('Types',typesQty)
    qty = 1
    SaveMemory(tipo,qty)
end

SaveMemory(tipo + qty,nombre)
Imprimir(tipo + qty)
return true
end

#testing input function
void fun()
    loop
        var typ = Input(':')
        
        if inputBlank(typ)
            return
        end
                
        if typ == 'exit'
            break
        end
            
        Save(typ,'name')
        Imprimir(LoadMemory('Types') + ":Number of Types")
    end
end

#returns all types of items in database
array GetTypes()
   array build
    number cnt = 1
    string tem
        
    loop
        tem = 'Types' + cnt
       if HasMemory(tem)
           Append(construir,LoadMemory(tem))
       else
           return build
       end
        
        cnt++
    end
        
end

#Returns all items of supplied type
array GetItems(string type)
    number cnt = 1
    array build
    string tem
        
    if inputBlank(tipo)
        return
    end    
        
    bool available = HasMemory(tipo)
    
    si !available
        return
    end
    
    bool test
        
    loop
        tem = type + cnt
        test = HasMemory(tem)
        if test
            Append(construir,LoadMemory(tem))
            cnt++
        else
            return build
        end
    end
end

#Helper - 
var PoliceAdmin()
    string computer = "PoliceOfficeInterior_MinistryOfficeWorkstationComputer_1"
    var con = Connect(computadora)
    return con
end

#Helper - Builds database
void BuildDatabase()

        array items
        string type
        bool saved
        var con = PoliceAdmin()           
        array rooms = con.GetAllRooms()
        
        ClearMemories()
        ClearText()
        
    
        
        loop room in rooms
            type = "habitación"
            saved = Save(tipo,habitación)
            items = con.GetThingsInRoom(habitación)
            
            loop item in items
                type = con.GetTypeOfThing(artículo)
                
                saved = Save(tipo,artículo)
            end    
        end
        ClearText()
        SaveMemory('Database',1)
        Imprimir("Database Information Imported")
end


#Helper - 
void bar()
    Imprimir("--------------------")
end


#Helper - Show and Select from an array 
var Select(array arr)
    
    number track
    number select
    number incr


    loop
        track = 0
        select = 0
        incr = 0
        
        loop x from 0 to Count(arr) - 1
            track++
            incr++
            Print(incr + ":" + arr[X])

            if track == 5
                track = 0
                select = sel()
                ClearText()
                if select > -1
                    return arr[seleccionar]
                else if select == -2
                    break
                end
            end
        end
    end

end


#Helper to select() - Determine if number and return
number sel()

	bool isNum
	string testNum

	loop
		isNum = true
		bar()
		testNum = Input(":>")

		if testNum == "0"
			isNum = false
		else if testNum == ""
			#Move Forward
			return -1
		else if testNum == " "
			#Move Back
			return -2
		else if testNum == "menú" or testNum == "salida"
			#return to menu
			return -3
		end

		    loop testNum
			       if CharToInt(@) < -49 or CharToInt(@) > -40
				        isNum = false
				        break
    		    end
		    end

		    if isNum == true
		        	break
		    end

    
    end

    number num = testNum
    num--

    return num

end

##############################################

Configuración()

WorkStation Code

#Ayudante - 
var PoliceMem()
    var con = Connect("PoliceOfficeInterior_TriPodComputer_TriPodComputer_1")
    return con
end

#Helper - 
void title(string title, number max)
    Imprimir(máximo + ": " + título)
       bar(2) 
end

void bar(number t)
    if t == 2
        Imprimir("--------------------")
    else if t == 1
        Imprimir("====================")
    end
end


#Helper - Show and Select from an array 
var Select(array arr)
    
    number track
    number select
    number incr


    loop
        track = 0
        select = 0
        incr = 0
        
        loop x from 0 to Count(arr) - 1
            track++
            incr++
            Print(incr + ":" + arr[X])

            if track == 5
                track = 0
                select = sel()
                ClearText()
                
                if select > -1
                    return arr[seleccionar]
                else if select == -2
                    break
                end
                
            end
            
        end
        
    end

end


#Helper to select() - Determine if number and return 
# Old select function.. need to revise or replace
number sel()

	bool isNum
	string testNum

	loop
		isNum = true
		bar(1)
		testNum = Input(":>")

		#if testNum == "0"
		#	isNum = false
		if testNum == ""
			#Move Forward
			return -1
		else if testNum == " "
			#Move Back
			return -2
		else if testNum == "menú" or testNum == "salida"
			#return to menu
			return -3
		end

		    loop testNum
			       if CharToInt(@) < -49 or CharToInt(@) > -40
				        isNum = false
				        break
    		    end
		    end

		    if isNum == true
		        	break
		    end

    
    end

    number num = testNum
    num--

    return num

end

# Old selectitem function.. need to revise or replace
string SelectItem()
    var con = PoliceMem()
    array types = con.GetTypes()
    string type = Select(tipos)
    array items = con.GetItems(tipo)
    string it = Select(elementos)
    return it
end

#
void Position()
    string name = SelectItem()
    string target = "PoliceOfficeInterior_Diskette_Diskette6_1" 
    SetPosition(nombre,target)
fin

#
string GetPName(string name)
    bool grab = false
    string Pname = GetPosition(nombre)
    string get = ""
    loop Pname
        if @ == " "
            grab = true
        else if @ == ","
            break
        else if grab == true
            get += @
        end
    end
    return get
end

#
string GetPCoor(string name)
    bool grab = false
    string Pname = GetPosition(nombre)
    string get
    
    loop Pname
        if @ == "("
            grab = true
        else if @ == ")"
            break
        else if grab == true
            get += @
        end
    end 
    return get
end

string NewSelection(array myarr,string titl)
    number count = Count(myarr)
    number cnt = 1
    number res
    
    loop
        ClearText()
        título(titl,contar)
        si (cnt + 4) < count loop x from cnt to (cnt +4) Imprimir(X + ". " + myarr[X - 1]) end cnt += 5 else loop x from cnt to count Print(X + ". " + myarr[X - 1]) end cnt = 1 end res = sel() if res > -1
            return myarr[resonancia]
        end
   end 
   
          
end


##############################################
#                PoliceMem
#---------------------------------------------
#array GetItems(string type)
#array GetTypes()
#bool Save(string type,string name)    
#
#GetMemories
#HasMemory()
#ClearMemories
#EraseMemory(
#SaveMemory(
#LoadMemory(
##############################################
#                  Workstation
#---------------------------------------------
#string GetPCoor(string name)
#string GetPName(string name)
#void Position() #Sets position of targets item    
#string SelectItem() #runs item selection process
#void title(string title, number max)
#
#GetPeople()
#GetThingsOfType()
#GetPosition()
#GetAction()
#GetRoom()
#GetThingsInRoom()
#GetAllRooms()
#GetTypeOfThing()
#InteractWith()
#IsKeyPressed()
#SetPosition()
##############################################
#                      Run Below
############################################## 

var con = PoliceMem()
string type = NewSelection(con.GetTypes(),'Types')
string item = NewSelection(con.GetItems(tipo),type+'s')