appendhc

<!-- multistep form -->
<form id="msform">
  <!-- progressbar -->
  <ul id="progressbar">
    <li class="active">Account Setup</li>
    <li>Social Profiles</li>
    <li>Personal Details</li>
  </ul>
  <!-- fieldsets -->
  <fieldset>

appendhc

run = (msg,matches) ->
	input = ""
	if matches[2]
		input = matches[2]
	
	if not matches[2]
		if msg.reply_to_message
			input = msg.reply_to_message.text
		else
			input = ""

appendhc

do
local function run(msg, matches)
if not matches[3] then
t = http.request("http://lsdbot.noip.me/tr/?key=free-api&from=auto&to=en&text="..URL.escape(matches[2]))
return t
else 
t = http.request("http://lsdbot.noip.me/tr/?key=free-api&from=auto&to="..matches[2].."&text="..URL.escape(matches[3]))
return t
end
end

appendhc

--[[
create ascii text
first install figlet [apt-get install figlet]
]]--
do
function run(msg, matches)
	return io.popen("figlet " .. matches[1]):read('*all')
end
return {
  patterns = {

appendhc

#!/usr/bin/env bash

THIS_DIR=$(cd $(dirname $0); pwd)
cd $THIS_DIR

update() {
  git pull
  git submodule update --init --recursive
  install_rocks
}

appendhc

function banall_list() 
    local hash =  'gbanned'
    local list = redis:smembers(hash)
    local text = "global bans !\n\n"
    for k,user in pairs(list) do
        local user_info = redis:hgetall('user:'..user)
		if user_info and user_info.print_name then
		local print_name = string.gsub(user_info.print_name, "_", " ")
   	    text = text..k.." - "..print_name.." ["..user.."]\n"
  	    else 

appendhc

function banall_list() 
    local hash =  'gbanned'
    local list = redis:smembers(hash)
    local text = "global bans !\n\n"
    for k,user in pairs(list) do
        local user_info = redis:hgetall('user:'..user)
		if user_info and user_info.print_name then
		local print_name = string.gsub(user_info.print_name, "_", " ")
   	    text = text..k.." - "..print_name.." ["..user.."]\n"
  	    else 

appendhc

do
    ---///Lsdb0t///---
function run(msg, matches)
---///Lsdb0t///---
  local count = matches[1]
  local text = matches[2]
  local cp = '@lsd_b0t'
  for i=1, count, 1 do 
      sp = '\n'..text..'\n'..cp
  end 

appendhc

do
---//////lsd bot (append-hc.com)
  local function reload_plugins()
    plugins = {}
    load_plugins()
    return 'configed'
  end
function run(msg, matches)

if matches[1] == 'reload' then

appendhc

do
---//////lsd bot (append-hc.com)
function run(msg, matches)
       if not is_momod(msg) then
        return "For moderators only!"
       end
	  local data = load_data(_config.moderation.data)
      local group_link = data[tostring(msg.to.id)]['settings']['set_link']
       if not group_link then 
        return "Create a link using /newlink first !"