Jump to content

deathscythe13

Members
  • Posts

    118
  • Joined

  • Last visited

  • Days Won

    1

Posts posted by deathscythe13

  1. prontera,155,188,0 script test 910,{
        end;
    OnInit:
    setarray .message$, "H","E","L","L","O"," ","W","O","R","L","D";
    while(1) {
    delwaitingroom;
      for(set .@i , 0; .@i < getarraysize(.message$) ; set .@i, .@i+1) {
       set .word$, .word$+.message$[.@i];
      }
    
      set .@temp$ , .message$[getarraysize(.message$)-1];
      for(set .@i , (getarraysize(.message$)-1); .@i > 0 ; set .@i, .@i-1) {
       set .message$[.@i] , .message$[.@i-1];
      }
       set .message$[.@i] , .@temp$;
    
      waitingroom .word$,0;
      set .word$, "";
    sleep 200;
    }
    }
    

  2. prontera,146,170,5 script Guild Package Member 416,{
    if(countitem(8998)<1 ||  #done) {
    mes "[Guildsmen]";
    mes "You are not qualified on the Event";
    mes "Please inquire to the game master";
    close;
    } else {
    delitem 8998,1;
    mes "[Guildsmen]";
    mes "Hello Players welcome to the Guild Package Event";
    mes "I am in-charge of the Members of the guild you have.";
    next;
    mes "[Guildsmen]";
    mes "Please choose a weapon";
    mes "Choose wisely, because this is only one time.";
    mes "^FF0000THINK BEFORE YOU CLICK^000000";
    next;
    menu "Infiltrator[1]",-,"+7 Luna Kaleet[3]",kaleet,"+7 Principles of Magic[2]",Magic,"+7 Orc Archer's Bow",Archer,"+7 Lich Bone Wand",wand,"+7 Orcish Axe",axe;
    getitem 1266,1;
    callfunc "F_2nd";
    end;
    kaleet:
    getitem2 1544,1,1,7,0,0,0,0,0;
    callfunc "F_2nd";
    end;
    Magic:
    getitem2 1572,1,1,7,0,0,0,0,0;
    callfunc "F_2nd";
    end;
    Archer:
    getitem2 1734,1,1,7,0,0,0,0,0;
    callfunc "F_2nd";
    end;
    wand:
    getitem2 1624,1,1,7,0,0,0,0,0;
    callfunc "F_2nd";
    end;
    axe:
    getitem2 1309,1,1,7,0,0,0,0,0;
    callfunc "F_2nd";
    end;
    OnPCLoadMapEvent:
    if(strcharinfo(3)=="prontera") showevent 2,2;
    end;
    }
    }
    
    prontera mapflag loadevent
    function script F_2nd {
    next;
    mes "[Guildsmen]";
    mes "Choose Your Armor";
    mes "Choose wisely, because this is only one time.";
    mes "^FF0000THINK BEFORE YOU CLICK^000000";
    next;
    menu "+7 Odin's Blessing[1]",-,"+7 Dragon Vest[1]",Vest,"+7 Improved Tights[1]",Tights;
    getitem2 2353,1,1,7,0,0,0,0,0;
    callfunc "F_3rd";
    end;
    Vest:
    getitem2 2399,1,1,7,0,0,0,0,0;
    callfunc "F_3rd";
    end;
    Tights:
    getitem2 2390,1,1,7,0,0,0,0,0;
    callfunc "F_3rd";
    end;
    }
    function script F_3rd {
    next;
    mes "[Guildsmen]";
    mes "Choose Your Accessory";
    mes "Choose wisely, because this is only one time.";
    mes "^FF0000THINK BEFORE YOU CLICK^000000";
    next;
    menu "Orlean's Glove[1]",-,"Bradium Earring[1]",B1,"Bradium Ring[1]",B2,"Bradium Brooch[1]",B3;
    getitem 2701,2;
    callfunc "F_4th";
    end;
    B1:
    getitem 2788,2;
    callfunc "F_4th";
    end;
    B2:
    getitem 2789,2;
    callfunc "F_4th";
    end;
    B3:
    getitem 2790,2;
    callfunc "F_4th";
    end;
    }
    function script F_4th {
    next;
    mes "[Guildsmen]";
    mes "Choose Your Garments";
    mes "Choose wisely, because this is only one time.";
    mes "^FF0000THINK BEFORE YOU CLICK^000000";
    next;
    menu "+7 Dragon Manteau[1]",-,"+7 Wool Scarf[1]",wool,"+7 Skin of Ventus[1]",ventus;
    getitem2 2553,1,1,7,0,0,0,0,0;
    callfunc "F_5th";
    end;
    wool:
    getitem2 2528,1,1,7,0,0,0,0,0;
    callfunc "F_5th";
    end;
    ventus:
    getitem2 2536,1,1,7,0,0,0,0,0;
    callfunc "F_5th";
    end;
    }
    function script F_5th {
    next;
    mes "[Guildsmen]";
    mes "Choose Your Shield";
    mes "Choose wisely, because this is only one time.";
    mes "^FF0000THINK BEFORE YOU CLICK^000000";
    next;
    menu "+7 Valkyrie Shield[1]",-,"+7 Thorny Shield[1]",torn,"+7 Orlean's Server[1]",server;
    getitem2 2115,1,1,7,0,0,0,0,0;
    callfunc "F_6th";
    end;
    torn:
    getitem2 2124,1,1,7,0,0,0,0,0;
    callfunc "F_6th";
    end;
    server:
    getitem2 2123,1,1,7,0,0,0,0,0;
    callfunc "F_6th";
    end;
    }
    function script F_6th {
    next;
    mes "[Guildsmen]";
    mes "Now this is the Last Part";
    mes "Take this headgears and consumables item.";
    mes "^FF0000Click next and your done!^000000";
    next;
    getitem 13989,100;
    getitem 14004,50;
    getitem 14232,10;
    getitem 12530,100;
    getitem 14003,5;
    getitem 14236,1;
    getitem 14237,1;
    getitem 14238,1;
    getitem 14239,1;
    getitem 14240,1;
    getitem 14241,1;
    getitem 14178,1;
    getitem 12710,5;
    getitem 2202,1;
    getitem2 5453,1,1,0,0,0,0,0,0;
    close2;
    atcommand "@sound complete.wav";
    specialeffect2 501;
    atcommand "@me Is done! NEXT!";
    set #done, 1;
    end;
    }
    

  3. try this

    prontera,156,180,4 script Party Checker 100,{
    if(getcharid(1) != 1) {
    mes "Sorry you don't have party.";
    close;
    }
    getpartymember getcharid(1),1;
    getpartymember getcharid(1),2;
    
    for( set .@i,0; .@i<$@partymembercount && !.@classdupe; set .@i,.@i+1 ) {
     if (isloggedin($@partymemberaid[.@i],$@partymembercid[.@i]) ) {
      attachrid($@partymemberaid[.@i]); set .@comparemember1, Class;
      attachrid($@partymemberaid[.@i+1]); set .@comparemember2, Class;
       if(.@comparemember2 == .@comparemember1)
     set .@classdupe, 1;
      detachrid;
     }
    }
    if(.@classdupe) {
    mes "Sorry there is someone in your party with the same Class.";
    close;
    }
    mes "Good your ready to go";
    close;
    }
    

  4. didn't test it yet but that should work

    prontera,156,180,4 script MVP LADDER 100,{
    set .@query, query_sql ("SELECT char_id,value FROM  `global_reg_value` WHERE  `str` LIKE  'mvpladder' ORDER BY  `str` DESC LIMIT 0,10",.@char_id,.@value);  // Query Limit to 10
    for(set .@i,0; .@i<.@query; set .@i,.@i+1) {
    attachrid(.@char_id[.@i]);
    mes .@i+" "+strcharinfo(0)+" kills: "+.@value[.@i];
    }
    close;
    OnNPCKillEvent:
    if (getmonsterinfo(killedrid,MOB_MVPEXP)) //Every Kill MVP +1
     set mvpladder,mvpladder+1;
    end;
    }
    

  5. prontera,156,180,4 script Event NPC 100,{
    mes "Would you like to play ? ";
    next;
    if(select("Yes:No") == 2)
    close;
    if(Zeny < 100000) {
    mes "Your zeny is not enough";
    close;
    }
    set Zeny, Zeny-100000;
    next;
    mes "....";
    next;
    set .@rand, rand(1,100);
    if(.@rand < 2 ) { // Jackpot Prize 1% win
    mes "Congratulations you won the jackpot!!!";
    set Zeny, Zeny+1000000;
    }
    else if(.@rand < 5) { Other Prize 5% win
    mes "Congratulations you won consolation prize!!";
    switch(rand(4)) {
     case 0: getitem 985,4; break;
     case 1: getitem 984,4; break;
     case 2: set Zeny,Zeny+250000; break;
     case 3: set Zeny,Zeny+500000; break;
    }
    }
    else {
    mes "Too bad you didn't win anything!!";
    }
    close;
    }
    

  6. mine's fix already after a couple of days *i think 3 days* i dont know why.. /heh maybe it's just my internet..

    edit: btw what emistry posted just looks like mine where there are no images beside

×
×
  • Create New...