Quest:
PHP Code:
-----------------------------------------------------------------------------------
-- Auktionshaus - Quest by Yoshix3 @ dark-fusion2.eu
-- Version 1.2
-----------------------------------------------------------------------------------
quest auktionshaus begin
state start begin
when 9010.chat."Item verkaufen" begin
say_title("Item verkaufen")
say("")
say("Welches Item willst du verkaufen?")
say("Du musst es dafür auf mich ziehen!")
end
when 9010.take with item.vnum > 1 begin
local item_table = item.get_id()
say_title("Item verkaufen")
say("")
say("Du willst das Item "..item.get_name(item.vnum).." verkaufen.")
say("Gib einen Preis ein, den du dafür erhalten möchtest!")
local sofort_kauf = tonumber(input())
local test_kauf = sofort_kauf
if test_kauf==0 or test_kauf=="" then
chat("Es wurden falscheingaben gemacht!")
return
end
if test_kauf > 1900000000 then
chat("Maximal sind 1.900.000.000 Yang möglich!")
return
end
if test_kauf < 1 then
chat("Minimal ist 1 Yang möglich!")
return
end
local check_beack = mysql_select("SELECT COUNT(*) as dnoener from quest.auktionshauscash where player_id='"..pc.get_player_id().."' limit 1;")
if check_beack[1][1]=="0" then
pc.setqf("first",1)
mysql_notselect("INSERT into quest.auktionshauscash (player_id,ahcash) VALUES ('"..pc.get_player_id().."','0');")
end
local check_autocash = mysql_select("SELECT ahcash from quest.auktionshauscash where player_id='"..pc.get_player_id().."' limit 1;")
local check_save_r = check_autocash[1][1]+1-1
local all_g = check_save_r + test_kauf
if all_g > 1900000000 then
chat("Du kannst auf deinem Konto maximal 1.900.000.000 Yang haben!")
chat("Deine gesammten Verkäufe die aktiv sind + sein Guthaben darf")
chat("die menge von 1.900.000.000 Yang nicht überschreiten!")
return
end
local cost = test_kauf / 100 * 5
say_title("Item verkaufen")
say("")
say("Möchtest du das Item "..item.get_name(item.vnum).." für")
say("das Auktionshaus freigeben und den Preis dafür ")
say("auf "..test_kauf.." Yang lassen?")
say("Es kostet dich 5% yang deines Preises, dass du verlangst.")
say("Das heißt, du musst "..cost.." Yang zahlen.")
local s = select("Ja","Nein")
if s == 2 then
return
end
if pc.get_gold() < cost then
chat("Du kannst die 5% nicht bezahlen.")
return
end
if s == 1 then
local count = mysql_select("SELECT COUNT(*) FROM player.item WHERE id='"..item_table.."';")
if count[1][1] == "0" then
say_title("Item verkaufen : Error 101")
say("")
say("Das Item wurde erst vor kurze gedroppt oder erhandelt!")
say("Deshalb kann es nochnicht versteigert werden.")
say("Du musst mindestens 10 Minuten warten!")
return
end
local item_kopier = mysql_select("SELECT owner_id,vnum,socket0,socket1,socket2,socket3,socket4,socket5,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,count FROM player.item WHERE id='"..item_table.."' LIMIT 1;")
local jetzt = get_time()
local enden = get_time()+60*60*24
local types = mysql_select("SELECT type,subtype FROM player.item_proto WHERE vnum='"..item_kopier[1][2].."' LIMIT 1;")
local kate="9"
if types[1][1] == "1" and types[1][2] == "0" then
kate = "1"
end
if types[1][1] == "2" and types[1][2] == "0" then
kate = "2"
end
if types[1][1] == "2" and types[1][2] == "3" then
kate = "3"
end
if types[1][1] == "2" and types[1][2] == "4" then
kate = "4"
end
if types[1][1] == "2" and types[1][2] == "5" then
kate = "5"
end
if types[1][1] == "2" and types[1][2] == "6" then
kate = "6"
end
if types[1][1] == "2" and types[1][2] == "1" then
kate = "7"
end
if types[1][1] == "2" and types[1][2] == "2" then
kate = "8"
end
mysql_notselect("INSERT INTO quest.aktion (lastbote_id,sofort,gebot,gebote,lastbote,vnum,boni1,boni1wert,boni2,boni2wert,boni3,boni3wert,boni4,boni4wert,boni5,boni5wert,boni6,boni6wert,boni7,boni7wert,stein1,stein2,stein3,stein4,stein5,stein6,now,ende,besitzername,besitzer_id,menge,kategorie,item_name) VALUES ('0','"..test_kauf.."','100','0','Niemand','"..item_kopier[1][2].."','"..item_kopier[1][9].."','"..item_kopier[1][10].."','"..item_kopier[1][11].."','"..item_kopier[1][12].."','"..item_kopier[1][13].."','"..item_kopier[1][14].."','"..item_kopier[1][15].."','"..item_kopier[1][16].."','"..item_kopier[1][17].."','"..item_kopier[1][18].."','"..item_kopier[1][19].."','"..item_kopier[1][20].."','"..item_kopier[1][21].."','"..item_kopier[1][22].."','"..item_kopier[1][3].."','"..item_kopier[1][4].."','"..item_kopier[1][5].."','"..item_kopier[1][6].."','"..item_kopier[1][7].."','"..item_kopier[1][8].."','"..jetzt.."','"..enden.."','"..pc.name.."','"..pc.get_player_id().."','"..item_kopier[1][23].."','"..kate.."','"..item.get_name(item_kopier[1][2]).."');")
item.remove(item.select(item_table))
say_title("Item verkaufen")
say("")
say("Dein Item wurde erfolgreich in das Auktionshaus")
say("eingetragen. Es ist ab sofort auf der Homepage ")
say("zum kaufen!")
pc.change_gold(-cost)
end
end
when 9008.chat."Verkaufshaus: Yang" begin
say_title("Verkaufshaus: Yang")
local eintr = "1"
if pc.getqf("first") == 0 then
pc.setqf("first",1)
check_eintrag = mysql_select("SELECT COUNT(*) from quest.auktionshauscash where player_id='"..pc.get_player_id().."' LIMIT 1;")
if check_eintrag[1][1]=="0" then
mysql_notselect("INSERT into quest.auktionshauscash (player_id,ahcash) VALUES ('"..pc.get_player_id().."','0');")
eintr = "2"
end
end
if eintr == "1" then
local menge = mysql_select("SELECT ahcash from quest.auktionshauscash where player_id='"..pc.get_player_id().."' LIMIT 1;")
say("Zurzeit Lagerst du "..menge[1][1].." Yang!")
elseif eintr =="2" then
say("Zurzeit Lagerst du 0 Yang!")
end
say("Was möchtest du tun?")
local s = select("Yang einzahlen","Yang auszahlen","Abbrechen")
if s == 3 then
return
end
if s == 2 then
local sel_gol = mysql_select("SELECT ahcash from quest.auktionshauscash where player_id='"..pc.get_player_id().."' LIMIT 1;")
local check = sel_gol[1][1]+1-1
if check < 1 then
chat("Du kannst nichts auszahlen!")
return
end
say_title("Yang auszahlen")
say("")
say("Du hast derzeit "..check.." Yang eingezahlt.")
say("Wieviel möchtest du auszahlen?")
local auszahlen = tonumber(input())
if auszahlen =="" or auszahlen==0 then
chat("Du hast Falscheingaben gemacht!")
return
end
if auszahlen < 1 then
chat("Du kannst mindestens 1 Yang auszahlen!")
return
end
if auszahlen > check then
chat("Du kannst nicht mehr auszahlen als du besitzt!")
return
end
local check_maxmin = auszahlen + pc.gold
if check_maxmin > 1999999999 then
chat("Du hast zuviel Yang bei dir!")
return
end
local new_cash = check - auszahlen
mysql_notselect("UPDATE quest.auktionshauscash set ahcash = '"..new_cash.."' where player_id='"..pc.get_player_id().."' LIMIT 1;")
pc.change_gold(auszahlen)
end
if s == 1 then
local sel_gol = mysql_select("SELECT ahcash from quest.auktionshauscash where player_id='"..pc.get_player_id().."' LIMIT 1;")
local check = sel_gol[1][1]+1-1
say_title("Yang einzahlen")
say("")
say("Gib die Menge an, die du einzahlen möchtest!")
local lagern = tonumber(input())
if lagern == "" or lagern ==0 then
chat("Du hast Falscheingaben gemacht!")
return
end
if lagern < 0 then
chat("Du kannst mindestens 1 Yang einzahlen!")
return
end
if lagern > pc.gold then
chat("Du besitzt nicht soviel Yang!")
return
end
local check_gesamt_inladung = mysql_select("SELECT SUM(sofort) AS test from quest.aktion where besitzer_id='"..pc.get_player_id().."';")
local save_s = check_gesamt_inladung[1][1]+1-1
local pref = check+lagern
local all_g = save_s+pref
if all_g > 1900000000 then
chat("Du kannst auf deinem Konto maximal 1.900.000.000 Yang haben!")
chat("Deine gesammten Verkäufe die aktiv sind + sein Guthaben darf")
chat("die menge von 1.900.000.000 Yang nicht überschreiten!")
return
end
mysql_notselect("UPDATE quest.auktionshauscash set ahcash = '"..pref.."' where player_id='"..pc.get_player_id().."' LIMIT 1;")
pc.change_gold(-lagern)
say_title("Yang einzahlen")
say("")
say("Du hast dein Yang erfolgreich eingezahlt und")
say("kannst nun damit auf der Homepage einkaufen!")
end
end
when 9010.chat."Meine neusten Auktionen" begin
say_title("Meine neusten Auktionen")
say("Hier werden deine 5 letzten Auktionen, die")
say("derzeit aktiv sind angezeigt!")
say("")
local count_is = mysql_select("SELECT COUNT(*) as oke from quest.aktion where besitzer_id='"..pc.get_player_id().."';")
local check_lo = count_is[1][1]+1-1
if check_lo==0 then
say_reward("Du hast derzeit keine laufenden Auktionen!")
return
end
if check_lo > 5 then
check_lo = 5
end
local i = 0
while i < check_lo do
local item1 = mysql_select("SELECT vnum,menge,sofort from quest.aktion where besitzer_id='"..pc.get_player_id().."' ORDER BY now DESC LIMIT "..check_lo..";")
local zahl = i+1
say_reward("~~~~Item Nummer "..zahl.." : "..item_name(item1[zahl][1]).."")
say("Menge: "..item1[zahl][2].." ~~ Preis: "..item1[zahl][3].."")
i = i+1
end
end
end
end
