[7.6][npc] NPC Tworzący acc na rookgard !!!

Open Tibia Server
Zapraszamy na nowy Adres http://otibias.xad.pl

FAQ

Szukaj

Użytkownicy

Grupy

Galerie

Rejestracja

Profil

Zaloguj się, by sprawdzić wiadomości

Zaloguj

[7.6][npc] NPC Tworzący acc na rookgard !!!

Forum Open Tibia Server Strona Główna -> Skrypty Ots

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Defozo
Quara Predator Scout

Dołączył: 15 Sty 2007
Posty: 94
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Gdzieś :)

Wysłany: Pią 18:22, 19 Sty 2007 Temat postu: [7.6][npc] NPC Tworzący acc na rookgard !!!

Nie będę się tutaj rozpisywał. ;]

acc-rook.lua

Kod:

---little config-----------------------------------------
templex = 85
templey = 211
templez = 7
maxnamelen = 15
maxpasslen = 10
startlvl = 1
startexp = 1
vocations = 0
healthstart = 150
manastart = 1
depoitemid = 2591
promoted = 0
---------skills-------------------------
--knight-------
kmlvl = 1
kfist = 10
kclub = 10
ksword = 10
kaxe = 10
kdist = 10
kshield = 10
kfish = 10
kcap = 100
--pall------------
pmlvl = 1
pfist = 10
pclub = 10
psword = 10
paxe = 10
pdist = 10
pshield = 10
pfish = 10
pcap = 100
---drut i sorc----
mmlvl = 1
mfist = 10
mclub = 10
msword = 10
maxe = 10
mdist = 10
mshield = 10
mfish = 10
mcap = 100
---end skills -------------------------------
---end little config-----------------------------------------
focus = 0
talk_start = 0
target = 0
following = false
attacking = false
accstatus = 0
seksik = 3
myname = ''
mypass = ''
allow_pattern = '^[a-zA-Z0-9 -]+$'
origmsg = ''
mypasscheck = ''
mynamecheck = ''
vocation = 0

function onThingMove(creature, thing, oldpos, oldstackpos)

end

function onCreatureAppear(creature)

end

function onCreatureDisappear(cid, pos)
if focus == cid then
selfSay('Good bye then.')
focus = 0
talk_start = 0
end
end

function onCreatureTurn(creature)

end
function msgcontains(txt, str)
return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end

function onCreatureSay(cid, type, msg)
origmsg = msg
msg = string.lower(msg)

if (msgcontains(msg, 'hi') and focus == 0) and getDistanceToCreature(cid) < 4 then
selfSay('Witaj. Jestem tu aby pomoc ci stworzyc nowe konto i nowa postac. Jesli chcesz zaczac tworzenie kona to powiedz mi najpierw czy jestes facetem czy kobieta. --facet---kobieta--- ')
accstatus = 1
myname = ''
mypass = ''
myaccnumber = 0
focus = cid
talk_start = os.clock()

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
selfSay('Poczekaj, porozmawiam z toba za minutke')

elseif focus == cid then
talk_start = os.clock()

if accstatus == 1 then
if msgcontains(msg, 'facet') then selfSay('Dobrze przyjacielu. Teraz podaj mi swoje imie.')
seksik = 1
accstatus = 2
elseif msgcontains(msg, 'kobieta') then
selfSay('Dobrze moja droga, teraz podaj mi swoje imie.')
seksik = 0
accstatus = 2
end

elseif accstatus == 66 then
if msgcontains(msg, 'pall') then
vocation = 0
selfSay('Paladyn, tak ?')

elseif msgcontains(msg, 'sorc') then
vocation = 0
selfSay('Sorcerer, tak ?')

elseif msgcontains(msg, 'drut') then
vocation = 0
selfSay('Druid, tak ?')

elseif msgcontains(msg, 'knight') then
vocation = 0
selfSay('Knight, tak ?')
else
selfSay('Co tak mamroczesz, powiedz jeszcze raz.')
end

accstatus = 67

