Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Warrior and Drizzt Item Level Restriction

Author

Warrior and Drizzt

Submitted / Updated

07-23-2003 / 11-22-2006

Category

Inventory Item

Expansions

Works on all versions

View Code

//CREATED BY: WARRIOR (warrior.to@brturbo.com) & DRIZZT (ducamr@hotmail.com)
//THIS SCRIPT WORKS IN THE MUDULE'S ONHEARTBEAT EVENT

int levelToXP(int level);
int getItemLevel(object oItem);
void forceDrop(object oItem, object oPlayer);
effect eDammagePC = EffectDeath(TRUE, TRUE);
void main()
{

//subraca
object oMod = GetModule();
ExecuteScript("_cb_heartbeat", oMod);
//autosave
ExecuteScript("war_auto_save", oMod);


 object oPC = GetFirstPC();
 int PCxp;
 int i;
 object oItem;
 int itemLevel = 0;


  while(GetIsPC(oPC)){

  PCxp = GetXP(oPC);
  i = 0;

  if(!GetIsDM(oPC) && !GetHasSpellEffect(SPELL_TENSERS_TRANSFORMATION,oPC))
  {
    object oSlot1 = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC);
    if((oSlot1!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot1))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot1, oPC));
        //ActionUnequipItem(oSlot1);
    }
    object oSlot2 = GetItemInSlot(INVENTORY_SLOT_ARROWS,oPC);
    if((oSlot2!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot2))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot2, oPC));
    }
    object oSlot3 = GetItemInSlot(INVENTORY_SLOT_BELT,oPC);
    if((oSlot3!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot3))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot3, oPC));
    }
    object oSlot4 = GetItemInSlot(INVENTORY_SLOT_BOLTS,oPC);
    if((oSlot4!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot4))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot4, oPC));
    }
    object oSlot5 = GetItemInSlot(INVENTORY_SLOT_BOOTS,oPC);
    if((oSlot5!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot5))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot5, oPC));
    }
    object oSlot6 = GetItemInSlot(INVENTORY_SLOT_BULLETS,oPC);
    if((oSlot6!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot6))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot6, oPC));
    }
    object oSlot7 = GetItemInSlot(INVENTORY_SLOT_CARMOUR,oPC);
    if((oSlot7!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot7))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot7, oPC));
    }
    object oSlot8 = GetItemInSlot(INVENTORY_SLOT_CHEST,oPC);
    if((oSlot8!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot8))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot8, oPC));
    }
    object oSlot9 = GetItemInSlot(INVENTORY_SLOT_CLOAK,oPC);
    if((oSlot9!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot9))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot9, oPC));
    }
    object oSlot10 = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B,oPC);
    if((oSlot10!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot10))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot10, oPC));
    }
    object oSlot11 = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L,oPC);
    if((oSlot11!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot11))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot11, oPC));
    }
    object oSlot12 = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R,oPC);
    if((oSlot12!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot12))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot12, oPC));
    }
    object oSlot13 = GetItemInSlot(INVENTORY_SLOT_HEAD,oPC);
    if((oSlot13!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot13))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot13, oPC));
    }
    object oSlot14 = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC);
    if((oSlot14!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot14))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot14, oPC));
    }
    object oSlot15 = GetItemInSlot(INVENTORY_SLOT_LEFTRING,oPC);
    if((oSlot15!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot15))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot15, oPC));
    }
    object oSlot16 = GetItemInSlot(INVENTORY_SLOT_NECK,oPC);
    if((oSlot16!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot16))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot16, oPC));
    }
    object oSlot17 = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC);
    if((oSlot17!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot17))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot17, oPC));
    }
    object oSlot18 = GetItemInSlot(INVENTORY_SLOT_RIGHTRING,oPC);
    if((oSlot18!=OBJECT_INVALID) && (levelToXP(getItemLevel(oSlot18))>PCxp)){
        DelayCommand(0.05, forceDrop(oSlot18, oPC));
    }
   }// End if DM
    oPC = GetNextPC();
  }
}

//Funcao ForceDrop

