Problem mit Quest

--------------------------------------
-- written by Kilroy.   			--
-- Benötigt Questlib Erweit. Mijago	--
--------------------------------------	
quest vip_return_login_shop begin
	state start begin
		when 20011.take with item.get_vnum()== 35004 and pc.getqf("is_vip") == 1 begin
			say("Sehr Gut, du konntest dich mit deinem")
			say("VIP-Ticket ausweisen, ich gewähre")
			say("dir somit Einblick in den VIP-Shop")
			wait()
			setskin(NOWINDOW)
			npc.open_shop(9003) -- natürlich Anpassen.
		end
		
		when 20009.take with item.get_vnum()== 35004 and pc.getqf("is_vip") == 1 begin
			say("Sehr Gut, du konntest dich mit deinem")
			say("VIP-Ticket ausweisen.")
			say("")
			say("Soll ich dich also zur VIP-Map bringen?")
			if select("Ja", "Nein")==2 then return end
			pc.warp( 402100, 673900) -- natürlich Anpassen.
		end

		when login with not npc.is_pc() and pc.getqf("is_vip") == 1 begin
			timer("login_vip", 2)
		end
		when login_vip.timer begin 
			if pc.getqf("first_vip") == 0 then
				say_title("VIP-Status")
				say("")
				say("Da diese Meldung erschienen ist, wurde der")
				say("VIP-Vorgang erfolgreich abgeschlossen.")
				say("")
				say("Dir stehen nun einige Features zu, die andere")
				say("Spieler nicht haben.")
				wait()
				say_title("VIP-Status")
				say("")
				say("Nun erhälst du erstmal weitere Informationen.")
				say("")
				say("Wie du bestimmt bemerkt hast, schwebt")
				say("über dir ein VIP-Symbol, dieses kannst du")
				say("durch die Chateingabe von (vip) rufen.")
				say("")
				say("Sehr Wichtig")
				say_reward("- Nicht mehrmals das (vip) rufen.")
				say("")
				say("Solltest du mehrmals (vip) eingeben und")
				say("somit mehr VIP Zeichen über dem Kopf haben")
				say("werden alle deine Accounts gebannt!")
				pc.setqf("first_vip", 1)
				notice_all("Das VIP-Mitglied "..pc.get_name().. " ist Online!")
			else
				notice_all("Das VIP-Mitglied "..pc.get_name().. " ist Online!")
			end
		end

		when 35002.use begin
			if pc.getqf("is_vip") == 0 then
				say_title("Hallo "..pc.get_name().."!")
				say("Mit diesem Item kannst du den VIP Status aktivieren.")
				say("")
				say_title("Infos:")
				say("Du wirst nach Aktivierung ausgeloggt!")
				say("Du hast dann einen 20 Min block, nach der ")
				say("Umstellungszeit ist dein Account wieder frei und")
				say("du kannst dich einloggen!")
				say("")
				say("")
				say("Möchtest du?")
				say(pc.get_name(), " --------> (VIP)", pc.get_name())
				if select("Ja", "Nein")==2 then return end
				if string.len(pc.get_name())<= 7 and tonumber(mysql_query("select count(*) from player.player where name = '[VIP]"..pc.get_name().."';")[1][1]) == 0 then
					if pc.is_married() then
						say("Während du verheiratet bist kannst du")
						say("kein VIP werden.")
						return
					elseif pc.is_polymorphed() then
						say("Während du verwandelt bist kannst du")
						say("kein VIP werden.")
						return
					elseif not pc.can_warp() then
						say("Du hast vorkurzem gehandelt, so kannst du")
						say("kein VIP werden.")	
						return
					elseif pc.has_guild() then
						say("Während du in einer Gilde bist kannst du")
						say("kein VIP werden.")
						return
					elseif party.is_party() then
						say("Während du in einer Gruppe bist kannst du")
						say("kein VIP werden.")
						return						
					elseif pc.count_item(35002) < 1 then
						say("Buguser griegen kein VIP!")
						return
					end
					say_title("Erfolgreich!")
					say_reward("Du wirst nun ausgeloggt und bist 20Min")
					say_reward("geblockt damit die Änderung zu (VIP)")
					say_reward("abgeschlossen werden kann.")
					wait()
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
					notice_all(pc.get_name(), " ist nun ein VIP-Mitglied auf Myruma2 - Evolution")
					mysql_query("UPDATE player.player SET name='[VIP]"..pc.get_name().."' WHERE name='"..pc.get_name().."'")
					mysql_query("UPDATE account.account SET availDt = NOW() + INTERVAL 20 MINUTE WHERE id = (SELECT account_id FROM player.player WHERE name='[VIP]"..pc.get_name().."');")
					item.remove()
					pc.setqf("is_vip", 1)
					cmdchat("exit")
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
				else
					say_title(pc.get_name().."!")	
					say("")
					say("Die Vorraussetzungen zwingen dich einen")
					say("neuen Namen zuwählen. Mögliche Gründe")
					say("sind ein zu langer Name oder das dein")
					say("Name mit VIP bereits existiert.")
					say("")
					say_reward("Möchtest du ihn ändern um VIP zuwerden?")
					if select("Ja", "Nein")==2 then return end
					say_title("Name wechseln")
					say("Gib bitte deinen Wunschnamen ein:")
					say_reward("Beachte!")
					say_reward("Nicht mehr als 7 oder weniger als 2 Buchstaben.")
					say_reward("Sonderzeichen sind nicht erlaubt.")
					local inp = input()
					if string.len(inp) > 7 or inp == "" or string.len(inp) < 2 or string.find(inp, "(%W)") ~= nil then
						say("Dein neuer Name besitzt entweder mehr als 7,")
						say("weniger als 2 Buchstaben oder enthält ein")
						say("unzulässiges Zeichen")
						return
					elseif tonumber(mysql_query("select count(*) from player.player where name = '[VIP]"..inp.."';")[1][1]) >= 1 then
						say("Dieser Name existiert bereits,")
						say("versuch es mit einem neuen erneut!")
						return 
					end
					say_title("Super!")
					say("Dein Name erfüllt alle Voraussetzungen.")
					say("")
					say_title("Letzter Check")
					say("Möchtest du wirklich mit dem Namen")
					say("(VIP)", inp," dein vip status aktivieren?")
					if select("Ja", "Nein")==2 then return end
					if pc.is_married() then
						say("Während du verheiratet bist kannst du")
						say("kein VIP werden.")
						return
					elseif pc.is_polymorphed() then
						say("Während du verwandelt bist kannst du")
						say("kein VIP werden.")
						return
					elseif not pc.can_warp() then
						say("Du hast vorkurzem gehandelt, so kannst du")
						say("kein VIP werden.")	
						return
					elseif pc.has_guild() then
						say("Während du in einer Gilde bist kannst du")
						say("kein VIP werden.")
						return
					elseif party.is_party() then
						say("Während du in einer Gruppe bist kannst du")
						say("kein VIP werden.")
						return						
					elseif pc.count_item(35002) < 1 then
						say("Buguser griegen kein VIP!")
						return
					end
					say_title("Erfolgreich!")
					say_reward("Du wirst nun ausgeloggt und bist 20 Min")
					say_reward("geblockt damit die Änderung zu (VIP)")
					say_reward("abgeschlossen werden kann.")
					wait()
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
					notice_all(pc.get_name(), " heißt jetzt ", inp, " und ist nun ein VIP-Mitglied auf Myruma2 - Evolution")
					mysql_query("UPDATE player.player SET name='[VIP]"..inp.."' WHERE name='"..pc.get_name().."'")
					mysql_query("UPDATE account.account SET availDt = NOW() + INTERVAL 20 MINUTE WHERE id = (SELECT account_id FROM player.player WHERE name='[VIP]"..inp.."');")
					item.remove()
					pc.setqf("is_vip", 1)
					cmdchat("exit")
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
				end
			else
				say_title("Hallo "..pc.get_name().."!")
				say("Du hast dein VIP-Status schon aktiviert,")
				say("sollte dies nicht der Fall sein, kontaktiere")
				say("bitte einen Teamler.")
				say("")
				say("Viel Spaß weiterhin!")
			end
		end

		when 35003.use begin
			if pc.getqf("is_vip") == 1 then
				say_title("Hallo "..pc.get_name().."!")
				say("Mit diesem Item kannst du den VIP Status")
				say("zurücksetzen..")
				say("")
				say_title("Infos:")
				say("Du wirst nach reAktivierung ausgeloggt!")
				say("Du hast dann einen 20Min block, nach der ")
				say("Umstellungszeit ist dein Account wieder frei und")
				say("du kannst dich einloggen!")
				say("")
				say("")
				say("VIP Status zurücksetzen?")
				say("(VIP)", pc.get_name(), "---->", pc.get_name())
				if select("Ja", "Nein")==2 then return end
				if pc.is_married() then
					say("Während du verheiratet bist kannst du")
					say("kein VIP werden.")
					return
				elseif pc.is_polymorphed() then
					say("Während du verwandelt bist kannst du")
					say("kein VIP werden.")
					return
				elseif not pc.can_warp() then
					say("Du hast vorkurzem gehandelt, so kannst du")
					say("kein VIP werden.")	
					return
				elseif pc.has_guild() then
					say("Während du in einer Gilde bist kannst du")
					say("kein VIP werden.")
					return
				elseif party.is_party() then
					say("Während du in einer Gruppe bist kannst du")
					say("kein VIP werden.")
					return						
				elseif pc.count_item(35003) < 1 then
					say("Bugusern wird kein VIP entzogen!")
					return
				end
				spl = split(pc.get_name(), "VIP]") -- Split Name bei VIP]
				if tonumber(mysql_query("select count(*) from player.player where name = '"..spl[2].."';")[1][1]) == 0 then
					say_title("Erfolgreich!")
					say_reward("Du wirst nun ausgeloggt und bist 20Min")
					say_reward("geblockt damit die Änderung ")
					say_reward("abgeschlossen werden kann.")
					wait()
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
					spl = split(pc.get_name(), "VIP]")
					mysql_query("UPDATE player.player SET name='"..spl[2].."' WHERE name='"..pc.get_name().."'")
					mysql_query("UPDATE account.account SET availDt = NOW() + INTERVAL 20 MINUTE WHERE id = (SELECT account_id FROM player.player WHERE name='"..spl[2].."');")
					item.remove()
					pc.setqf("is_vip", 0)
					cmdchat("exit")
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
				else
					say_title("Dein Name!")
					say("Es scheint so als würde dein Name.")
					say("ohne das (VIP) bereits existieren,")
					say("das ist aber nicht schlimm, denn du kannst")
					say("ihn hier und jetzt ändern.")
					say("")
					say_reward("Möchtest du ihn ändern um VIP loszuwerden?")
					if select("Ja", "Nein")==2 then return end
					say_title("Name wechseln")
					say("Gib bitte deinen Wunschnamen ein:")
					say_reward("Beachte!")
					say_reward("Nicht mehr als 7 oder weniger als 2 Buchstaben.")
					say_reward("Sonderzeichen sind nicht erlaubt.")
					local inp = input()
					if string.len(inp) > 7 or inp == "" or string.len(inp) < 2 or string.find(inp, "(%W)") ~= nil then
						say("Dein neuer Name besitzt entweder mehr als 7,")
						say("weniger als 2 Buchstaben oder enthält ein")
						say("unzulässiges Zeichen")
						return
					elseif tonumber(mysql_query("select count(*) from player.player where name = '"..inp.."';")[1][1]) == 0 then
						say("Ich habe festgestellt das dein neuer Name bereits")
						say("existiert, versuch es mit einem neuen erneut!")
						return 
					end
					say_title("Super!")
					say("Dein Name erfüllt alle Voraussetzungen.")
					say("")
					say_title("Letzter Check")
					say("Möchtest du wirklich mit dem Namen")
					say(inp," dein vip status reaktivieren?")
					if select("Ja", "Nein")==2 then return end
					if pc.is_married() then
						say("Während du verheiratet bist kannst du")
						say("kein VIP werden.")
						return
					elseif pc.is_polymorphed() then
						say("Während du verwandelt bist kannst du")
						say("kein VIP werden.")
						return
					elseif not pc.can_warp() then
						say("Du hast vorkurzem gehandelt, so kannst du")
						say("kein VIP werden.")	
						return
					elseif pc.has_guild() then
						say("Während du in einer Gilde bist kannst du")
						say("kein VIP werden.")
						return
					elseif party.is_party() then
						say("Während du in einer Gruppe bist kannst du")
						say("kein VIP werden.")
						return						
					elseif pc.count_item(35003) < 1 then
						say("Bugusern wird kein VIP entzogen!")
						return
					end
					say_title("Erfolgreich!")
					say_reward("Du wirst nun ausgeloggt und bist 20Min")
					say_reward("geblockt damit die Änderung")
					say_reward("abgeschlossen werden kann.")
					wait()
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
					spl = split(pc.get_name(), "VIP]")
					mysql_query("UPDATE player.player SET name='"..inp.."' WHERE name='"..pc.get_name().."'")
					mysql_query("UPDATE account.account SET availDt = NOW() + INTERVAL 20 MINUTE WHERE id = (SELECT account_id FROM player.player WHERE name='"..inp.."');")
					item.remove()
					pc.setqf("is_vip", 0)
					cmdchat("exit")
					-- ÃÖ°í±Þ °í´ëÀÇ Èæ·æ¼®
				end
			else
				say_title("Hallo "..pc.get_name().."!")
				say("Du hast deinen VIP-Status")
				say("noch garnicht aktiviert.")
			end
		end			
	end
end
--------------------------------------
-- written by Kilroy.   			--
-- Benötigt Questlib Erweit. Mijago	--
--------------------------------------

0530 19:46:59437 :: Unknown Server Command QuestDeclare armor 6 | QuestDeclare
0530 19:46:59437 :: Unknown Server Command QuestDeclare hair 8 | QuestDeclare
0530 19:46:59443 :: Unknown Server Command loadquest1 71 | loadquest1
0530 19:46:59443 :: Unknown Server Command day_mode_change 0 sunshine | day_mode_change
0530 19:47:26748 :: ELTimer_GetMSec() - m_dwEmoticonTime