[Sammelthread] kleinere Releases

nOa# · 01/29/2014, 15:02

Hier mal eine kleine Quest von mir, welche bewirkt, dass ihr euch ein bestimmtes Level aussuchen könnt. Das Item müsst ihr selbst eintragen und den Typ in der DB auf 18 setzten.

Spoiler

Bei Fragen eine PN schreiben.

Kind Regarts
nOa/KDT

Chikyou · 01/29/2014, 15:27

Quote:

Originally Posted by 123Crusher123

Hier mal eine kleine Quest von mir, welche bewirkt, dass ihr euch ein bestimmtes Level aussuchen könnt. Das Item müsst ihr selbst eintragen und den Typ in der DB auf 18 setzten.

Spoiler

PHP Code:

quest levelitem begin state start begin when ITEM.use begin --Als ITEM eure Item VNUM eintragen say_titel("Erfahrungs Item") say("") say("Mit diesem Item kannst du dir aussuchen,") say("welches Level dein Charakter haben soll.") say("") local s = select("30", "55", "75", "90", "105", "Abbrechen") if s == 6 then return elseif s == 1 then pc.set_level(30) item_remove() elseif s == 2 then pc.set_level(55) item_remove() elseif s == 3 then pc.set_level(75) item_remove() elseif s == 4 then pc.set_level(90) item_remove() elseif s == 5 then pc.set_level(105) item_remove() end end end

Bei Fragen eine PN schreiben.

Kind Regarts
nOa/KDT

Hey! Your quest have some errors ("say_titel", "item_remove()").

You can also do it by this way:

Code:

quest levelitem begin
	state start begin
		when ITEM.use begin  --Als ITEM eure Item VNUM eintragen
			say_title("Erfahrungs Item")
			say("")
			say("Mit diesem Item kannst du dir aussuchen,")
			say("welches Level dein Charakter haben soll.")
			say("")
			local s = select("30", "55", "75", "90", "105", "Abbrechen")
			if s ~= 6 then
				local lev = {30, 55, 75, 90, 105}
				pc.set_level(lv[s])
				item.remove()
			end
		end
	end
end

.Sanii · 01/31/2014, 00:40

Quote:

Originally Posted by Chikyou

Hey! Your quest have some errors ("say_titel", "item_remove()").

You can also do it by this way:

Code:

quest levelitem begin
	state start begin
		when ITEM.use begin  --Als ITEM eure Item VNUM eintragen
			say_title("Erfahrungs Item")
			say("")
			say("Mit diesem Item kannst du dir aussuchen,")
			say("welches Level dein Charakter haben soll.")
			say("")
			local s = select("30", "55", "75", "90", "105", "Abbrechen")
			if s ~= 6 then
				local lev = {30, 55, 75, 90, 105}
				pc.set_level(lv[s])
				item.remove()
			end
		end
	end
end

Or do it with input

Code:

quest levelitem begin
	state start begin
		when ITEM.use begin  --Als ITEM eure Item VNUM eintragen
			say_title("Erfahrungs Item")
			say("")
			say("Mit diesem Item kannst du dir aussuchen,")
			say("welches Level dein Charakter haben soll.")
			say("")
			local s = tonumber(input())
                        if s != nil or < 1 then
				pc.set_level(s)
				item.remove()
			end
		end
	end
end

~~Lord iRemix~~ · 01/31/2014, 07:20

Quote:

Originally Posted by .Nibori

Or do it with input

Code:

quest levelitem begin
	state start begin
		when ITEM.use begin  --Als ITEM eure Item VNUM eintragen
			say_title("Erfahrungs Item")
			say("")
			say("Mit diesem Item kannst du dir aussuchen,")
			say("welches Level dein Charakter haben soll.")
			say("")
			local s = tonumber(input())
                        if s != nil or < 1 then
				pc.set_level(s)
				item.remove()
			end
		end
	end
end

Muss aber so sein

Code:

quest levelitem begin
	state start begin
		when ITEM.use begin  --Als ITEM eure Item VNUM eintragen
			say_title("Erfahrungs Item")
			say("")
			say("Mit diesem Item kannst du dir aussuchen,")
			say("welches Level dein Charakter haben soll.")
			say("")
			local s = tonumber(input())
            if s != nil or s > 1 then
				pc.set_level(s)
				item.remove()
			end
		end
	end
end

Ocelot2606 · 01/31/2014, 13:27

DE hat mal wieder 1 neues Kostüm und neue Haare rausgebracht

