My Capture the flag script

[The Emblem]

I was bored today so I tried making a capture the flag script.
I am compleatly new to this language (i dont even know what its called)
I thought it might inspire others to edit it and make it work.
Notes:
It Does not work:

• Very Buggy
• Untested
• 100+ Script Errors
• Im a newb
[/list:u]
Some info you will need to know:

Map 1:Lobby
Map 2:Red Team Waiting Room
Map 3:Blue Waiting Room
Map 4:Red Team Base
Map 5:Blue Team Base
Item 1:Red Bandana (Team Emblem)
Item 2:Blue Bandana
Item 3:Red Flag
Item 4:Blue Flag
Any way well if you want to help me get it to work I would be happy to help  
Anyway here is the code: Just look for all the 'TODO: 's to fund out what you need to change.

Code: [Select]


'********************************
'Capture The Flag               *
'********************************
'Capture The Flag was made by:  *
'    Emblem Of Eclips Forums    *
'                               *
'Anyone may use and/or change   *
'This script as long as you     *
'Leave the origional            *
'Author note where it is.       *
'********************************


'********************************
'TODO:Add this to the end of your main file:
'********************************


Sub CTF_Chose_Red(index)
If GetPlayerHelmetSlot(index)=0 Then
 If GetPlayerShieldSlot(index)=0 Then
  If GetVar("CTF.ini", "Settings", "GameOn") = 1 Then
   Call PlayerMsg(index, "There is already a game started.", 14)
   Call PlayerMsg(index, "Please wait untill another game starts.", 14)
   Else
    If GetVar("CTF.ini", "Red", "Players")=5 Then
    Call PlayerMsg(index, "This team is already full.", 14)
    Else
    Call PlayerMsg(index, "You have joined the red team.", 4)
    Call PlayerMsg(index, "Please wait till both teams have 5 players.", 4)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call PutVar("CTF.ini", "Red", "Player"& GetVar("CTF.ini", "Red", "Players"), index)
    Call PutVar("CTF.ini", "Red", "Players", int(GetVar("CTF.ini", "Red", "Players"))+1)
   '********************************
    'TODO:Change Red Wait Room Location Here:
    '********************************
    Call SetPlayerMap(index,3)
    Call SetPlayerX(index, 5)
    Call SetPlayery(index, 5)
    '********************************
    'TODO: Set Item Representing Red Team.
    '********************************
    Call SetPlayerInvItemNum(index, 25, 1)
    Call SetPlayerHelmetSlot(index, 25)
    Call CTF_Begin()
   End If
  End If
  Else
  Call PlayerMsg(index, "Please Unequip your sheild to join a team.", 14)
 End If
 Else
 Call PlayerMsg(index, "Please Unequip your Helmet to join a team.", 14)
End If
End Sub


Sub CTF_Chose_Blue(index)
If GetPlayerHelmetSlot(index)=0 Then
 If GetPlayerShieldSlot(index)=0 Then
  If GetVar("CTF.ini", "Settings", "GameOn") = 1 Then
   Call PlayerMsg(index, "There is already a game started.", 14)
   Call PlayerMsg(index, "Please wait untill another game starts.", 14)
   Else
    If GetVar("CTF.ini", "Blue", "Players")=5 Then
    Call PlayerMsg(index, "This team is already full.", 14)
    Else
    Call PlayerMsg(index, "You have joined the blue team.", 1)
    Call PlayerMsg(index, "Please wait till both teams have 5 players.", 1)
    Call MapMsg(1, GetPlayerName(index)& " has joined the blue team.", 14)
    Call MapMsg(2, GetPlayerName(index)& " has joined the blue team.", 14)
    Call MapMsg(3, GetPlayerName(index)& " has joined the blue team.", 14)
    Call PutVar("CTF.ini", "Blue", "Player"& GetVar("CTF.ini", "Blue", "Players"), index)
    Call PutVar("CTF.ini", "Blue", "Players", int(GetVar("CTF.ini", "Blue", "Players"))+1)
    '********************************
    'TODO:Change Blue Wait Room Location Here:
    '********************************
    Call SetPlayerMap(index,2)
    Call SetPlayerX(index, 5)
    Call SetPlayery(index, 5)
    '********************************
    'TODO: Set Item Representing Blue Team.
    '********************************
    Call SetPlayerInvItemNum(index, 25, 2)
    Call SetPlayerHelmetSlot(index, 25)
    Call CTF_Begin()
   End If
  End If
  Else
  Call PlayerMsg(index, "Please Unequip your sheild to join a team.", 14)
 End If
 Else
 Call PlayerMsg(index, "Please Unequip your Helmet to join a team.", 14)
