Eclipse
January 05, 2009, 04:56:38 PM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News:
 
   Home   Chat Help Rules Arcade Search Calendar Gallery Login Register  
 
 
 
Recent Topics +-
World of Hyrule - Official Topic by Kreator
Today at 04:55:55 PM

Open Book by Niko
Today at 04:55:48 PM

MyWorld by Maxac
Today at 04:55:05 PM

Rate the above user by DrNova
Today at 04:54:31 PM

Actual Map for the continents by FS:CG Admin[Shadowwulf]
Today at 04:54:23 PM

Scripting Contest - January 2009 by dg1423
Today at 04:54:07 PM

Hence Apocalypse; GUI and TILE Designers and Musicians, are needed. by Kreator
Today at 04:53:31 PM

fun with photoshop by Niko
Today at 04:53:07 PM

Yes no Game by The Oracle
Today at 04:52:55 PM

Color Association by The Oracle
Today at 04:51:58 PM

Members Online +-
15 Guests, 33 Users
sleisysoft,
DrNova,
Fingle,
Dimx,
Devogen,
‪‫‬‭‮‪‫‬‭Admiral Refuge,
Kreator,
Catcatcat,
Maxac,
The Oracle,
Niko,
Sk3wer,
zelkova112,
Almighty Wing,
dg1423,
~<Danny>~,
Gwendalin,
FS:CG Admin[Shadowwulf],
azkanan,
BugSICK,
Blue Fly,
Airscar,
tiggilyboo,
ralir,
ploxie,
Hikaru,
Gh0st ...,
Munro,
The MrMiguu™ [pizza pretzles],
Peter,
grenegg1,
Simius Cruentus,
Jax The Mighty
Pages: [1]
  Print  
Author Topic: Script "Capture The Flag" by Iceknight  (Read 1036 times)
0 Members and 1 Guest are viewing this topic.
Iceknight
Newb
*
Offline Offline

Posts: 4



View Profile Email
« on: March 31, 2006, 07:22:52 AM »

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
Lameroth
Active Member
***
Offline Offline

Posts: 316

I own Satan


View Profile Email
« Reply #1 on: March 31, 2006, 07:38:43 AM »

but how do you enter in the game? and select a team...
Baron
Lord Of Spleens
Administrator
Teh Uberleet
*
Offline Offline

Posts: 2,735


Genesis CoCreator - Eclipse Evo Developer


View Profile WWW Email
« Reply #2 on: March 31, 2006, 08:59:11 AM »

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.
unnown
Teh Uberleet
*****
Offline Offline

Posts: 3,659


-Admin-


View Profile Email
« Reply #3 on: March 31, 2006, 10:12:43 AM »

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)
Anonymous
Guest


Email
« Reply #4 on: April 01, 2006, 10:37:16 AM »

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
AoH
Guest


Email
« Reply #5 on: April 02, 2006, 01:56:45 AM »

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

Be careful...
Pages: [1]
  Print  
 
 

Powered by EzPortal
Powered by MySQL Powered by PHP Powered by SMF 2.0 Beta 4 | SMF © 2006–2008, Simple Machines LLC | Sitemap Valid XHTML 1.0! Valid CSS!
Page created in 0.292 seconds with 33 queries.