Im folgenden Link findet ihr alles was ihr braucht ebenso ist ein How To dabei das was ihr 1:1 nachmachen könnt falls ihr die 34k oder 40k nutzt und mit der dump_proto.exe umgehen könnt

Viel Spass

TheRzR · 01/31/2014, 13:51

Dynamic Motd, nicht wirklich was damit zutun aber hilft dem ein oder anderem Admin...

Code:

#!/bin/bash
#Netzwerk
NIC=eth0
NICIN=`ifconfig $NIC | grep RX | grep bytes | awk '{print $2}' | sed 's/bytes://'`
NICIN=$(( $NICIN / 1024 / 1024 ))
NICOUT=`ifconfig $NIC | grep RX | grep bytes | awk '{print $6}' | sed 's/bytes://'`
NICOUT=$(( $NICOUT / 1024 /1024 ))
#System
CPU=`cat /proc/cpuinfo | grep -m 1 -w 'model name' | awk -F: '{print $2}'`
IP=`ifconfig | grep -A 1 'eth0' | tail -1 | cut -d ':' -f 2 | cut -d ' ' -f 1`
#Ram in MB berechnen
MEMF=`cat /proc/meminfo | grep MemFree | awk {'print $2'}`
MEMF=$(( $MEMF / 1024 ))
MEMT=`cat /proc/meminfo | grep MemTotal | awk {'print $2'}`
MEMT=$(( $MEMT / 1024 ))
#Festplatten
SDAT=`df -h | grep -E '^/dev/sda1' | awk '{ print $2 }' | awk -F '.' '{ print $1 }'`
SDAF=`df -h | grep -E '^/dev/sda1' | awk '{ print $4 }' | awk -F '.' '{ print $1 }'`
echo "
*************************************************
*               System
* Hostname....= `hostname`
* IP..........= $IP
* Kernel......= `uname -r`
* CPU.........=$CPU
* RAM.........= $MEMF MB (Free) / $MEMT MB (Total)
* Prozesse....= `ps ax | wc -l | tr -d " "`
*************************************************
*               Festplatten
* /..............= $SDAF (Free) / $SDAT (Total)
*************************************************
*               Traffic
* $NIC........= $NICIN MB (IN) / $NICOUT MB (OUT)
*************************************************"

in ne datei schreib und in crontab einfügen:
crontab -e

*/5 * * * * sh /root/script.sh > /etc/motd

~~Shigatu~~ · 02/01/2014, 01:00

Sie schließt direkt alle Cores die laufen.

PHP Code:



#!/bin/sh
killall game
killall db
echo "done"

KyrieAnn · 02/03/2014, 18:51

Please do not remove header.

PHP Code:



--[[ 
    This quest was written by KyrieAnn™ for Pandemonia Polska and ElitePVPs. 
    All rights reserved 
    Lifting system server statistics. 
    Please do not remove this header. 
--]] 
 
quest gm_exp_eng begin -- quest name 
    state start begin -- new start state 
 
--[[         
        function isAdmin() 
            if pc.get_name() == "NICK of GA 1" or pc.get_name() == "NICK of GA 2" then 
                return true 
            else 
                return false 
            end 
        end 
--]] 
 
--[[ 
        function isMaster() 
            if pc.get_name() == "NICK of GM 1" or pc.get_name() == "NICK of GM 2" then 
                return true 
            else 
                return false 
            end 
        end 
--]] 
 