End If
End Sub


Sub CTF_Begin()
Dim tele
tele=1
If GetVar("CTF.ini, "Blue", "Players")=5 Then
 If GetVar("CTF.ini, "Red", "Players")=5 Then
  Call PutVar("CTF.ini", "Settings", "GameOn", 1)
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Red Respawn Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Red", "Player"& tele, index), 4)
   Call SetPlayerX(GetVar("CTF.ini", "Red", "Player"& tele, index), 2)
   Call SetPlayery(GetVar("CTF.ini", "Red", "Player"& tele, index), 3+tele)
   tele= tele + 1
  Loop
  tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Blue Respawn Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayerX(GetVar("CTF.ini", "Blue", "Player"& tele, index), 7)
   Call SetPlayery(GetVar("CTF.ini", "Blue", "Player"& tele, index), 3+tele)
   tele= tele + 1
  Loop
 End If
End If
End Sub

Sub Red_Flag(index)
If GetVar("CTF.ini", "Settings", "RedCapture") = 1 Then
 '********************************
  'TODO:Put red Flag Item #    vvv
 '********************************
  If GetPlayerShieldSlot(index)=3 Then
  SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call MapMsg(4, GetPlayerName(index)& " has returned the Red Flag.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has returned the Red Flag.", 14)
  Else
  '********************************
  'TODO:Put Blue Flag Item #   vvv
  '********************************
  If GetPlayerShieldSlot(index)=4 Then
  SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call PutVar("CTF.ini", "Settings", "RedScore", int(GetVar("CTF.ini", "Settings",

"RedScore"))+1)
  Call MapMsg(4, GetPlayerName(index)& " has scored a point for the Red Team.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has scored a point for the Red Team.", 14)
 End If
 Else
 If GetPlayerShieldSlot(index)=0 Then
  '********************************
  'TODO:Put red Flag Item #          vvv
  '********************************
  Call SetPlayerInvItemNum(index, 24, 3)
  Call SetPlayerShieldSlot(index, 24)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 1)
  Call MapMsg(4, GetPlayerName(index)& " has took the Flag from Red Base.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has took the Flag from Red Base.", 14)
 End If
End If
Call CTF_End()
End Sub

Sub Blue_Flag(index)
If GetVar("CTF.ini", "Settings", "BlueCapture") = 1 Then
 '********************************
  'TODO:Put Blue Flag Item #   vvv
 '********************************
  If GetPlayerShieldSlot(index)=4 Then
  SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call MapMsg(4, GetPlayerName(index)& " has returned the Blue Flag.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has returned the Blue Flag.", 14)
  Else
 '********************************
  'TODO:Put Blue Flag Item #    vvv
  '********************************
  If GetPlayerShieldSlot(index)=3 Then
  SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call PutVar("CTF.ini", "Settings", "BlueScore", int(GetVar("CTF.ini", "Settings",

"BlueScore"))+1)
  Call MapMsg(4, GetPlayerName(index)& " has scored a point for the Blue Team.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has scored a point for the Blue Team.", 14)
 End If
 Else
 If GetPlayerShieldSlot(index)=0 Then
  '********************************
  'TODO:Put Blue Flag Item #         vvv
  '********************************
  Call SetPlayerInvItemNum(index, 24, 4)
  Call SetPlayerShieldSlot(index, 24)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 1)
  Call MapMsg(4, GetPlayerName(index)& " has took the Flag from Blue Base.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has took the Flag from Blue Base.", 14)
 End If
