Еще Heart.Break() – Руководство по созданию базы данных

Это руководство помогает вам создать базовую базу данных. Вы можете включить различные предметы, такие как комнаты. Вы также можете добавить пользовательские типы для таких вещей, как банковские счета и задачи.

Применение кода

Чтобы ускорить дело, Направьте скорость компьютера и убедитесь, что компьютер базы данных может работать бесконечно. Используйте отвертку с кодом отвертки, чтобы настроить оба компьютера базы данных (предпочтительно тот с API памяти) и компьютер рабочей станции в полицейском участке, в частности, желтый сэкран с функцией GetAllrooms. Угловой компьютер с красным экраном также имеет API памяти, сделать это удобным выбором.

После настройки обоих компьютеров, взломать компьютер базы данных, Тот, с API памяти или функциями сохранения/загрузки памяти. Возьмите код базы данных из этого руководства и примените его на компьютер. Скомпилируйте код и закройте интерфейс. Вы соблюдаете код, работающий на экране.

Сейчас, взломать на рабочую станцию ​​с желтой экраном и примените код рабочей станции к ней.

В настоящее время, Есть основная демонстрация. Работа по -прежнему продолжается, чтобы создать меню с вариантами скольжения, перемещение, и координаты разбора. Нажатие ввода без ввода прокрутит списки.

Код отвертки

Setmhz(500)
SetMaxTime(-2)

Код базы данных

##############################################
#            Основные пользовательские функции
#---------------------------------------------
#массив GetItems(тип строки)
#массив GetTypes()
#Bool Save(тип строки,имя строки)    
##############################################

#Помощник - Для начальной настройки базы данных Auto'd Save Save()    
void createTypes()
    Bool Test = Hasmemory('Типы')
    
    если !test
        SaveMemory('Типы',0)    
    end
end

#Helper - Test blank input
bool inputBlank(был тест)
    Если тест == ""
        return True
    else
        return False
    end
end

#Helper - Check if database information has been imported
void Setup()
    bool testdb = hasmemory('База данных')
    если !testDB
        ClearText()
        Распечатать("База данных не была построена")
        Распечатать("Беги сейчас ...")
        Спать(4)
        BUILDDATABASE()
    end
end

#Saves items to database
bool Save(тип строки,имя строки)

    Bool Test = Hasmemory(тип)
    number qty
    number typesQty
    bool testTypes = HasMemory('Типы')
    
    Если inputblank(тип)
        return false
    end
    
    if inputBlank(имя)
        return false
    end
    
    if testTypes
        
    else
        createTypes()
    end
    
if test
    qty = LoadMemory(тип)
    qty++
    SaveMemory(тип,QTY)
else
    typesQty = LoadMemory('Типы')
    typesQty++
    SaveMemory('Типы' + Типы,тип)
    Savememory('Типы',Типы)
    qty = 1
    Savememory(тип,QTY)
end

SaveMemory(тип + QTY,имя)
Распечатать(тип + QTY)
return true
end

#testing input function
void fun()
    loop
        var typ = Input(':')
        
        Если inputblank(тип)
            return
        end
                
        if typ == 'exit'
            break
        end
            
        Save(тип,'имя')
        Распечатать(Loadememory('Типы') + ":Количество типов")
    end
end

#returns all types of items in database
array GetTypes()
   array build
    number cnt = 1
    string tem
        
    loop
        tem = 'Types' + cnt
       if HasMemory(ТЕМ)
           Добавлять(строить,Loadememory(ТЕМ))
       else
           return build
       end
        
        cnt++
    end
        
end

#Returns all items of supplied type
array GetItems(тип строки)
    номер Cnt = 1
    array build
    string tem
        
    if inputBlank(тип)
        return
    end    
        
    bool available = HasMemory(тип)
    
    если !available
        return
    end
    
    bool test
        
    loop
        tem = type + cnt
        test = HasMemory(ТЕМ)
        if test
            Append(строить,Loadememory(ТЕМ))
            cnt++
        else
            return build
        end
    end
end

#Helper - 
был полицейской()
    String Computer = "PoliceOfficeInterior_MinistryOfficeWorkStationComputer_1"
    var con = подключить(компьютер)
    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 = "комната"
            Сохранить = Сохранить(тип,комната)
            Предметы = con.getThingSinroom(комната)
            
            loop item in items
                type = con.GetTypeOfThing(элемент)
                
                Сохранить = Сохранить(тип,элемент)
            end    
        end
        ClearText()
        Savememory('База данных',1)
        Распечатать("Информация о базе данных импортируется")
end


#Helper - 
void bar()
    Распечатать("--------------------")
end