--[[ 
    If you have not entered in w questlib.lua then: 
        when letter with gm_exp.isAdmin() or gm_exp.isMaster() begin -- If it is Administator or Game Master from function list: 
    else: 
--]] 
 
        when letter with pc.isAdmin() or pc.isMaster() begin -- If it is Administator or Game Master from function list: 
            send_letter("<GM>Event - Server statistics") -- Name of the letter 
        end 
 
        when button or info with pc.isAdmin() or pc.isMaster() begin -- when letter use 
            local m_nick = pc.get_name() -- Shortcut / Name 
            local m_sex = pc.get_sex() -- Shortcut / Sex 
 
            say_size(350,380) -- Resolution 
            say_title("Information:") -- Title 
            if m_sex == 0 then -- If Male 
                say("Hello "..m_nick.." you old fart.") -- Contents 
            else -- If Female 
                say("Hello "..m_nick.." you sweety lady!") -- Contents 
            end 
            say("Now you can choose the type ") -- Contents 
            say("and duration of server bonuses.") -- Contents 
            say("You can choose a preset list") -- Contents 
            say("or enter a value manually.") -- Contents 
            wait() -- Space 
            say_size(350,380) -- Resolution 
            say_title("Information:") -- Title 
            say("What do you choose?") -- Contents 
            say("") 
 
            local sel = select("A List","Initiation")-- Selection 
 
            if sel == 1 then -- A List 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("") 
 
            local a = select("25%","50%","100%","I'm going for a beer.")-- Selection 
 
                if a == 4 then -- If 4 then: 
                    say_title("Information:") -- Title 
                    say("Cheers "..m_nick..".") -- Contents 
                end 
 
                if a == 1 then -- If 1 then: 
                    say_title("Information:") -- Title 
                    say("Okay, let's them have...") -- Contents 
                    command("priv_empire 0 2 25 48")-- Chat command 
                    command("priv_empire 0 4 25 48")-- Chat command 
                    notice_all(m_nick.." gives you a little joy!") -- Notification 
                    notice_all("Server statistics has been increased by 25% to 48h.") -- Notification 
                end 
 
                if a == 2 then -- If 2 then: 
                    say_title("Information:") -- Title 
                    say("Okay, let's them have...") -- Contents 
                    command("priv_empire 0 2 50 48")-- Chat command 
                    command("priv_empire 0 4 50 48")-- Chat command 
                    notice_all(m_nick.." gives you a little joy!") -- Notification 
                    notice_all("Server statistics has been increased by 50% to 48h.") -- Notification 
                end 
 
                if a == 3 then -- If 3 then: 
                    say_title("Information:") -- Title 
                    say("Okay, let's them have...") -- Contents 
                    command("priv_empire 0 2 100 48")-- Chat command 
                    command("priv_empire 0 4 100 48")-- Chat command 
                    notice_all(m_nick.." gives you a little joy!") -- Notification 
                    notice_all("Server statistics has been increased by 100% to 48h.") -- Notification 
                end 
            end 
 
            if sel == 2 then -- Initiation 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("Enter now the Kingdom, which is to receive") -- Contents 
                say("bonus, remembering that:") -- Contents 
                say_reward("0 - All Kingdoms") -- Prompt 
                say_reward("1 - Shinsoo") -- Prompt 
                say_reward("2 - Chunjo") -- Prompt 
                say_reward("3 - Jinno") -- Prompt 
                say("") 
 
                local m_krolestwo = tonumber(input()) -- enter the number 
 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("Which bonus you want to enable?") -- Contents 
                say_reward("1 - The chance to drop items.") -- Prompt 
                say_reward("2 - The chance to drop yang.") -- Prompt 
                say_reward("3 - The chance to drop premium yang") -- Prompt 
                say_reward("4 - More experience.") -- Prompt 
                say("") 
 
                local m_bonus = tonumber(input()) -- enter the number 
 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("Enter now percent bonus,") -- Contents 
                say("remembering that") -- Contents 
                say_reward("entered number is the percentage.") -- Prompt 
                say_reward("For example, typing 1 is one percent.") -- Prompt 
                say_reward("!!Caution!!") -- Prompt 
                say_reward("The maximum value is 200!") -- Prompt 
                say("") 
 
                local m_procent = tonumber(input()) -- enter the number 
 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("Enter now the duration of the bonus,") -- Contents 
                say("remembering that") -- Contents 
                say_reward("entered number is the hour.") -- Prompt 
                say_reward("For example, typing 1 is one hour.") -- Prompt 
                say_reward("!!Caution!!") -- Prompt 
                say_reward("The maximum value is 200!") -- Prompt 
                say("") 
 
                local m_czas = tonumber(input()) -- enter the number 
                local m_bonus_1 = ({ 
                    [1] =  "increase drop items", 
                    [2] =  "increase drop yang", 
                    [3] =  "increase drop premium yang", 
                    [4] =  "increase exp", 
                })[m_bonus] -- Prompt/Text input 
 
                local m_krolestwo_1 = ({ 
                    [0] =  "all,", 
                    [1] =  "Shinsoo,", 
                    [2] =  "Chunjo,", 
                    [3] =  "Jinoo,", 
                })[m_krolestwo] -- Prompt/Text input 
 
                say_size(350,380) -- Resolution 
                say_title("Information:") -- Title 
                say("So, you wanna "..m_bonus_1.." for "..m_krolestwo_1.."") -- Contents 
                say("by "..m_bonus.."%, to "..m_czas.." hour(s).") -- Contents 
                say("Is it correct "..m_nick.."?") -- Contents 
 
                local c = select("Yes","No")-- Selection 
 
                if c == 1 then 
                    say_title("Information:") -- Title 
                    say("I set bonus.") -- Contents 
                    notice_all(m_nick.." "..m_bonus_1) -- Notification 
                    notice_all("for "..m_krolestwo_1.." by "..m_bonus.."%, to "..m_czas.." godzin.") -- Notification 
                     
                    command("priv_empire "..m_krolestwo.." "..m_bonus.." "..m_procent.." "..m_czas.."")-- Chat command 
                end 
 
                if c == 2 then 
                    say_title("Information:") -- Title 
                    say("Bye "..m_nick..".") -- Contents 
                end 
            end 
        end 
    end 
