[DL/Poradnik] Pierścień Teleportacji i nie tylko !

[Ringtone]

Witam przedstawię zrobiony przez mnie Pierścień teleportacji i nie tylko. Do rzeczy !

 

-------------------
--Quest Pierścień Teleportacji
--By Ringtone
--? Hasunaria Corporation. All rights reserved.
-------------------
say ( "Jeden z Najlepszych Serwerów MT2!" )
say ( " |*Hasunaria*|" )
say ( "Witaj Wojowniku Honoru !" )
say ( "Pierscien Posiada niezwykle moce przekazane przez starego " )
say ( "Mędrca Dbaj o niego i walcz z NIM ! " )
wait ( )
local s = select ( "Do Miasta!" ,"Zakladka dla Teamu" , "Yangi,Poty i Inne" , "Informacje/Eventy" , "Militar i Ranga" , "Umiejętości" , "Polimorfia v2" , "Mapy" , "Anuluj" )
if 1 == s then
say_title ("Zostaniesz Przeniesiony Do Miasta !")
say ("Trzymaj się Mocno!")
wait ()
local empire = pc . get_empire ( )
if empire == 1 then
pc.warp ( 474300 , 954800 )
elseif empire == 2 then
pc . warp ( 63800 , 166400 )
elseif empire == 3 then
pc . warp ( 959900 , 269200 )
end


elseif 2 == s then
say ( "Game Masterze!" )
say ( "Czy Chcesz trochę powalczyć na Arenie?" )
say ("Mamy kilka Aren do dyspozycji wybierz którą chcesz, i czekaj na rywala !")
say ( "Pamiętaj że nie można potować na Arenie " )
local s = select ( "Arena nr.1" ,"Arena nr.2" , "Arena nr.3" , "Arena nr.4" , "Widownia" , "Wroć Do Miasta!" )
say ("Czy Napewno Chcesz Wejść na Arene?")
local scelta = select ( "Wchodze!","Nie, nie jestem przygotowany..." )
if scelta==1 then
pc.warp ( 855200,9000 )
elseif scelta==2 then
say ( "Wróć kiedy będziesz gotów!" )
return
end



if 2 == s then
pc.warp ( 860100,9000 )
end


if 3 == s then
pc.warp ( 859800,15600 )
end


if 4 == s then
pc.warp ( 854800,15100 )
end

if 5 == s then
pc.warp ( 857400,4500 )
end

if 6 == s then
pc.warp ( 469300,964200 )
end

elseif 3 == s then
say ( " Witaj!" )
say ( " Czy Chcesz dostać 1.000.000.000 Yang" )
say ( " Lub Błogosławieństwo Smoka x200?" )
say ( " Mamy też Pelerynki!" )
say ( " Ale Reszte sam poznaj !" )
local s = select ( "Yang" ,"Błogosławieństwo Smoka" ,"Pelerynki" ,"93 Level" ,"Anuluj" )
say ("Czy chcesz Kontynuować ?")
local scelta = select ( "Tak","Nie" )
if scelta==1 then
say ( "Pozdrawiamy Team Hasunaria!" )
elseif scelta==2 then
say ("Jak zabraknie Yang,Potów albo Pelerynek wróć! ")
return
end

if 2 == s then
pc . give_item2 ( 71020 , 200 )
say ( "Otrzymałeś/aś : Błogosławieństwo Smoka x200" )
end

if 3 == s then
pc . give_item2 ( 70038 , 200 )
say ( "Otrzymałeś/aś :Peleryna Męstwa x200" )
end

if 4 == s then
pc . give_exp2 ( 1900000000 )
say ( "Otrzymałeś/aś : 1.900.000.000 EXP" )
end

if 5 == s then
pc . change_money ( 1000000000 )
say ( "Otrzymałeś/aś : 1.000.000.000 Yang" )
end

if 6 == s then
return
end



