API tools faq
paste
Guest User

Untitled

a guest
Jan 27th, 2018
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 12.12 KB | None | 0 0
raw download clone embed print report
  1. quest panel_gm begin
  2.     state start begin
  3.         when 30204.use begin
  4.             say_cegla("  Kryształ Mistrza Gry")
  5.             local s = select("Szybki Bieg", "Zorganizuj Zuo", "Zbanuj Gracza", "Odbanuj Gracza", "Event Zuo", "Wyczyść Inwentarz", "Dodaj przedmiot", "Anuluj", "Dodaj SM", "Anuluj")
  6.             if s == 1 then
  7.                 if pc.is_polymorphed() then
  8.                     pc.remove_polymorph()
  9.                 else
  10.                     pc.polymorph(1402, 60*60*24*365)
  11.                 end
  12.             elseif s == 2 then
  13.                 if pc.get_map_index() == 71 or
  14.                 pc.get_map_index() == 72 or
  15.                 pc.get_map_index() == 73 or
  16.                 pc.get_map_index() == 66 or
  17.                 pc.get_map_index() == 47 or
  18.                 pc.get_map_index() == 46 or
  19.                 pc.get_map_index() == 5 or
  20.                 pc.get_map_index() == 25 or
  21.                 pc.get_map_index() == 45 or
  22.                 pc.get_map_index() == 113 or
  23.                 pc.get_map_index() == 105 or
  24.                 pc.get_map_index() == 111 or
  25.                 pc.get_map_index() == 110 or
  26.                 pc.get_map_index() == 103 or
  27.                 pc.get_map_index() == 12 or
  28.                 pc.get_map_index() == 81 or
  29.                 pc.get_map_index() == 82 or
  30.                 pc.get_map_index() == 84 or
  31.                 pc.get_map_index() == 85 or
  32.                 (pc.get_map_index() >= 660000 and pc.get_map_index() < 670000) or
  33.                 (pc.get_map_index() >= 820000 and pc.get_map_index() < 830000) or
  34.                 (pc.get_map_index() >= 830000 and pc.get_map_index() < 859999) then
  35.                     say_cegla("  Kryształ Mistrza Gry")
  36.                     say("Na tej mapie nie możesz zorganizować Eventu Zuo.")
  37.                     return
  38.                 end
  39.                 say_cegla("  Kryształ Mistrza Gry")
  40.                 say("Wybierz rodzaj wydarzenia.")
  41.                 local s = select("Latwy", "Sredni", "Trudny", "Anuluj")
  42.                 if s == 4 then
  43.                     return
  44.                 elseif s == 1 then
  45.                     say_cegla("  Kryształ Mistrza Gry")
  46.                     say("Wybierz platformę wydarzenia.")
  47.                     local s = select("Tylko Metiny", "Tylko Bossy", "Wszystko", "Anuluj")
  48.                     if s == 4 then
  49.                         return
  50.                     elseif s == 1 then
  51.                         notice_all("Latwy Event Zuo na mapie "..locale.map_name[pc.get_map_index].." właśnie się rozpoczął!")
  52.                         notice_all("Spuszczone zostały tylko Kamienie Metin.")
  53.                         notice_all("Zapraszamy graczy tylko z niskim poziomem.")
  54.                         for i = 1, 40 do
  55.                             command("pm 8001")
  56.                             command("pm 8002")
  57.                             command("pm 8003")
  58.                             command("pm 8004")
  59.                             command("pm 8005")
  60.                             command("pm 8006")
  61.                             command("pm 8007")
  62.                             command("pm 8008")
  63.                             command("pm 8009")
  64.                             command("pm 8010")
  65.                             command("pm 8011")
  66.                             command("pm 8012")
  67.                         end
  68.                     elseif s == 2 then
  69.                         notice_all("Latwy Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  70.                         notice_all("Spuszczone zostały tylko Bossy.")
  71.                         notice_all("Zapraszamy graczy tylko z niskim poziomem.")
  72.                         for i = 1, 40 do
  73.                             command("pm 591")
  74.                             command("pm 691")
  75.                             command("pm 2091")
  76.                             command("pm 2191")
  77.                             command("pm 5161")
  78.                             command("pm 5162")
  79.                             command("pm 5163")
  80.                             command("pm 791")
  81.                         end
  82.                     elseif s == 3 then
  83.                         notice_all("Latwy Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  84.                         notice_all("Zapraszamy graczy tylko z niskim poziomem.")
  85.                         for i = 1, 40 do
  86.                             command("pm 591")
  87.                             command("pm 691")
  88.                             command("pm 2091")
  89.                             command("pm 2191")
  90.                             command("pm 5161")
  91.                             command("pm 5162")
  92.                             command("pm 5163")
  93.                             command("pm 791")
  94.                             command("pm 8001")
  95.                             command("pm 8002")
  96.                             command("pm 8003")
  97.                             command("pm 8004")
  98.                             command("pm 8005")
  99.                             command("pm 8006")
  100.                             command("pm 8007")
  101.                             command("pm 8008")
  102.                             command("pm 8009")
  103.                             command("pm 8010")
  104.                             command("pm 8011")
  105.                             command("pm 8012")
  106.                         end
  107.                     end
  108.                 elseif s == 2 then
  109.                     say_cegla("  Kryształ Mistrza Gry")
  110.                     say("Wybierz platformę wydarzenia.")
  111.                     local s = select("Tylko Metiny", "Tylko Bossy", "Wszystko", "Anuluj")
  112.                     if s == 4 then
  113.                         return
  114.                     elseif s == 1 then
  115.                         notice_all("Sredni Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  116.                         notice_all("Spuszczone zostały tylko Kamienie Metin.")
  117.                         notice_all("Zapraszamy graczy tylko ze średnim poziomem.")
  118.                         for i = 1, 40 do
  119.                             command("pm 8012")
  120.                             command("pm 8013")
  121.                             command("pm 8014")
  122.                             command("pm 8024")
  123.                             command("pm 8025")
  124.                             command("pm 8026")
  125.                         end
  126.                     elseif s == 2 then
  127.                         notice_all("Sredni Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  128.                         notice_all("Spuszczone zostały tylko Bossy.")
  129.                         notice_all("Zapraszamy graczy tylko ze średnim poziomem.")
  130.                         for i = 1, 40 do
  131.                             command("pm 2206")
  132.                             command("pm 1901")
  133.                             command("pm 1304")
  134.                             command("pm 1093")
  135.                             command("pm 1091")
  136.                             command("pm 1092")
  137.                         end
  138.                         for i = 1, 25 do
  139.                             command("pm 1192")
  140.                         end
  141.                     elseif s == 3 then
  142.                         notice_all("Sredni Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  143.                         notice_all("Zapraszamy graczy tylko ze średnim poziomem.")
  144.                         for i = 1, 40 do
  145.                             command("pm 2206")
  146.                             command("pm 1901")
  147.                             command("pm 1304")
  148.                             command("pm 1093")
  149.                             command("pm 1091")
  150.                             command("pm 1092")
  151.                             command("pm 8012")
  152.                             command("pm 8013")
  153.                             command("pm 8014")
  154.                             command("pm 8024")
  155.                             command("pm 8025")
  156.                             command("pm 8026")
  157.                         end
  158.                         for i = 1, 25 do
  159.                             command("pm 1192")
  160.                         end
  161.                     end
  162.                 elseif s == 3 then
  163.                     say_cegla("  Kryształ Mistrza Gry")
  164.                     say("Wybierz platformę wydarzenia.")
  165.                     local s = select("Tylko Metiny", "Tylko Bossy", "Wszystko", "Anuluj")
  166.                     if s == 4 then
  167.                         return
  168.                     elseif s == 1 then
  169.                         notice_all("Trudny Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  170.                         notice_all("Spuszczone zostały tylko Kamienie Metin.")
  171.                         notice_all("Zapraszamy graczy tylko z wysokim poziomem.")
  172.                         for i = 1, 40 do
  173.                             command("pm 8026")
  174.                             command("pm 8027")
  175.                             command("pm 8027")
  176.                         end
  177.                     elseif s == 2 then
  178.                         notice_all("Trudny Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  179.                         notice_all("Spuszczone zostały tylko Bossy.")
  180.                         notice_all("Zapraszamy graczy tylko z wysokim poziomem.")
  181.                         for i = 1, 40 do
  182.                             command("pm 1095")
  183.                             command("pm 2491")
  184.                             command("pm 2492")
  185.                             command("pm 2494")
  186.                         end
  187.                         for i = 1, 25 do
  188.                             command("pm 2493")
  189.                             command("pm 2598")
  190.                             command("pm 2597")
  191.                         end
  192.                     elseif s == 3 then
  193.                         notice_all("Trudny Event Zuo na mapie "..locale.map_name[pc.get_map_index()].." właśnie się rozpoczął!")
  194.                         notice_all("Zapraszamy graczy tylko z wysokim poziomem.")
  195.                         for i = 1, 40 do
  196.                             command("pm 1095")
  197.                             command("pm 2491")
  198.                             command("pm 2492")
  199.                             command("pm 2494")
  200.                             command("pm 8027")
  201.                             command("pm 8027")
  202.                             command("pm 8027")
  203.                         end
  204.                         for i = 1, 25 do
  205.                             command("pm 2493")
  206.                             command("pm 2598")
  207.                             command("pm 2597")
  208.                         end
  209.                     end
  210.                 end
  211.             elseif s == 3 then
  212.                 say_cegla("  Kryształ Mistrza Gry")
  213.                 say("Wpisz nick.")
  214.                 local i = input()
  215.                 if inputbuggy(i) != true then
  216.                     say_cegla("  Kryształ Mistrza Gry")
  217.                     say("Nick postaci jest nieprawidłowy.")
  218.                     return
  219.                 end
  220.                 say_cegla("  Kryształ Mistrza Gry")
  221.                 say("Wpisz powód banicji.")
  222.                 local p = input()
  223.                 if inputbuggy(p) != true then
  224.                     say_cegla("  Kryształ Mistrza Gry")
  225.                     say("Powód jest nieprawidłowy.")
  226.                     return
  227.                 end
  228.                 local date = os.date("%Y-%m-%d %H:%M:%S")
  229.                 chat(date)
  230.                 local acc = query("SELECT account_id FROM player.player WHERE name='"..i.."';")
  231.                 local a = query("UPDATE account.account SET status='BLOCK' WHERE id='"..acc.."';")
  232.                 local b = query("INSERT INTO account.ban_list SET who='"..pc.get_name().."', nick='"..i.."', date='"..date.."', why='"..p.."', duration='PERM';")
  233.                 say_cegla("  Kryształ Mistrza Gry")
  234.                 say("Gracz został pomyślnie zbanowany.")
  235.             elseif s == 4 then
  236.                 say_cegla("  Kryształ Mistrza Gry")
  237.                 say("Wpisz nick.")
  238.                 local i = input()
  239.                 if inputbuggy(i) != true then
  240.                     say_cegla("  Kryształ Mistrza Gry")
  241.                     say("Nick postaci jest nieprawidłowy.")
  242.                     return
  243.                 end
  244.                 say_cegla("  Kryształ Mistrza Gry")
  245.                 say("Wpisz powód banicji.")
  246.                 local p = input()
  247.                 if inputbuggy(p) != true then
  248.                     say_cegla("  Kryształ Mistrza Gry")
  249.                     say("Powód jest nieprawidłowy.")
  250.                     return
  251.                 end
  252.                 local acc = query("SELECT account_id FROM player.player WHERE name='"..i.."';")
  253.                 local a = query("UPDATE account.account SET status='OK' WHERE id='"..acc.."';")
  254.                 say_cegla("  Kryształ Mistrza Gry")
  255.                 say("Gracz został pomyślnie odbanowany.")
  256.             elseif s == 5 then
  257.                 say_cegla("  Kryształ Mistrza Gry")
  258.                 say("Wpisz id potwora, którego chcesz zesłać.")
  259.                 local a = tonumber(input())
  260.                 if inputbuggy(a) != true then
  261.                     say_cegla("  Kryształ Mistrza Gry")
  262.                     say("Id jest nieprawidłowy.")
  263.                     return
  264.                 end
  265.                 say_cegla("  Kryształ Mistrza Gry")
  266.                 say("Wpisz ile potworów chcesz zesłać.")
  267.                 local b = tonumber(input())
  268.                 if inputbuggy(b) != true then
  269.                     say_cegla("  Kryształ Mistrza Gry")
  270.                     say("Wpisana liczba jest nieprawidłowa.")
  271.                     return
  272.                 end
  273.                 say_cegla("  Kryształ Mistrza Gry")
  274.                 say("Chcesz zesłać "..b.."x "..mob_name(a)..".")
  275.                 local s = select("Ześlij", "Anuluj")
  276.                 if s == 2 then
  277.                     return
  278.                 else
  279.                     for i = 1, b do
  280.                         command("pm "..a.." "..b)
  281.                     end
  282.                 end
  283.             elseif s == 6 then
  284.                 say_cegla("  Kryształ Mistrz Gry")
  285.                 say("Którą stronę inwentarza chcesz wyczyścić?")
  286.                 local s = select("1.", "2.", "Wszystkie", "Anuluj")
  287.                 if s == 4 then
  288.                     return
  289.                 elseif s == 1 then
  290.                     for i = 0, 45 do
  291.                         if item.select_cell(i) then
  292.                             if item.get_vnum() != 30204 then
  293.                                 item.remove()
  294.                             end
  295.                         end
  296.                     end
  297.                 elseif s == 2 then
  298.                     for i = 45, 89 do
  299.                         if item.select_cell(i) then
  300.                             if item.get_vnum() != 30204 then
  301.                                 item.remove()
  302.                             end
  303.                         end
  304.                     end
  305.                 elseif s == 3 then
  306.                     for i = 0, 89 do
  307.                         if item.select_cell(i) then
  308.                             if item.get_vnum() != 30204 then
  309.                                 item.remove()
  310.                             end
  311.                         end
  312.                     end
  313.                 end
  314.             elseif s == 7 then
  315.                 say_cegla("  Kryształ Mistrza Gry")
  316.                 say("Wpisz nick gracza.")
  317.                 local i = input()
  318.                 if i == "" then
  319.                     say_cegla("  Kryształ Mistrza Gry")
  320.                     say("To pole nie może pozostać puste.")
  321.                     return
  322.                 end
  323.                 say_cegla("  Kryształ Mistrza Gry")
  324.                 say("Wpisz id przedmiotu.")
  325.                 local item = tonumber(input())
  326.                 if item == "" then
  327.                     say_cegla("  Kryształ Mistrza Gry")
  328.                     say("To pole nie może pozostać puste.")
  329.                     return
  330.                 end
  331.                 say_cegla("  Kryształ Mistrza Gry")
  332.                 say("Wpisz ilość przedmiotu.")
  333.                 local count = tonumber(input())
  334.                 if count == "" then
  335.                     say_cegla("  Kryształ Mistrza Gry")
  336.                     say("To pole nie może pozostać puste.")
  337.                     return
  338.                 end
  339.                 local pid = find_pc_by_name(i)
  340.                 local old = pc.select(pid)
  341.                 pc.give_item2(item, count)
  342.                 pc.select(old)
  343.             elseif s == 8 then
  344.                 return
  345.             elseif s == 9 then
  346.                 say_cegla("  Kryształ Mistrza Gry")
  347.                 say("Wpisz nick gracza.")
  348.                 local sm_nick = input()
  349.                 if sm_nick == "" then
  350.                     say_cegla("  Kryształ Mistrza Gry")
  351.                     say("To pole nie może pozostać puste.")
  352.                     return
  353.                 end
  354.                 say_cegla("  Kryształ Mistrza Gry")
  355.                 say("Wpisz ilość sm.")
  356.                 local sm_count = tonumber(input())
  357.                 if sm_count == "" then
  358.                     say_cegla("  Kryształ Mistrza Gry")
  359.                     say("To pole nie może pozostać puste.")
  360.                     return
  361.                 end
  362.                 local sm_id = query("SELECT account_id FROM player.player WHERE name='"..sm_nick.."';")
  363.                 local sm_add = query("UPDATE account.account SET cash=cash+'"..sm_count.."' WHERE id='"..sm_id.."';")
  364.                 say_cegla("  Kryształ Mistrza Gry")
  365.                 say("Pomyślnie dodano Smocze Monety do konta.")
  366.             elseif s == 10 then
  367.                 return
  368.             end
  369.         end
  370.     end
  371. end
Add Comment
Please, Sign In to add comment
Public Pastes
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!