[Lua-Funktion] pc.warp_to_pc

[ProfiFighter]

Hi, liebe Community.
Ich hatte mal wieder langweile, deshalb habe ich mir die Funktion "pc.warp_to_pc" erstellt.
Wer's nüztlich findet kann mir ja ein Thanks dalassen .
So, das muss in die "questlib.lua":

pc.warp_to_pc = function(name)
	if name == pc.get_name() then
		return -1
	end
	local vid = find_pc_by_name(name)
	if vid == 0 then
		return -2
	end
	local pc_is_gm = pc.is_gm()
	local s = pc.select(vid)
	if pc.is_gm() and not is_test_server() and not pc_is_gm then
		pc.select(s)
		return -3
	end
	local pc_x = pc.get_x()
	local pc_y = pc.get_y()
	pc.select(s)
	local target_x = pc_x*100
	local target_y = (pc_y-2)*100
	test_chat(target_x..target_y)
	pc.warp(target_x, target_y)
	return 0
end

pc.transfer = function(name)
	if name == pc.get_name() then
		return -1
	end
	local vid = find_pc_by_name(name)
	if vid == 0 then
		return -2
	end
	local pc_is_gm = pc.is_gm()
	local pc_x = pc.get_x()
	local pc_y = pc.get_y()
	local s = pc.select(vid)
	if pc.is_gm() and not is_test_server() and not pc_is_gm then
		pc.select(s)
		return -3
	end
	local target_x = pc_x*100
	local target_y = (pc_y-2)*100
	test_chat(target_x..target_y)
	pc.warp(target_x, target_y)
	pc.select(s)
	return 0
end

game.transfer_pc_to_pc = function(name1, name2)
	if name1 == name2 then
		return -1
	end
	local vid
	local s
	local pc_name = pc.get_name()
	if name2 != pc_name then
		vid = find_pc_by_name(name2)
		if vid == 0 then
			return -2
		end
		s = pc.select(vid)
	end
	local pc_x = pc.get_x()
	local pc_y = pc.get_y()
	if name1 == pc_name then
		pc.select(s)
	else
		vid = find_pc_by_name(name1)
		if vid == 0 then
			if name2 != pc_name then
				pc.select(s)
			end
			return -3
		end
		if name2 == pc_name then
			s = pc.select(vid)
		else
			pc.select(vid)
		end
	end
	local target_x = pc_x*100
	local target_y = (pc_y-2)*100
	test_chat(target_x..target_y)
	pc.warp(target_x, target_y)
	if name1 != pc_name then
		pc.select(s)
	end
	return 0
end

--Zusatz
function say_item_name(vnum) say_title(item_name(vnum or item.get_vnum())..":") end
function say_npc_name(vnum) say_title(mob_name(vnum or npc.get_race())..":") end

Das in "quest_functions":

pc.warp_to_pc
pc.transfer
game.transfer_pc_to_pc
say_item_name
say_npc_name

Und um die Funktionen zu benutzen:

say_item_name()
say("Zu wem wollen Sie sich teleportieren?[ENTER]")
local name = input()
if name != "" then
	say_item_name()
	say("Achtung, ich teleportiere dich jetzt.[ENTER]")
	wait()
	--pc.teleport(name)
	pc.warp_to_pc(name)
end

say_item_name()
say("Wer soll teleportiert werden?[ENTER]")
local name = input()
if name != "" then
	say_item_name()
	say("Achtung, ich teleportiere jetzt.[ENTER]")
	wait()
	pc.transfer(name)
end

say_item_name()
say("Wer soll teleportiert werden?[ENTER]")
local name1 = input()
if name1 != "" then
	say_item_name()
	say("Zu wem soll er teleportiert werden?[ENTER]")
	local name2 = input()
	if name2 != "" then
		say_item_name()
		say("Achtung, ich teleportiere jetzt.[ENTER]")
		wait()
		game.transfer_pc_to_pc(name1, name2)
	end
end

Naja, wenn ihr möchtet, dann könnt ihr euch auch so eine "pc.transfer" Funktion oder so machen.

[WhiteCollar]

sieht gut aus ;D
danke ^^

[ProfiFighter]

