Added quest for 'goldbarren'.

main/srv1/share/locale/germany/quest/goldbars.lua

@@ -0,0 +1,23 @@
+quest goldbars begin
+	state start begin
+		when 80003.use or 80004.use or 80005.use or 80006.use or 80007.use begin
+			local barrenInfo = {
+				[80003] = 50000000,
+				[80004] = 100000000,
+				[80005] = 250000000,
+				[80006] = 500000000,
+				[80007] = 1000000000,
+			}
+
+			local iVnum = item.vnum
+
+			if pc.get_money() + barrenInfo[iVnum] >= GOLD_MAX or pc.get_money() + barrenInfo[iVnum] < 0 then
+				syschat("Du trägst zuviel Yang bei dir.")
+				return
+			end
+
+			item.remove()
+			pc.change_gold(barrenInfo[iVnum])
+		end
+	end
+end

main/srv1/share/locale/germany/quest/quest_list

@@ -34,3 +34,4 @@ warehouse_item_destroyer.lua
 soulstone.lua
 level_info.lua
 change_name_item.lua
+goldbars.lua

main/srv1/share/locale/germany/quest/questlib.lua

@@ -6,6 +6,8 @@ CONFIRM_TIMEOUT = 2
 MALE = 0
 FEMALE = 1
 
+GOLD_MAX = 10000000000 + 1
+
 --quest.create = function(f) return coroutine.create(f) end
 --quest.process = function(co,args) return coroutine.resume(co, args) end
 setstate = q.setstate