'********************************'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 IfEnd SubSub 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 IfEnd SubSub CTF_Begin()Dim teletele=1If 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 IfEnd IfEnd SubSub 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 IfEnd IfCall CTF_End()End SubSub 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 IfEnd IfCall CTF_End()End SubSub 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 IfEnd IfIf 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 IfIf 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 IfEnd SubSub CTF_Exit()Dim teletele=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 IfIf 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 IfIf GetPlayerHelmetSlot(index)=1 Then townx=2 towny=5 townmap=4 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )End IfIf 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 FlagCase 5 Call Red_Flag(index) 'Around Blue FlagCase 6 Call Blue_Flag(index)
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 :?
try dp there no bugs couse people hate bugs =p
'XXXXXXXXXXXXXXXXXXXXXXXXXXSub CTF_Chose_Red(index)'XXXXXXXXXXXXXXXXXXXXXXXXXXIf 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 IfEnd Sub'XXXXXXXXXXXXXXXXXXXXXXXXXXXSub CTF_Chose_Blue(index)'XXXXXXXXXXXXXXXXXXXXXXXXXXXXIf 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 IfEnd Sub'XXXXXXXXXXXXXXXXXXXXXXXXSub CTF_Begin()'XXXXXXXXXXXXXXXXXXXXXXXXDim teletele=1If 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 IfEnd IfEnd Sub'XXXXXXXXXXXXXXXXXXXXXXSub Red_Flag(index) 'XXXXXXXXXXXXXXXXXXXXXXIf 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 IfEnd IfCall CTF_End()End IfEnd Sub'XXXXXXXXXXXXXXXXXXXXXSub Blue_Flag(index)'XXXXXXXXXXXXXXXXXXXXXIf 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 IfEnd IfCall CTF_End()End IfEnd IfEnd Sub'XXXXXXXXXXXXXXXXXXXXSub CTF_End() 'XXXXXXXXXXXXXXXXXXXXIf 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 IfEnd IfIf 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 IfIf 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 IfEnd Sub'XXXXXXXXXXXXXXXXXXXSub CTF_Exit() 'XXXXXXXXXXXXXXXXXXXDim teletele=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 IfIf 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 IfIf GetPlayerHelmetSlot(index)=1 Then townx=2 towny=5 townmap=4 Call PlayerWarp(index, Int(townmap), Int(townx), Int(towny) )End IfIf 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 FlagCase 5 Call Red_Flag(index) 'Around Blue FlagCase 6 Call Blue_Flag(index)
You all are probably going to hate me more for this but I don't care so *drum roll*I think emo "chicks" (a crude term, female or young lady or something of the sort would be much better) or any kind of emo really is quite pathetic and in extreme cases disturbing.
"With it we will all find peace and love, and learn to accept each other for who we are, because we all have one common purpose in life, and that is to enjoy its taste"
Man, JoshKlaz, you're AwESOME!
One of the most impressive scripts I've seen! Especially for a "noob" as you call yourself
Remember that marshmallow from Ghost Busters? marsh is a Canadian version of that.
Hello! I am French and I have found my happiness on your software.