Soll ja auch gut aussehen .
PS: Hab' ein paar Sachen verbessert xD

[IgorGlock]

Danke an YMIR für die "find_pc_by_name(name)" Funktion

[ProfiFighter]

Originally Posted by IgorGlock

Danke an YMIR für die "find_pc_by_name(name)" Funktion

Ja .
So, eine neue Funktion hinzugefügt - Ich aber werde es der Sicherheit halber komplizierter machen .

[DasKuchen]

PHP Code:

local name = input()
pc.teleport(name) 


Sowas würde auch gehen.

[ProfiFighter]

Ja, aber mit dem Grundgerüst meiner Funktion kann man auch gleich eine "transfer"-Funktion und was weiß ich nicht erstellen, außerdem habe ich die andere noch nicht getestet.

Originally Posted by DasKuchen

PHP Code:

local name = input()
pc.teleport(name) 


Sowas würde auch gehen.

Ich habe sie gerade ausprobiert. Das Resultat ist, dass ich direkt in die Spieler hineingeportet werde... Naja, da finde ich meine anpassbare Funktion besser .

[TorKS]

Danke

[ProfiFighter]

Kein Problem ^^
So, wieder ein neues Update draußen :P.

[TorKS]

The pc.transfer(name) function looklike the pc.warp_to_pc(name)

[Tofus]

Gibt's bereits von Mijago in der Questlib und ist auch kein einzelner Thread wert..

[He3o Sippel]

Ich habe sie mal einsatz bereit gemacht

PHP Code:

quest tele begin
    state start begin
        when login begin
            set_state(information)
        end
    end
    state information begin 
        when letter begin 
            send_letter("Teleportation zu Spielern") 
        end
        when button or info begin
            say_item_name()
            say("Zu wem wollen Sie sich teleportieren?[ENTER]")
            local name = input()
            if name != "" then
            say_item_name()
            say("Achtung, ich teleportiere dich jetzt.[ENTER]")
            wait()
            --pc.teleport(name)
            pc.warp_to_pc(name)
            end
        end
    end
end 


[ProfiFighter]

Originally Posted by .Sippel

Ich habe sie mal einsatz bereit gemacht

PHP Code:

quest tele begin
    state start begin
        when login begin
            set_state(information)
        end
    end
    state information begin 
        when letter begin 
            send_letter("Teleportation zu Spielern") 
        end
        when button or info begin
            say_item_name()
            say("Zu wem wollen Sie sich teleportieren?[ENTER]")
            local name = input()
            if name != "" then
            say_item_name()
            say("Achtung, ich teleportiere dich jetzt.[ENTER]")
            wait()
            --pc.teleport(name)
            pc.warp_to_pc(name)
            end
        end
    end
end 


Nice, aber wenn du kein Item, sondern einen Brief benutzt, kannste dir das "say_item_name()" eigt. sparen .

Originally Posted by Tofus

Gibt's bereits von Mijago in der Questlib und ist auch kein einzelner Thread wert..

Also, wie ich meine Funktionen pub. gemacht hatte habe ich die Funktionen "pc.warp_to(vid)" und "pc.trans(vid)" noch nicht gesehen, außerdem beziehe ich mich auf musics und nicht Mijagos Kenntnisse (ja "control.quest" ist geil xD). Naja, habe auch noch ein paar extra Funktionen drinne, die Mijago nicht hat, aber wenn ihr meine Funktionen nicht wollt, dann kann ich meinen Thread ja löschen .

[iYoshix3]

Du könntest noch die Errors in die Quest miteinbinden.
Z.b. wenn er -1,-2 oder sonstiges returned.

Ansonnsten ist es gut aufgebaut.

Mfg

[ProfiFighter]

Originally Posted by Yoshix3

Du könntest noch die Errors in die Quest miteinbinden.
Z.b. wenn er -1,-2 oder sonstiges returned.

Ansonnsten ist es gut aufgebaut.

Mfg

Wollte ich ja eigt. tuen, da ich auf IO- oder Chat-Funktionen in Metin2 verzichten wollte, aber dann kam mir das mit den Return-Werten etwas falsch vor... Naja, wer will kann es mit Return-Werten machen .