API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 31st, 2015
273
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 8.79 KB | None | 0 0
raw download clone embed print report
  1. ################################
  2. #               #
  3. #               #
  4. #      PerfectioN       #
  5. #               #
  6. #               #
  7. #################################
  8.  
  9. quest consegna_item begin
  10.     state start begin
  11.         when 20095.chat."Consegna Item" with pc.is_gm() begin
  12.                 say_title("Strumento GM")
  13.                 say_reward("Inserisci il nome utente:")
  14.                 local name = input()
  15.                 local result, query_result = execute_query("player","SELECT account_id FROM player WHERE name='"..name.."' LIMIT 1")
  16.             if result != 0 then
  17.                 say_title("Strumento GM")
  18.                 say_reward("Si e' verificato un errore.")
  19.                 say_reward("Descrizione errore:")
  20.                 say_reward(query_result)
  21.                 return
  22.             end
  23.                 local AccID = tonumber(query_result[1][1])
  24.             if AccID == nil then
  25.                 say_title("Strumento GM")
  26.                 say_reward("Il giocatore inserito non esiste.[ENTER]")
  27.                 return
  28.             end
  29.                 say_title("Strumento GM")
  30.                 say_reward("inserisci value item")
  31.                 local item = tonumber (input())
  32.             if item < 10 then
  33.                 say_title("Strumento GM")
  34.                 say_reward("Hai inserito un valore non valido.")
  35.                 return
  36.             end
  37.                 local item_proto, item_result = execute_query("player","SELECT vnum FROM item_proto WHERE vnum='"..item.."' LIMIT 1")
  38.             if item_proto != 0 then
  39.                 say_title("Strumento GM")
  40.                 say_reward("Si e' verificato un errore.")
  41.                 say_reward("Descrizione errore:")
  42.                 say_reward(item_result)
  43.                 return
  44.             end
  45.                 local item_vnum = tonumber(item_result[1][1])
  46.             if item_vnum == nil then
  47.                 say_title("Strumento GM")
  48.                 say_reward("L'item selezionato non esiste.")
  49.                 return
  50.             end
  51.                 say_title("Strumento GM")
  52.                 say_reward("Inserisci quantit\224:")
  53.                 local qnt = tonumber (input())
  54.             if qnt < 1 or qnt > 200 then
  55.                 say_title("Strumento GM")
  56.                 say_reward("Hai inserito un valore non valido")
  57.                 return
  58.             end
  59.                 local window, window_result = execute_query("player", "SELECT window FROM item WHERE owner_id ='"..AccID.."' and window ='MALL' LIMIT 1");
  60.             if window ~= 0 then
  61.                 say_title("Strumento GM")
  62.                 say_reward("Si e' verificato un errore.")
  63.                 say_reward("Descrizione errore:")
  64.                 say_reward(window_result)
  65.                 return
  66.             end
  67.                 local type, type_result = execute_query("player", "SELECT type FROM item_proto WHERE vnum='"..item.."' LIMIT 1")
  68.             if type != 0 then
  69.                 say_title("Strumento GM")
  70.                 say_reward("Si e' verificato un errore.")
  71.                 say_reward("Descrizione errore:")
  72.                 say_reward(type_result)
  73.                 return
  74.             end
  75.                 local item_type = tonumber ( type_result [1][1] )
  76.                 local subtype, subtype_result = execute_query("player", "SELECT subtype FROM item_proto WHERE vnum='"..item.."' LIMIT 1")
  77.             if subtype != 0 then
  78.                 say_title("Strumento GM")
  79.                 say_reward("Si e' verificato un errore.")
  80.                 say_reward("Descrizione errore:")
  81.                 say_reward(subtype_result)
  82.                 return
  83.             end
  84.                 local item_subtype = tonumber ( subtype_result [1][1] )
  85.                 local level, level_result = execute_query("player", "SELECT limitvalue0 FROM item_proto WHERE vnum='"..item.."' LIMIT 1")
  86.             if level != 0 then
  87.                 say_title("Strumento GM")
  88.                 say_reward("Si e' verificato un errore.")
  89.                 say_reward("Descrizione errore:")
  90.                 say_reward(level_result)
  91.                 return
  92.             end
  93.                 local item_level = tonumber ( level_result [1][1] )
  94.                 local mall = tostring ( window_result [1][1] )
  95.             if mall ~= 'MALL' and item_type == 1 and item_level <= 25  then
  96.                 local ret_value_mall , ret_array_mall = execute_query("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1')");
  97.                     say_title("Strumento GM")
  98.                     say_reward("item consegnato")
  99.                 elseif mall ~= 'MALL' and item_type == 1 and item_level >= 25 and item_level <= 44  then
  100.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1', '1')");
  101.                     say_title("Strumento GM")
  102.                     say_reward("item consegnato")
  103.                 elseif mall ~= 'MALL' and item_type == 1 and item_level >= 44 then
  104.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1, socket2) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1', '1', '1')");
  105.                     say_title("Strumento GM")
  106.                     say_reward("item consegnato")
  107.                 elseif mall ~= 'MALL' and item_type == 2 and item_subtype == 0 and item_level <= 18 then
  108.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1')");
  109.                     say_title("Strumento GM")
  110.                     say_reward("item consegnato")
  111.                 elseif mall ~= 'MALL' and item_type == 2 and item_subtype == 0 and item_level >= 19 and item_level <= 42 then
  112.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1', '1')");
  113.                     say_title("Strumento GM")
  114.                     say_reward("item consegnato")
  115.                 elseif mall ~= 'MALL' and item_type == 2 and item_subtype == 0 and item_level >= 43 and item_level <= 150 then
  116.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1, socket2) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..", '1', '1', '1')");
  117.                     say_title("Strumento GM")
  118.                     say_reward("item consegnato")
  119.                 elseif mall ~= 'MALL' then
  120.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum) VALUES ('"..AccID.."', 'MALL', '0', "..qnt..", "..item..")");
  121.                     say_title("Strumento GM")
  122.                     say_reward("item consegnato")
  123.                 return
  124.                 elseif mall == 'MALL' then
  125.                 local pos, pos_result = execute_query("player", "SELECT pos FROM item WHERE owner_id = '"..AccID.."' and window = 'MALL' order by pos desc LIMIT 44");
  126.             if pos ~= 0 then
  127.                 say_title("Strumento GM")
  128.                 say_reward("Si e' verificato un errore.")
  129.                 say_reward("Descrizione errore:")
  130.                 say_reward(pos_result)
  131.                 return
  132.             end
  133.                 local item_pos = tonumber ( pos_result [1] [1] +1 )
  134.             if mall == 'MALL' and item_type == 1 and item_level <= 25  then
  135.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1')");
  136.                     say_title("Strumento GM")
  137.                     say_reward ( "item consegnato" )
  138.                 elseif mall == 'MALL' and item_type == 1 and item_level >= 25 and item_level <= 44  then
  139.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1', '1')");
  140.                     say_title("Strumento GM")
  141.                     say_reward ( "item consegnato" )
  142.                 elseif mall == 'MALL' and item_type == 1 and item_level >= 44 then
  143.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1, socket2) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1', '1', '1')");
  144.                     say_title("Strumento GM")
  145.                     say_reward ( "item consegnato" )
  146.                 elseif mall == 'MALL' and item_type == 2 and item_subtype == 0 and item_level <= 18 then
  147.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1')");
  148.                     say_title("Strumento GM")
  149.                     say_reward ( "item consegnato" )
  150.                 elseif mall == 'MALL' and item_type == 2 and item_subtype == 0 and item_level >= 19 and item_level <= 42 then
  151.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1', '1')");
  152.                     say_title("Strumento GM")
  153.                     say_reward ( "item consegnato" )
  154.                 elseif mall == 'MALL' and item_type == 2 and item_subtype == 0 and item_level >= 43 and item_level <= 150 then
  155.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum, socket0, socket1, socket2) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..", '1', '1', '1')");
  156.                     say_title("Strumento GM")
  157.                     say_reward ( "item consegnato" )
  158.                 elseif mall == 'MALL' then
  159.                 local ret_value_mall , ret_array_mall = execute_query ("player", "INSERT INTO item (owner_id,window, pos, count, vnum) VALUES ('"..AccID.."', 'MALL', '"..item_pos.."', "..qnt..", "..item..")");
  160.                     say_title("Strumento GM")
  161.                     say_reward ( "item consegnato" )
  162.                     return
  163.                 end
  164.             end
  165.         end
  166.     end
  167. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!