Jump to content

Trade house

Datheft15
 Share

Recommended Posts

Datheft15 Enthusiast

Datheft15 5

Posted
Posted

  

 SYSERR: Jun 15 18:08:52.108732 :: RunState: LUA_ERROR: [string "y04iL98R80tK"]:119: attempt to compare number with nil
SYSERR: Jun 15 18:08:52.108798 :: WriteRunningStateToSyserr: LUA_ERROR: quest y04iL98R80tK.start click 

 

 

 

 

quest y04iL98R80tK begin     state start begin         when login begin             cmdchat("Handelscenter index/"..q.getcurrentquestindex())         end         when loopi.timer begin -- debug cause items over 1000             if table.getn(HANDELSCENTER[pc.get_player_id()][1])>HANDELSCENTER[pc.get_player_id()][2] then                 local q, i = HANDELSCENTER[pc.get_player_id()][1], HANDELSCENTER[pc.get_player_id()][2]                 cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id.."/"..q.vnum.."/"..q.count.."/"..q.preis.."/"..q.name.."/"..q.attrtype0.."/"..q.attrvalue0.."/"..q.attrtype1.."/"..q.attrvalue1.."/"..q.attrtype2.."/"..q.attrvalue2.."/"..q.attrtype3.."/"..q.attrvalue3.."/"..q.attrtype4.."/"..q.attrvalue4.."/"..q.attrtype5.."/"..q.attrvalue5.."/"..q.attrtype6.."/"..q.attrvalue6.."/"..q.socket0.."/"..q.socket1.."/"..q.socket2.."/"..q.socket3.."/"..q.socket4.."/"..q.socket5.."/"..table.getn(q.id).."/"..i)                 HANDELSCENTER[pc.get_player_id()][2] = HANDELSCENTER[pc.get_player_id()][2] + 1             else                 cleartimer("loopi")                 cmdchat("Handelscenter finishsending/")             end         end         when button or info begin             cleartimer("loopi")             cmdchat("getinputbegin")             local INPUT = split(input(cmdchat("Handelscenter input/")), "/")             cmdchat("getinputend")             local MAX_INVENTAR_YANG = 1999999999             if INPUT[1]=="open" then                 cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])                 local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' order by date DESC LIMIT 10;")                 if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end                 for i=1, table.getn(q.id), 1 do                     cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id.."/"..q.vnum.."/"..q.count.."/"..q.preis.."/"..q.name.."/"..q.attrtype0.."/"..q.attrvalue0.."/"..q.attrtype1.."/"..q.attrvalue1.."/"..q.attrtype2.."/"..q.attrvalue2.."/"..q.attrtype3.."/"..q.attrvalue3.."/"..q.attrtype4.."/"..q.attrvalue4.."/"..q.attrtype5.."/"..q.attrvalue5.."/"..q.attrtype6.."/"..q.attrvalue6.."/"..q.socket0.."/"..q.socket1.."/"..q.socket2.."/"..q.socket3.."/"..q.socket4.."/"..q.socket5.."/"..table.getn(q.id).."/"..i)                 end                 cmdchat("Handelscenter finishsending/")             elseif INPUT[1]=="logs" then                 local q = mysql_query("SELECT * FROM player.handelscenter_logs where owner_id = '"..pc.get_player_id().."' order by date DESC LIMIT 20;")                 if q.owner_id==nil then syschat("No Logs") cmdchat("Handelscenter nologs/") return end                 for i=1, table.getn(q.owner_id), 1 do                     if q.owner==pc.get_name() then                         q.owner = "you"                     end                     if q.buyer==pc.get_name() then                         q.buyer = "you"                     end                     text = string.gsub(os.date("[%d.%m.%Y %H:%M:%S]", tonumber(q.date)), "%s", "$")                     cmdchat("Handelscenter logs/"..q.owner.."/"..q.vnum.."/"..q.count.."/"..q.preis.."/"..q.buyer.."/"..text)                 end                 cmdchat("Handelscenter finishlogs/")             elseif INPUT[1]=="kategorie" then                 local typetable = {                                     ["Swords"] = {1, 0},                                     ["TwoHanded"] = {1, 3},                                     ["Daggers"] = {1, 1},                                     ["Bows"] = {1, 2},                                     ["Bell"] = {1, 4},                                     ["Fan"] = {1, 5},                                     ["Armors"] = {2, 0},                                     ["Helmets"] = {2, 1},                                     ["Shields"] = {2, 2},                                     ["Bracelets"] = {2, 3},                                     ["Shoes"] = {2, 4},                                     ["Necklaces"] = {2, 5},                                     ["Earrings"] = {2, 6},                                     ["Costumes"] = {28, 0},                                     ["Hairstyles"] = {28, 1},                                     ["Belt"] = {34, 0},                                     ["Stones"] = {10, 0}                                 }                 if typetable[INPUT[2]] then                     local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' and type='"..typetable[INPUT[2]][1].."' and subtype='"..typetable[INPUT[2]][2].."';")                     if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end                     HANDELSCENTER[pc.get_player_id()] = {q, 1}                     cleartimer("loopi")                     loop_timer("loopi", 0.03)                 else                     local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' and (type not in (1,2,28,10,34) or subtype not in (0,1,2,3,4,5,6));")                     if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end                     HANDELSCENTER[pc.get_player_id()] = {q, 1}                     cleartimer("loopi")                     loop_timer("loopi", 0.03)                 end             elseif INPUT[1]=="change_button" then                 if INPUT[2]=="OWN_ITEMS" then                     cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])                     local q = mysql_query("SELECT * FROM player.handelscenter WHERE owner_id='"..pc.get_player_id().."' LIMIT 20;")                     if q.id==nil then syschat("You have no items for sale.") cmdchat("Handelscenter noitems/OWN_ITEMS") return end                     for i=1, table.getn(q.id), 1 do                         cmdchat("Handelscenter itemvonliste/OWN_ITEMS/"..q.id.."/"..q.vnum.."/"..q.count.."/"..q.preis.."/"..q.name.."/"..q.attrtype0.."/"..q.attrvalue0.."/"..q.attrtype1.."/"..q.attrvalue1.."/"..q.attrtype2.."/"..q.attrvalue2.."/"..q.attrtype3.."/"..q.attrvalue3.."/"..q.attrtype4.."/"..q.attrvalue4.."/"..q.attrtype5.."/"..q.attrvalue5.."/"..q.attrtype6.."/"..q.attrvalue6.."/"..q.socket0.."/"..q.socket1.."/"..q.socket2.."/"..q.socket3.."/"..q.socket4.."/"..q.socket5.."/"..table.getn(q.id).."/"..i)                     end                     cmdchat("Handelscenter finishsending/")                 elseif INPUT[2]=="ITEMS" then                     cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])                     local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' LIMIT 1000;")                     if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end                     for i=1, table.getn(q.id), 1 do                         cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id.."/"..q.vnum.."/"..q.count.."/"..q.preis.."/"..q.name.."/"..q.attrtype0.."/"..q.attrvalue0.."/"..q.attrtype1.."/"..q.attrvalue1.."/"..q.attrtype2.."/"..q.attrvalue2.."/"..q.attrtype3.."/"..q.attrvalue3.."/"..q.attrtype4.."/"..q.attrvalue4.."/"..q.attrtype5.."/"..q.attrvalue5.."/"..q.attrtype6.."/"..q.attrvalue6.."/"..q.socket0.."/"..q.socket1.."/"..q.socket2.."/"..q.socket3.."/"..q.socket4.."/"..q.socket5.."/"..table.getn(q.id).."/"..i)                     end                     cmdchat("Handelscenter finishsending/")                 end             elseif INPUT[1]=="buyrem_button" then                 if INPUT[2]=="OWN_ITEMS" then                     local q = mysql_query("SELECT * FROM player.handelscenter WHERE id = '"..INPUT[3].."' LIMIT 1;")                     if q.vnum==nil then syschat("The item was probably already bought!") cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4]) return end                     cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])                     cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4])                     y04iL98R80tK.give_item_from_center(q)                 elseif INPUT[2]=="ITEMS" then                     local q = mysql_query("SELECT * FROM player.handelscenter WHERE id = '"..INPUT[3].."' LIMIT 1;")                     if q.vnum==nil then syschat("The item was probably already bought!") cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4]) return end                     if tonumber(q.preis[1])>tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1]) then syschat("No enough money") return end                     mysql_query("UPDATE player.player SET handelsyang = handelsyang + '"..q.preis[1].."' WHERE id = '"..q.owner_id[1].."';")                     mysql_query("UPDATE player.player SET handelsyang = handelsyang - '"..q.preis[1].."' WHERE id = '"..pc.get_player_id().."';")                     mysql_query("INSERT INTO player.handelscenter_logs (owner_id, buyer_id, owner, buyer, preis,count,vnum,date) VALUES ('"..pc.get_player_id().."', '"..q.owner_id[1].."', '"..q.name[1].."', '"..pc.get_name().."', '"..q.preis[1].."', '"..q.count[1].."', '"..q.vnum[1].."', '"..get_time().."')")                     mysql_query("INSERT INTO player.handelscenter_logs (owner_id, buyer_id, owner, buyer, preis,count,vnum,date) VALUES ('"..q.owner_id[1].."', '"..pc.get_player_id().."', '"..q.name[1].."', '"..pc.get_name().."', '"..q.preis[1].."', '"..q.count[1].."', '"..q.vnum[1].."', '"..get_time().."')")                      y04iL98R80tK.give_item_from_center(q)                     cmdchat("Handelscenter remove/ITEMS/"..INPUT[4])                     cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])                 end             elseif INPUT[1]=="yangabheben" then                 local inp = tonumber(INPUT[2])                 if inp==nil or inp<1 then return end                 if inp+pc.get_money()>MAX_INVENTAR_YANG then syschat("You can not have so much money in your inventoy!") return end                 if inp>tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1]) then syschat("You dont have that much money in the Auctionhouse") return end                 pc.change_money(inp)                 mysql_query("UPDATE player.player SET handelsyang = handelsyang - '"..inp.."' WHERE id = '"..pc.get_player_id().."';")                 cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])             elseif INPUT[1]=="yangabgeben" then                 local inp = tonumber(INPUT[2])                 if inp==nil or inp<1 then return end                 if inp>pc.get_money() then syschat("You dont have so much money in your Inventory!") return end                 if inp+tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1])>99999999999999 then syschat("You cant get more money in the auctionhouse!") return end                 pc.change_money(-inp)                 mysql_query("UPDATE player.player SET handelsyang = handelsyang + '"..inp.."' WHERE id = '"..pc.get_player_id().."';")                 cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])             elseif INPUT[1]=="additem" then                 if item.select_cell(tonumber(INPUT[2])) then -- Statement, does the item exists?                     if item.get_vnum()!=tonumber(INPUT[3]) then                         syschat("Thats not okay!")                     else                         if tonumber(mysql_query("SELECT count(*) FROM player.handelscenter WHERE owner_id = '"..pc.get_player_id().."';"))>20 then                             syschat("You can't set more than 20 Items in the Auctionhouse!")                         else                             local sockets = { item.get_socket(0), item.get_socket(1), item.get_socket(2), item.get_socket(3), item.get_socket(4), item.get_socket(5) }                             local boni = {{item.get_attr(0)}, {item.get_attr(1)}, {item.get_attr(2)}, {item.get_attr(3)}, {item.get_attr(4)}, {item.get_attr(5)}, {item.get_attr(6)}}                             mysql_query("INSERT INTO player.handelscenter (owner_id,name,preis,count,vnum,socket0,socket1,socket2,socket3,socket4,socket5,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,type,subtype, date) VALUES ("..(pc.get_player_id())..",'"..(pc.get_name()).."',"..(tonumber(INPUT[4]))..", "..(item.get_count())..","..(item.get_vnum())..", "..(item.get_socket(0))..", "..(item.get_socket(1))..", "..(item.get_socket(2))..", "..(item.get_socket(3))..", "..(item.get_socket(4))..", "..(item.get_socket(5))..","..(boni[1][1])..","..(boni[1][2])..","..(boni[2][1])..","..(boni[2][2])..","..(boni[3][1])..","..(boni[3][2])..","..(boni[4][1])..","..(boni[4][2])..","..(boni[5][1])..","..(boni[5][2])..","..(boni[6][1])..","..(boni[6][2])..","..(boni[7][1])..","..(boni[7][2])..", '"..item.get_type().."', '"..item.get_sub_type().."', '"..get_time().."')")                             item.remove()                             syschat("Item successfully packed into the Auctionhouse!")                         end                     end                 else                     syschat("Thats not okay!")                 end             end         end         function NumberToMoneyString(money)             local sourceText = tostring(money)             while true do                 sourceText, k = string.gsub(sourceText, "^(-?%d+)(%d%d%d)", "%1.%2")                 if (k==0) then                     break                 end             end             return sourceText         end         function give_item_from_center(cen)             mysql_query("DELETE FROM player.handelscenter WHERE id = "..(cen.id[1])..";")             pc.give_item2_select(cen.vnum[1], cen.count[1])             item.set_value(0, cen.attrtype0[1], cen.attrvalue0[1])             item.set_value(1, cen.attrtype1[1], cen.attrvalue1[1])             item.set_value(2, cen.attrtype2[1], cen.attrvalue2[1])             item.set_value(3, cen.attrtype3[1], cen.attrvalue3[1])             item.set_value(4, cen.attrtype4[1], cen.attrvalue4[1])             item.set_value(5, cen.attrtype5[1], cen.attrvalue5[1])             item.set_value(6, cen.attrtype6[1], cen.attrvalue6[1])             item.set_socket(0, cen.socket0[1])             item.set_socket(1, cen.socket1[1])             item.set_socket(2, cen.socket2[1])             item.set_socket(3, cen.socket3[1])             item.set_socket(4, cen.socket4[1])             item.set_socket(5, cen.socket5[1])         end     end end 