#Helper - Show and Select from an array 
var Select(массиврр)
    
    number track
    number select
    number incr


    loop
        track = 0
        Выберите = 0
        Ingr = 0
        
        петля x от 0 Считать(обр) - 1
            track++
            incr++
            Print(увеличение + ":" + обр[х])

            Если трек == 5
                трек = 0
                выберите = sel()
                CLEARTEXT()
                Если выберите > -1
                    возврат[выбирать]
                иначе, если выберите == -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(":>")

		Если testnum == "0"
			isNum = false
		else if testNum == ""
			#Move Forward
			return -1
		иначе, если testnum == " "
			#Move Back
			return -2
		иначе, если testnum == "меню" или testnum == "Выход"
			#return to menu
			return -3
		end

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

		    if isNum == true
		        	break
		    end

    
    end

    number num = testNum
    num--

    return num

end

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

Настраивать()

Код рабочей станции

#Помощник - 
был полицейской()
    var con = подключить("PoliceOfficeInterior_TripodComputer_tripodComputer_1")
    return con
end

#Helper - 
void название(Название строки, номер Макс)
    Распечатать(Макс + ": " + заголовок)
       бар(2) 
end

void bar(номер T.)
    Если t == 2
        Распечатать("--------------------")
    иначе, если t == 1
        Распечатать("===================")
    end
end


#Helper - Show and Select from an array 
var Select(массиврр)
    
    number track
    number select
    number incr


    loop
        track = 0
        Выберите = 0
        Ingr = 0
        
        петля x от 0 Считать(обр) - 1
            track++
            incr++
            Print(увеличение + ":" + обр[х])

            Если трек == 5
                трек = 0
                выберите = sel()
                CLEARTEXT()
                
                Если выберите > -1
                    возврат[выбирать]
                иначе, если выберите == -2
                    break
                end
                
            end
            
        end
        
    end

end


#Helper to select() - Определить, число и возврат 
# Старая функция SELECT.. need to revise or replace
number sel()

	bool isNum
	string testNum

	loop
		isNum = true
		bar(1)
		testnum = input(":>")

		#Если testnum == "0"
		#	isNum = false
		if testNum == ""
			#Move Forward
			return -1
		иначе, если testnum == " "
			#Move Back
			return -2
		иначе, если testnum == "меню" или testnum == "Выход"
			#return to menu
			return -3
		end

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

		    if isNum == true
		        	break
		    end

    
    end

    number num = testNum
    num--

    return num

end

# Старая функция SelectItem.. need to revise or replace
string SelectItem()
    был Con = полис.()
    Типы массивов = con.getTypes()
    Строка Тип = SELECT(типы)
    Массивные элементы = con.getItems(тип)
    String it = select(предметы)
    return it
end

#
пустое положение()
    string name = selectItem()
    строка цели = "PoliceOfficeInterior_Diskette_Diskette6_1" 
    SETPOSION(имя,цель)
конец

#
String getPname(имя строки)
    bool grab = false
    string Pname = GetPosition(имя)
    строка get = ""
    loop Pname
        if @ == " "
            grab = true
        else if @ == ","
            break
        else if grab == true
            get += @
        end
    end
    return get
end

#
Строка getPcoor(имя строки)
    bool grab = false
    string Pname = GetPosition(имя)
    string get
    
    loop Pname
        if @ == "("
            grab = true
        else if @ == ")"
            break
        else if grab == true
            get += @
        end
    end 
    return get
end

string NewSelection(Массив, Myarr,строка TITL)
    Количество числа = count(Myarr)
    номер Cnt = 1
    number res
    
    loop
        ClearText()
        заголовок(заклинание,считать)
        если (не + 4) < Считайте петлю X от CNT до (не +4) Распечатать(х + ". " + Myarr[х - 1]) Конец Cnt += 5 else Loop X от CNT, чтобы считать печати(х + ". " + Myarr[х - 1]) Конец Cnt = 1 end res = sel() Если рез > -1
            вернуть Myarr[резерв]
        end
   end 
   
          
end


##############################################
#                На полке
#---------------------------------------------
#массив GetItems(тип строки)
#массив GetTypes()
#Bool Save(тип строки,имя строки)    
#
#GetMemories
#HasMemory()
#ClearMemories
#EraseMemory(
#Savememory(
#Loadememory(
##############################################
#                  Рабочая станция
#---------------------------------------------
#Строка getPcoor(имя строки)
#String getPname(имя строки)
#пустое положение() #Sets position of targets item    
#string SelectItem() #runs item selection process
#void title(Название строки, номер Макс)
#
#Getpeople()
#GetThingsoftype()
#GetPosition()
#Получение()
#Раскопки()
#Getthingsinroom()
#Номер кремы()
#GetTypeOfthing()
#Взаимодействовать()
#Iskeypressed()
#SETPOSION()
##############################################
#                      Бежать ниже
############################################## 

был Con = полис.()
Type Type = Newselection(con.gettypes(),'Типы')
String Item = Newselection(con.getItems(тип),Тип+'s')