Jump to content

Lanz

Members
  • Posts

    32
  • Joined

  • Last visited

Posts posted by Lanz

  1. Sir,

     

    Good day!..


     

    If you have time..


     

    Can you help me to make a script that announce the first 5 guilds who
    reach the max level along with there guild master and then be rewarded
    by specific items like tcg and zeny all the member's of the said
    guilds...


     


    Script Description


    • Announce "<Guild Master's Name> and his/her Guild:
      <Guild Name> is the <Position - 1st/2nd/3rd...> to reach the
      max level"...
    • All members of the guild including the Guild Master will recieve a
      reward and it will depend on their position in the ranking. Reward will
      be automatically be given through mail upon reaching the max level..
    • An NPC will appear and this will show you the ranking of the guild from 1st to 5th..

    Example of ranking


    Position - Guild Name - Guild Master


    1 - Our Guild - Player


    2 - Their guild - Player


     


    Hope you can help me.. thanks in advance..

  2. Suggestion:

    How bout adding it on DB folder name_color.txt and chat_color.txt to make it more user friendly.

    Ex:

    <group_id>,<color>

    99,FF0000 //GM level 99 would have a red name.

    <group_id>,<color>

    99,FF0000 //GM level 99 would have a red chat .

  3. A. This Exchanger trades Kafrapoints to zeny and vice versa but this is not an ordinary exchanger its exchange rate changes randomly from time to time..

    For Example:

    8:00 AM Exchange rate 1 Kafrapoints = 100,000z

    8:10 AM Exchange rate 1 Kafrapoints = 112,000z

    9:13 AM Exchange rate 1 Kafrapoints = 90,230z

    12:28PM Exchange rate 1 Kafrapoints = 99,100z

    So Basically exchange rate can be higher or lower from time to time

    Concept taken from: Currency Exchange rates.

    rand(90000,120000);

    B. A NPC that you can invest your zeny or kafrapoints and your investment can go higher or lower also from time to time..

    Concept taken from: Stock Market

    You can withdraw you investment anytime you like..

    Thanks in advance

  4. Thanks sir for the reply

    I tried to modified the script of daily quest by katazui and i get this error..

    Buildin_countitem: Invalid item '2'

    Here is the code:

    //Made by: Katazui
    //5/21/2011
    //Version 2.50
    prontera,136,171,4 script Tristan 102,{
    if (getgmlevel() >= 80) goto GM_Menu;
    L_START:
    if (getgmlevel() >= 80) next;
    mes "[Daily  Quest]";
    mes "Hello "+strcharinfo(0)+"!";
    mes "Do you want to start today's Quest?";
    mes " ";
    mes "Total Daily Quests Finished: ^008800"+$DailyQuestTotal+"^000000.";
    mes "Today Daily Quests Finished: ^0000FF"+$DailyQuestToday+"^000000.";
    menu "Yes!",-,"Nahh",L_Close;
    next;
    mes "[Daily Quest]";
    mes "You'll need these item for Today's Quest:";
    mes "^FF0000"+getitemname($QuestItem1)+"^000000 x "+$QuestItem1HM+"";
    mes "In exchange you will get ^0000FFPoints^000000 x "+$DailyQuestPrizeHM+"";
    next;
    mes "[Daily Quest]";
    mes "Do you have the items?";
    menu "Yes! I do.",-,"Gimme some time.",L_Close;
    if(countitem($QuestItem1) >= $QuestItem1HM) goto FinishQuest;
    next;
    mes "[Daily Quest]";
    mes "You only have "+countitem($QuestItem1HM)+" of ^FF0000"+getitemname($QuestItem1)+"^000000.";
    mes "Come back when you have it! Better get the items quickly. It's gonna change in a Day!";
    close;
    end;
    L_Close:
    next;
    mes "[Daily Quest]";
    mes "Come back again! Get the Items!";
    mes "Goodbye!";
    close;
    end;
    GM_Menu:
    mes "[Daily Quest]";
    mes "Hello GM "+strcharinfo(0)+"!";
    mes "What can I do for you today?";
    menu "Player Menu",L_START,"Change Today's Quest/Prize",L_ChangeQuest,"Close",L_Close;
    end;
    L_ChangeQuest:
    next;
    mes "[Daily Quest]";
    mes "What will you like to change?";
    next;
    menu "Go back.",GM_Menu,"Prize [^0000FF"+getitemname($DailyQuestPrize)+"^000000 x "+$DailyQuestPrizeHM+"]",L_ChangePrize,"Change Quest Randomly",L_ChangeQuestRandom,"Change Quest by Myself",L_ChangeQuestMyself;
    end;
    L_ChangeQuestMyself:
    next;
    mes "[Daily Quest]";
    mes "Which item would you like to change first?";
    menu "Go Back.",L_ChangeQuest,"Item 1 [^FF0000"+getitemname($QuestItem1)+"^000000 x "+$QuestItem1HM+"]",L_ChangeItem1;
    //
    L_ChangeItem1:
    next;
    mes "[Daily Quest]";
    mes "Alright. What will be the item?";
    next;
    input $QuestItem1;
    next;
    L_ChangeItem12:
    mes "[Daily Quest]";
    mes "How much of ^ff0000"+getitemname($QuestItem1)+"^000000 do you want?";
    mes "It must be in the range of ^0088001 ~ 200^000000.";
    next;
    input $QuestItem1HM;
    next;
    if ($QuestItem1HM > 200) goto L_HMItem1Denied;
    mes "[Daily Quest]";
    mes "Item 1 Set.";
    set $DailyQuestToday,0;
    mes "^FF0000"+getitemname($QuestItem1)+"^000000 x "+$QuestItem1HM+".";
    next;
    goto L_ChangeQuest;
    end;
    L_HMItem1Denied:
    mes "[Daily Quest]";
    mes "This item (^ff0000"+getitemname($QuestItem1)+"^000000) must be in a range of ^0088001 ~ 200^000000.";
    next;
    goto L_ChangeItem12;
    end;
    //
    L_ChangeQuestRandom:
    set $QuestItem1, rand(4001,4453);
    set $QuestItem1HM, rand(1,3);
    set $DailyQuestPrizeHM, rand(1,50);
    set $DailyQuestToday,0;
    mes "[Daily Quest]";
    mes "This is the Daily Quest:";
    mes "^FF0000"+getitemname($QuestItem1)+"^000000 x "+$QuestItem1HM+"";
    next;
    goto GM_Menu;
    end;
    L_ChangePrize:
    next;
    mes "[Daily Quest]";
    mes "Input the Prize";
    next;
    input $DailyQuestPrize;
    next;
    mes "[Daily Quest]";
    mes "The Prize: "+getitemname($DailyQuestPrize)+" x How many?";
    next;
    input $DailyQuestPrizeHM;
    next;
    mes "[Daily Quest]";
    mes "This is what you like?";
    mes "^0000ffPoints^000000 x "+$DailyQuestPrizeHM+".";
    menu "Yup, Thanks.",GM_Menu,"Noo! I made a mistake!",L_ChangePrize;
    end;
    FinishQuest:
    next;
    mes "[Daily Quest]";
    mes "You got ^0000FFCedi Points^000000 x "+$DailyQuestPrizeHM+".";
    delitem $QuestItem1,$QuestItem1HM;
    set #POINTS, #POINTS + $DailyQuestPrizeHM;
    set $DailyQuestTotal,$DailyQuestTotal +1;
    set $DailyQuestToday,$DailyQuestToday +1;
    close;
    end;
    
    }
    - script DailyQuestItemChanger -1,{
    OnInit:
    Start:
    set $QuestItem1, rand(4001,4453);
    set $QuestItem1HM, rand(1,3);
    set $DailyQuestPrizeHM, rand(1,50);
    set $DailyQuestToday,0;
    OnHour24:
    set $QuestItem1, rand(4001,4453);
    set $QuestItem1HM, rand(1,3);
    set $DailyQuestPrizeHM, rand(1,50);
    set $DailyQuestToday,0;
    //goto Start;
    end;
    }
    

    Hope you can help me sir to simplify this script and make it 100% working..

    Thanks in advance

    Anyone can help me fix and simplify the script above?

  5. Can I request a quest npc that randomly choose items on item db every 2hours..

    Prize would be tcg..

    For Example:

    jellopy x 1 after 2hours it will randomly choose new item quest to the item db and replace the old quest it will announce the new quest item, so that player is aware..

    Thanks in advance..

  6. This is great gonna test this...asap..

    Suggestion:

    Skill like emergency call would be a nice addons to the project[Only Available on faction leader]..

    @changefactionleader <players name>- so any time player can transfer thier role..

    • Upvote 2
  7. Try This

    - script PvP_System -1,{
    OnPCKillEvent:
    if(strcharinfo(3) != "pvp_y_1-2") end;
    if(@LastKilled == killedrid) end;
    set .@Killer,getcharid(3);
    set .@Killed,killedrid;
    detachrid;
    if(attachrid(.@Killed)){
    if(countitem(969)){
     dispbottom "You Lost 1 Gold from "+rid2name(.@Killer);
     delitem 969,1;
     emotion e_sob,1;
     detachrid;
     if(attachrid(.@Killer)){
      dispbottom "You Gained 1 gold from "+rid2name(.@Killed);
      emotion e_meh,1;
      getitem 969,1;
      set @LastKilled,.@Killed;
      attachnpctimer;
      initnpctimer;
     }
    } else {
     emotion e_sob,1;
     detachrid;
     if(attachrid(.@Killer)){
      dispbottom "Sorry no gold on the "+rid2name(.@Killed);
      emotion e_meh,1;
      set @LastKilled,.@Killed;
      attachnpctimer;
      initnpctimer;
     }
    }
    }
    end;
    OnTimer180000:
    set @LastKilled,0;
    stopnpctimer;
    detachnpctimer;
    end;
    }
    

  8. I tested the script but it gives me 22 times of the said prize..

    Ex.

    you got Yggdrasil Seed(1).

    you got Yggdrasil Seed(1).

    you got Yggdrasil Seed(1).

    So i will recieve 22 ygg seed after woe?weird...

    Need Help..

    There is no error in the map server..

    Thanks in advance

×
×
  • Create New...