elseif 4 == s then
say ( "Witam,Cześć i Czołem!" )
say ( "Wraz z Teamem dodaliśmy nową opcje" )
say ( "W Pierścieniu ta opcja jest potrzebna" )
say ( "Do robienia bardzo ciekawych Eventów" )
say ( "Ale sami dowiecie się później," )
say ( "Jak Ona funkcjonuje, A teraz taki bonusik " )
say ( "Pozdrawiamy Team Hasunaria!" )
local s = select ( "Event:Górniczy" ,"Event:Nowy ROK!" ,"Struktura Teamu Hasunaria" ,"Coś od Teamu" ,"Anuluj" )
say ("Czy chcesz Kontynuować ?")
local scelta = select ( "Tak","Nie" )
if scelta==1 then
say ( "Pozdrawiamy Team Hasunaria!" )
elseif scelta==2 then
say ("to żegnaj!")
end

if 1 == s then
say ( "Aktualnie nie ma Eventu Górniczego " )
say ( "Ale dostaniesz kilof " )
pc . give_item2 ( 29110 )
say ( "Otrzymałeś/aś : Kilof +9" )
end


if 2 == s then
say ( "Event:Nowy ROK odbędzie się 1 Stycznia 2012r. o godzinie 0:00! " )
say ( "Petardy! Użyjemy ich aby uczcić Nowy Rok!" )
pc . give_item2 ( 50106 , 200 )
pc . give_item2 ( 50105 , 200 )
pc . give_item2 ( 50107 , 200 )
pc . give_item2 ( 50104 , 200 )
say ( "Otrzymałeś/aś :Petardy x200,Ogniste Petardy x200,Chińskie Petardy x200. " )
end

if 3 == s then
say ( " Struktura Teamu Hasunaria :	" )
say ( " _____________TEAM__________	" )
say ( " Głowa Serwera : [HA]Ringtone   " )
say ( " Game Admin	: [GM]Wolne	  " )
say ( " Game Master   : [GM]Wolne	  " )
say ( " Game Master   : [GM]Wolne	  " )
say ( " Moderator	 : [MOD]Wolne	 " )
say ( " _____________TEAM__________	" )
say ( "___________________________________" )
say ( "" )
say ( "Nabór do Teamu Hasunaria Ciągle ON" )
say ( "" )
say ( "___________________________________" )
end

if 4 == s then
say_title ( "Team: Witamy! " )
say ( "Calutki Team Hasunaria życzy wam Wesołych i udanych Świąt Bożego Narodzenia!" )
say ( "i także bardzo dobrego Nowego Roku! 2012! Dziękujemy że byliście z nami w trudnych chwilach" )
say ( "Jak i w Tych dobrych i właśnie za to wam dziękujemy, Będziemy próbowali umilić wam granie, " )
say ( "na Serwerze Hasunaria różnorakimi Eventami,zabawami i innymi bardzo dobrymi Nagrodami..." )
say ( "Dziękujemy! Team Hasunaria! " )
end

if 5 == s then
return
end



elseif 5 == s then
say ( "Witaj!" )
say ( "Chcesz dostac 30 Level konia i rangę Rycerski? Nic Trudnego ! Wystarczy 1 kliknięcie !" )
local scelta = select ( "Tak","Nie" )
if scelta==1 then
pc . set_skill_level ( 131 , 10 )
horse.set_level ( 30 )
pc.change_alignment ( 200000 )
say ( "Otrzymałeś/aś : Konia Militarnego, Przywołanie Konia na 10, Rangę Rycerski" )
elseif scelta==2 then
say ("Jak nie chcesz to nie,Gorzej dla ciebie ")
return
end

