İletişim: [email protected]

18xx Oyun İçi Irk Değişimi

'LUA Paylaşımları' forumunda TheSky tarafından 15 Ağustos 2015 tarihinde açılan konu

  1. TheSky

    TheSky New Member

    Katılım:
    3 Mart 2013
    Mesaj:
    901
    Beğeniler:
    0
    Ödül Puanları:
    0
    [HIDE]
    Kod:
    delete from item where num = 800360000
    
    
    
    INSERT INTO ITEM VALUES('800360000','Nation Change Scroll','255','15','19','0','0','0','0','1','1','2 000','0','0','0','0','0','0','83','0','0','0','0', '0','0','0','0','0','0','0','0','0','0','0','0','0 ','0','0','0','0','0','0','0','0','0','0','0','0', '0','0','0','0','0','0','0','0','0')
    [/HIDE]



    18004_Kaisan.lua içeriğini aşağıdakı ile değiştirin.



    [HIDE]
    Kod:
    local Ret = 0;
    
    local NPC = 18004;
    
    
    
    if (EVENT == 101) then
    
    Ret = 1;
    
    end
    
    
    
    local savenum = -1;
    
    
    
    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, 7773, 108, 7013, 109);
    
    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, 10, 101);
    
    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 == 106) then
    
    SelectMsg(UID, 2, savenum, 4070, NPC, 4070, 408, 10, 101);
    
    end
    
    
    
    if (EVENT == 408) then
    
    SendStatSkillDistribute(UID)
    
    end
    [/HIDE]
     
  2. I3lodz

    I3lodz Member

    Katılım:
    17 Mart 2015
    Mesaj:
    64
    Beğeniler:
    0
    Ödül Puanları:
    6
    Cevap: 18xx Oyun İçi Irk Değişimi



    adamsın sen
     
  3. Demir

    Demir Member

    Katılım:
    28 Ağustos 2014
    Mesaj:
    803
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    teşekkürler
     
  4. hazif38

    hazif38 Member

    Katılım:
    23 Ağustos 2015
    Mesaj:
    448
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    thanksss!!!!!!!
     
  5. chef

    chef Member

    Katılım:
    11 Aralık 2014
    Mesaj:
    354
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    sagol usta
     
  6. enaz0369

    enaz0369 Active Member

    Katılım:
    7 Temmuz 2013
    Mesaj:
    1,046
    Beğeniler:
    0
    Ödül Puanları:
    36
    Cevap: 18xx Oyun İçi Irk Değişimi



    erewrewrwetwe
     
  7. N_Y_K_S

    N_Y_K_S Member

    Katılım:
    1 Nisan 2013
    Mesaj:
    103
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    ty yy
     
  8. OldMykoCOM

    OldMykoCOM New Member

    Katılım:
    29 Ağustos 2015
    Mesaj:
    9,778
    Beğeniler:
    0
    Ödül Puanları:
    0
    Cevap: 18xx Oyun İçi Irk Değişimi





    thanksssssssssssssssssssssssssssssss
     
  9. lejoner21

    lejoner21 Member

    Katılım:
    2 Eylül 2012
    Mesaj:
    563
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    bakalım bi
     
  10. sagopa4747

    sagopa4747 Member

    Katılım:
    13 Mart 2015
    Mesaj:
    113
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    sağol kardeş
     
  11. Direnish

    Direnish Member

    Katılım:
    4 Eylül 2012
    Mesaj:
    497
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    Thanks
     
  12. kocu1

    kocu1 Member

    Katılım:
    11 Temmuz 2015
    Mesaj:
    283
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    sadasdasddsad
     
  13. kopukum21

    kopukum21 Member

    Katılım:
    25 Haziran 2013
    Mesaj:
    520
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    saol
     
  14. we1982

    we1982 Member

    Katılım:
    30 Nisan 2012
    Mesaj:
    305
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    :mail::mail::mail::mail::mail::mail::mail:
     
  15. Kharbydis

    Kharbydis Member

    Katılım:
    22 Ekim 2012
    Mesaj:
    158
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    teşekkürlerrrr
     
  16. anfidya06

    anfidya06 New Member

    Katılım:
    12 Şubat 2016
    Mesaj:
    11
    Beğeniler:
    0
    Ödül Puanları:
    1
    Cevap: 18xx Oyun İçi Irk Değişimi



    Teşekkürler, inceleyip öğrenecek çok şey var :)
     
  17. iswatch1

    iswatch1 Member

    Katılım:
    27 Ocak 2014
    Mesaj:
    52
    Beğeniler:
    0
    Ödül Puanları:
    6
    Cevap: 18xx Oyun İçi Irk Değişimi



    iiiiiiiiiiiiiiiiiiiiiiii
     
  18. Sexdebax

    Sexdebax Member

    Katılım:
    15 Aralık 2015
    Mesaj:
    109
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    teşekkürler
     
  19. Ceyar

    Ceyar Member

    Katılım:
    28 Ocak 2016
    Mesaj:
    289
    Beğeniler:
    0
    Ödül Puanları:
    16
    Cevap: 18xx Oyun İçi Irk Değişimi



    çok sağ olasın kardeş.
     
  20. doljan1

    doljan1 Active Member

    Katılım:
    15 Nisan 2015
    Mesaj:
    1,137
    Beğeniler:
    0
    Ödül Puanları:
    36
    Cevap: 18xx Oyun İçi Irk Değişimi



    :D:D
     

Bu Sayfayı Paylaş