Updated test lua script
This commit is contained in:
parent
8625cb2247
commit
dc38df0694
4
main.c
4
main.c
@ -418,7 +418,7 @@ void args_parse (int argc, char **argv) {
|
|||||||
"B"
|
"B"
|
||||||
#endif
|
#endif
|
||||||
#ifdef USE_LUA
|
#ifdef USE_LUA
|
||||||
"s"
|
"s:"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
)) != -1) {
|
)) != -1) {
|
||||||
@ -475,7 +475,7 @@ void args_parse (int argc, char **argv) {
|
|||||||
break;
|
break;
|
||||||
#ifdef USE_LUA
|
#ifdef USE_LUA
|
||||||
case 's':
|
case 's':
|
||||||
lua_file = tstrdup (optarg);
|
lua_file = strdup (optarg);
|
||||||
break;
|
break;
|
||||||
#endif
|
#endif
|
||||||
case 'W':
|
case 'W':
|
||||||
|
28
test.lua
28
test.lua
@ -40,7 +40,17 @@ end
|
|||||||
|
|
||||||
print ("HI, this is lua script")
|
print ("HI, this is lua script")
|
||||||
|
|
||||||
|
function ok_cb(extra, success, result)
|
||||||
|
if success then
|
||||||
|
print ("SUCCESS!\n")
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
function my_set_chat_photo (extra, success, file)
|
||||||
|
if success then
|
||||||
|
chat_set_photo (extra, file, ok_cb, false)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
function on_msg_receive (msg)
|
function on_msg_receive (msg)
|
||||||
if started == 0 then
|
if started == 0 then
|
||||||
@ -49,6 +59,10 @@ function on_msg_receive (msg)
|
|||||||
if msg.out then
|
if msg.out then
|
||||||
return
|
return
|
||||||
end
|
end
|
||||||
|
|
||||||
|
if msg.media == 'photo' and msg.to.type == 'chat' then
|
||||||
|
load_photo (msg.id, my_set_chat_photo, msg.to.print_name)
|
||||||
|
end
|
||||||
if (msg.text == 'ping') then
|
if (msg.text == 'ping') then
|
||||||
if (msg.to.id == our_id) then
|
if (msg.to.id == our_id) then
|
||||||
print ('sending pong to ' .. tostring (msg.from.print_name))
|
print ('sending pong to ' .. tostring (msg.from.print_name))
|
||||||
@ -75,16 +89,16 @@ function on_our_id (id)
|
|||||||
our_id = id
|
our_id = id
|
||||||
end
|
end
|
||||||
|
|
||||||
function on_secret_chat_created (peer)
|
function on_user_update (user, what)
|
||||||
--vardump (peer)
|
|
||||||
end
|
|
||||||
|
|
||||||
function on_user_update (user)
|
|
||||||
--vardump (user)
|
--vardump (user)
|
||||||
end
|
end
|
||||||
|
|
||||||
function on_chat_update (user)
|
function on_chat_update (chat, what)
|
||||||
--vardump (user)
|
--vardump (chat)
|
||||||
|
end
|
||||||
|
|
||||||
|
function on_secret_chat_update (schat, what)
|
||||||
|
--vardump (schat)
|
||||||
end
|
end
|
||||||
|
|
||||||
function on_get_difference_end ()
|
function on_get_difference_end ()
|
||||||
|
Loading…
x
Reference in New Issue
Block a user