İletişim: [email protected]

[Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !

'Kaynak Kod Paylaşımları' forumunda Jackson tarafından 26 Ocak 2015 tarihinde açılan konu

  1. Jackson

    Jackson New Member

    Katılım:
    16 Eylül 2012
    Mesaj:
    1,067
    Beğeniler:
    0
    Ödül Puanları:
    0
    Gerekli prosedürler uzun olduğu için direk upladım dosyadaki prosedürleri sırayla girip lua içeriğinide verdiğimle değiştirmeniz yeterlidir.



    [hide]Oyun Ici Irk Job Gender[/hide]



    18004_Kaisan.lua




    [hide]
    Kod:
    local Ret = 0;
    
    local NPC = 18004;
    
    local savenum = -1;
    
    
    
    if (EVENT == 101) then
    
    	Ret = 1;
    
    end
    
    
    
    if (EVENT == 100) then   
    
    	Level = CheckLevel(UID)
    
    	if (Level > 9) then 
    
    		Class = CheckClass(UID);
    
    		if (Class == 1 or Class == 2 or Class == 3 or Class == 4) then
    
    			ITEM_COUNT = HowmuchItem(UID, 900000000);
    
    			if (ITEM_COUNT < 3000) then
    
    				SelectMsg(UID, 2, savenum, 4065, NPC, 10, 101);
    
    			else
    
    				SelectMsg(UID, 2, savenum, 4064, NPC, 4062, 404, 4063, 101);
    
    			end
    
    		else
    
    			EVENT = 105
    
    		end
    
    	else
    
    		SelectMsg(UID, 2, savenum, 4069, NPC, 10, 101);
    
    	end
    
    end
    
    
    
    if (EVENT == 404) then
    
    	SaveEvent(UID, 4063);
    
    	PromoteUserNovice(UID)
    
    	GoldLose(UID, 3000)
    
    	NATION = CheckNation(UID);
    
    	if (NATION == 1) then
    
    		SelectMsg(UID, 2, savenum, 4066, NPC, 4064, 101);
    
    	else
    
    		SelectMsg(UID, 2, savenum, 4067, NPC, 4064, 101);
    
    	end
    
    end
    
    
    
    if (EVENT == 105) then
    
    	SelectMsg(UID, 3, savenum, 147, NPC, 4070, 106, 7772, 107, 8639, 108, 8648, 200, 8649, 300);
    
    end
    
    
    
    if (EVENT == 200) then
    
    	SelectMsg(UID, 2, -1, 44218, NPC, 8646, 201, 8647, 202);
    
    end
    
    
    
    if (EVENT == 201) then
    
    	ExpChange(UID, -10000000)
    
    end
    
    
    
    if (EVENT == 202) then
    
    	ExpChange(UID, 10000000)
    
    end
    
    
    
    if (EVENT == 300) then
    
    	JOBCHANGEITEM = HowmuchItem(UID, 800560000);
    
    	if (JOBCHANGEITEM > 0) then
    
    		Class = CheckClass(UID);
    
    		if (Class == 1 or Class == 5 or Class == 6) then
    
    			SelectMsg(UID, 3, -1, 44203, NPC, 8651, 302, 8652, 303, 8653, 304);
    
    		elseif (Class == 2 or Class == 7 or Class == 8) then
    
    			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8652, 303, 8653, 304);
    
    		elseif (Class == 3 or Class == 9 or Class == 10) then
    
    			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8651, 302, 8653, 304);
    
    		elseif (Class == 4 or Class == 11 or Class == 12) then
    
    			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8651, 302, 8652, 303);
    
    		end
    
    	else
    
    		SelectMsg(UID, 2, -1, 44217, NPC, 18, 1000);
    
    	end
    
    end
    
    
    
    if (EVENT == 301) then
    
    	JobChange(UID,1);
    
    end
    
    
    
    if (EVENT == 302) then
    
    	JobChange(UID,2);
    
    end
    
    
    
    if (EVENT == 303) then
    
    	JobChange(UID,3);
    
    end
    
    
    
    if (EVENT == 304) then
    
    	JobChange(UID,4);
    
    end
    
    
    
    if (EVENT == 107) then
    
    	Check = NationChange(UID);
    
    	if (Check == 0) then
    
    		SelectMsg(UID, 2, savenum, 1524, NPC, 10, 101);
    
    	elseif (Check == 1) then
    
    		SelectMsg(UID, 2, savenum, 1523, NPC, 18, 1000);
    
    	elseif (Check == 2) then
    
    		SelectMsg(UID, 2, savenum, 1526, NPC, 10, 101);
    
    	elseif (Check == 3) then
    
    		SelectMsg(UID, 2, savenum, 1521, NPC, 10, 101);
    
    	end
    
    end
    
    
    
    if (EVENT == 1000) then
    
    	ShowMap(UID, 450);
    
    end
    
    
    
    if (EVENT == 106) then
    
    	SelectMsg(UID, 2, savenum, 4070, NPC, 4070, 408, 10, 101);
    
    end
    
    
    
    if (EVENT == 408) then
    
    	SendStatSkillDistribute(UID)
    
    end
    
    
    
    if (EVENT == 108) then
    
    	Race = GetRace(UID);
    
    	Class = CheckClass(UID);
    
    	if (Race == 1 or (Race == 2 and (Class == 2 or Class == 7 or Class == 8))) then
    
    		SelectMsg(UID, 2, -1, 44203, NPC, 3006, 101);
    
    	else
    
    		EVENT = 109
    
    	end
    
    end
    
    
    
    if (EVENT == 109) then
    
    	GENDERITEM = HowmuchItem(UID, 800560000);
    
    	if (GENDERITEM > 0) then
    
    		Race = GetRace(UID);
    
    		Class = CheckClass(UID);
    
    		if (Race == 11) then
    
    			SelectMsg(UID, 2, -1, 44203, NPC, 8641, 110, 8642, 111);
    
    		elseif (Race == 12) then
    
    			if (Class == 1 or Class == 5 or Class == 6) then
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8640, 112, 8642, 111);
    
    			else
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8642, 111);
    
    			end
    
    		elseif (Race == 13) then
    
    			if (Class == 1 or Class == 5 or Class == 6) then
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8640, 112, 8641, 110);
    
    			else
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8641, 110);
    
    			end
    
    		elseif (Race == 3 or Race == 2) then
    
    			if (Class == 4 or Class == 11 or Class == 12) then
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8643, 113);
    
    			else
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8643, 113);
    
    			end
    
    		elseif (Race == 4) then
    
    			if (Class == 4 or Class == 11 or Class == 12) then
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8645, 115);
    
    			elseif (Class == 3 or Class == 9 or Class == 10) then
    
    				SelectMsg(UID, 2, -1, 44203, NPC, 8644, 114);
    
    			end
    
    		end
    
    	else
    
    		SelectMsg(UID, 2, -1, 44217, NPC, 18, 1000);
    
    	end
    
    end
    
    
    
    if (EVENT == 110) then
    
    	GenderChange(UID, 12);
    
    end
    
    
    
    if (EVENT == 111) then
    
    	GenderChange(UID, 13);
    
    end
    
    
    
    if (EVENT == 112) then
    
    	GenderChange(UID, 11);
    
    end
    
    
    
    if (EVENT == 113) then
    
    	GenderChange(UID, 4);
    
    end
    
    
    
    if (EVENT == 114) then
    
    	GenderChange(UID, 3);
    
    end
    
    
    
    if (EVENT == 115) then
    
    	GenderChange(UID, 2);
    
    end
    [/hide]



    NOT : Job değişiminde stat pointlerde sıkıntı olursa şu konuma bakıp düzeltebilirsiniz...



    http://www.ko-fox.com/kaynak-kod-pa...m-job-degisiminde-stat-point-sorunu-icin.html



     
  2. chef

    chef Member

    Katılım:
    11 Aralık 2014
    Mesaj:
    354
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Sagol
     
  3. Terry

    Terry New Member

    Katılım:
    26 Eylül 2014
    Mesaj:
    408
    Beğeniler:
    0
    Ödül Puanları:
    0
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Teşekkürler.
     
  4. Becky

    Becky Administrator Site Yetkilisi

    Katılım:
    7 Mart 2012
    Mesaj:
    13,026
    Beğeniler:
    0
    Ödül Puanları:
    36
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    bakalım bir
     
  5. Christian

    Christian Member

    Katılım:
    22 Ekim 2012
    Mesaj:
    728
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    thankssssssssssssssss
     
  6. hstsapi

    hstsapi Member

    Katılım:
    10 Şubat 2013
    Mesaj:
    384
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    tyyyyy
     
  7. kosp51

    kosp51 Member

    Katılım:
    12 Ocak 2013
    Mesaj:
    552
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    saol
     
  8. yigit0999

    yigit0999 Active Member

    Katılım:
    11 Aralık 2012
    Mesaj:
    1,124
    Beğeniler:
    0
    Ödül Puanları:
    36
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    saolasınn
     
  9. love2012

    love2012 Member

    Katılım:
    25 Ekim 2012
    Mesaj:
    369
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Tşkr ederimmm
     
  10. HakanCOSKUN

    HakanCOSKUN New Member

    Katılım:
    20 Mart 2012
    Mesaj:
    823
    Beğeniler:
    0
    Ödül Puanları:
    0
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Teşekkür ederim
     
  11. wiken

    wiken Member

    Katılım:
    26 Aralık 2012
    Mesaj:
    272
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    teşekkürler
     
  12. enaz0369

    enaz0369 Active Member

    Katılım:
    7 Temmuz 2013
    Mesaj:
    1,046
    Beğeniler:
    0
    Ödül Puanları:
    36
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    ewrewtretretreyt
     
  13. yunus1233

    yunus1233 Member

    Katılım:
    28 Şubat 2015
    Mesaj:
    51
    Beğeniler:
    0
    Ödül Puanları:
    6
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Çok güzell ELINE SAGLIK !
     
  14. istanbul

    istanbul Member

    Katılım:
    27 Mart 2012
    Mesaj:
    240
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    uzay tabi lazım.
     
  15. shinryoken

    shinryoken Member

    Katılım:
    1 Mayıs 2012
    Mesaj:
    465
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    thank you
     
  16. Rampage

    Rampage Member

    Katılım:
    7 Mart 2013
    Mesaj:
    458
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Teşekkürler.
     
  17. MrProper

    MrProper Member

    Katılım:
    19 Mart 2014
    Mesaj:
    693
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    tskler
     
  18. lulianyi

    lulianyi Member

    Katılım:
    1 Ocak 2014
    Mesaj:
    883
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    Teşekkürler.
     
  19. Ksp

    Ksp Member

    Katılım:
    26 Mart 2014
    Mesaj:
    309
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    teşekkurler
     
  20. ufksfk07

    ufksfk07 Member

    Katılım:
    21 Ocak 2015
    Mesaj:
    170
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: [Paylaşım] Oyun İçi Job,Irk,Gender,Exp Change Aktif Etme !



    deneyelim
     

Bu Sayfayı Paylaş