Search the Community

Reparei que na pasta quest das files do sg/wom não havia nenhuma quest do sistema de montadas melhoráveis, então decidi fazer. Não tem a parte dos .use dos selos das montadas, basta usar a ride.quest do sg que está logo tudo pronto.Sei que já existe uma quest desta e blablabla, porém o socket usado nela é o das montadas que se colocam no slot dos sapatos de vento.Esta já tem o socket correto, e além disso foi feita por mim.Quest: quest pmount begin state start begin function upgrade(vnum) local pm_up_vnums = { {52001, 52005, 50067}, {52016, 52020, 50067},{52031, 52035, 50067}, {52046, 52050, 50067},{52061, 52065, 50067},{52076, 52080, 50067}, {52006, 52010, 50068},{52021, 52025, 50068},{52036, 52041, 50068}, {52051, 52055, 50068},{52066, 52071, 50068},{52081, 52085, 50068} } say_title(mob_name(npc.get_race())) say("Ah "..pc.name.." estás aqui para melhorar") say"a tua montada é? Hm." say"" say"Dependendo do nível da tua montada, poderá " say"ser melhorada, através de um item específico.[ENTER]" wait() say_title(mob_name(npc.get_race())) for i = 1, 12 do local needed, cor, jov, sel = pm_up_vnums[i][3], pm_up_vnums[i][2], pm_up_vnums[i][1], pm_up_vnums[i][2] if vnum == cor+6 or vnum == cor+7 or vnum == cor+8 or vnum == cor+9 or vnum == cor+10 then say"A tua montada está no nível máximo." return end if vnum >= jov and vnum <= sel then say"Para melhorar esta tua montada, precisas do:" say_item_vnum(needed) say"" if select("Continuar", "Não tenho o item.") == 1 then say_title(mob_name(npc.get_race())) if pc.count_item(needed) >= 1 then if math.random(1,2) == 1 then pc.remove_item(needed, 1) pc.give_item2(vnum+5, 1) pc.remove_item(vnum, 1) say"Melhoramento efetuado com sucesso[ENTER]Recebeste:" say_item_vnum(vnum+5) else pc.remove_item(needed, 1) say("O Melhoramento falhou.") end else say("Não tens o item.") say_item_vnum(needed) return end else return end end end end function increase_time() local snacks = {{38100,7}, {38101,15}, {38102,30}} say_title(mob_name(npc.get_race())) say"Queres aumentar o tempo da tua montada?" say"Com os famosos Snacks do Poder, poderás aumentar o" say"seu tempo durante 7, 15 ou 30 dias." say"Escolhe o Snack do Poder que possuis." local c = select ("Snack do Poder - 7 Dias", "Snack do Poder - 15 Dias", "Snack do Poder - 30 Dias", "Sair") if c != 4 then local d, a, i, s = snacks[c][2], 60*60*24, snacks[c][1], item.get_socket(0) say_title(mob_name(npc.get_race())) if pc.count_item(i) >= 1 then say"A tua montada com este Snack poderá durar" say("mais "..d.." dias.") say_item_vnum(i) say"" say"Queres continuar?" if select("Sim", "Não") == 1 then item.set_socket(0, s + a*d) pc.remove_item(i, 1) say("Feito. A tua montada durará mais "..d.." dias.") else say"Volta quando quiseres" end else say_item_vnum(i) say"" say"Precisas deste Snack do Poder para proceder." end end end when 9003.take with item.vnum >= 52001 and item.vnum <= 52090 begin say_title(mob_name(npc.get_race())) local op = select("Aumentar a Duração da Minha Montada", "Evoluir a Minha Montada", "Sair") if op == 1 then pmount.increase_time() elseif op == 2 then pmount.upgrade(item.get_vnum()) end end endend

Olá. Nestes dias andei a trabalhar muito com a edição de ficheiros por quest, então decidi criar uma função que reduz bastante o trabalho. A função é: write_or_read(path, file, act, text, line) Que serve para escrever, sobrescrever e ler um ficheiro, ou uma linha específica. Notas: Diretório do ficheiro; Nome do ficheiro; Ação; Texto; Linha. As ações: Como disse, a função pode ler ou escrever num ficheiro e para isso em act coloca-se o que se quer fazer. - Para ler pode usar-se: ler, read, l (L minusculo) ou r. A Ação influencia o conteúdo que se colocará em text, se querem ler o conteúdo de um ficheiro, obviamente não vão colocar texto nenhum lá. Por isto, a função de ler divide-se noutras 3 funções: -> Ler a primeira línha; (line, linha, ou l) -> Ler o ficheiro inteiro; (all, tudo) -> Ler uma línha específica*. (sline, linhas, ou ls) *Para ler uma linha específica, no último argumento da função coloca-se a linha que querem que leia. - Para escrever pode usar-se 2 tipos: 1. sobrescrever, rewrite, s ou re. 2. escrever, write, e, a+ É bastante simples saber o que faz cada um deles. O 1. irá apagar o conteúdo do ficheiro (se tiver algum) e irá escrever aquilo que quisermos. O 2. apenas adiciona. Nota: Não é necessário colocar o último argumento, line, para escrever. Outros: Para reduzir ainda o trabalho, se o diretório ou o ficheiro não existirem, estes serão criados sozinhos. As tabulações no texto fazem-se de forma natural, através do botão que está em cima do caps lock. Mas para mudar de linha, é necessário escrever: __enter__. Finalmente aqui está a função, que deverão colocá-la no questlib.lua: function write_or_read(path, file, act, text, line) local type_ if os.execute('cd '..path) ~= 0 then os.execute('mkdir '..path) elseif os.execute('[ -f '..path.."/"..file..' ] && echo "s" || echo "n"') == 'n' then os.execute('cd '..path..' && touch '..file) end if act == 'ler' or act == 'read' or act == 'l' or act == 'r' then type_ = 'r' elseif act == 'sobrescrever' or act == 'rewrite' or act == 's' or act == 're' then type_ = 'w' elseif act == 'escrever' or act == 'write' or act == 'e' or act == 'a+' then type_ = 'a+' end local f = io.open(path..'/'..file, type_) if type_ == 'r' then if text == 'all' or text == 'tudo' then return f:read('*all') elseif text == 'line' or text == 'linha' or text == 'l' then return f:read('*l') elseif text == 'sline' or text == 'linhas' or text == 'ls' then local ltable = {} for i in f:lines() do table.insert(ltable, i) end f:close() return ltable[line] end elseif type_ == 'a+' or type_ == 'w' then if string.find(text, '__enter__') ~= 0 then f:write(string.gsub(text, '__enter__', 'n', string.find(text,'__enter__'))..'n') else f:write(text..'n') end f:close() endendInteligentes saberão para que serve. Se quiserem exemplos avisem.