Re: Zmud pomoc
: 13 lut 2012 23:24
Z tego co kojarzę, jak sie klikało prawym na zmudka i "uruchom jako administrator", to i na win7 potrafiło śmigać..
Oficjalne forum Arkadii, polskiego MUD-a, tekstowej gry fabularnej.
https://arkadia.rpg.pl/forum/
Odwolywac sie do tego mozna bylo np. tak:<alias name="funkcje_lua" language="Lua" id="787">
<value>function odmiana_narzednik(arg,arg1)
t = {}
i = 0
for word in string.gmatch(arg, "%a+") do
i = i + 1
if (string.match("i|y|g|k|a",string.sub(word,-1))) == nil then
table.insert(t,i,word.."em")
else
if string.sub(word,-1)=="i" then table.insert(t,i,word.."m") end
if string.sub(word,-1)=="y" then table.insert(t,i,word.."m") end
if string.sub(word,-1)=="g" then table.insert(t,i,word.."iem") end
if string.sub(word,-1)=="a" then table.insert(t,i,word) end
if string.sub(word,-1)=="k" then table.insert(t,i,word.."iem") end
end
end
zs.var[arg1] = table.concat(t," ")
end
function odmiana_biernik(arg,arg1)
t = {}
i = 0
j = 0
for word in string.gmatch(arg, "%a+") do
j = j + 1
end
for word in string.gmatch(arg, "%a+") do
i = i + 1
if (j==1) then
if (string.match("Miris|Brygu|Molu|Lev|Yako|Ridai|Huggo|Avenilo|Niru|Aynne",word)) then
if (string.match("Miris",word)) then table.insert(t,i,word) end
if (string.match("Brygu",word)) then table.insert(t,i,"Bryga") end
if (string.match("Molu",word)) then table.insert(t,i,"Mola") end
if (string.match("Lev",word)) then table.insert(t,i,"Lva") end
if (string.match("Yako",word)) then table.insert(t,i,"Yaka") end
if (string.match("Ridai",word)) then table.insert(t,i,"Ridai") end
if (string.match("Huggo",word)) then table.insert(t,i,"Hugga") end
if (string.match("Avenilo",word)) then table.insert(t,i,"Avenila") end
if (string.match("Niru",word)) then table.insert(t,i,"Niru") end
if (string.match("Aynne",word)) then table.insert(t,i,"Aynne") end
else
if (string.match("e|o|a|i|y",string.sub(word,-1))) ~= nil then
if (string.match("e|o",string.sub(word,-1))) ~= nil then table.insert(t,i,word) end
if (string.match("i",string.sub(word,-1))) ~= nil then table.insert(t,i,word.."ego") end
if (string.match("y",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."ego") end
if (string.match("a",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."e") end
else
table.insert(t,i,word.."a")
end
end
else
if (string.match("kobieta |elfka |polelfka |mezczyzna |halflinka |gnomka ",word.." ")) then
table.insert(t,i,string.sub(word,1,-2).."e")
else
if (string.match("e|o|a|i|y",string.sub(word,-1))) ~= nil then
if (string.match("e|o|a",string.sub(word,-1))) ~= nil then table.insert(t,i,word) end
if (string.match("i",string.sub(word,-1))) ~= nil then table.insert(t,i,word.."ego") end
if (string.match("y",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."ego") end
else
table.insert(t,i,word.."a")
end
end
end
end
zs.var[arg1] = table.concat(t," ")
end
--Tutaj odmiana jest kompletnie zepsuta, nalezy poprawic.--
function odmiana_mianownika_do_dopelniacza(arg,arg1)
t = {}
i = 0
j = 0
for word in string.gmatch(arg, "%a+") do
j = j + 1
end
for word in string.gmatch(arg, "%a+") do
i = i + 1
if (j==1) then
if (string.match("Miris|Brygu|Molu|Lev|Yako|Ridai|Huggo|Avenilo|Niru|Aynne",word)) then
if (string.match("Miris",word)) then table.insert(t,i,word) end
if (string.match("Brygu",word)) then table.insert(t,i,"Bryga") end
if (string.match("Molu",word)) then table.insert(t,i,"Mola") end
if (string.match("Lev",word)) then table.insert(t,i,"Lva") end
if (string.match("Yako",word)) then table.insert(t,i,"Yaka") end
if (string.match("Ridai",word)) then table.insert(t,i,"Ridai") end
if (string.match("Huggo",word)) then table.insert(t,i,"Hugga") end
if (string.match("Avenilo",word)) then table.insert(t,i,"Avenila") end
if (string.match("Niru",word)) then table.insert(t,i,"Niru") end
if (string.match("Aynne",word)) then table.insert(t,i,"Aynne") end
else
if (string.match("e|o|a|i|y",string.sub(word,-1))) ~= nil then
if (string.match("e|o",string.sub(word,-1))) ~= nil then table.insert(t,i,word) end
if (string.match("i",string.sub(word,-1))) ~= nil then table.insert(t,i,word.."ego") end
if (string.match("y",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."ego") end
if (string.match("a",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."y") end
else
table.insert(t,i,word.."a")
end
end
else
if (string.match("kobieta |elfka |polelfka |krasnoludka |mutantka |gnomka |niziolka |halflinka |mezczyzna ",word.." ")) then
if (string.match("mezczyzna|kobieta",word)) then
table.insert(t,i,string.sub(word,1,-2).."y")
else
table.insert(t,i,string.sub(word,1,-2).."i")
end
else
if (string.match("e|o|a|i|y",string.sub(word,-1))) ~= nil then
if (string.match("e|o|a",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."ej") end
if (string.match("i",string.sub(word,-1))) ~= nil then table.insert(t,i,word.."ego") end
if (string.match("y",string.sub(word,-1))) ~= nil then table.insert(t,i,string.sub(word,1,-2).."ego") end
else
table.insert(t,i,word.."a")
end
end
end
end
if (string.match("potepienieca",t[j])) ~= nil then t[j] = "potepienca" end
zs.var[arg1] = table.concat(t," ")
end
-- Ok, probujemy przejsc z biernika do dopelniacza
-- Ktos tam zaslania (kogo,co)
-- Przelam obrone (kogo, czego)
function odmiana_biernika_do_dopelniacza(arg,arg1)
t = {}
i = 0
j = 0
for word in string.gmatch(arg, "%a+") do
j = j + 1
end
for word in string.gmatch(arg, "%a+") do
i = i + 1
if (j==1) then -- sprawdzam czy mam do czynienia z imieniem, czy z opisem
if (string.match("Miris|Brygu|Molu|Lev|Yako|Ridai|Huggo|Avenilo|Niru|Aynne",word)) then
if (string.match("Miris",word)) then table.insert(t,i,word) end
if (string.match("Brygu",word)) then table.insert(t,i,"Bryga") end
if (string.match("Molu",word)) then table.insert(t,i,"Mola") end
if (string.match("Lev",word)) then table.insert(t,i,"Lva") end
if (string.match("Yako",word)) then table.insert(t,i,"Yaka") end
if (string.match("Ridai",word)) then table.insert(t,i,"Ridai") end
if (string.match("Huggo",word)) then table.insert(t,i,"Hugga") end
if (string.match("Avenilo",word)) then table.insert(t,i,"Avenila") end
if (string.match("Niru",word)) then table.insert(t,i,"Niru") end
if (string.match("Aynne",word)) then table.insert(t,i,"Aynne") end
else
if (string.match("a",string.sub(word,-1))) ~= nil then
-- print("odmieniam imie zakonczone na a")
table.insert(t,i,word) end
if (string.match("o",string.sub(word,-1))) ~= nil then
-- print("odmieniam imie zakonczone na o")
table.insert(t,i,string.sub(word,1,-2).."a") end
if (string.match("ke",string.sub(word,-2))) ~= nil then
-- print("sprawdzam czy imie konczy sie na ke")
table.insert(t,i,string.sub(word,1,-3).."ki")
elseif (string.match("e",string.sub(word,-1))) then
table.insert(t,i,string.sub(word,1,-3).."y") end
end
else -- standardowa odmiana opisow
-- print("Odmieniam opis")
if (string.match("ke",string.sub(word,-2))) ~= nil then
-- print("sprawdzam czy imie konczy sie na ke")
table.insert(t,i,string.sub(word,1,-3).."ki")
elseif (string.match("e",string.sub(word,-1))) then
table.insert(t,i,string.sub(word,1,-2).."y")
else
if (string.match("a",string.sub(word,-1))) ~= nil then
table.insert(t,i,string.sub(word,1,-2).."ej")
else
table.insert(t,i,word)
end
end
end
end
if (string.match("ej",string.sub(t[j],-2))) ~= nil then --- czlowieka - na gorze zamienilo sie na czlowiekej, wracamy do czlowieka wiec
--print(string.sub(t[j],1,-3).."a")
t[j] = (string.sub(t[j],1,-3).."a")
--print(t[j])
end
if (string.match("postac",t[j])) ~= nil then t[j] = "postaci" end
zs.var[arg1] = table.concat(t," ")
--print(t[j])
end</value>
</alias>
<trigger priority="7240" case="true" stop="true" regex="true" id="175">
<pattern>zrecznie zaslania (.+) przed ciosami (@b_druzyna)\.$</pattern>
<value>#Class zaslony
cel = {}
co_odmienic = {%lower(%1)}
#color sienna,white
#lua {odmiana_biernika_do_dopelniacza(zs.var.co_odmienic,"cel")}
#Class 0
#key alt+\ {przelam obrone @cel}
#Class zaslony
co_odmienic = {}
#sa %ansi(yellow)"ALT+\ ALT+\ ALT+\ "%ansi(reset)>>> ATAK NA %ansi(yellow)%upper(%1)%ansi(reset)
#Class 0</value>
</trigger>