level Tokens and storage

[Cro]

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)

[Steve]

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


[dbgtrulz]

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)