elseif 6 == s then
say_title ( "Witam ciebie " )
say ( "Chcesz Skille na Perfekt?" )
local s = select ( "Tak" , "Nie" )
if 2 == s then
say ("Nie to nie ")
return
end
say ( "Otrzymałeś/aś: Wszystkie Skille Perfekt " )
if pc . get_job() == 0 and pc . get_skill_group()==1 then
pc . set_skill_level (1, 59)
pc . set_skill_level (2, 59)
pc . set_skill_level (3, 59)
pc . set_skill_level (4, 59)
pc . set_skill_level (5, 59)
elseif pc . get_job()==0 and pc . get_skill_group()==2 then
pc . set_skill_level (16, 59)
pc . set_skill_level (17, 59)
pc . set_skill_level (18, 59)
pc . set_skill_level (19, 59)
pc . set_skill_level (20, 59)
elseif pc . get_job()==1 and pc . get_skill_group()==1 then
pc.set_skill_level(31, 59)
pc.set_skill_level(32, 59)
pc.set_skill_level(33, 59)
pc.set_skill_level(34, 59)
pc.set_skill_level(35, 59)
elseif pc . get_job()==1 and pc . get_skill_group()==2 then
pc.set_skill_level(46, 59)
pc.set_skill_level(47, 59)
pc.set_skill_level(48, 59)
pc.set_skill_level(49, 59)
pc.set_skill_level(50, 59)
elseif pc . get_job()==2 and pc . get_skill_group()==1 then
pc.set_skill_level(61, 59)
pc.set_skill_level(62, 59)
pc.set_skill_level(63, 59)
pc.set_skill_level(64, 59)
pc.set_skill_level(65, 59)
pc.set_skill_level(66, 59)
elseif pc . get_job()==2 and pc . get_skill_group()==2 then
pc.set_skill_level(76, 59)
pc.set_skill_level(77, 59)
pc.set_skill_level(78, 59)
pc.set_skill_level(79, 59)
pc.set_skill_level(80, 59)
pc.set_skill_level(81, 59)
elseif pc . get_job()==3 and pc . get_skill_group()==1 then
pc.set_skill_level(91, 59)
pc.set_skill_level(92, 59)
pc.set_skill_level(93, 59)
pc.set_skill_level(94, 59)
pc.set_skill_level(95, 59)
pc.set_skill_level(96, 59)
elseif pc . get_job()==3 and pc . get_skill_group()==2 then
pc.set_skill_level(106, 59)
pc.set_skill_level(107, 59)
pc.set_skill_level(108, 59)
pc.set_skill_level(109, 59)
pc.set_skill_level(110, 59)
pc.set_skill_level(111, 59)
end

elseif 7 == s then
say ( "Witaj!" )
say ( "Wybierz Jakiego Potwora Chcesz Sie Zamienic..." )
say ( "...Lub Wybierz Opcje Powrotu Do Normalnej Postaci " )
local s = select ( "Silny Dziki Sluga" ,"Minotaur" , "Odrodzony Wodz Orkow" , "Lodowa Wiedźma" , "Niebianski Zolnierz" , "Wroć Do Normalnej Postaci." )
say ("Czy Napewno Chcesz Kontynuować?")
local scelta = select ( "Tak","Nie" )
if scelta==1 then
pc.polymorph ( 552, 80 )
elseif scelta==2 then
say ( "To Żegnam ciebie " )
return
end


if 2 == s then
pc.polymorph ( 2604, 90 )
end


if 3 == s then
pc.polymorph ( 693, 80 )
end


if 4 == s then
pc.polymorph ( 1191, 80 )
end


if 5 == s then
pc.polymorph ( 2401, 80 )
end


if 6 == s then
pc.polymorph ( 1, 1 )
end

elseif 8 == s then
say ( "Wojaku!" )
say ( "Czy chcesz powędrować w dalekie strony?" )
say ("Mamy kilka Map do dyspozycji wybierz którą chcesz!")
say ( "Pamiętaj o Potach i Pelerynkach! " )
local s = select ( "Do Miasta!" ,"Do Groty!" , "Do Red Lasu!" , "Na Mape Eventowa!" )
say ("Czy Napewno Chcesz Kontynuować?!")
local scelta = select ( "Tak","Nie, nie jestem przygotowany..." )
if scelta==1 then
pc.warp ( 469300,964200 )
say ( "Zostajesz Teleportowany Do Miasta!" )
elseif scelta==2 then
say ( "Wróć kiedy będziesz gotów!" )
return
end



