Braydo25 Posted May 13, 2008 Author Share Posted May 13, 2008 Im so confused on how to add this into my main for a scripted npc its not comprehendable, what does the ini need? blah etc, look through the script and you will see how it searches for certain things.please explain what i would need to do to implement this =/```Sub BiridithBattle(index)dim optdim dmgdim sweepdim pickdim checkIf getPlayersOnMap(150)>0 Thenopt=Rand(6,1)Select Case optCase 0Case 1pick=Rand(GetVar("biridith.ini","party","size"),1)dmg=Rand(400-GetPlayerMagi(GetVar("biridith.ini","header","" & pick)),(400-GetPlayerMagi(GetVar("biridith.ini","header","" & pick)))-100)Call SpellAnim(50,150,GetPlayerX(GetVar("biridith.ini","header","" & pick)),GetPlayerY(GetVar("biridith.ini","header","" & pick)))Call SetPlayerHP(GetVar("biridith.ini","header","" & pick),GetPlayerHP(GetVar("biridith.ini","header","" & pick))-dmg)Call SendHP(GetVar("biridith.ini","header","" & pick))Call BattleMsg(GetVar("biridith.ini","header","" & pick),"Breath of Fire -" & dmg & "-",14,1)Case 2dmg=Rand(5000,2725)Call SpellAnim(49,150,GetNpcX(150,1),GetNpcY(150,1))Call SetMapNpcHP(150,1,GetMapNpcHP(150,1)+dmg)Call SendNpc(150,1)for check=1 to GetVar("biridith.ini","party","size")Call BattleMsg(GetVar("biridith.ini","header","" & check),"Biridith +" & dmg&"+",15,0)next'Call MapMsg(150,"Biridith +"&dmg&"+",15)If GetMapNpcHP(150,1)>GetNpcMaxHP(10) ThenCall SetMapNpcHP(150,1,GetNpcMaxHP(10))Call SendNpc(150,1)End IfCase 3dmg=Rand(700,100)For sweep=1 to GetVar("biridith.ini","party","size")Call SpellAnim(48,150,GetPlayerX(GetVar("biridith.ini","header","" & sweep)),GetPlayerY(GetVar("biridith.ini","header","" & sweep)))Call SetPlayerHP(GetVar("biridith.ini","header","" & sweep),GetPlayerHP(GetVar("biridith.ini","header","" & sweep))-dmg)Call SendHP(GetVar("biridith.ini","header","" & sweep))Call BattleMsg(GetVar("biridith.ini","header","" & sweep),"Fire Rain .:" & dmg & ":.",14,1)NextCase Elsepick=Rand(GetVar("biridith.ini","party","size"),1)dmg=Rand(400-GetPlayerMagi(GetVar("biridith.ini","header","" & pick)),(400-GetPlayerMagi(GetVar("biridith.ini","header","" & pick)))-100)Call SpellAnim(50,150,GetPlayerX(GetVar("biridith.ini","header","" & pick)),GetPlayerY(GetVar("biridith.ini","header","" & pick)))Call SetPlayerHP(GetVar("biridith.ini","header","" & pick),GetPlayerHP(GetVar("biridith.ini","header","" & pick))-dmg)Call SendHP(GetVar("biridith.ini","header","" & pick))Call BattleMsg(GetVar("biridith.ini","header","" & pick),"Breath of Fire -" & dmg & "-",14,1)End Selectfor sweep=1 to GetVar("biridith.ini","party","size")If GetPlayerHP(GetVar("biridith.ini","header","" & sweep))<=0 ThenCall PlayerWarp(GetVar("biridith.ini","header","" & sweep),149,9,6)Call SetPlayerHP(GetVar("biridith.ini","header","" & sweep),GetPlayerMaxHP(GetVar("biridith.ini","header","" & sweep)))Call SendHP(GetVar("biridith.ini","header","" & sweep))Call PlayerMsg(GetVar("biridith.ini","header","" & sweep),"The World Guards sensed your defeat and ported you before utter demise.",14)If getPlayersOnMap(150)=0 Thenfor check=1 to GetVar("biridith.ini","party","size")Call PutVar("biridith.ini","header",""?," ")nextCall PutVar("biridith.ini","party","size","0")Call RemoveTimer("BiridithBattle "&index)Call SetMapNpcHp(150,1,GetNpcMaxHP(10))Call SendNpc(150,1)End IfEnd IfnextEnd IfEnd Sub``` Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now