Script "Capture The Flag" by Iceknight

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 14
• Users Online:

• 314piwm
• drifter000
• BRiM570N3
• jncoblack15
• Ertzel
• RavenStar
• Bloodmyst
• yaratemaster
• bunnyphantom
• Blue Fly
• Back to teeming
• LegendWeaver
• Gamma™
• Mikekan13

I have just programmed a script which created a system: "Capture The Flag"

One needs that you item put boxes with the flag of each team in each base, for side you put the suitable scriptées boxes. (to supplement script, you have only to change the sentences between [ ] by the good number.)

Im french, and im using the translator for translate my script in english.

Code: [Select]

**CASE**
___________________________________________________

'***script Capture the flag***
'put to place beside the flag of the red team
   case 8
dim shieldslot
shieldslot = getvar("shieldslot.ini", "ShieldSlot", Getplayername(index))
      if getplayersprite(index) = [# sprite of the reds] then
          if getplayerinvitemnum(index, getplayershieldslot(index)) = [# item of "blue flag"] then
                  call putvar("capturetheflag.ini", "points", "rouges", getvar("capturetheflag.ini", "points", "rouges") +1)
                  call mapmsg(11, "The reds have now  " & getvar("capturetheflag.ini", "points", "rouges") & " points!", 13)
                  call putvar("shieldslot.ini", "ShieldSlot", Getplayername(index), getplayershieldslot(index))
                  call setplayerinvitemnum(index, GetPlayerShieldSlot(index), 0)
                  call SetPlayerShieldSlot(INDEX, 0)
                  call SendWornEquipment(index)
                  call sendinventoryupdate(index, shieldslot)                
          end if
      end if
'put to place beside the flag of the blue team
   case 9
shieldslot = getvar("shieldslot.ini", "ShieldSlot", Getplayername(index))
      if getplayersprite(index) = [# sprite of the blue] then
          if getplayerinvitemnum(index, getplayershieldslot(index)) = [# item of "red flag"] then
                  call putvar("capturetheflag.ini", "points", "bleus", getvar("capturetheflag.ini", "points", "bleus") +1)
                  call mapmsg(11, "Les bleus ont maintenant " & getvar("capturetheflag.ini", "points", "bleus") & " points!", 13)
                  call putvar("shieldslot.ini", "ShieldSlot", Getplayername(index), getplayershieldslot(index))
                  call setplayerinvitemnum(index, GetPlayerShieldSlot(index), 0)
                  call SetPlayerShieldSlot(INDEX, 0)
                  call SendWornEquipment(index)
                  call sendinventoryupdate(index, shieldslot)                
          end if
      end if



**COMMANDS**
___________________________________________________


case "/reset"
   if getplayermap(index) = [# of the map] then
       call putvar("capturetheflag.ini","points","bleus", 0)
       call putvar("capturetheflag.ini","points","rouges", 0)
       call mapmsg([# de la map], "The points were given to zero", 4)
   end if
   exit sub
case "/score"
   if getplayermap(index) = [# of the map] then
       call playermsg(index, "the reds have" & getvar("capturetheflag.ini","points","rouges") & "points", 12)
       call playermsg(index, "the blue have" & getvar("capturetheflag.ini","points","bleus") & "points", 9)
   end if
   exit sub


Bleu = Blue
Red = Rouge
Points = Points

Iceknight

but how do you enter in the game? and select a team...

Lameroth

A novel idea, but you need to expand on it further.

You do need a way to assign teams, and maybe add some map msg calls each time they score.

Baron

yeah and something like

if points team red > 9 then
    if mapnumber = 2
         warp to 1
    end if
end if

so the game stops at a certain time (would be kinda lame if it never ended)

unnown

It's my script.
ICekgnight is a stupid boy. CHange credits.

 30 Jan 2006, 05:32 PM
http://roonline.free.fr/frog/forum/index.php?showtopic=3740

I ask at admin/mod for change credit. Ty

Anonymous

IceKnight is a script stealer and a forum hacker, he stole a lot of script and post in various forums...

Be careful...

AoH