void forceDrop(object oItem, object oPlayer)
{
    if (GetItemPossessor(oItem) == oPlayer)
    {

        SetLocalInt(oPlayer, "vai_morrer", GetLocalInt(oPlayer, "vai_morrer")+1);
        if(GetCurrentHitPoints(oPlayer)<1){
           SetLocalInt(oPlayer, "vai_morrer", 1);
        }else{
        if(GetLocalInt(oPlayer, "vai_morrer")>=20){
          SetLocalInt(oPlayer, "vai_morrer", 1);
          ApplyEffectToObject(DURATION_TYPE_INSTANT, eDammagePC, oPlayer);
        }
        }


        FloatingTextStringOnCreature("Voce nao tem level suficiente para usar este item!", oPlayer);
        //SendMessageToPC(oPlayer, "Voce nao tem level suficiente para usar este item.");
        //SendMessageToPC(oPlayer,IntToString(GetGoldPieceValue(oItem)));
        SetCommandable(TRUE, oPlayer);
        AssignCommand(oPlayer, ClearAllActions());
        AssignCommand(oPlayer, ActionPutDownItem(oItem));
        DelayCommand(0.1, SetCommandable(FALSE, oPlayer));
        SetLocalInt(oPlayer, "forceDrop_eval", TRUE);
        DelayCommand(0.998, DeleteLocalInt(oPlayer, "forceDrop_eval"));
        DelayCommand(1.0, forceDrop(oItem, oPlayer));
    }
    else
    {
        if(!GetLocalInt(oPlayer, "forceDrop_eval"))
        {
            SetCommandable(TRUE, oPlayer);
            SetLocalInt(oPlayer, "forceDrop_eval", FALSE);
            SetLocalInt(oPlayer, "vai_morrer", 1);

        }
    }
}

// Funcao q retorna a XP minima requerida para o level
int levelToXP(int level)
{
  float XP;
  XP = (((level*0.5)-0.5)*level);
  XP = XP*1000;

  return FloatToInt(XP);
}

//Funcao Warrior de pegar lv do item
int getItemLevel(object oItem)
{
    int n;
    if (GetIdentified(oItem))
    {
        n = GetGoldPieceValue(oItem);
    }
    else
    {
        SetIdentified(oItem, TRUE);
        n = GetGoldPieceValue(oItem);
        SetIdentified(oItem, FALSE);
    }

    if(n>=0 && n<=1000)
     return 1;
    else if(n>1000 && n<=1500)
     return 2;
    else if(n>1500 && n<=2500)
     return 3;
    else if(n>2500 && n<=3500)
     return 4;
    else if(n>3500 && n<=5000)
     return 5;
    else if(n>5000 && n<=6500)
     return 6;
    else if(n>6500 && n<=9000)
     return 7;
    else if(n>9000 && n<=12000)
     return 8;
    else if(n>12000 && n<=15000)
     return 9;
    else if(n>15000 && n<=19500)
     return 10;
    else if(n>19500 && n<=25000)
     return 11;
    else if(n>25000 && n<=30000)
     return 12;
    else if(n>30000 && n<=35000)
     return 13;
    else if(n>35000 && n<=40000)
     return 14;
    else if(n>40000 && n<=50000)
     return 15;
    else if(n>50000 && n<=65000)
     return 16;
    else if(n>65000 && n<=75000)
     return 17;
    else if(n>75000 && n<=90000)
     return 18;
    else if(n>90000 && n<=110000)
     return 19;
    else if(n>110000 && n<=130000)
     return 20;
    else if(n>130000 && n<=150000)
     return 21;
    else if(n>150000 && n<=170000)
     return 22;
    else if(n>170000 && n<=200000)
     return 23;
    else if(n>200000 && n<=250000)
     return 24;
    else if(n>250000 && n<=300000)
     return 25;
    else if(n>300000 && n<=350000)
     return 26;
    else if(n>350000 && n<=400000)
     return 27;
    else if(n>400000 && n<=450000)
     return 28;
    else if(n>450000 && n<=500000)
     return 29;
    else if(n>500000 && n<=550000)
     return 30;
    else if(n>550000 && n<=600000)
     return 31;
    else if(n>600000 && n<=650000)
     return 32;
    else if(n>650000 && n<=700000)
     return 33;
    else if(n>700000 && n<=750000)
     return 34;
    else if(n>750000 && n<=800000)
     return 35;
    else if(n>800000 && n<=850000)
     return 36;
    else if(n>850000 && n<=900000)
     return 37;
    else if(n>900000 && n<=950000)
     return 38;
    else if(n>950000 && n<=1000000)
     return 39;
    else if(n>1000000 && n<=1100000)
     return 40;
    else if(n>1100000 && n<=1200000)
     return 41;
    else if(n>1200000 && n<=1300000)
     return 42;
    else if(n>1300000 && n<=1400000)
     return 43;
    else if(n>1400000 && n<=1500000)
     return 44;
    else if(n>1500000 && n<=1600000)
     return 45;
    else if(n>1600000 && n<=1700000)
     return 46;
    else if(n>1700000 && n<=1800000)
     return 47;
    else if(n>1800000 && n<=1900000)
     return 48;
    else if(n>1900000 && n<=2000000)
     return 49;
    else if(n>2000000 && n<=2100000)
     return 50;
    else if(n>2100000 && n<=2200000)
     return 51;
    else if(n>2200000 && n<=2300000)
     return 52;
    else if(n>2300000 && n<=2400000)
     return 53;
    else if(n>2400000 && n<=2500000)
     return 54;
    else if(n>2500000 && n<=2600000)
     return 55;
    else if(n>2600000 && n<=2700000)
     return 56;
    else if(n>2700000 && n<=2800000)
     return 57;
    else if(n>2800000 && n<=2900000)
     return 58;
    else if(n>2900000 && n<=3000000)
     return 59;
    else if(n>3000000 && n<=3500000)
     return 60;
    else
     return 61;

/*
int vSaveCount = GetLocalInt(GetModule(), "VTRIU_COUNT_SAVE");
if (vSaveCount >= 100) // 100/10 = 10 minutos: modifique o valor se quizer
// um periodo de Save maior ou menor.
{
ExportAllCharacters();
SetLocalInt(GetModule(), "VTRIU_COUNT_SAVE" , 0);
object player = GetFirstPC();
SendMessageToPC( player, "Save de Personagem Executado." );
int done = FALSE;
while (!done)
{
object nextplayer = GetNextPC();
if ( nextplayer != player )
{
SendMessageToPC( nextplayer, "Save de Personagem Executado." );
player = nextplayer;
}
else
{
done = TRUE;
}
}
}
else
SetLocalInt(GetModule(), "VTRIU_COUNT_SAVE" , vSaveCount + 1);
*/

}

