diff --git a/test.lua b/test.lua
new file mode 100644
index 0000000..90a3de5
--- /dev/null
+++ b/test.lua
@@ -0,0 +1,95 @@
+started = 0
+our_id = 0
+
+function vardump(value, depth, key)
+  local linePrefix = ""
+  local spaces = ""
+  
+  if key ~= nil then
+    linePrefix = "["..key.."] = "
+  end
+  
+  if depth == nil then
+    depth = 0
+  else
+    depth = depth + 1
+    for i=1, depth do spaces = spaces .. "  " end
+  end
+  
+  if type(value) == 'table' then
+    mTable = getmetatable(value)
+    if mTable == nil then
+      print(spaces ..linePrefix.."(table) ")
+    else
+      print(spaces .."(metatable) ")
+        value = mTable
+    end		
+    for tableKey, tableValue in pairs(value) do
+      vardump(tableValue, depth, tableKey)
+    end
+  elseif type(value)	== 'function' or 
+      type(value)	== 'thread' or 
+      type(value)	== 'userdata' or
+      value		== nil
+  then
+    print(spaces..tostring(value))
+  else
+    print(spaces..linePrefix.."("..type(value)..") "..tostring(value))
+  end
+end
+
+print ("HI, this is lua script")
+
+
+
+function on_msg_receive (msg)
+  if started == 0 then
+    return
+  end
+  if msg.out then
+    return
+  end
+  if (msg.text == 'ping') then
+    if (msg.to.id == our_id) then
+      print ('sending pong to ' .. tostring (msg.from.print_name))
+      send_msg (msg.from.print_name, 'pong')
+    else
+      print ('sending pong to ' .. tostring (msg.to.print_name))
+      send_msg (msg.to.print_name, 'pong')
+    end
+    return
+  end
+  if (msg.text == 'PING') then
+    if (msg.to.id == our_id) then
+      fwd_msg (msg.from.print_name, msg.id)
+    else
+      fwd_msg (msg.to.print_name, msg.id)
+    end
+    return
+  end
+  --vardump (msg)
+  --print ( "Message # " .. msg.id .. " (flags " .. msg.flags .. ")")
+end
+
+function on_our_id (id)
+  our_id = id
+end
+
+function on_secret_chat_created (peer)
+  --vardump (peer)
+end
+
+function on_user_update (user)
+  --vardump (user)
+end
+
+function on_chat_update (user)
+  --vardump (user)
+end
+
+function on_get_difference_end ()
+end
+
+function on_binlog_replay_end ()
+  started = 1
+end