if 2 == s then
say ( "Zostajesz Teleportowany Do Groty!" )
pc.warp ( 9800 , 1215100 )
end


if 3 == s then
say ( "Zostajesz Teleportowany Do Red Lasu!" )
pc.warp ( 1119900 , 70800 )
end


if 4 == s then
say ( "Zostajesz Teleportowany na Mape Eventową!" )
pc.warp ( 20000 , 55600 )
end

wait ( )

pc . setqf ( "next_time" , get_time ( ) + 3600 )
elseif 9 == s then
say ( "Dbaj o pierścień a teraz żegnaj !" )
say ( "Pierścień By Ringtone for Mpcforum.pl" )
end

SS:

 

To jest pierścień V1 będą jeszcze inne aktualizacje pierścienia. Ten oto pierścień rozpowszechniałem na 2 forach te i konkurencyjne nick (Kobieta). Jeżeli nie wierzysz napisz tam na PW do mnie odpiszę.

 

Ps. Większość moich prac z tamtego forum przywłaszczył sobie użytkownik o nazwie Skaczuś.

[Lyons]

To się robi nie w p tele tylko nowy item z informacjami + info o nowościach na bazie sql...

 

Ps. funkcje dla gm'a byś dał tylko dla niego a nie dla każdego...

[Ringtone]

Lyons : będzie jeszcze pierścień v2 więc poprawię wszystkie bugi związane z pierścieniem i nad tym pracuję ale dziękuję za pokazanie gdzie są błędy.

[matuszny1987]

przerobiony standardowy szitowski quesst co daje skile na p nie napisany przez ciebie

[lopescio]

Funkcje dla teamu są dla graczy.

 

A po co ta funkcja event górniczy? Nawet nie ma funkcji sprawdzającej czy takowy event jest...

 

Ile jeszcze dodacie tych pierścieni?

[Ringtone]

przerobiony standardowy szitowski quesst co daje skile na p nie napisany przez ciebie

Milcz. Napisałem go w 100% nie będę się z tobą kłócić. Dodałem skille na P nie pasuje ? mogę dodać nawet na M.

 

Funkcje dla teamu są dla graczy.

 

A po co ta funkcja event górniczy? Nawet nie ma funkcji sprawdzającej czy takowy event jest...

 

Ile jeszcze dodacie tych pierścieni?

Napisałeś to samo co Lyons bądź oryginalny i nie nie pisz tego co inni. Event górniczy działa sprawdzałem sam.

 

V2 będzie bardzie udoskonalony. Przepraszam za bugi.

[lopescio]

No to powiedz mi, na jakiej zasadzie działa ten event górniczy, bo ja widzę, że jak klikniesz zakładkę "Event:Górniczy" to dostajesz kiolof, i nic więcej.

 

Poza tym, tak się "napracowałeś" że nawet nie łaska było poprawić to wizualnie, wystarczy spojrzeć na ss i widać, że w pierwszym kategorie wychodzą poza ramkę, a w drugim say jest za długi

[Ringtone]

No to powiedz mi, na jakiej zasadzie działa ten event górniczy, bo ja widzę, że jak klikniesz zakładkę "Event:Górniczy" to dostajesz kiolof, i nic więcej.

 

Poza tym, tak się "napracowałeś" że nawet nie łaska było poprawić to wizualnie, wystarczy spojrzeć na ss i widać, że w pierwszym kategorie wychodzą poza ramkę, a w drugim say jest za długi

Event górniczy polega na tym że się dostaje kilof +9 którego się nie da zdobyć w żaden inny sposób a po tym Teleportujesz się na mapę eventową i rozbijasz rudy.(tak było na moim serwerze)

 

W v2 będę próbował to doprecyzować i ten tekst. więc proszę o cierpliwość i masz like za uwagi.