Select All Text | View Code in separate window

Format

Code Only

Type

Type - Manipulation

Includes

BioWare Standard

Description

Script para controle de item level restriction, criado para o m�dulo Triunphus e criado por Warrior ([email protected]) e Drizzt ([email protected]).

Files

Name	Type	Size	Downloads
NO FILES

SCORE OUT OF 10

10
1 votes
View Stats
Cast Your Vote!

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

No Images

You Must Be Logged In to Participate.

Comments (8):

Posted by Old_Scores_Transfered at 2004-02-20 10:29:27 Voted 10.00 on 02/20/04

This is a compilation of the old system into a single score. There were 18 that made this score of 9.55 then rounded to 10.

Posted by Vomited ( ..xxx.xxx ) at 2003-10-02 10:06:00

não cnsigo fazer ele funciona direito =\

Posted by Vomited ( ..xxx.xxx ) at 2003-10-02 09:31:00

Esse script dropa o item quando o char naum tem xp o suficiente ou simplesmante naum dexa ele equipar o item!(isso eh uma pergunta teclado bugado)
pq mesmo ele tendo itens no inv o item drop, mesmo naum tentando equipar

Posted by Warrior ( ..xxx.xxx ) at 2003-07-27 23:39:00

Afe o html da pagina estragou o final da função, mas daí eh soh copiar do original! na verdade soh precisa tirar as linhas:

//subraca
object oMod = GetModule();
ExecuteScript("_cb_heartbeat", oMod);
//autosave
ExecuteScript("war_auto_save", oMod);

e a parte comentada no final do script, sem tirar aultima "{" que fecha a função.

Posted by Popoto ( ..xxx.xxx ) at 2003-07-25 10:17:00

Beleza... valeus ! E parabens pelo script !!! Boa sorte.

Posted by Warrior ( ..xxx.xxx ) at 2003-07-25 01:47:00

A vantagem desse script para os outros usados para level restriction é que com ele os players podem carregar em seu inventório qualquer item, não podendo apenas equipar os itens de level maior que os seus.
A desvantagem teórica seria ele funcionar no onheartbeat do módulo, porém já comprovamos que ele não causa lag no server.

Posted by Warrior ( ..xxx.xxx ) at 2003-07-25 01:43:00

Sobre o funcionamento do script ele funciona da seguinte forma:
Como o script funciona no onheartbeat do módulo, a cada passada desse evento ele verifica em cada player que está no server os itens que ele tem equipado, daí compara o level requerido do item com o level atual do player, detalhe que ele calcula o level do player através de sua XP e não pegando o level diretamente, isso foi feito para possibilitar o funcionamento do script para leveis acima de lv 20 (lv máximo do nwn antes da expansão), caso o script encontre algum item equipado no player que este não tenha level o suficiente para usar o script automaticamente força o player a dropar este item no chão!

Posted by Warrior ( ..xxx.xxx ) at 2003-07-25 01:36:00

Esse é o script do evento onheartbeat do módulo Triunphus!
Ao postá-lo aqui não percebi que veio a parte de auto-save do módulo junto, e também uma linha de comando para as sub-raças do módulo.

You must be Logged In to post comments in this section.