elseif accstatus == 2 then
myname = origmsg
mynamecheck = msg
if string.len(mynamecheck) <= maxnamelen then
if string.find(mynamecheck, allow_pattern) then
if io.open("data/players/"..myname..".xml" , "r") == nil then
selfSay('Chcesz miec na imie '..myname..' tak ?')
accstatus = 3
else
selfSay('To imie jest juz zarezerwowane !! Podaj inne, slucham')
end
else
selfSay('To imie zawiera niedozwolone znaki !! Podaj inne')
end
else
selfSay('To imie jest za dlugie !! Max to 10 znakow ! Podaj inne')
end
elseif msgcontains(msg, 'tak') then
if accstatus == 3 then
if vocations == 0 then
selfSay('Dobrze, teraz podaj mi haslo ktorego chcesz uzywac.')
vocation = 0
accstatus = 4
else
selfSay('Dobrze przyjacielu, teraz podaj czy chcesz byc --pall-- czy --sroc-- czy --drut-- czy --knight--.')
accstatus = 66
end
elseif accstatus == 5 then
if seksik == 0 then
selfSay('Wspaniale. Sprawdzmy jeszcze raz: Jestes kobieta o imieniu '..myname..' haslo do twojego konta brzmi '..mypass..'. Numer zostanie wylosowany na koncu. Czy wszystko sie zgadza ??')
else
selfSay('Wspaniale. Sprawdzmy jeszcze raz: Jestes facetem o imieniu '..myname..' haslo do twojego konta brzmi '..mypass..'. Numer zostanie wylosowany na koncu. Czy wszystko sie zgadza ??')
end
accstatus = 6
elseif accstatus == 6 then
selfSay('Doskonale. Czy mozemy przystapic do losowania numeru? --losowanie--bye---')
accstatus = 7
elseif accstatus == 67 then
selfSay('Doskonale. Teraz powiedz jakie chcesz miec haslo.')
accstatus = 4
end
elseif msgcontains(msg, 'nie') then
if accstatus == 3 then
selfSay('Podaj inne, slucham')
accstatus = 2
elseif accstatus == 5 then
selfSay('Podaj inne, slucham')
accstatus = 4
elseif accstatus == 6 then
selfSay('Zacznijmy od poczatku: Jestes facetem czy kobieta --facet--kobieta--')
accstatus = 1
elseif accstatus == 67 then
selfSay('Ehhh wiec powiedz jeszcze raz - jaka profesje chcesz miec ?')
accstatus = 66
end
elseif accstatus == 4 then
mypass = origmsg
mypasscheck = msg
if string.len(mypasscheck) <= maxpasslen then
if string.find(mypasscheck, allow_pattern) then
selfSay('Twoje haslo bedzie brzmialo '..mypass..' tak ?')
accstatus = 5
else
selfSay('To haslo zawiera niedozwolone znaki !! Podaj inne')
end
else
selfSay('To haslo jest za dlugie !! Max to 6 znakow ! Podaj inne')
end

elseif msgcontains(msg, 'losowanie') and accstatus == 7 then
if manastart == 0 then
manastartc = 1
else
manastartc = manastart
end
if healthstart == 0 then
healthstartc = 1
else
healthstartc = healthstart
end
if vocations == 0 then
mlvl = 1
fist = 10
club = 10
sword = 10
axe = 10
dist = 10
shield = 10
fish = 10
cap = 100
else
if vocation == 0 or vocation == 0 then
mlvl = mmlvl
fist = mfist
club = mclub
sword = msword
axe = maxe
dist = mdist
shield = mshield
fish = mfish
cap = mcap

elseif vocation == 0 then
mlvl = pmlvl
fist = pfist
club = pclub
sword = psword
axe = paxe
dist = pdist
shield = pshield
fish = pfish
cap = pcap
elseif vocation == 0 then
mlvl = kmlvl
fist = kfist
club = kclub
sword = ksword
axe = kaxe
dist = kdist
shield = kshield
fish = kfish
cap = kcap

end
end

myaccnumber = math.random(100000,999999)
if io.open("data/accounts/"..myaccnumber..".xml" , "r") == nil then
selfSay('wylosowano poprawny numer '..myaccnumber..' Powedz --dalej--')
accstatus = 8
f = assert(io.open("./data/accounts/"..myaccnumber..".xml", "w"))
f = io.open("./data/accounts/"..myaccnumber..".xml", "w")
f:write("<?xml version=\"1.0\"?><account pass=\""..mypass.."\" type=\"1\" premDays=\"666\"><characters><character name=\""..myname.."\"\/><\/characters><\/account>")
f:close()

f = assert(io.open("./data/players/"..myname..".xml", "w"))
f = io.open("./data/players/"..myname..".xml", "w")
f:write("<?xml version=\"1.0\"?><player name=\""..myname.."\" account=\""..myaccnumber.."\" sex=\""..seksik.."\" lookdir=\"3\" exp=\""..startexp.."\" voc=\""..vocation.."\" level=\""..startlvl.."\" access=\"0\" cap=\""..cap.."\" maglevel=\""..mlvl.."\" lastlogin=\"0\" premticks=\"0\" promoted=\""..promoted.."\" banned=\"0\"><spawn x=\""..templex.."\" y=\""..templey.."\" z=\""..templez.."\"\/><temple x=\""..templex.."\" y=\""..templey.."\" z=\""..templez.."\"\/><skull type=\"0\" kills=\"0\" ticks=\"0\" absolve=\"0\"\/><health now=\""..healthstart.."\" max=\""..healthstartc.."\" food=\"1000\"\/><mana now=\""..manastartc.."\" max=\""..manastartc.."\" spent=\"1\"\/><look type=\"134\" head=\"77\" body=\"79\" legs=\"78\" feet=\"77\"\/><skills><skill skillid=\"0\" level=\""..fist.."\" tries=\"0\"\/><skill skillid=\"1\" level=\""..club.."\" tries=\"0\"\/><skill skillid=\"2\" level=\""..sword.."\" tries=\"0\"\/><skill skillid=\"3\" level=\""..axe.."\" tries=\"0\"\/><skill skillid=\"4\" level=\""..dist.."\" tries=\"0\"\/><skill skillid=\"5\" level=\""..shield.."\" tries=\"0\"\/><skill skillid=\"6\" level=\""..fish.."\" tries=\"0\"\/><\/skills><spells><spell words=\"utevo lux\"\/><\/spells><deaths\/><inventory><slot slotid=\"3\"><item id=\"1994\"><inside><item id=\"2674\" count=\"1\"\/><\/inside><\/item><\/slot><slot slotid=\"4\"><item id=\"2650\"\/><\/slot><slot slotid=\"6\"><item id=\"2382\"\/><\/slot><slot slotid=\"7\"><item id=\"2649\"\/><\/slot><slot slotid=\"8\"><item id=\"2643\"\/><\/slot><\/inventory><depots><depot depotid=\"1\"><item id=\""..depoitemid.."\"><inside><item id=\"2594\"\/><\/inside><\/item><\/depot><\/depots><storage><data key=\"777\" value=\""..seksik.."\"\/><\/storage><\/player>")
f:close()
else
selfSay('Error. Wylosowany numer juz istnieje. Powiedz jeszcze raz --losowanie-- aby losowac ponownie. Nie przejmuj sie, to sie czesto zdarza.')
end

