level Tokens and storage

January 17, 2006, 09:55:45 PM

Cro

Newb

User No : 146

Posts: 22

0 credits

View Inventory

Send Money To Cro

level Tokens and storage (#0)

Can someone help me make a script that every time a person levels up they gain a token (the token can be handed in like money to a store that will trade you HP, MP, or SP ups and spells) I almost have it down but I want to see if I can give more tokens out depending on the level
Example: level 2-10 will get 1 token, level 11-20 will get 2 tokens and so on
Also, Is there a way so spots on the map that items are dropped in, those items will never disappear (such as a personal bank vault or a storage room in player owned houses)


	Logged

To hell with the Mortals for the Lich is the only way!

January 18, 2006, 03:11:09 PM

Steve

Active Member

User No : 84

Posts: 171

0 credits

View Inventory

Send Money To Steve

Location : Pacific,MO

level Tokens and storage (#1)

Find this in you main.txt

Code: [Select]


Sub PlayerLevelUp(index)
Dim I    
Dim D
Dim C
    
    C = 0
    Do While GetPlayerExp(index) => GetPlayerNextLevel(index)    
        D = GetPlayerExp(index) - GetPlayerNextLevel(index)
        Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
        I = Int(GetPlayerSPEED(index) / 10)
        If I < 1 Then I = 1
        If I > 3 Then I = 3
            
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 1)
        Call SetPlayerExp(index, D)      
        C = C + 1
    Loop
    If C > 1 Then 
        'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6)
    Else
        'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6)      
    End If     
    Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0)   
End Sub

All you need to do is put this code here:

Code: [Select]


Call GiveItem(index, ITEM NUMBER, ITEM AMOUNT)

You need to put that where it says ------------------HERE-------------------

Code: [Select]


Sub PlayerLevelUp(index)
Dim I    
Dim D
Dim C
    
    C = 0
    Do While GetPlayerExp(index) => GetPlayerNextLevel(index)    
        D = GetPlayerExp(index) - GetPlayerNextLevel(index)
        Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
--------------------------HERE----------------------------------------------
        I = Int(GetPlayerSPEED(index) / 10)
        If I < 1 Then I = 1
        If I > 3 Then I = 3
            
        Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 1)
        Call SetPlayerExp(index, D)      
        C = C + 1
    Loop
    If C > 1 Then 
        'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6)
    Else
        'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6)      
    End If     
    Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0)   
End Sub


	Logged

Your Friend, (http://www.nextech.byethost.com)
Steve

Paperdoll God!

January 18, 2006, 04:23:15 PM

dbgtrulz

Active Member

User No : 139

Posts: 197

0 credits

View Inventory

Send Money To dbgtrulz

level Tokens and storage (#2)

Let me see if I remember this correctly, but If you want to give 1 token for each 10 levels, where steve said ITEM AMMOUNT, put:

Code: [Select]

Int(GetPlayerLevel(index)/10)
That takes the players level, divides it by 10, the gets rid of the decimal. For example, if the player leveled to 27, it would divide by 10 (which gives you 2.7) and get rid of the decimal (which will leave you with 2)


	Logged

No Spam Or Websites

Recent Topics

Who's Online