A question about Eclipse Source

[Steveo]

Recently a guy emailed me a question that I could notr answer,  does any scripting master have the answer to this question…..

> Hi,
>
> I got a small question about Eclipse Source.
> I made a script for a battle system. Now I want to place it in Eclipse. I think this can be done with Scripted Tile, I just don't know where to place the form/document and how I can link to it.
> Could you please help?
>
> Anasky

To answer this  you can PM me or PM the guy directly…....anasky

[Drummerpete]

He sent that too me as well.

xD

[Khachaturian]

me too :p

[anasky]

Lol, since I already thought not everybody would get it, I thought it would be wise to send it to some guys. Elsewise it would take me 100000 years to get it fixed.

Anasky

[Driocku]

Poor anasky all the good scripters don't reply to these and ignore them.

[Lenton]

It depends on what the battle system actually does, if you want it to open in a new window you would have to create a new form, something like frmBattle.

[Driocku]

Anasky did make a new form but couldn't open it with sadscript commands and stuff.

Well Heres the code hes having problems with

Sub ScriptedTile(Index, Script)
Select Case Script
Case 0
Call BattleScript(Index)
enemyhpleft = 60
enemyhpmax = 60
Case Else
Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub

[Khachaturian]

ask cyrus
he doesnt come around here tho

[Goku]

@Driocku:

> Anasky did make a new form but couldn't open it with sadscript commands and stuff.
>
> Well Heres the code hes having problems with
>
> Sub ScriptedTile(Index, Script)
> Select Case Script
> Case 0
> Call BattleScript(Index)
> enemyhpleft = 60
> enemyhpmax = 60
> Case Else
> Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
> Exit Sub
> End Select
> End Sub

Ask yourself this questions.

Do you know what are you doing? Is it worth it? Would you play your own game?

Well here is small head ups

      Case 0
            ' Initializing values
            player(index).enemyhpleft = 60
            player(index).enemyhpmax = 60
        Call BattleScript(Index)

[Goku]

@Driocku:

> Anasky did make a new form but couldn't open it with sadscript commands and stuff.
>
> Well Heres the code hes having problems with
>
> Sub ScriptedTile(Index, Script)
> Select Case Script
> Case 0
> Call BattleScript(Index)
> enemyhpleft = 60
> enemyhpmax = 60
> Case Else
> Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
> Exit Sub
> End Select
> End Sub

Ask yourself this questions.

Do you know what are you doing? Is it worth it? Would you play your own game?

Well here is small head ups

make sure to place enemyhpleft and enemyhpmax  into player rec… i think modtype

            ' Initializing values
            player(index).enemyhpleft = 60
            player(index).enemyhpmax = 60

            Call BattleScript(Index)

[Driocku]

Well its a good thing I'm not the programmer then, I'm just used for ideas and I'm the only Digimon Fan in the project. But thanks for fixing the code I'll tell anasky once hes back.

[anasky]

@Cyrus:

> Ask yourself this questions.
>
> Do you know what are you doing? Is it worth it? Would you play your own game?
>
> Well here is small head ups
>
> make sure to place enemyhpleft and enemyhpmax  into player rec… i think modtype
>
>             ' Initializing values
>             player(index).enemyhpleft = 60
>             player(index).enemyhpmax = 60
>
>             Call BattleScript(Index)

Hi cyrus,
This isn't working… In case it's the VB6 part: here is the BattleScript which should open it:

```
Sub HandleData(ByVal Index As Long, ByVal Data As String)
    Dim Parse() As String

    On Error Resume Next

    Parse = Split(Data, SEP_CHAR)
'all the rest is between this...
        Case "BattleScript"
            Call Packet_BattleScript(Index, Val(Parse(1)))
    End Select
End Sub

Public Sub Packet_BattleScript()

frmBattle.Visible = True

End Sub
```
So, is this the problem?
Anasky
P.S.: I don't know if it's nessecarry to place it in the client AND the server, but that's what I did.

[Steveo]

I applaud you for trying to customize the game play, if you ever get it working I will definitely download it and play it!

But I am trying to understand what exactly you are doing…..Is it some Battle like Command and Conquer?  Or......is it a Team Battle like  Capture the Flag  in Halo?

Plz I request that you describe what exactly your Battle system will be when you get it working??????

[anasky]

Hi Steveo, I got it to work now, but I'm still figuring something with it (HP of enemy :P).

It's a battle system for my Digimon Game, it will be turn based (as far as you can see it turn-based since it's you press, you or enemy attack, the other attacks, in loop).

And I'll post the link for the download (it's not my game, I'm making this for my bro) of the game as soon as possible.

I'll reply to questions you ask if i know the answer and if it has to do something with the Digimon game.

Greetings, Anasky.

[anasky]

@Alex-Lenton:

> It depends on what the battle system actually does, if you want it to open in a new window you would have to create a new form, something like frmBattle.

frmBattle.frm is created, i got it to work now, but at frmBattleOpen i set settings for the map specifications (I made 8 variables for this). Something like: Enemy1 = scrlEnemy1
Enemy2 = scrlEnemy2
Enemy3 = scrlEnemy3
Enemy4 = scrlEnemy4
Enemy5 = scrlEnemy5
Enemy6 = scrlEnemy6

In the frmBattle.frm it makes a random number between 1 and 100, and f.e.:
if Encounter > 0 And Encounter <= 20 And NapNum = 1 Then
Enemy = Enemy1
End If

When I come back on that map, he thinks mapNum, and all Enemy's are back on 0… how can I let it save this?

Anasky