Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Implementing Gh0sts boss script trouble..


Braydo25
 Share

Recommended Posts

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 opt
dim dmg
dim sweep
dim pick
dim check
If getPlayersOnMap(150)>0 Then
opt=Rand(6,1)
Select Case opt
Case 0
Case 1
pick=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 2

dmg=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) Then
Call SetMapNpcHP(150,1,GetNpcMaxHP(10))
Call SendNpc(150,1)
End If

Case 3
dmg=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)
Next
Case Else
pick=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 Select

for sweep=1 to GetVar("biridith.ini","party","size")
If GetPlayerHP(GetVar("biridith.ini","header","" & sweep))<=0 Then
Call 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 Then
for check=1 to GetVar("biridith.ini","party","size")
Call PutVar("biridith.ini","header",""?," ")
next
Call PutVar("biridith.ini","party","size","0")
Call RemoveTimer("BiridithBattle "&index)
Call SetMapNpcHp(150,1,GetNpcMaxHP(10))
Call SendNpc(150,1)
End If
End If
next

End If

End Sub
```
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...