Need help with my first part of a nation war script!

[Sealbreaker]

so…. this is what i got... and i need help, cause it does nothing....

```
Sub NationFight(index)
Dim TimeStart
Dim TimeEnd

TimeStart = GetServerTime(12,0,0)
TimeEnd = GetServerTime(12,25,0)

If TimeStart = True Then
Call GlobalMsg("Nation war started!", GREEN)
Call PutVar("war.ini",  "WAR",  "war", 1)
If TimeEnd = True Then
Call GlobalMsg("Nation war ended!", Green)
Call PutVar("war.ini",  "WAR",  "war", 0)
Else
End If
End Sub
```

and:

```
Case "/war"
If GetVar("war.ini", "WAR", "war", 0) Then
Call PlayerMsg(index, "War is not active!, RED)
Else
If GetPlayerGuild(index, guildname) Then
Call Playerwarp(index, #, x, y)
If GetPlayerGuild(index, guildname) Then
Call Playerwarp(index, #, x, y)
End If
Exit Sub
```

[emblem]

You're using ALL the functions wrong (except playermsg and globalmsg). That's why it wont work.

This post would be more helpful, but I'm really tired and can't think so sorry.

[Admiral Refuge]

Yea, GetServerTime is being assigned wrong, and it's not a Boolean, and it's not in a loop to continuously check.

Your best bet would be using timers

[Sealbreaker]

i dont know how to fix it…. so...can someone maybe give me the right code??? goin to be credited... and i'm really thankful then ;D

[Admiral Refuge]

You want the war to be active from 12:00 to 12:25, right?

[Sealbreaker]

right =)

[Admiral Refuge]

TimedEvent sub:
```
If Hours = 12 And Minutes = 0 Then
Call GlobalMsg("Nation war started!", GREEN)
Call PutVar("war.ini", "WAR", "war", "1")
End If
If Hours = 12 And Minutes = 25 Then
Call GlobalMsg("Nation war ended!", GREEN)
Call PutVar("war.ini",  "WAR",  "war", "0")
End If

```
slash-command:
```
Case "/war"
If GetVar("war.ini", "WAR", "war") = "1" Then
Select Case GetPlayerGuild(index)
Case "guildname"
Call PlayerWarp(Index, MapNumber, X, Y)
Case "guildname2"
Call PlayerWarp(Index, MapNumber, X, Y)
End Select
Else
Call PlayerMsg(index, "War is not active!", RED)
Exit Sub

```

[Sealbreaker]

thank you admiral =)
you are helping every noob, almost every time… you're one of the nicest person on eclipse =)

edit: it doesnt work right.... when war starts it says: nation war started! almost every second and if it ends it says nation war ended! every second...

[emblem]

Post your timed events sub.
The whole thing.

[Sealbreaker]

' Executes every second, based on the server time.
Sub TimedEvent(Hours, Minutes, Seconds)
If Hours = 12 And Minutes = 0 Then
  Call GlobalMsg("Nation war started!", GREEN)
  Call PutVar("war.ini", "WAR", "war", "1")
End If
If Hours = 12 And Minutes = 25 Then
  Call GlobalMsg("Nation war ended!", GREEN)
  Call PutVar("war.ini",  "WAR",  "war", "0")
End If
End Sub

[emblem]

Ah. Admiral forgot that it will execute every second.

```
' Executes every second, based on the server time.
Sub TimedEvent(Hours, Minutes, Seconds)
If Hours = 12 And Minutes = 0 And Seconds = 0 Then
  Call GlobalMsg("Nation war started!", GREEN)
  Call PutVar("war.ini", "WAR", "war", "1")
End If
If Hours = 12 And Minutes = 25 And Seconds = 0 Then
  Call GlobalMsg("Nation war ended!", GREEN)
  Call PutVar("war.ini",  "WAR",  "war", "0")
End If
End Sub

```

[Sealbreaker]

thank you..goin to test it tomorrow….;D ( its 2:40 here<.< )

edit: LOL there was just the End If missing before exit sub xDDD ( in /war )

[Sealbreaker]

first: sorry for doublepost ^^
this is what i got till now ( tell me if it would work pls and maybe can someone complete my /enemy- command) :

```
' Executes every second, based on the server time.
Sub TimedEvent(Hours, Minutes, Seconds)
If Hours = 12 And Minutes = 0 And Seconds = 0 Then
  Call GlobalMsg("Nation war started!", RED)
  Call PutVar("war.ini", "WAR", "war", "1")
End If
If Hours = 12 And Minutes = 25 And Seconds = 0 Then
  Call GlobalMsg("Nation war ended!", RED)
  Call PutVar("war.ini", "WAR", "war", "0")
  Call PutVar("war.ini", "WAR", "a", "0")
  Call PutVar("war.ini", "WAR", "a", "0")
End If
End Sub
```

```
Case "/war"
If GetVar("war.ini", "WAR", "war") = "1" Then
  Select Case GetPlayerGuild(index)
      Case "guildname"
        Call PlayerWarp(Index, MapNumber, X, Y)
        Call PlayerMsg(index, "You joined the natonwar", Green)
        Call PutVar("war.ini", "WAR", "a", Int(a) + 1)
      Case "guildname2"
        Call PlayerWarp(Index, MapNumber, X, Y)
        Call PlayerMsg(index, "You joined the nationwar", GREEN)
        Call PutVar("war.ini", "WAR", "b", Int(b) + 1)
  End Select
Else
  Call PlayerMsg(index, "War is not active!", RED)
End If
Exit Sub
```
and this ( i need help with it…. ) :

```
Case "/war"
If GetVar("war.ini", "WAR", "war") = "1" Then
  Select Case GetPlayerGuild(index)
      Case "guildname"
        Call PlayerWarp(Index, MapNumber, X, Y)
        Call PlayerMsg(index, "You joined the natonwar", Green)
        Call PutVar("war.ini", "WAR", "a", Int(a) + 1)
      Case "guildname2"
        Call PlayerWarp(Index, MapNumber, X, Y)
        Call PlayerMsg(index, "You joined the nationwar", GREEN)
        Call PutVar("war.ini", "WAR", "b", Int(b) + 1)
  End Select
Else
  Call PlayerMsg(index, "War is not active!", RED)
End If
Exit Sub
```