Jump to content
  • 0

Fame

Mr BrycE

Asked by Mr BrycE,

 Share

Question

Mr BrycE Poring

Mr BrycE

Posted
  • Group:  Members
  • Topic Count:  125
  • Topics Per Day:  0.03
  • Content Count:  595
  • Reputation:   23
  • Joined:  02/23/12
  • Last Seen:  
Posted

i have a problem with this script...

basically this script will add fame points evry 80mob kill...and the essence of picking a hero type i guess its not that important,..

my problem is it doesnt add any fame points...>.,< also,

can anyone add after they rank up there will be a permanent buff? like imporve concentration lvl 1? and on rank 2 improve concentration lvl 2 and so on....

here's the script..

//====Hero Fame Gaining System====
//====By Temperis=============
- script FameOn -1,{
// Enables the Fame Gaining System
OnPCLogInEvent:
if (EnableFame == 1) end;
set Fame, 0;
set Mobkills, 0;
set PvPkills, 0;
set Deaths, 0;
set EnableFame, 1;
mes "You have yet to choose what type of hero you want to become.";
next;
mes "Choose your destiny";
menu "Selfless Hero",-,"Deadly Hero",L_DHero,"Renouned Hero",L_RHero,"Legendary Hero",L_LHero,"Bountiful Hero",L_BHero;
set Shero, 1;
set HeroFame, 1;
mes "Very well. You are a selfless hero.";
close;
L_DHero:
set Dhero, 1;
set HeroFame, 1;
mes "Very well. You are a deadly hero.";
close;
L_RHero:
set Rhero, 1;
set HeroFame, 1;
mes "Very well. You are a renowned hero.";
close;
L_LHero:
set LHero, 1;
set HeroFame, 1;
mes "Very well. You are a Legendary Hero.";
close;
L_BHero:
set BHero, 1;
set HeroFame, 1;
mes "Very well. You are a Bountiful Hero.";
close;
// ==================================================
// For when a player kills a monster
// ==================================================
OnNPCKillEvent:
if (EnableFame < 1 || Rhero == 1 || Lhero == 1 || Bhero == 1 || Dhero == 1 || Shero == 1) end;
set Mobkills, Mobkills+1;
if (Mobkills == 80) goto L_GainMobFame;
end;
L_GainMobFame:
set Fame, Fame+1;
dispbottom "You have gained fame.";
dispbottom "Your current fame is "+Fame+" .";
dispbottom "Your current rank is "+Rank+" .";
set Mobkills, 0;
end;
// ==================================================
// For when you kill another player
// ==================================================
OnPCKillEvent:
if (EnableFame < 1 || Rhero == 1 || Lhero == 1 || Bhero == 1 || Dhero == 1 || Shero == 1) end;
if (Shero == 1) goto L_PKLoseFame;
set PvPkills, PvPkills+1;
if (PvPkills == 30) goto L_PKGetFame;
end;
L_PKGetFame:
set Fame, Fame+1;
dispbottom "You have gained fame.";
dispbottom "Your current fame is "+Fame+" .";
dispbottom "Your current rank is "+Rank+" .";
close;
L_PKLoseFame:
set Fame, Fame-1;
dispbottom "You have lost fame.";
dispbottom "Your current fame is "+Fame+" .";
dispbottom "Your current rank is "+Rank+" .";
close;
// ====================================================
// For when a player dies.
// ====================================================
OnPCDieEvent:
if (EnableFame < 1 || Rhero == 1 || Lhero == 1 || Bhero == 1 || Dhero == 1 || Shero == 1) end;
if (Shero == 1) goto L_PKGainFame;
set Fame, Fame-1;
dispbottom "You have lost fame.";
dispbottom "Your current fame is "+Fame+" .";
dispbottom "Your current rank is "+Rank+" .";
close;
L_PKGainFame:
set Deaths, Deaths+1;
if (Deaths == 2) goto L_PKGain2;
end;
L_PKGain2:
set Fame, Fame-1;
set Deaths, 0;
dispbottom "You have lost fame.";
dispbottom "Your current fame is "+Fame+" .";
dispbottom "Your current rank is "+Rank+" .";
close;
}
// ====================================================
// Rank Upgrade Component
// ====================================================
2@nyd,223,327,4 script Rank Upgrade 98,{
// if(getgmlevel()<99) end;
mes "- Rank Upgrade Component -";
mes "Current Fame -^FA0000 "+Fame+"^000000";
mes "Current Rank -^0000FA "+Rank+"^000000";
next;
mes "Select an Option";
set @upgrademenu, select(
"Rank Upgrade(1) - Hero",
"Rank Upgrade(2) - Fierce Hero",
"Rank Upgrade(3) - Mighty Hero",
"Rank Upgrade(4) - Vicious Hero",
"Rank Upgrade(5) - Terrifying Hero",
"Rank Upgrade(6) - Conquering Hero"
// "Rank Upgrade(7) - Subjugating Hero",
// "Rank Upgrade(8) - Vanquishing Hero",
// "Rank Upgrade(9) - Beloved Hero",
// "Rank Upgrade(10) - Illustrious Hero",
// "Rank Upgrade(11) - Eminent Hero",
// "Rank Upgrade(12) - King's Hero",
// "Rank Upgrade(13) - Emperor's Hero",
// "Rank Upgrade(14) - Odin's Hero",
// "Rank Upgrade(15) - Immortal Hero",
// "Rank Benefits",
// "Heroes' Ascent",
// "Heroes' Retreat",
);
switch(@upgrademenu) {
case 1:
 mes "Indeed you are ready to make the first upgrade.";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank > 0) goto L_Noupgrade;
 next;
 mes "Now, you shall become a Hero..";
 if (Rank >= 1) goto L_NoUpgrade;
 if (Fame < 250) goto L_Noupgrade;
 set Rank, 1;
 next;
 specialeffect2 514;
 announce "BriceRO Hero, "+strcharinfo(0)+" has upgraded to Rank 1 - Hero!",0;
 logmes "Rank 1 Upgrade";
 mes "You are now Rank 2!";
 getitem 6153,2000;
 getitem 674,1;
 getitem 6096,50;
 getitem 667,10;
 close;
L_Noupgrade:
 mes "You cannot Upgrade your Rank because either you do not have enough fame or you have reached this rank already.";
 close;
case 2:
 mes "Your dedication is very becoming. Do you wish to go to Rank 2?";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank >= 2) goto L_Noupgrade;
 next;
 if (Fame < 750) goto L_Noupgrade;
 mes "Now the world will see the rise of a fierce hero.";
 set Rank, 2;
 next;
 specialeffect2 514;
 announce "BriceRO Hero, "+strcharinfo(0)+" has upgraded to Rank 2 - Fierce Hero!",0;
 logmes "Rank 2 Upgrade";
 mes "You are now Rank 2!";
 next;
 mes "You are quickly growing in your status. I entrust you with this ring.";
 mes "It is a symbol of your power, if you will.";
 next;
 mes "Good luck, "+strcharinfo(0)+" .";
 close;
