Quest error help

12/07/2012 19:20 StaLL0#1
Quote:
-------------------------------------------
--- Datei : Seal Of Loyalty
--- Datei version : 1.0.0.0
--- Erstellt von : DarealRefuse
-------------------------------------------
quest loyalty begin
state start begin

function convert(variable,value)
if(variable == "" or variable == nil) then
return error("Process Error")
elseif(variable == "hour") then
return math.floor(value*60*60)
elseif(variable == "seconds") then
return math.floor(value*60)
elseif(variable == "hour2") then
return math.floor(value/60/60)
elseif(variable == "seconds2") then
return math.floor(value/60)
end
end

when 20017.chat.'Karakter Kilidini Aç ' begin
say_title(mob_name(npc.get_race()))
say('')
---
say_reward('Karakter Adını Yazınız.. ')
local sname = input()
local search = find_pc_by_name(sname)
if(sname == pc.name or search == 0) then return end
say_title(mob_name(npc.get_race()))
say('')
---
local select = pc.select(search)
local password = global_getvarchar("loyalty_password")
pc.select(select)
say_reward('Karakter Şifresini Giriniz.. ')
local pass = input()
if(pass == "" or pass == nil) then
say_title(mob_name(npc.get_race()))
say('')
---
say_reward('işlem hatası kod : 2 ')
elseif(pass == password) then
say_title(mob_name(npc.get_race()))
say('')
---

local selectp = pc.select(search)
pc.delqf('loyalty_time_variable')
pc.delqf('loyalty_time')
pc.delqf('hours')
pc.delqf('seconds')
pc.delqf('sealof_loyalty')
pc.select(selectp)


say_reward('Karakter kilidi kaldırıldı. ')
say_reward('teşekkürler! ')
end
end


when login begin
setskin(NOWINDOW)

if(pc.getqf('sealof_loyalty') == 1) then
if(pc.getqf('hours') == 1) then
if(pc.getqf('loyalty_time_variable') > get_global_time() - pc.getqf('loyalty_time')) then
local convert = loyalty.convert("hours2",pc.getqf('loyalty_time_va riable'))
chat('Karakteriniz '..convert..' Saat daha kitli kalıcaktır.. ')
chat('Lütfen bekleyiniz! ')
chat('')
command('quit')
else
pc.delqf('loyalty_time')
pc.delqf('loyalty_time_variable')
pc.delqf('hours')
pc.delqf('sealof_loyalty')
end
elseif(pc.getqf('seconds') == 1) then
if(pc.getqf('loyalty_time_variable') > get_global_time() - pc.getqf('loyalty_time')) then
local convert = loyalty.convert("seconds2",pc.getqf('loyalty_time_ variable'))
chat('Karakteriniz '..convert..' Dakika Kitli kalıcaktır.. ')
chat('Lütfen bekleyiniz! ')
chat('')
command('quit')
else
pc.delqf('loyalty_time')
pc.delqf('loyalty_time_variable')
pc.delqf('hours')
pc.delqf('sealof_loyalty')
end
end
end
end

when 70019.begin
say_title('Sadakat Mührü: ')
say('')
---
say_title('DarealRefuse Copyright 2012-2013')
say_title('Tüm Hakları Saklıdır.. ')
---
say_reward('Ne yapıcaksın? ')
local s = select('Güvenlik Şifresi','Karakteri Kitle','Kapat')

if(s == 1) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Güvenlik Şifresi Giriniz.. ')
local pass = input()

--- ERROR ---
if(len(pass) == 0) then
say_title('Sadakat Mührü: ')
say('')
---
say_reward('işlem hatası kod : 1 ')
return
end
--- END OF ERROR ---

say_title('Sadakat Mührü: ')
say('')
---
say_title(pas..' Şifresini kabul ediyor musunuz? ')
local yesorno = select(locale.yes,locale.no)
if(2 == yesorno) then return end
say_title('Sadakat Mührü: ')
say('')
---
say_reward(pas..' Şifresi kabul edildi.. ')
say_reward('Teşekkürler! ')
global_setvarchar("loyalty_password",pass)
pc.setqf('loyalty_active',1)

