NH
lnl=InlineKeyboardMarkup(list(
list(InlineKeyboardButton(paste(emoji("azerbaijan"),"Azərbaycan"),callback_data = "az")),
list(InlineKeyboardButton(paste(emoji("ru"),"Русский"),callback_data = "ru")),
list(InlineKeyboardButton(paste(emoji("gb"),"English"),callback_data = "en"))
))
start=function(bot,update) {
bot$send_message(chat_id = update$message$chat_id,text = paste(
"Salam ",update$message$from$first_name," ",
update$message$from$last_name,",\n",
"Sizin üçün çox uğurlu bir gün oldu!\n",
"Çünki bu gün mənimlə tanış olacaqsınız.\n",
"Gəlin dil seçimi ilə başlayaq:",sep=""
),reply_markup = lnl)
}
cbhandle=function(bot,update) {
data=update$callback_query$data
if (data=="en") {
bot$sendMessage(update$message$chat_id,"Thank you. Language settings are set to English.")
}
}
updater <- Updater(token = bot_token("stemp_bot"))+CommandHandler("start",start)
+CallbackQueryHandler(cbhandle)