SUPER SAIYAN HELP

[G4vR0]

PLEASE HELP ME WITH THIS…

CURRENT STATE:
-when I type /ssj I turn in to a super saiyan (< good thing)

-when I type /ssj and then again /ssj (I have the same txt and when I type /ssj for the third time its again the same txt ... etc ( -im always ssj when I type /ssj (there is no magi losing so when it reach 0 i turn back normal...I need someone to help me when im a super saiyan to lose mana < bad thing i said neeed help)

I NEED:
-that I can use this command only when im lvl that I set 50,100,1000 nvm
-when I type /revert to turn back in my normal form...lose stats that I got as a ssj (but keep my old stats + stats from leveling up as a ssj)
-effect to transformation (like...fire around char or something)

HERE IS THE CURRENT CODE:

            V - THIS IS THE WHERE I SET A THING THAT I NEED TO TYPE TO TURN SSJ

> Select Case LCase(Trim(TextSay))   
> Case "/ssj"
> Call player_transform(index, 2)
> Exit Sub

            V - THIS IS A MAIN CODE

> Sub player_transform(index, creature)
> '********************************
> On Error Resume next
> Dim x
> Dim transformed
> Dim first
> transformed=0
>
> transformed=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "Is_creature")
>
> If transformed= 0 Then
>
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_level", GetPlayerLevel(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_exp", GetPlayerExp(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_strength", GetPlayerSTR(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_defence", GetPlayerDEF(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_magic", GetPlayerMAGI(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_points", GetPlayerPoints(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_sprite", GetPlayersprite(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "is_creature", Int(creature))
>
> first=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_first")
>
> If first <> 0 Then
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_first", 1)
> End If
>
>   Select Case creature
>        
>       Case 1
>      
>         If first=1 Then
>        
>         Call SetPlayerSprite(index, 35)
>         Call SetPlayerPoints(index, 0)
>         Call SetPlayerMAGI(index, 100)
>         Call SetPlayerDEF(index, 100)
>         Call SetPlayerSTR(index, 100)
>         Call SetPlayerExp(index, 0)
>         Call SetPlayerLevel(index, 1)
>         Call sendplayerdata(index)
>         Call playermsg(index, "You have become a Super Saiyan for the first time", 14)
>         Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_first", 0)
>      
>         Else
>      
>         Call SetPlayerSprite(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_sprite"))
>         Call SetPlayerPoints(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_points"))
>         Call SetPlayerMAGI(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_magic"))
>         Call SetPlayerDEF(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_defence"))
>         Call SetPlayerSTR(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_strength"))
>         Call SetPlayerExp(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_exp"))
>         Call SetPlayerLevel(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_level"))
>         Call sendplayerdata(index)
>         Call playermsg(index, "You have become a Super Saiyan once again", 14)
>        
>           End If
>        
>         Case 2
>        
>           If first=1 Then
>        
>         Call SetPlayerSprite(index, 35 )
>         Call SetPlayerPoints(index, 0)
>         Call SetPlayerMAGI(index, 100)
>         Call SetPlayerDEF(index, 100)
>         Call SetPlayerSTR(index, 100)
>         Call SetPlayerExp(index, 0)
>         Call SetPlayerLevel(index, 1)
>         Call sendplayerdata(index)
>         Call playermsg(index, "You Fell Anger inside of U…U fell energy flowing trough U...AGRHHHHHHHHHHHHH!!!...U are in SUPER SAIYAN STATE NOW!!!", 14)
>         Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_first", 0)
>      
>         Else
>      
>         Call SetPlayerSprite(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_sprite"))
>         Call SetPlayerPoints(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_points"))
>         Call SetPlayerMAGI(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_magic"))
>         Call SetPlayerDEF(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_defence"))
>         Call SetPlayerSTR(index, getVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_strength"))
>         Call SetPlayerExp(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_exp"))
>         Call SetPlayerLevel(index, GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_level"))
>         Call sendplayerdata(index)
>         Call playermsg(index, "Your thirst for blood bothers you again. Time to feed", 14)
>        
>           End If
>        
>   End Select
>
> Else
>
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_level", GetPlayerLevel(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_exp", GetPlayerExp(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_strength", GetPlayerSTR(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_defence", GetPlayerDEF(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_magic", GetPlayerMAGI(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_points", GetPlayerPoints(index))
> Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", Int(creature) & "_creature_sprite", GetPlayersprite(index))
>
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_sprite")
>   Call SetPlayerSprite(index, Int(x))
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_points")
>   Call SetPlayerPoints(index, Int(x))
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_magic")
>   Call SetPlayerMAGI(index, Int(x))
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_defence")
>   Call SetPlayerDEF(index, Int(x)) 
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_magic")
>   Call SetPlayerSTR(index, Int(x))
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_exp")
>   Call SetPlayerExp(index, Int(x))
>  
>   x=GetVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "player_level")
>   Call SetPlayerLevel(index, Int(x))
>
>   Call PutVar("scripts\charextras\" & trim(GetPlayerName(index)) & ".ini", "TRANSFORMS", "is_creature", 0)
>
> Call SendStats(index)
> Call SendMP(index)
> Call SendHP(index)
> Call sendplayerdata(index)
> Call playermsg(index, "You have reverted to your true form.", 14)
>
> End If
>
> End Sub

NOW TELL ME WHAT TO DOOOOO :|