also: ich kann es jetzt zwar anklicken, aber irgendwie kann er keinen töten
da steht immer "sname no such a player"
da steht immer "sname no such a player"
quest Butters begin
state start begin
when 77786.use begin
say("Gebe den Namen des Gegners ein:")
say("")
local sname = input()
command("kill "..sname.."")
chat("Du hast erfolgreich getötet.")
end
end
end
quest Butters begin
state start begin
when 77786.use begin
say("Gebe den Namen des Gegners ein:")
say("")
local sname = input()
command("kill "..sname.."")
chat("Du hast erfolgreich getötet.")
end
end
end
quest Butters begin
state start begin
when 77786.use begin
if pc.getqf("kill") == 1 then
say("Du musst 10 Sekunden warten..")
return
end
else
if pc.getqf("kill") == 0 then
say("Das Töten kostet dich 3.000.000 Yang.")
say("Zudem brauchst du mindestens Level 30.")
say("Möchtest du jemanden töten?")
local abfrage = select("Weiter", "Abbrechen")
if abfrage == 2 then
return
end
if abfrage == 1 then
if pc.get_level() => 30
if pc.get_gold() => 3000000 then
say("Gib die den Spieler namen hier ein:")
pc.give_gold(-3000000)
local z=input()
if z == "" then
say("Der Spieler existiert nicht") end
else
if "z" == pc.is_gm()
say("Du Kannst Keinen GameMaster töten!")
mob.spawn(2291)
notice(" Der Spieler "b" wollte einen GameMaster Töten!")
notice("Folge dessen ist, Das Ein Roter Drache Gespawnt wurde")
notice("Solltet ihr durch den Roten Drachen sterben, bedankt")
notice(" bei spieler "b" Ende Der Durchsage! ")
end
return
end
else
d.kill_all(z)
say("Der Spieler Wurde Erfolgreich Umgebarcht")
pc.setqf("kill", 1)
timer("killdelay", 10)
end
else
if pc.get_gold() <= 2999999 then
say("Du hast nicht genug Yang.")
return
end
else
if pc.get_level() <= 29 then
say("Dein Level reicht nicht aus.")
return
end
when "kill".timer begin
pc.setqf("kill", 2)
end
when login with pc.getqf("kill") == 1 then
timer("killdelay", 10)
end
end
end
quest Rates begin
state start begin
when 20095.chat with pc.is_gm() begin
say_title("GM HILF-NPC")
say("Nur für GMs")
say("Es macht Rates auf ein klick online")
say("")
say("Wähle aus")
locale main_set = select("Rates auf 1000", "Abbrechen")
if main_set == 2 then
return
end
elseif e == 1 then
say_title("GM Helfer:")
say("")
say("Du moechtest also die Rates einstellen??")
say("")
say("Möchtest du alle Rates auf 1000?")
local s =select ("Alle auf 1000", "Abbrechen")
if s == 1 then
command("priv_empire 0 4:exp 1000 9999")
command("priv_empire 0 2:gold_drop 1000 9999")
command("priv_empire 0 3:gold10_drop 1000 9999")
command("priv_empire 0 1:item_drop 1000 9999")
elseif s == 2 then
return
end
end
end
quest Special begin
state start begin
when login or levelup with pc.get_level() >=99 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(9003)
if v != 0 then
target.vid("__TARGET__", v, "Quest")
end
send_letter("Special")
end
when button or info begin
say_title("Special")
say("")
say("Der Rüssihändler hat seine Spielchen mit der")
say("Gemi getrieben, er steckte das Stück Edelstein in den")
say("POPO der Dame.")
say("Sie lies einen Schieß, bumm schon war der Edelstein")
say("verschwunden. Kein Wunder wenn die Gemi furzt.")
say("Du bist der auserwählte, finde den Stein!!")
say("")
end
when __TARGET__.target.click or
9003.chat."Quest" begin
target.delete("__TARGET__")
say("Gemischi:")
--- l
say("Er trieb mit mir seine Spielchen,es macht natürlich")
say("uch Spaß, als er mir den Edelstein")
say("in den allerwertesten steckte,")
say("tritt das Gas aus-Rohrbruch,alles war zu spät!")
say("Der Korken platze,das Gas kommte")
say("PUUUM-Weg war er.Hilf Mir ich habe Angst das er mich vergewaltigt!!")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state go_to_disciple begin
when letter begin
send_letter("Auftrag von Gemischi")
end
when button or info begin
say_title("Quest")
--- l
say("")
say("Gemischi gab euch den Auftrag")
say("10 Stück Edelstein zu sammeln!")
say("Das Item bekommt ihr von Himmels Geistliche in der Grotte.")
say("Viel Glueck!")
say("")
say_item_vnum(30021)
say_reward(" Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
say("")
end
when 71035.use begin --°g´bÃĤô
if pc.getqf("drink_drug")==1 then
say("")
say("Bessere Droppchance!")
say("")
return
end
if pc.count_item(30021)==0 then
say("")
say("Du hast keine!")
say("Lauf los und besorg mir welche!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end
when 2403.kill begin
if pc.count_item(30021)<10-pc.getqf("collect_count") then
pc.give_item2(30021, 1)
end
end
when 9003.chat."Quest" with pc.count_item(30021) >0 begin
say("Einen Moment!")
--- l
say("Ich werde das Item")
say("schnell mal ueberpruefen.")
say("Hoffentlich klappt alles!")
say("")
pc.remove_item(30021, 1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=900
else
pass_percent=900
end
local s= number(1,100)
if s<= pass_percent then
if pc.getqf("collect_count")< 9 then --5*Ó¥H¤U
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --¨ú±o¤@* +1
say("Gemischi:")
say("Perfekt! Das Item ist in Ordnung")
say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir die restlichen!")
say("")
pc.setqf("drink_drug",0) --ÃĤôªì©l¤Æ
return
end
say("Gemischi:")
say("Yuhu! Du hast mir")
say("alles gebracht!")
say("Dafür werde ich dich wie versprochen")
say("belohnen!")
say("")
say_reward("Du bekommst ein Keule+0!")
say_reward("Du bekommst ein Giftschwert+9!")
say_reward("Du bekommst ein Reittier Rufer!")
say_reward("Du bekommst 10.000.000 Yang!")
say_reward("Du bekommst 200.000.000 Erfahrung!")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
end
quest Rates begin
state start begin
when 20095.chat with pc.is_gm() begin
say_title("GM HILF-NPC")
say("Nur für GMs")
say("Es macht Rates auf ein klick online")
say("")
say("Wähle aus")
locale main_set = select("Rates auf 1000", "Abbrechen")
if main_set == 2 then
return
end
elseif main_set == 1 then
say_title("GM Helfer:")
say("")
say("Du moechtest also die Rates einstellen??")
say("")
say("Möchtest du alle Rates auf 1000?")
local s =select ("Alle auf 1000", "Abbrechen")
if s == 1 then
command("priv_empire 0 4:exp 1000 9999")
command("priv_empire 0 2:gold_drop 1000 9999")
command("priv_empire 0 3:gold10_drop 1000 9999")
command("priv_empire 0 1:item_drop 1000 9999")
elseif s == 2 then
return
end
end
end