quest y04iL98R80tK begin
	state start begin
		when login begin
			cmdchat("Handelscenter index/"..q.getcurrentquestindex())
		end
		when loopi.timer begin -- debug cause items over 1000
			if table.getn(HANDELSCENTER[pc.get_player_id()][1])>HANDELSCENTER[pc.get_player_id()][2] then
				local q, i = HANDELSCENTER[pc.get_player_id()][1], HANDELSCENTER[pc.get_player_id()][2]
				cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id[i].."/"..q.vnum[i].."/"..q.count[i].."/"..q.preis[i].."/"..q.name[i].."/"..q.attrtype0[i].."/"..q.attrvalue0[i].."/"..q.attrtype1[i].."/"..q.attrvalue1[i].."/"..q.attrtype2[i].."/"..q.attrvalue2[i].."/"..q.attrtype3[i].."/"..q.attrvalue3[i].."/"..q.attrtype4[i].."/"..q.attrvalue4[i].."/"..q.attrtype5[i].."/"..q.attrvalue5[i].."/"..q.attrtype6[i].."/"..q.attrvalue6[i].."/"..q.socket0[i].."/"..q.socket1[i].."/"..q.socket2[i].."/"..q.socket3[i].."/"..q.socket4[i].."/"..q.socket5[i].."/"..table.getn(q.id).."/"..i)
				HANDELSCENTER[pc.get_player_id()][2] = HANDELSCENTER[pc.get_player_id()][2] + 1
			else
				cleartimer("loopi")
				cmdchat("Handelscenter finishsending/")
			end
		end
		when button or info begin
			cleartimer("loopi")
			cmdchat("getinputbegin")
			local INPUT = split(input(cmdchat("Handelscenter input/")), "/")
			cmdchat("getinputend")
			local MAX_INVENTAR_YANG = 1999999999
			if INPUT[1]=="open" then
				cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
				local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' order by date DESC LIMIT 10;")
				if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end
				for i=1, table.getn(q.id), 1 do
					cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id[i].."/"..q.vnum[i].."/"..q.count[i].."/"..q.preis[i].."/"..q.name[i].."/"..q.attrtype0[i].."/"..q.attrvalue0[i].."/"..q.attrtype1[i].."/"..q.attrvalue1[i].."/"..q.attrtype2[i].."/"..q.attrvalue2[i].."/"..q.attrtype3[i].."/"..q.attrvalue3[i].."/"..q.attrtype4[i].."/"..q.attrvalue4[i].."/"..q.attrtype5[i].."/"..q.attrvalue5[i].."/"..q.attrtype6[i].."/"..q.attrvalue6[i].."/"..q.socket0[i].."/"..q.socket1[i].."/"..q.socket2[i].."/"..q.socket3[i].."/"..q.socket4[i].."/"..q.socket5[i].."/"..table.getn(q.id).."/"..i)
				end
				cmdchat("Handelscenter finishsending/")
			elseif INPUT[1]=="logs" then
				local q = mysql_query("SELECT * FROM player.handelscenter_logs where owner_id = '"..pc.get_player_id().."' order by date DESC LIMIT 20;")
				if q.owner_id==nil then syschat("No Logs") cmdchat("Handelscenter nologs/") return end
				for i=1, table.getn(q.owner_id), 1 do
					if q.owner[i]==pc.get_name() then
						q.owner[i] = "you"
					end
					if q.buyer[i]==pc.get_name() then
						q.buyer[i] = "you"
					end
					text = string.gsub(os.date("[%d.%m.%Y %H:%M:%S]", tonumber(q.date[i])), "%s", "$")
					cmdchat("Handelscenter logs/"..q.owner[i].."/"..q.vnum[i].."/"..q.count[i].."/"..q.preis[i].."/"..q.buyer[i].."/"..text)
				end
				cmdchat("Handelscenter finishlogs/")
			elseif INPUT[1]=="kategorie" then
				local typetable = {
									["Swords"] = {1, 0},
									["TwoHanded"] = {1, 3},
									["Daggers"] = {1, 1},
									["Bows"] = {1, 2},
									["Bell"] = {1, 4},
									["Fan"] = {1, 5},
									["Armors"] = {2, 0},
									["Helmets"] = {2, 1},
									["Shields"] = {2, 2},
									["Bracelets"] = {2, 3},
									["Shoes"] = {2, 4},
									["Necklaces"] = {2, 5},
									["Earrings"] = {2, 6},
									["Costumes"] = {28, 0},
									["Hairstyles"] = {28, 1},
									["Belt"] = {34, 0},
									["Stones"] = {10, 0}
								}
				if typetable[INPUT[2]] then
					local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' and type='"..typetable[INPUT[2]][1].."' and subtype='"..typetable[INPUT[2]][2].."';")
					if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end
					HANDELSCENTER[pc.get_player_id()] = {q, 1}
					cleartimer("loopi")
					loop_timer("loopi", 0.03)
				else
					local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' and (type not in (1,2,28,10,34) or subtype not in (0,1,2,3,4,5,6));")
					if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end
					HANDELSCENTER[pc.get_player_id()] = {q, 1}
					cleartimer("loopi")
					loop_timer("loopi", 0.03)
				end
			elseif INPUT[1]=="change_button" then
				if INPUT[2]=="OWN_ITEMS" then
					cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
					local q = mysql_query("SELECT * FROM player.handelscenter WHERE owner_id='"..pc.get_player_id().."' LIMIT 20;")
					if q.id==nil then syschat("You have no items for sale.") cmdchat("Handelscenter noitems/OWN_ITEMS") return end
					for i=1, table.getn(q.id), 1 do
						cmdchat("Handelscenter itemvonliste/OWN_ITEMS/"..q.id[i].."/"..q.vnum[i].."/"..q.count[i].."/"..q.preis[i].."/"..q.name[i].."/"..q.attrtype0[i].."/"..q.attrvalue0[i].."/"..q.attrtype1[i].."/"..q.attrvalue1[i].."/"..q.attrtype2[i].."/"..q.attrvalue2[i].."/"..q.attrtype3[i].."/"..q.attrvalue3[i].."/"..q.attrtype4[i].."/"..q.attrvalue4[i].."/"..q.attrtype5[i].."/"..q.attrvalue5[i].."/"..q.attrtype6[i].."/"..q.attrvalue6[i].."/"..q.socket0[i].."/"..q.socket1[i].."/"..q.socket2[i].."/"..q.socket3[i].."/"..q.socket4[i].."/"..q.socket5[i].."/"..table.getn(q.id).."/"..i)
					end
					cmdchat("Handelscenter finishsending/")
				elseif INPUT[2]=="ITEMS" then
					cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
					local q = mysql_query("SELECT * FROM player.handelscenter where not owner_id = '"..pc.get_player_id().."' LIMIT 1000;")
					if q.id==nil then syschat("There are no items for sale.") cmdchat("Handelscenter noitems/ITEMS") return end
					for i=1, table.getn(q.id), 1 do
						cmdchat("Handelscenter itemvonliste/ITEMS/"..q.id[i].."/"..q.vnum[i].."/"..q.count[i].."/"..q.preis[i].."/"..q.name[i].."/"..q.attrtype0[i].."/"..q.attrvalue0[i].."/"..q.attrtype1[i].."/"..q.attrvalue1[i].."/"..q.attrtype2[i].."/"..q.attrvalue2[i].."/"..q.attrtype3[i].."/"..q.attrvalue3[i].."/"..q.attrtype4[i].."/"..q.attrvalue4[i].."/"..q.attrtype5[i].."/"..q.attrvalue5[i].."/"..q.attrtype6[i].."/"..q.attrvalue6[i].."/"..q.socket0[i].."/"..q.socket1[i].."/"..q.socket2[i].."/"..q.socket3[i].."/"..q.socket4[i].."/"..q.socket5[i].."/"..table.getn(q.id).."/"..i)
					end
					cmdchat("Handelscenter finishsending/")
				end
			elseif INPUT[1]=="buyrem_button" then
				if INPUT[2]=="OWN_ITEMS" then
					local q = mysql_query("SELECT * FROM player.handelscenter WHERE id = '"..INPUT[3].."' LIMIT 1;")
					if q.vnum==nil then syschat("The item was probably already bought!") cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4]) return end
					cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
					cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4])
					y04iL98R80tK.give_item_from_center(q)
				elseif INPUT[2]=="ITEMS" then
					local q = mysql_query("SELECT * FROM player.handelscenter WHERE id = '"..INPUT[3].."' LIMIT 1;")
					if q.vnum==nil then syschat("The item was probably already bought!") cmdchat("Handelscenter remove/OWN_ITEMS/"..INPUT[4]) return end
					if tonumber(q.preis[1])>tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1]) then syschat("No enough money") return end
					mysql_query("UPDATE player.player SET handelsyang = handelsyang + '"..q.preis[1].."' WHERE id = '"..q.owner_id[1].."';")
					mysql_query("UPDATE player.player SET handelsyang = handelsyang - '"..q.preis[1].."' WHERE id = '"..pc.get_player_id().."';")
					mysql_query("INSERT INTO player.handelscenter_logs (owner_id, buyer_id, owner, buyer, preis,count,vnum,date) VALUES ('"..pc.get_player_id().."', '"..q.owner_id[1].."', '"..q.name[1].."', '"..pc.get_name().."', '"..q.preis[1].."', '"..q.count[1].."', '"..q.vnum[1].."', '"..get_time().."')")
					mysql_query("INSERT INTO player.handelscenter_logs (owner_id, buyer_id, owner, buyer, preis,count,vnum,date) VALUES ('"..q.owner_id[1].."', '"..pc.get_player_id().."', '"..q.name[1].."', '"..pc.get_name().."', '"..q.preis[1].."', '"..q.count[1].."', '"..q.vnum[1].."', '"..get_time().."')") 
					y04iL98R80tK.give_item_from_center(q)
					cmdchat("Handelscenter remove/ITEMS/"..INPUT[4])
					cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
				end
			elseif INPUT[1]=="yangabheben" then
				local inp = tonumber(INPUT[2])
				if inp==nil or inp<1 then return end
				if inp+pc.get_money()>MAX_INVENTAR_YANG then syschat("You can not have so much money in your inventoy!") return end
				if inp>tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1]) then syschat("You dont have that much money in the Auctionhouse") return end
				pc.change_money(inp)
				mysql_query("UPDATE player.player SET handelsyang = handelsyang - '"..inp.."' WHERE id = '"..pc.get_player_id().."';")
				cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
			elseif INPUT[1]=="yangabgeben" then
				local inp = tonumber(INPUT[2])
				if inp==nil or inp<1 then return end
				if inp>pc.get_money() then syschat("You dont have so much money in your Inventory!") return end
				if inp+tonumber(mysql_query("SELECT handelsyang FROM player.player WHERE id = '"..pc.get_player_id().."';").handelsyang[1])>99999999999999 then syschat("You cant get more money in the auctionhouse!") return end
				pc.change_money(-inp)
				mysql_query("UPDATE player.player SET handelsyang = handelsyang + '"..inp.."' WHERE id = '"..pc.get_player_id().."';")
				cmdchat("Handelscenter yangingui/"..mysql_query("SELECT * FROM player.player WHERE id = '"..pc.get_player_id().."' LIMIT 1;").handelsyang[1])
			elseif INPUT[1]=="additem" then
				if item.select_cell(tonumber(INPUT[2])) then -- Statement, does the item exists?
					if item.get_vnum()!=tonumber(INPUT[3]) then
						syschat("Thats not okay!")
					else
						if tonumber(mysql_query("SELECT count(*) FROM player.handelscenter WHERE owner_id = '"..pc.get_player_id().."';"))>20 then
							syschat("You can't set more than 20 Items in the Auctionhouse!")
						else
							local sockets = { item.get_socket(0), item.get_socket(1), item.get_socket(2), item.get_socket(3), item.get_socket(4), item.get_socket(5) }
							local boni = {{item.get_attr(0)}, {item.get_attr(1)}, {item.get_attr(2)}, {item.get_attr(3)}, {item.get_attr(4)}, {item.get_attr(5)}, {item.get_attr(6)}}
							mysql_query("INSERT INTO player.handelscenter (owner_id,name,preis,count,vnum,socket0,socket1,socket2,socket3,socket4,socket5,attrtype0,attrvalue0,attrtype1,attrvalue1,attrtype2,attrvalue2,attrtype3,attrvalue3,attrtype4,attrvalue4,attrtype5,attrvalue5,attrtype6,attrvalue6,type,subtype, date) VALUES ("..(pc.get_player_id())..",'"..(pc.get_name()).."',"..(tonumber(INPUT[4]))..", "..(item.get_count())..","..(item.get_vnum())..", "..(item.get_socket(0))..", "..(item.get_socket(1))..", "..(item.get_socket(2))..", "..(item.get_socket(3))..", "..(item.get_socket(4))..", "..(item.get_socket(5))..","..(boni[1][1])..","..(boni[1][2])..","..(boni[2][1])..","..(boni[2][2])..","..(boni[3][1])..","..(boni[3][2])..","..(boni[4][1])..","..(boni[4][2])..","..(boni[5][1])..","..(boni[5][2])..","..(boni[6][1])..","..(boni[6][2])..","..(boni[7][1])..","..(boni[7][2])..", '"..item.get_type().."', '"..item.get_sub_type().."', '"..get_time().."')")
							item.remove()
							syschat("Item successfully packed into the Auctionhouse!")
						end
					end
				else
					syschat("Thats not okay!")
				end
			end
		end
		function NumberToMoneyString(money)
			local sourceText = tostring(money)
			while true do
				sourceText, k = string.gsub(sourceText, "^(-?%d+)(%d%d%d)", "%1.%2")
				if (k==0) then
					break
				end
			end
			return sourceText
		end
		function give_item_from_center(cen)
			mysql_query("DELETE FROM player.handelscenter WHERE id = "..(cen.id[1])..";")
			pc.give_item2_select(cen.vnum[1], cen.count[1])
			item.set_value(0, cen.attrtype0[1], cen.attrvalue0[1])
			item.set_value(1, cen.attrtype1[1], cen.attrvalue1[1])
			item.set_value(2, cen.attrtype2[1], cen.attrvalue2[1])
			item.set_value(3, cen.attrtype3[1], cen.attrvalue3[1])
			item.set_value(4, cen.attrtype4[1], cen.attrvalue4[1])
			item.set_value(5, cen.attrtype5[1], cen.attrvalue5[1])
			item.set_value(6, cen.attrtype6[1], cen.attrvalue6[1])
			item.set_socket(0, cen.socket0[1])
			item.set_socket(1, cen.socket1[1])
			item.set_socket(2, cen.socket2[1])
			item.set_socket(3, cen.socket3[1])
			item.set_socket(4, cen.socket4[1])
			item.set_socket(5, cen.socket5[1])
		end
	end
end

 

 

 

 

 

I do not know the dealer will put objects inside

 

The updater msg ,,   So now we have reached a point where only people
can go on, who either have the 34k game with the item2 use lib * link * 
or people who have the item.get_attr_type and item.get_attr_value function from the Vanilla Core!
So if you have one of those, then continue with point 3.  " 

But i have novaline source....

 

 

Link to comment
Share on other sites
  • Replies 0
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
 Share
Go to topic listing

Announcements



×
×
  • Create New...

Important Information

Terms of Use / Privacy Policy / Guidelines / We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.