0 0.0000 -85.0000 0.0000 false 0.0000 250.0000 1.0000 1.0000 1.0000 1.0000 -2000.0000 false Environment 0 60.0000 false 5.0000 0.0000 150.0000 false true 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 8.0000 0.0000 0.0000 0.0000 0.0000 0.0000 8.0000 0.0000 0.0000 0.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 Camera 0.3273 0.8325 0.3552 1.0000 true true false false 0 6 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 true 0.0000 0.6000 0 0 true 0.0000 -5.0000 0.0000 0.0000 0.0000 0.0000 0.0000 -5.0000 0.0000 0.0000 0.0000 0.0000 512.0000 10.0000 512.0000 512.0000 10.0000 512.0000 Part 0.3273 0.8325 0.3552 1.0000 true true false false 0 6 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 true 0.0000 0.6000 0 0 true 0.0000 -55.0000 0.0000 0.0000 0.0000 0.0000 0.0000 -5.0000 0.0000 0.0000 0.0000 0.0000 262144.0000 100.0000 262144.0000 512.0000 10.0000 512.0000 Part 0.6392 0.6353 0.6471 1.0000 true true true false 0 2 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 true 0.0000 0.6000 0 0 true 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 5.0000 1.0000 5.0000 5.0000 1.0000 5.0000 Brick 0.2100 0.2300 0.2600 1.0000 0 Lighting 1.0000 1.0000 0.9569 0.8392 1.0000 true 0.0000 15.0000 0.0000 50.0000 330.0000 0.0000 0.0000 15.0000 0.0000 50.0000 330.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 1.0000 SunLight false Players ScriptService Hidden ServerHidden 100.0000 16.0000 25.0000 true 0.0000 3.0000 1.2000 36.0000 5.0000 1.0000 1.0000 1.0000 1.0000 PlayerDefaults Backpack true 1.0000 PlayerGUI true GUI Sapbot VM fibonacci technodemo 0.0000 0.0000 0.0000 1.0000 1 1 16.0000 16.0000 false 2 0.0000 0.0000 0.0000 0.0000 0.2000 0.0000 0.0000 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 2.0000 0.0000 0.0000 0.0000 0.5000 0.5000 0.0000 100.0000 100.0000 0.7000 0.7000 0.5000 0.5000 true false UILabel local code = { [10] = "LOAD;V0;V0", [20] = "LOAD;V1;V1", [30] = "LOAD;V2;V0", [40] = "ADD;M2;V1;V2", [50] = "DEBUG;M1", [60] = "ADD;M0;M1;V3", [70] = "LOAD;V0;M1", [80] = "LOAD;V1;M3", [90] = "ALB;M2;V20;V40" } local function bitwiseAND(a, b) return a * b end local function bitwiseOR(a, b) return a + b - (a * b) end local pc = 10 local mem = {} setmetatable(mem, { __index = function(t, k) return 0 end }) local function parseExpr(val) if val:sub(1, 1) == "V" then return tonumber(val:sub(2)) elseif val:sub(1, 1) == "T" then return val:sub(2) elseif val:sub(1, 1) == "M" then return mem[tonumber(val:sub(2))] or 0 elseif val:sub(1, 1) == "F" then return tonumber(val:sub(2)) end end while pc < 65000 do local line = code[pc] or "NOP" local parts = {} for part in line:gmatch("[^;]+") do table.insert(parts, part) end pc = pc + 10 local curtext, cmd if #parts == 0 then goto continue end cmd = parts[1] curtext = script.Parent.Text .. "\n" if cmd == "LOAD" then if #parts ~= 3 then script.Parent.Text = curtext .. "Invalid number of operands." else mem[parseExpr(parts[2])] = parseExpr(parts[3]) end elseif cmd == "NOP" then -- Do nothing elseif cmd == "GOTO" then if #parts ~= 2 then script.Parent.Text = curtext .. "WHERE TO JUMP???" else pc = parseExpr(parts[2]) end elseif cmd == "DEBUG" then if #parts ~= 2 then script.Parent.Text = curtext .. "What to print, bro?" else script.Parent.Text = curtext .. parseExpr(parts[2]) end elseif cmd == "NOT" then if #parts ~= 3 then script.Parent.Text = curtext .. "Duh." else mem[parseExpr(parts[3])] = tonumber(not parseExpr(parts[2])) end elseif cmd == "ADD" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: ADD;A;B;TO" else mem[parseExpr(parts[4])] = parseExpr(parts[2]) + parseExpr(parts[3]) end elseif cmd == "SUB" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: SUB;A;B;TO" else mem[parseExpr(parts[4])] = parseExpr(parts[2]) - parseExpr(parts[3]) end elseif cmd == "DIV" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: DIV;A;B;TO" else mem[parseExpr(parts[4])] = parseExpr(parts[2]) / parseExpr(parts[3]) end elseif cmd == "MUL" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: MUL;A;B;TO" else mem[parseExpr(parts[4])] = parseExpr(parts[2]) * parseExpr(parts[3]) end elseif cmd == "MOD" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: MOD;A;B;TO" else mem[parseExpr(parts[4])] = parseExpr(parts[2]) % parseExpr(parts[3]) end elseif cmd == "ALB" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: ALB;A;B;TO" else if parseExpr(parts[2]) < parseExpr(parts[3]) then pc = parseExpr(parts[4]) end end elseif cmd == "AQB" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: AQB;A;B;TO" else if parseExpr(parts[2]) == parseExpr(parts[3]) then pc = parseExpr(parts[4]) end end elseif cmd == "ABB" then if #parts ~= 4 then script.Parent.Text = curtext .. "Format: ABB;A;B;TO" else if parseExpr(parts[2]) > parseExpr(parts[3]) then pc = parseExpr(parts[4]) end end elseif cmd == "AND" then if #parts ~= 4 then script.Parent.Text = curtext .. "Duh." else mem[parseExpr(parts[4])] = bitwiseAND(parseExpr(parts[2]), parseExpr(parts[3])) end elseif cmd == "OR" then if #parts ~= 4 then script.Parent.Text = curtext .. "Duh." else mem[parseExpr(parts[4])] = bitwiseOR(parseExpr(parts[2]), parseExpr(parts[3])) end elseif cmd == "PARSEINT" then if #parts ~= 3 then script.Parent.Text = curtext .. "Format: PARSEINT;IN;OUT" else local i = parseExpr(parts[2]) if type(i) == "string" then mem[parseExpr(parts[3])] = tonumber(i) else script.Parent.Text = curtext .. "Only strings can be converted." end end else script.Parent.Text = curtext .. "Unknown opcode " .. cmd end ::continue:: end LocalScript