End If
Call CTF_End()
End Sub


Sub CTF_End()
If GetVar("CTF.ini", "Settings", "BlueScore")=5 Then
 If If GetVar("CTF.ini", "Settings", "RedScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(1, "Both teams won!", 14)
 Call MapMsg(2, "Both teams won!", 14)
 Call MapMsg(3, "Both teams won!", 14)
 Call MapMsg(4, "Both teams won!", 14)
 Call MapMsg(5, "Both teams won!", 14)
 Call CTF_Exit()
 End If
End If

If GetVar("CTF.ini", "Settings", "BlueScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(4, "Blue team has won!", 4)
 Call MapMsg(5, "Blue team has won!", 4)
 Call MapMsg(2, "Blue team has won!", 4)
 Call MapMsg(3, "Blue team has won!", 4)
 Call MapMsg(1, "Blue team has won!", 4)
 Call CTF_Exit()
End If
If GetVar("CTF.ini", "Settings", "RedScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(4, "Red team has won!", 4)
 Call MapMsg(5, "Red team has won!", 4)
 Call MapMsg(2, "Red team has won!", 4)
 Call MapMsg(3, "Red team has won!", 4)
 Call MapMsg(1, "Red team has won!", 4)
 Call CTF_Exit()
End If
End Sub

Sub CTF_Exit()
Dim tele
tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Exit Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Red", "Player"& tele, index), 4)
   Call SetPlayerX(GetVar("CTF.ini", "Red", "Player"& tele, index), 5)
   Call SetPlayery(GetVar("CTF.ini", "Red", "Player"& tele, index), 5)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Red", "Player"& tele, index), 24, 0)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Red", "Player"& tele, index), 25, 0)
   Call SetPlayerShieldSlot(GetVar("CTF.ini", "Red", "Player"& tele, index), 24)
   Call SetPlayerHelmetSlot(GetVar("CTF.ini", "Red", "Player"& tele, index), 25)
   tele= tele + 1
  Loop
  tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Exit Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Blue", "Player"& tele, index), 1)
   Call SetPlayerX(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayery(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Blue", "Player"& tele, index), 24, 0)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Blue", "Player"& tele, index), 25, 0)
   Call SetPlayerShieldSlot(GetVar("CTF.ini", "Blue", "Player"& tele, index), 24)
   Call SetPlayerHelmetSlot(GetVar("CTF.ini", "Blue", "Player"& tele, index), 25)
   tele= tele + 1
  Loop
  Call PutVar("CTF.ini", "Settings", "GameOn", 0)
  Call PutVar("CTF.ini", "Settings", "RedScore", 0)
  Call PutVar("CTF.ini", "Settings", "BlueScore", 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call PutVar("CTF.ini", "Red", "Players", 0)
  Call PutVar("CTF.ini", "Red", "Player1", 0)
  Call PutVar("CTF.ini", "Red", "Player2", 0)
  Call PutVar("CTF.ini", "Red", "Player3", 0)
  Call PutVar("CTF.ini", "Red", "Player4", 0)
  Call PutVar("CTF.ini", "Red", "Player5", 0)
  Call PutVar("CTF.ini", "Blue", "Players", 0)
  Call PutVar("CTF.ini", "Blue", "Player1", 0)
  Call PutVar("CTF.ini", "Blue", "Player2", 0)
  Call PutVar("CTF.ini", "Blue", "Player3", 0)
  Call PutVar("CTF.ini", "Blue", "Player4", 0)
  Call PutVar("CTF.ini", "Blue", "Player5", 0)
End Sub

'********************************
'TODO:Add this to the OnDeath Sub
'********************************
'********************************
'TODO:Change Everything here so it works with your maps/items etc.
'********************************
If GetPlayerShieldSlot(index)=3 Then
 Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
 Call MapMsg(4, "The Blue Flag has returned to its base.", 14)
 Call MapMsg(5, "The Blue Flag has returned to its base.", 14)
End If
If GetPlayerShieldSlot(index)=4 Then
 Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
 Call MapMsg(4, "The Blue Flag has returned to its base.", 14)
 Call MapMsg(5, "The Blue Flag has returned to its base.", 14)
End If
If GetPlayerHelmetSlot(index)=1 Then
 townx=2
 towny=5
 townmap=4
 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )
End If
If GetPlayerHelmetSlot(index)=2 Then
 townx=10
 towny=5
 townmap=5
 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )
End If
'********************************
'TODO:Add this to the Scripted Tiles
'********************************
'Red Portal:
Case 3
Call CTF_Chose_Red(index)

'Blue Portal:
Case 4
Call CTF_Chose_Blue(index)

'Around Red Flag
Case 5
Call Red_Flag(index)

'Around Blue Flag
Case 6
Call Blue_Flag(index)


[michael0987]

its sound cool but you have fix bugs if there are =p

and i hope its work to you

[The Emblem]

Well do you think you could help me? im used to writing javascript. Like you said i wrote this just for ideas but i would like to make it work

[Lee_Dragoon]

Damn thats pretty good, i know java, visual basic .net and html myself, and i wouldn't have gotten that far. I hope someone can help you because that is really awsome. When I get better a scripting I'll let you know, im working on some stuff right now.

[Anonymous]

Thanks a bunch Im looking over the code right not trying to find some bugs.
Can someone test it for me? im affraid it might screw up my game  :?

[The Emblem]

Thanks a bunch Im looking over the code right not trying to find some bugs.
Can someone test it for me? im affraid it might hammer up my game  :?

Sorry that was me :?
And i ment to say im looking over it for bugs right now.

[michael]

try dp there no bugs couse people hate bugs =p

[The Emblem]

try dp there no bugs couse people hate bugs =p

Pardon me but DP? sorry in new like i said :?

[Sk8erace1]

think i may have fixed it ^_^ here ya go

Code: [Select]

'XXXXXXXXXXXXXXXXXXXXXXXXXX
Sub CTF_Chose_Red(index)
'XXXXXXXXXXXXXXXXXXXXXXXXXX
If GetPlayerHelmetSlot(index)=0 Then
 If GetPlayerShieldSlot(index)=0 Then
  If GetVar("CTF.ini", "Settings", "GameOn") = 1 Then
   Call PlayerMsg(index, "There is already a game started.", 14)
   Call PlayerMsg(index, "Please wait untill another game starts.", 14)
   Else
    If GetVar("CTF.ini", "Red", "Players")=5 Then
    Call PlayerMsg(index, "This team is already full.", 14)
    Else
    Call PlayerMsg(index, "You have joined the red team.", 4)
    Call PlayerMsg(index, "Please wait till both teams have 5 players.", 4)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call MapMsg(1, GetPlayerName(index)& " has joined the Red team.", 14)
    Call PutVar("CTF.ini", "Red", "Player"& GetVar("CTF.ini", "Red", "Players"), index)
    Call PutVar("CTF.ini", "Red", "Players", int(GetVar("CTF.ini", "Red", "Players"))+1)
   '********************************
    'TODO:Change Red Wait Room Location Here:
    '********************************
    Call SetPlayerMap(index,3)
    Call SetPlayerX(index, 5)
    Call SetPlayery(index, 5)
    '********************************
    'TODO: Set Item Representing Red Team.
    '********************************
    Call SetPlayerInvItemNum(index, 25, 1)
    Call SetPlayerHelmetSlot(index, 25)
    Call CTF_Begin()
   End If
  End If
  Else
  Call PlayerMsg(index, "Please Unequip your sheild to join a team.", 14)
 End If
 Else
 Call PlayerMsg(index, "Please Unequip your Helmet to join a team.", 14)
End If
End Sub

'XXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub CTF_Chose_Blue(index)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXX
If GetPlayerHelmetSlot(index)=0 Then
 If GetPlayerShieldSlot(index)=0 Then
  If GetVar("CTF.ini", "Settings", "GameOn") = 1 Then
   Call PlayerMsg(index, "There is already a game started.", 14)
   Call PlayerMsg(index, "Please wait untill another game starts.", 14)
   Else
    If GetVar("CTF.ini", "Blue", "Players")=5 Then
    Call PlayerMsg(index, "This team is already full.", 14)
    Else
    Call PlayerMsg(index, "You have joined the blue team.", 1)
    Call PlayerMsg(index, "Please wait till both teams have 5 players.", 1)
    Call MapMsg(1, GetPlayerName(index)& " has joined the blue team.", 14)
    Call MapMsg(2, GetPlayerName(index)& " has joined the blue team.", 14)
    Call MapMsg(3, GetPlayerName(index)& " has joined the blue team.", 14)
    Call PutVar("CTF.ini", "Blue", "Player"& GetVar("CTF.ini", "Blue", "Players"), index)
    Call PutVar("CTF.ini", "Blue", "Players", int(GetVar("CTF.ini", "Blue", "Players"))+1)
    '********************************
    'TODO:Change Blue Wait Room Location Here:
    '********************************
    Call SetPlayerMap(index,2)
    Call SetPlayerX(index, 5)
    Call SetPlayery(index, 5)
    '********************************
    'TODO: Set Item Representing Blue Team.
    '********************************
    Call SetPlayerInvItemNum(index, 25, 2)
    Call SetPlayerHelmetSlot(index, 25)
    Call CTF_Begin()
   End If
  End If
  Else
  Call PlayerMsg(index, "Please Unequip your sheild to join a team.", 14)
 End If
 Else
 Call PlayerMsg(index, "Please Unequip your Helmet to join a team.", 14)
End If
End Sub

'XXXXXXXXXXXXXXXXXXXXXXXX
Sub CTF_Begin()
'XXXXXXXXXXXXXXXXXXXXXXXX
Dim tele
tele=1
If GetVar("CTF.ini", "Blue", "Players")=5 Then
 If GetVar("CTF.ini", "Red", "Players")=5 Then
  Call PutVar("CTF.ini", "Settings", "GameOn", 1)
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Red Respawn Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Red", "Player"& tele, index), 4)
   Call SetPlayerX(GetVar("CTF.ini", "Red", "Player"& tele, index), 2)
   Call SetPlayery(GetVar("CTF.ini", "Red", "Player"& tele, index), 3+tele)
   tele= tele + 1
  Loop
  tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Blue Respawn Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayerX(GetVar("CTF.ini", "Blue", "Player"& tele, index), 7)
   Call SetPlayery(GetVar("CTF.ini", "Blue", "Player"& tele, index), 3+tele)
   tele= tele + 1
  Loop
 End If
End If
End Sub

'XXXXXXXXXXXXXXXXXXXXXX
Sub Red_Flag(index)   
'XXXXXXXXXXXXXXXXXXXXXX
If GetVar("CTF.ini", "Settings", "RedCapture") = 1 Then
 '********************************
  'TODO:Put red Flag Item #    vvv
 '********************************
  If GetPlayerShieldSlot(index)=3 Then
  Call SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call MapMsg(4, GetPlayerName(index)& " has returned the Red Flag.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has returned the Red Flag.", 14)
  Else
  '********************************
  'TODO:Put Blue Flag Item #   vvv
  '********************************
  If GetPlayerShieldSlot(index)=4 Then
  Call SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call PutVar("CTF.ini", "Settings", "RedScore", int(GetVar("CTF.ini", "Settings", "RedScore"))+1)
  Call MapMsg(4, GetPlayerName(index)& " has scored a point for the Red Team.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has scored a point for the Red Team.", 14)
 End If
 If GetPlayerShieldSlot(index)=0 Then
  '********************************
  'TODO:Put red Flag Item #          vvv
  '********************************
  Call SetPlayerInvItemNum(index, 24, 3)
  Call SetPlayerShieldSlot(index, 24)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 1)
  Call MapMsg(4, GetPlayerName(index)& " has took the Flag from Red Base.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has took the Flag from Red Base.", 14)
 End If
