Deze handleiding helpt u bij het maken van een geïmproviseerde basisdatabase. U kunt verschillende items opnemen, zoals kamers. U kunt ook aangepaste typen toevoegen voor zaken als bankrekeningen en taken.
Toepassing van de code
Om de zaken te versnellen, past u de computersnelheid aan en zorgt u ervoor dat de databasecomputer eindeloos kan draaien. Gebruik een schroevendraaier met de schroevendraaiercode om zowel de databasecomputer (bij voorkeur die met de geheugen-API) als de werkstationcomputer in het politiebureau aan te passen, met name de geel afgeschermde computer met de GetAllRooms-functie. De hoekcomputer met het rode scherm beschikt ook over de geheugen-API, waardoor het een handige keuze is.
Nadat u beide computers heeft aangepast, hackt u de databasecomputer, die met de geheugen-API, of bewaart/laadt u geheugenfuncties. Neem de databasecode uit deze handleiding en pas deze toe op de computer. Compileer de code en sluit de interface. Je ziet de code op het scherm draaien.
Hack nu het geel afgeschermde werkstation en pas de werkstationcode erop toe.
Momenteel is er een basisdemonstratie. Er wordt nog steeds gewerkt aan het creëren van een menu met opties voor het slurpen, verplaatsen en parseren van coördinaten. Als u zonder invoer op Enter drukt, bladert u door de lijsten.
Schroevendraaiercode
SetMhz(500) SetMaxTijd(-2)
Databasecode
############################################## # 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()
Werkstationcode
#Helper - var PoliceMem() var con = Connect("PoliceOfficeInterior_TriPodComputer_TriPodComputer_1") return con end #Helper - void title(string titel, nummer max) Print(max + ": " + titel) bar(2) end void bar(nummer t) als t == 2 Print("--------------------") anders als t == 1 Print("========= ===========") end end #Helper - Toon en selecteer uit een array var Select(array arr) nummer tracknummer selecteer nummer incr loop track = 0 select = 0 incr = 0 loop x from 0 to Count(arr) - 1 track++ incr++ Print(incr + tray + 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 om te selecteren() - Bepaal of getal en return # Oude selectiefunctie.. moet getal sel() herzien of vervangen bool isNum string testNum lus isNum = true bar(1) testNum = Input(":>") #if testNum == "0" # isNum = false if testNum == "" #Move Vooruit return -1 else if testNum == " " #Move Back return -2 else if testNum == "menu" of testNum == "exit" #return to menu return -3 end loop testNum if CharToInt(@) < -49 of CharToInt(@) > -40 isNum = false break end end if isNum == waar break end end nummer num = testNum num-- return num end # Oude selectitem-functie.. string SelectItem() var con = PoliceMem() array types = con.GetTypes() string type = Select(types) array items = con.GetItems(type) string it = Select(items) return it end # void Position() string naam = SelectItem() string target = "PoliceOfficeInterior_Diskette_Diskette6_1" SetPosition(naam,doel) end # string GetPName(string naam) bool grab = false string Pname = GetPosition(naam) string get = "" loop Pname if @ == " " grab = true else if @ == "," break else if grab == true get += @ end end return get end # string GetPCoor(stringnaam) bool grab = false string Pname = GetPosition(naam) 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) aantal aantal = Aantal (myarr) getal cnt = 1 getal res lus ClearText() title(titl,count) if (cnt + 4) < tel lus x van cnt tot (cnt +4) Print(x + ". " + myarr[x - 1]) end cnt += 5 else lus x van cnt om te tellen Print(x + ".
Dat is alles wat we hiervoor vandaag delen Anders Heart.Break() gids. Deze handleiding is oorspronkelijk gemaakt en geschreven door KnustSinn. Als we deze handleiding niet kunnen bijwerken, kunt u de laatste update vinden door deze te volgen link.