elseif(s == 2) then

say_title('Sadakat Mührü: ')
say('')
---

--- ERROR ---
if(pc.getqf('loyalty_active') == 0) then return say_reward('Güvenlik Şifresi Belirlenmedi! ') end -
--- END OF ERROR ---

say_reward('Kitleme Yöntemini Seçiniz. ')
local crypt = select('Saat Cinsinden','Dakika Cinsinden','Kapat')

if(crypt == 1) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Saat Giriniz.. ')
local hour = tonumber(input(""))

say_title('Sadakat Mührü: ')
say('')
---
say_title(hour..' Saat kitlemek istiyor musunuz? ')
local hour_yes = select(locale.yes,locale.no)
if(hour_yes == 2) then return end

say_title('Sadakat Mührü: ')
say('')
---
say_title(hour..' Saat karakter kitlendi! ')
say_title('çıkış yapılıyor teşekkürler.. ')
local convert = loyalty.convert("hour",hour)
pc.setqf('loyalty_time_variable',convert)
pc.setqf('loyalty_time',get_global_time())
pc.setqf('sealof_loyalty',1)
pc.setqf('hours')
command('quit')

elseif(crypt == 2) then

say_title('Sadakat Mührü: ')
say('')
---
say_reward('Dakika Giriniz.. ')
local second = tonumber(input(""))

say_title('Sadakat Mührü: ')
say('')
---
say_title(second..' Dakika kitlemek istiyor musunuz? ')
local second_yes = select(locale.yes,locale.no)
if(seconds_yes == 2) then return end

say_title('Sadakat Mührü: ')
say('')
---
say_title(second..' Dakika karakter kitlendi! ')
say_title('çıkış yapılıyor teşekkürler.. ')
local convert = loyalty.convert("seconds",second)
pc.setqf('loyalty_time_variable',convert)
pc.setqf('loyalty_time',get_global_time())
pc.setqf('sealof_loyalty',1)
pc.setqf('seconds')
command('quit')
end
end
end
end
end
.qc sadakatv22.quest

: [Only registered and activated users can see links. Click Here To Register...]

Help please
12/07/2012 21:47 3jfx#2
PHP Code:
when 70019.begin 
is wrong
02/07/2013 01:08 M2M#3
Quote:
Originally Posted by StaLL0 View Post
.qc sadakatv22.quest

: [Only registered and activated users can see links. Click Here To Register...]

Help please
PHP Code:
function global_setvarchar(name, var)
    local laenge = string.len (var)
    local setchar = 0
    local save_name = 0
    local letter = 0
    while laenge > setchar do
        setchar = setchar + 1
        letter = string.sub (var, setchar, setchar)
        letter = string.byte(letter)
        if letter==91 or letter==93 then
            letter=32
        end
        save_name = ""..name.."_char_"..setchar..""
        game.set_event_flag(save_name, letter)
    end
    local save_laenge=""..name.."laenge"
    game.set_event_flag(save_laenge, laenge)
end

function global_getvarchar(name)
    local save_laenge = ""..name.."laenge"
    local laenge = game.get_event_flag(save_laenge)
    local save_name = 0
    local var = ""
    local letter = 0
    local getchar = 0
    while laenge > getchar do
        getchar = getchar + 1
        save_name = ""..name.."_char_"..getchar..""
        letter = game.get_event_flag(save_name)
        if letter!=0 then
            letter = string.char(letter)
        else
            letter = ""
        end
        
        var = ""..var..""..letter..""
    end
    return var
end 
02/07/2013 17:59 sermandes#4
Quote:
Originally Posted by StaLL0 View Post
.qc sadakatv22.quest

: [Only registered and activated users can see links. Click Here To Register...]

Help please
ne adamlarsınız da :d