Esta guía le ayudará a crear una base de datos improvisada básica. Puedes incluir varios elementos como habitaciones. También puedes agregar tipos personalizados para cosas como cuentas bancarias y tareas.
Aplicación del código
Para acelerar las cosas, ajuste la velocidad de la computadora y asegúrese de que la computadora de la base de datos pueda funcionar sin cesar. Utilice un destornillador con el Código de Destornillador para ajustar tanto la computadora de la base de datos (preferiblemente la que tiene la API de memoria) como la computadora de la estación de trabajo en la Estación de Policía, específicamente la de pantalla amarilla con la función GetAllRooms. La computadora de la esquina con la pantalla roja también tiene memoria API, lo que la convierte en una opción conveniente.
Después de ajustar ambas computadoras, piratee la computadora de la base de datos, la que tiene la API de memoria o las funciones de guardar/cargar memoria. Tome el código de base de datos de esta guía y aplíquelo a la computadora. Compile el código y cierre la interfaz. Observarás el código ejecutándose en la pantalla.
Ahora, piratee la estación de trabajo con pantalla amarilla y aplíquele el código de la estación de trabajo.
Actualmente, hay una demostración básica. Aún se está trabajando para crear un menú con opciones para sorber, reubicar y analizar coordenadas. Al presionar Enter sin realizar ninguna entrada, se desplazará por las listas.
Código de destornillador
Establecer Mhz(500) EstablecerTiempoMáx(-2)
Código de base de datos
############################################## # Main Custom Functions #--------------------------------------------- #array GetItems(string type) #array GetTypes() #bool Save(string type,string name) ############################################## #Helper - For initial database setup Auto'd by Save() void createTypes() bool test = HasMemory('Types') if !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') if !testDB ClearText() Print("Database has not been built") Print("Running now...") Sleep(4) BuildDatabase() end end #Saves items to database bool Save(string type,string name) bool test = HasMemory(type) number qty number typesQty bool testTypes = HasMemory('Types') if inputBlank(type) return false end if inputBlank(name) return false end if testTypes else createTypes() end if test qty = LoadMemory(type) qty++ SaveMemory(type,qty) else typesQty = LoadMemory('Types') typesQty++ SaveMemory('Types' + typesQty,type) SaveMemory('Types',typesQty) qty = 1 SaveMemory(type,qty) end SaveMemory(type + qty,name) Print(type + 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') Print(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(build,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(type) return end bool available = HasMemory(type) if !available return end bool test loop tem = type + cnt test = HasMemory(tem) if test Append(build,LoadMemory(tem)) cnt++ else return build end end end #Helper - var PoliceAdmin() string computer = "PoliceOfficeInterior_MinistryOfficeWorkstationComputer_1" var con = Connect(computer) 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 = "room" saved = Save(type,room) items = con.GetThingsInRoom(room) loop item in items type = con.GetTypeOfThing(item) saved = Save(type,item) end end ClearText() SaveMemory('Database',1) Print("Database Information Imported") end #Helper - void bar() Print("--------------------") 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[select] 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 == "menu" or testNum == "exit" #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 ############################################## Setup()
Código de estación de trabajo
#Helper - var PoliceMem() var con = Connect("PoliceOfficeInterior_TriPodComputer_TriPodComputer_1") return con end #Helper - título vacío(título de cadena, número máximo) Print(max + ": " + título) barra(2) final barra vacía(número t) si t == 2 Imprimir("--------------------") si no, si t == 1 Imprimir("========= ===========") end end #Helper - Mostrar y seleccionar de una matriz var Seleccionar(array arr) número de pista número seleccionar número incr bucle pista = 0 seleccionar = 0 incr = 0 bucle x desde 0 to Count(arr) - 1 pista++ incr++ Print(incr + ":" + arr[x]) if track == 5 track = 0 select = sel() ClearText() if select > -1 return arr[select] else if select == -2 break end end end end end #Ayudante para seleccionar() - Determina si es un número y regresa # Función de selección anterior. necesita revisar o reemplazar el número sel() bool isNum string testNum loop isNum = true bar(1) testNum = Input(":>") #if testNum == "0" # isNum = false if testNum == "" #Move Adelante regresar -1 si no testNum == " " #Move Back regresar -2 si no testNum == "menú" o testNum == "salir" #volver al menú regresar -3 finalizar el ciclo testNum si CharToInt(@) < -49 o CharToInt(@) > -40 isNum = false break end end if isNum == true break end end number num = testNum num-- return num end # Función de selección anterior. necesita revisar o reemplazar la cadena SelectItem() var con = PoliceMem() tipos de matriz = con.GetTypes() tipo de cadena = Seleccionar(tipos) elementos de la matriz = con.GetItems(tipo) cadena it = Seleccionar(elementos) devolverlo final # void Position() nombre de cadena = SelectItem() string target = "PoliceOfficeInterior_Diskette_Diskette6_1" SetPosition(nombre,objetivo) end # cadena GetPName(nombre de cadena) bool grab = false cadena Pname = GetPosition(nombre) cadena get = "" loop Pname if @ == " " agarrar = verdadero si no @ == "," romper si no agarrar == verdadero obtener += @ fin fin regresar obtener fin # cadena GetPCoor(nombre de cadena) bool agarrar = cadena falsa Pname = GetPosition(nombre) cadena 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) número de recuento = Count (myarr) número cnt = 1 número res loop ClearText() título(titl,count) if (cnt + 4) < count loop x from cnt to (cnt +4) Print(x + ". " + myarr[x - 1]) end cnt += 5 else bucle x desde cnt para contar Print(x + ".
Eso es todo lo que estamos compartiendo hoy para este Else Heart.Break () guía. Esta guía fue originalmente creada y escrita por KnustSinn. En caso de que no actualicemos esta guía, puede encontrar la última actualización siguiendo este liga.