end

./qc gm_exp_eng.lua

~~Lord iRemix~~ · 02/03/2014, 22:59

Quote:

Originally Posted by KyrieAnn

Please do not remove header.

PHP Code:

--[[ This quest was written by KyrieAnn™ for Pandemonia Polska and ElitePVPs. All rights reserved Lifting system server statistics. Please do not remove this header. --]] quest gm_exp_eng begin -- quest name state start begin -- new start state --[[ function isAdmin() if pc.get_name() == "NICK of GA 1" or pc.get_name() == "NICK of GA 2" then return true else return false end end --]] --[[ function isMaster() if pc.get_name() == "NICK of GM 1" or pc.get_name() == "NICK of GM 2" then return true else return false end end --]] --[[ If you have not entered in w questlib.lua then: when letter with gm_exp.isAdmin() or gm_exp.isMaster() begin -- If it is Administator or Game Master from function list: else: --]] when letter with pc.isAdmin() or pc.isMaster() begin -- If it is Administator or Game Master from function list: send_letter("<GM>Event - Server statistics") -- Name of the letter end when button or info with pc.isAdmin() or pc.isMaster() begin -- when letter use local m_nick = pc.get_name() -- Shortcut / Name local m_sex = pc.get_sex() -- Shortcut / Sex say_size(350,380) -- Resolution say_title("Information:") -- Title if m_sex == 0 then -- If Male say("Hello "..m_nick.." you old fart.") -- Contents else -- If Female say("Hello "..m_nick.." you sweety lady!") -- Contents end say("Now you can choose the type ") -- Contents say("and duration of server bonuses.") -- Contents say("You can choose a preset list") -- Contents say("or enter a value manually.") -- Contents wait() -- Space say_size(350,380) -- Resolution say_title("Information:") -- Title say("What do you choose?") -- Contents say("") local sel = select("A List","Initiation")-- Selection if sel == 1 then -- A List say_size(350,380) -- Resolution say_title("Information:") -- Title say("") local a = select("25%","50%","100%","I'm going for a beer.")-- Selection if a == 4 then -- If 4 then: say_title("Information:") -- Title say("Cheers "..m_nick..".") -- Contents end if a == 1 then -- If 1 then: say_title("Information:") -- Title say("Okay, let's them have...") -- Contents command("priv_empire 0 2 25 48")-- Chat command command("priv_empire 0 4 25 48")-- Chat command notice_all(m_nick.." gives you a little joy!") -- Notification notice_all("Server statistics has been increased by 25% to 48h.") -- Notification end if a == 2 then -- If 2 then: say_title("Information:") -- Title say("Okay, let's them have...") -- Contents command("priv_empire 0 2 50 48")-- Chat command command("priv_empire 0 4 50 48")-- Chat command notice_all(m_nick.." gives you a little joy!") -- Notification notice_all("Server statistics has been increased by 50% to 48h.") -- Notification end if a == 3 then -- If 3 then: say_title("Information:") -- Title say("Okay, let's them have...") -- Contents command("priv_empire 0 2 100 48")-- Chat command command("priv_empire 0 4 100 48")-- Chat command notice_all(m_nick.." gives you a little joy!") -- Notification notice_all("Server statistics has been increased by 100% to 48h.") -- Notification end end if sel == 2 then -- Initiation say_size(350,380) -- Resolution say_title("Information:") -- Title say("Enter now the Kingdom, which is to receive") -- Contents say("bonus, remembering that:") -- Contents say_reward("0 - All Kingdoms") -- Prompt say_reward("1 - Shinsoo") -- Prompt say_reward("2 - Chunjo") -- Prompt say_reward("3 - Jinno") -- Prompt say("") local m_krolestwo = tonumber(input()) -- enter the number say_size(350,380) -- Resolution say_title("Information:") -- Title say("Which bonus you want to enable?") -- Contents say_reward("1 - The chance to drop items.") -- Prompt say_reward("2 - The chance to drop yang.") -- Prompt say_reward("3 - The chance to drop premium yang") -- Prompt say_reward("4 - More experience.") -- Prompt say("") local m_bonus = tonumber(input()) -- enter the number say_size(350,380) -- Resolution say_title("Information:") -- Title say("Enter now percent bonus,") -- Contents say("remembering that") -- Contents say_reward("entered number is the percentage.") -- Prompt say_reward("For example, typing 1 is one percent.") -- Prompt say_reward("!!Caution!!") -- Prompt say_reward("The maximum value is 200!") -- Prompt say("") local m_procent = tonumber(input()) -- enter the number say_size(350,380) -- Resolution say_title("Information:") -- Title say("Enter now the duration of the bonus,") -- Contents say("remembering that") -- Contents say_reward("entered number is the hour.") -- Prompt say_reward("For example, typing 1 is one hour.") -- Prompt say_reward("!!Caution!!") -- Prompt say_reward("The maximum value is 200!") -- Prompt say("") local m_czas = tonumber(input()) -- enter the number local m_bonus_1 = ({ [1] = "increase drop items", [2] = "increase drop yang", [3] = "increase drop premium yang", [4] = "increase exp", })[m_bonus] -- Prompt/Text input local m_krolestwo_1 = ({ [0] = "all,", [1] = "Shinsoo,", [2] = "Chunjo,", [3] = "Jinoo,", })[m_krolestwo] -- Prompt/Text input say_size(350,380) -- Resolution say_title("Information:") -- Title say("So, you wanna "..m_bonus_1.." for "..m_krolestwo_1.."") -- Contents say("by "..m_bonus.."%, to "..m_czas.." hour(s).") -- Contents say("Is it correct "..m_nick.."?") -- Contents local c = select("Yes","No")-- Selection if c == 1 then say_title("Information:") -- Title say("I set bonus.") -- Contents notice_all(m_nick.." "..m_bonus_1) -- Notification notice_all("for "..m_krolestwo_1.." by "..m_bonus.."%, to "..m_czas.." godzin.") -- Notification command("priv_empire "..m_krolestwo.." "..m_bonus.." "..m_procent.." "..m_czas.."")-- Chat command end if c == 2 then say_title("Information:") -- Title say("Bye "..m_nick..".") -- Contents end end end end end