End If
Call CTF_End()
End If
End Sub
'XXXXXXXXXXXXXXXXXXXXX
Sub Blue_Flag(index)
'XXXXXXXXXXXXXXXXXXXXX
If GetVar("CTF.ini", "Settings", "BlueCapture") = 1 Then
 '********************************
  'TODO:Put Blue Flag Item #   vvv
 '********************************
  If GetPlayerShieldSlot(index)=4 Then
  Call SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call MapMsg(4, GetPlayerName(index)& " has returned the Blue Flag.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has returned the Blue Flag.", 14)
  Else
 '********************************
  'TODO:Put Blue Flag Item #    vvv
  '********************************
  If GetPlayerShieldSlot(index)=3 Then
  Call SetPlayerInvItemNum(index, 24, 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call PutVar("CTF.ini", "Settings", "BlueScore", int(GetVar("CTF.ini", "Settings", "BlueScore"))+1)
  Call MapMsg(4, GetPlayerName(index)& " has scored a point for the Blue Team.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has scored a point for the Blue Team.", 14)
 Else
 If GetPlayerShieldSlot(index)=0 Then
  '********************************
  'TODO:Put Blue Flag Item #         vvv
  '********************************
  Call SetPlayerInvItemNum(index, 24, 4)
  Call SetPlayerShieldSlot(index, 24)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 1)
  Call MapMsg(4, GetPlayerName(index)& " has took the Flag from Blue Base.", 14)
  Call MapMsg(5, GetPlayerName(index)& " has took the Flag from Blue Base.", 14)
 End If
End If
Call CTF_End()
End If
End If
End Sub