case 3:
 mes "Do you want to upgrade to Rank 3?";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank >= 3) goto L_Noupgrade;
 next;
 if (Fame < 1300) goto L_Noupgrade;
 mes "Now the world will see a true hero.. A Mighty hero.";
 mes "I will take your ring to imbue it with your heroic energy.";
 set Rank, 3;
 next;
 specialeffect2 514;
 globalmes "Player, "+strcharinfo(0)+" has upgraded to Rank 3 - Mighty Hero!";
 logmes "Rank 3 Upgrade";
 mes "You are now Rank 3!";
 next;
 mes "This ring now is imbued with your heroic spirit.";
 mes "You're now 'mightier than the wolves'.";
 next;
 mes "Good luck, "+strcharinfo(0)+" .";
 close;
case 4:
 mes "Do you want to upgrade to Rank 4?";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank >= 4) goto L_Noupgrade;
 next;
 if (Fame < 2000) goto L_Noupgrade;
 mes "Now the world will see a true hero.. A Vicious hero.";
 mes "I will take your ring to imbue it with your heroic energy.";
 set Rank, 4;
 next;
 specialeffect2 514;
 globalmes "Player, "+strcharinfo(0)+" has upgraded to Rank 4 - Fierce Hero!";
 logmes "Rank 4 Upgrade";
 mes "You are now Rank 4!";
 next;
 mes "This ring now is imbued with your heroic spirit.";
 next;
 mes "Good luck, "+strcharinfo(0)+" .";
 close;
