//Space & Time Gate Dialer //By LeeSpork, 2024-3-29 //version 3.1 log_file_name = "Gate History.log" main = function() // Detect if the user wants to recall the time gate instead of dialing if getyear() < 9000 then print "Assuming you want to recall your time gate." breakline recalltimegate else //Connect to the gate and remember the time connectgate connect_time = time print "Enter 'random' for random space gate, " print "'somewhen' for random time gate, " //breakline print "or enter a gate address:" dial(connect_time) end if end function dial = function(connect_time) addr = readline if addr == "random" then // Generate random space gate address addr = "" for i in range(1, 5) addr = addr + char(rnd * 24 + 97) end for else if addr == "somewhen" then // Generate random time gate address addr = random_time_address else if addr == "repeat" then // Get last previously dialed address from file addr = read_history if addr == "" then print "Try again?" yield // Wait until next No Time tick to clear readline buffer return dial(connect_time) // Recursion end if end if // Wait for enough time to have passed since connecting to the gate wait(connect_time - time + 2) dialgate addr // Don't do much if it is the return address if addr.lower == "xxxxx" then print "Dialing home :)" // Is it a space gate address? else if addr.len == 5 then // Check if valid (TODO) if addr[4] == "y" then print "Invalid address detected. Try again?" return dial(connect_time) // Recursion end if // Log address to history file log addr // wait 28 seconds for the gate to open for i in range(1, 28) print "." wait 1 end for // Show gate readings gatereadings readkey // wait for input clear gatereadings // Is it a time gate address? else if addr.len == 12 then if addr[0] == "-" then year = addr[5:9] + " BC" else year = addr[4:8] + " AD" end if print "Enjoy your visit to " + year + "!" breakline print "Execute this program again to open the return portal." else print "Invalid address detected. Try again?" return dial(connect_time) // Recursion end if end function pad = function(num, length=2) //Convert number to string and add leading 0s. s = str(num) while s.len < length s = "0" + s end while return s end function random_time_address = function() addr = "" //year = round(rnd * (3793 + 2077) - 3793) year = ceil(rnd * 2077) if year < 0 then addr = "-" year = year * -1 end if year = pad(year, 4) // month addr = addr + pad(ceil(rnd * 12)) // day addr = addr + pad(ceil(rnd * 30)) // TODO change day range depending on month // year addr = addr + year // hour addr = addr + pad(floor(rnd * 24)) // minute addr = addr + pad(floor(rnd * 60)) return addr end function read_history = function() // Check file exists if find(log_file_name) == -1 then print "'" + log_file_name + "' not found. " return "" end if // Get last line line = countlines(log_file_name) // Iterate until non-empty line found addr = "" while addr == "" and line > 0 addr = readfile(log_file_name, line) line = line - 1 end while if addr == "" then print "Could not read dialing history. " end if return addr end function log = function(text) // Create file if needed if find(log_file_name) == -1 then create log_file_name writeline(log_file_name, 0, "- Gate Dialer History (old to new) -") end if // Write data to file writeline(log_file_name, countlines(log_file_name)+1, text) end function // Call main function main