./qc gm_exp_eng.lua

Code:

function isAdmin()
	return mysql_query("select mAuthority from common.gmlist where mName = '".. pc.get_name() .."';")[1][1] == "IMPLEMENTOR" or false
end

function isGM()
	return mysql_query("select mAuthority from common.gmlist where mName = '".. pc.get_name() .."';")[1][1] == "HIGH_WIZARD" or false
end

ArsMartialis · 02/04/2014, 20:05

Servus,

wie einige von euch hatte ich ne Weile Probleme bei den Invoice Files bei folgenden Problemen:

Spoiler

Hoffe konnte damit einigen helfen. Mir persönlich hat es ne Weile zu schaffen gemacht, deshalb teile ich es gerne weiter.

Noa_ · 02/05/2014, 20:35

Quote:

Originally Posted by [iRemix]

Code:

function isAdmin()
	return mysql_query("select mAuthority from common.gmlist where mName = '".. pc.get_name() .."';")[1][1] == "IMPLEMENTOR" or false
end

function isGM()
	return mysql_query("select mAuthority from common.gmlist where mName = '".. pc.get_name() .."';")[1][1] == "HIGH_WIZARD" or false
end

PHP Code:



function isAdmin() 
    return pc.get_gm_level() == 5 
end 
function isGM() 
    return pc.get_gm_level() != 5 
end

TAI-LING · 02/05/2014, 22:51

hi there
this is my test design for Vorstellungsbox...

full screen :

test :

i hope you like it

download link :

Regards TaiLingDesignes

'venToX · 02/06/2014, 18:00

Ich mag das Ding nicht.
[Ist nicht selbst erstellt.]

'venToX · 02/07/2014, 23:29

Noch nen 3D Modell aus Lw angepasst:

viel Spaß damit.

~~Sir.?~~ · 02/14/2014, 12:47

Hier einmal die Surakopf für den Clienten von xGr33n

Die Exe hat Gr33n bearbeitet nicht ich.