case 5:
 mes "Do you want to upgrade to Rank 5?";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank >= 5) goto L_Noupgrade;
 next;
 if (Fame < 3300) goto L_Noupgrade;
 mes "Your heroic deeds are one word to your enemies... Terrifying..";
 mes "I will take your ring to imbue it with your heroic energy.";
 set Rank, 5;
 next;
 specialeffect2 514;
 globalmes "Player, "+strcharinfo(0)+" has upgraded to Rank 5 - Terrifying Hero!";
 logmes "Rank 5 Upgrade";
 mes "You are now Rank 5!";
 next;
 mes "This ring now is imbued with your heroic spirit.";
 next;
 mes "Good luck, "+strcharinfo(0)+" .";
 close;
case 6:
 mes "Do you want to upgrade to Rank 6?";
 menu "Yes",-,"No",L_Noupgrade;
 if (Rank >= 6) goto L_Noupgrade;
 next;
 if (Fame < 5000) goto L_Noupgrade;
 mes "Your heroic deeds are one word to your enemies... Terrifying..";
 mes "I will take your ring to imbue it with your heroic energy.";
 set Rank, 6;
 next;
 specialeffect2 514;
 globalmes "Player, "+strcharinfo(0)+" has upgraded to Rank 6 - Conquering Hero!";
 logmes "Rank 6 Upgrade";
 mes "You are now Rank 6!";
 next;
 mes "This ring now is imbued with your heroic spirit.";
 next;
 mes "Good luck, "+strcharinfo(0)+" .";
 close;
}
}

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

Emistry Deviling

Emistry

Posted
  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  
Posted

change this

if (EnableFame < 1 || Rhero == 1 || Lhero == 1 || Bhero == 1 || Dhero == 1 || Shero == 1) end;

into this ?

if (EnableFame < 1 || ( !Rhero && !Lhero && !Bhero && !Dhero && !Shero ) ) end;

Link to comment
Share on other sites
Mr BrycE Poring

Mr BrycE

Posted
  • Group:  Members
  • Topic Count:  125
  • Topics Per Day:  0.03
  • Content Count:  595
  • Reputation:   23
  • Joined:  02/23/12
  • Last Seen:  
  • Author
Posted (edited)

all of the same codes? ill change to this?

if (EnableFame < 1 || ( !Rhero && !Lhero && !Bhero && !Dhero && !Shero ) ) end;

ok ill try....

EDIT:

How about putting permanent buffs each rank? is it possible?

Edited by Mr BrycE
Link to comment
Share on other sites
_Dynosawr_ Poring

_Dynosawr_

Posted
  • Group:  Members
  • Topic Count:  11
  • Topics Per Day:  0.00
  • Content Count:  69
  • Reputation:   10
  • Joined:  05/14/12
  • Last Seen:  
Posted (edited)

all of the same codes? ill change to this?

if (EnableFame < 1 || ( !Rhero && !Lhero && !Bhero && !Dhero && !Shero ) ) end;

ok ill try....

EDIT:

How about putting permanent buffs each rank? is it possible?

As far as I know, you can only buff up Stats.

Like this:

statusup2 bStr,1; // Permanantly increases Str by 1
statusup2 bAgi,1; // Permanantly increases Agi by 1
statusup2 bVit,1; // Permanantly increases Vit by 1
statusup2 bInt,1; // Permanantly increases Int by 1
statusup2 bDex,1; // Permanantly increases Dex by 1
statusup2 bLuk,1; // Permanantly increases Luk by 1

PS: I'm not sure about this, but I believe resetting stats will remove those bonuses. You'll have to test that out to be sure.

Edit:

Here's the script (Minus the bonuses): http://pastebin.com/raw.php?i=dmZNbnLD

Edited by Joey
Link to comment
Share on other sites
Mr BrycE Poring

Mr BrycE

Posted
  • Group:  Members
  • Topic Count:  125
  • Topics Per Day:  0.03
  • Content Count:  595
  • Reputation:   23
  • Joined:  02/23/12
  • Last Seen:  
  • Author
Posted

@Joey

I try this today..ill update if it works...

hi..

just like you said that there's a chance of resetting those stats when a player use a reset npc..

so we decided to make a custom ring for them..that gives buffs when equipped.

thanks for the help...

Link to comment
Share on other sites
mrlongshen Poring

mrlongshen

Posted
  • Group:  Members
  • Topic Count:  98
  • Topics Per Day:  0.02
  • Content Count:  1302
  • Reputation:   77
  • Joined:  12/04/12
  • Last Seen:  
Posted

bro. how this progress ?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing
×
×
  • Create New...