'XXXXXXXXXXXXXXXXXXXX
Sub CTF_End()       
'XXXXXXXXXXXXXXXXXXXX
If GetVar("CTF.ini", "Settings", "BlueScore")=5 Then
 If GetVar("CTF.ini", "Settings", "RedScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(1, "Both teams won!", 14)
 Call MapMsg(2, "Both teams won!", 14)
 Call MapMsg(3, "Both teams won!", 14)
 Call MapMsg(4, "Both teams won!", 14)
 Call MapMsg(5, "Both teams won!", 14)
 Call CTF_Exit()
 End If
End If

If GetVar("CTF.ini", "Settings", "BlueScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(4, "Blue team has won!", 4)
 Call MapMsg(5, "Blue team has won!", 4)
 Call MapMsg(2, "Blue team has won!", 4)
 Call MapMsg(3, "Blue team has won!", 4)
 Call MapMsg(1, "Blue team has won!", 4)
 Call CTF_Exit()
End If
If GetVar("CTF.ini", "Settings", "RedScore")=5 Then
 '********************************
 'TODO:Say on every map who won.
 '********************************
 Call MapMsg(4, "Red team has won!", 4)
 Call MapMsg(5, "Red team has won!", 4)
 Call MapMsg(2, "Red team has won!", 4)
 Call MapMsg(3, "Red team has won!", 4)
 Call MapMsg(1, "Red team has won!", 4)
 Call CTF_Exit()
End If
End Sub

'XXXXXXXXXXXXXXXXXXX
Sub CTF_Exit()     
'XXXXXXXXXXXXXXXXXXX
Dim tele
tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Exit Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Red", "Player"& tele, index), 4)
   Call SetPlayerX(GetVar("CTF.ini", "Red", "Player"& tele, index), 5)
   Call SetPlayery(GetVar("CTF.ini", "Red", "Player"& tele, index), 5)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Red", "Player"& tele, index), 24, 0)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Red", "Player"& tele, index), 25, 0)
   Call SetPlayerShieldSlot(GetVar("CTF.ini", "Red", "Player"& tele, index), 24)
   Call SetPlayerHelmetSlot(GetVar("CTF.ini", "Red", "Player"& tele, index), 25)
   tele= tele + 1
  Loop
  tele=1
  Do While Int(tele) < 5
   '********************************
   'TODO:Change Exit Location Here:
   '********************************
   Call SetPlayerMap(GetVar("CTF.ini", "Blue", "Player"& tele, index), 1)
   Call SetPlayerX(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayery(GetVar("CTF.ini", "Blue", "Player"& tele, index), 5)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Blue", "Player"& tele, index), 24, 0)
   Call SetPlayerInvItemNum(GetVar("CTF.ini", "Blue", "Player"& tele, index), 25, 0)
   Call SetPlayerShieldSlot(GetVar("CTF.ini", "Blue", "Player"& tele, index), 24)
   Call SetPlayerHelmetSlot(GetVar("CTF.ini", "Blue", "Player"& tele, index), 25)
   tele= tele + 1
  Loop
  Call PutVar("CTF.ini", "Settings", "GameOn", 0)
  Call PutVar("CTF.ini", "Settings", "RedScore", 0)
  Call PutVar("CTF.ini", "Settings", "BlueScore", 0)
  Call PutVar("CTF.ini", "Settings", "RedCapture", 0)
  Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
  Call PutVar("CTF.ini", "Red", "Players", 0)
  Call PutVar("CTF.ini", "Red", "Player1", 0)
  Call PutVar("CTF.ini", "Red", "Player2", 0)
  Call PutVar("CTF.ini", "Red", "Player3", 0)
  Call PutVar("CTF.ini", "Red", "Player4", 0)
  Call PutVar("CTF.ini", "Red", "Player5", 0)
  Call PutVar("CTF.ini", "Blue", "Players", 0)
  Call PutVar("CTF.ini", "Blue", "Player1", 0)
  Call PutVar("CTF.ini", "Blue", "Player2", 0)
  Call PutVar("CTF.ini", "Blue", "Player3", 0)
  Call PutVar("CTF.ini", "Blue", "Player4", 0)
  Call PutVar("CTF.ini", "Blue", "Player5", 0)
End Sub

'********************************
'TODO:Add this to the OnDeath Sub
'********************************
'********************************
'TODO:Change Everything here so it works with your maps/items etc.
'********************************
If GetPlayerShieldSlot(index)=3 Then
 Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
 Call MapMsg(4, "The Blue Flag has returned to its base.", 14)
 Call MapMsg(5, "The Blue Flag has returned to its base.", 14)
End If
If GetPlayerShieldSlot(index)=4 Then
 Call PutVar("CTF.ini", "Settings", "BlueCapture", 0)
 Call MapMsg(4, "The Blue Flag has returned to its base.", 14)
 Call MapMsg(5, "The Blue Flag has returned to its base.", 14)
End If
If GetPlayerHelmetSlot(index)=1 Then
 townx=2
 towny=5
 townmap=4
 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )
End If
If GetPlayerHelmetSlot(index)=2 Then
 townx=10
 towny=5
 townmap=5
 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )
End If
'********************************
'TODO:Add this to the Scripted Tiles
'********************************
'Red Portal:
Case 3
Call CTF_Chose_Red(index)

'Blue Portal:
Case 4
Call CTF_Chose_Blue(index)

'Around Red Flag
Case 5
Call Red_Flag(index)

'Around Blue Flag
Case 6
Call Blue_Flag(index)

[bygcrazy]

in whatpart i need put this code in /away where?
i mean to this work ?

[hashbakedgoods]

so is this all fixed up?

[Sk8erace1]

from what icould see whats wrong with it yes but it may have some errors place most of this code at the bottom of your main.txt and place the little parts where the comment says to put them ^_^

[RamBONE]

,,,, is this tested or anything?

[ﾉ◊ㄅｻкﾚ∆z, a.k.a King Leonidas!!!]

One of the most impressive scripts I've seen! Especially for a "noob" as you call yourself

[RamBONE]

One of the most impressive scripts I've seen! Especially for a "noob" as you call yourself 

check barons super skills for impersive :D

but yea this is a good script