elseif msgcontains(msg, 'dalej') and accstatus == 8 then
selfSay('Twoj numer to: '..myaccnumber..' Haslo do tego konta brzmi: '..mypass..' . Nie zapomnij tych passow !! To bylby juz koniec tworzenia twojego konta. Mozesz sie zalogowac i grac !!')
accstatus = 0

elseif string.find(msg, '(%a*)bye(%a*)') and getDistanceToCreature(cid) < 4 then
selfSay('Good bye, ' .. creatureGetName(cid) .. '!')
focus = 0
accstatus = 0
myname = ''
mypass = ''
myaccnumber = 0
seksik = ''
talk_start = 0
end
end
end

function onCreatureChangeOutfit(creature)

end

function onThink()
if (os.clock() - talk_start) > 30 then
if focus > 0 then
selfSay('Nastepny prosze')
end
focus = 0
end
if focus ~= 0 then
if getDistanceToCreature(focus) > 5 then
selfSay('Do zobaczenia')
focus = 0
end
end
end

Acc Maker.xml

Kod:

<?xml version="1.0"?>
<npc name="Acc Maker" script="data/npc/scripts/acc.lua" access="3">
<look type="133" head="19" body="114" legs="94" feet="94"/>
</npc>

Ten skrypt zrobiłem na prośbę.

Post został pochwalony 0 razy

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

ISKIERKA
Gość

Wysłany: Pią 18:29, 19 Sty 2007 Temat postu: Dzieki

dzieki ze zrobiles ten skrypt bardzo mi sie przydal a i zajefajne forum i te skrypty wszystie fajne sa bardzo mi sie przydaly thx za wszystko

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Defozo
Quara Predator Scout

Dołączył: 15 Sty 2007
Posty: 94
Przeczytał: 0 tematów

Ostrzeżeń: 0/5
Skąd: Gdzieś :)

Wysłany: Pią 21:15, 19 Sty 2007 Temat postu:

"gość" właściwie przecie masz tu konto. A działa? ;] Post został pochwalony 0 razy

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Gość

Wysłany: Pon 7:43, 12 Lut 2007 Temat postu:

yeaaah [link widoczny dla zalogowanych] regards, Malebag

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Gość

Wysłany: Śro 9:19, 14 Lut 2007 Temat postu:

Catherine Zeta Jone Throatjob! [link widoczny dla zalogowanych]

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Brendon
Tiger
Tiger

Dołączył: 17 Lut 2007
Posty: 21
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Sob 13:06, 17 Lut 2007 Temat postu:

wow shit [link widoczny dla zalogowanych] regards, Brendon Post został pochwalony 0 razy

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Terdickup8
Tiger
Tiger

Dołączył: 17 Lut 2007
Posty: 17
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Sob 21:16, 17 Lut 2007 Temat postu:

Lindsay Lohan Doing A Hung Guy! [link widoczny dla zalogowanych] Post został pochwalony 0 razy

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Gość

Wysłany: Pią 3:25, 23 Lut 2007 Temat postu:

Carmen Electra Giving A Head And Taking A Load! [link widoczny dla zalogowanych]

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Poencebasder3
Tiger
Tiger

Dołączył: 24 Lut 2007
Posty: 17
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Sob 17:27, 24 Lut 2007 Temat postu:

Nicole Kidman Blowjob! [link widoczny dla zalogowanych] Post został pochwalony 0 razy

Powrót do góry

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

Kaina
Tiger
Tiger

Dołączył: 25 Lut 2007
Posty: 20
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Nie 1:20, 25 Lut 2007 Temat postu:

Jessica Alba In Anal Action Movie! [link widoczny dla zalogowanych] Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum Open Tibia Server Strona Główna -> Skrypty Ots	Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

Regulamin

Na skróty:Forum Forum Inne Otservlista Hyde Park Skrypty Ots Inne Gry OTS Inne strony Accmakery Pomoc Bannery Drużyny OTS Publikacja Map Poradniki Real Tibia Regulamin Pomoc-CZAT