From 859fcd3f6deff68206c3e26beba60b447042735d Mon Sep 17 00:00:00 2001
From: Hawkear <Hawkear@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 11 Jan 2009 20:36:10 +0000
Subject: Added Script-dir

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/Lua@1556 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 game/scripts/main.lua            | 38 +++++++++++++++++++++++++++++++++
 game/scripts/party/Until5000.lua | 46 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 84 insertions(+)
 create mode 100644 game/scripts/main.lua
 create mode 100644 game/scripts/party/Until5000.lua

(limited to 'game/scripts')

diff --git a/game/scripts/main.lua b/game/scripts/main.lua
new file mode 100644
index 00000000..3e035bb9
--- /dev/null
+++ b/game/scripts/main.lua
@@ -0,0 +1,38 @@
+-- Calculate FPS
+FPScounter = 1 + (FPScounter or 0) -- increment FPScounter (which is nil, when undefined, therefore "or 0") 
+if os.time() > (LastTime or 0) then
+  LastTime = os.time()
+  print("FPS:    " .. FPScounter - (LastFPScounter or 0)) -- print is only displayed, if compiled with DEBUG
+  LastFPScounter = FPScounter
+  -- Show the first 200 Textures
+  TexNum = 1 + (TexNum or 0)
+  if TexNum > 200 then TexNum = 1 end
+  print("TexNum: " .. (TexNum or 0))
+end
+
+-- Draw some rectangles
+gl.Enable("GL_BLEND")
+gl.Color(1, 1, 1, 0.5)
+for i = 1,10 do
+  gl.Begin("GL_LINE_loop")
+  gl.Vertex(0+4*i, 0+4*i);
+  gl.Vertex(0+4*i, 600-4*i);
+  gl.Vertex(800-4*i, 600-4*i);
+  gl.Vertex(800-4*i, 0+4*i);
+  gl.End()
+end
+gl.Disable("GL_BLEND")
+
+-- Display a Texture
+gl.Enable("GL_BLEND")
+gl.Enable("GL_TEXTURE_2D")
+gl.Color(1, 1, 1, 1)
+gl.BindTexture("GL_TEXTURE_2D", TexNum or 0)
+gl.Begin("GL_QUADS")
+gl.TexCoord(0, 0); gl.Vertex(10,  10);
+gl.TexCoord(0, 1); gl.Vertex(10,  110);
+gl.TexCoord(1, 1); gl.Vertex(110, 110);
+gl.TexCoord(1, 0); gl.Vertex(110, 10);
+gl.End()
+gl.Disable("GL_TEXTURE_2D")
+gl.Disable("GL_BLEND")
diff --git a/game/scripts/party/Until5000.lua b/game/scripts/party/Until5000.lua
new file mode 100644
index 00000000..10d1d070
--- /dev/null
+++ b/game/scripts/party/Until5000.lua
@@ -0,0 +1,46 @@
+function InitPartyMode()
+  -- PartyModi created by users should use tables
+  Party.Mode.Name = {English = "Until 5000",
+                     French  = "A 5000",
+                     German  = "Bis 5000"}
+
+  -- PartyModi delivered with USDX should use translateable Strings
+  Party.Mode.Name = "PLUGIN_UNTIL5000_NAME"
+  Party.Mode.Description = "PLUGIN_UNTIL5000_DESC"
+
+  Party.Mode.Author = "Whiteshark & Hawkear"
+  Party.Mode.Homepage = "http://ultrastardx.sourceforge.net/"
+  Party.Mode.Version = "0.9"
+  
+  Party.ShowRateBar = true
+  Party.ShowScore = true
+  Party.ShowNotes = true
+  Party.NoDuet = true -- dont sing duets - this would be unfair
+
+  -- all the other settings are at default or loaded from ini
+  
+  return true
+end
+
+function Draw()
+  local i
+  for i=0,Party.Teams-1 do
+    Party.Team[i].Bar = math.floor(Party.Team[i].Score / 50) 
+    Party.Team[i].Percentage = Party.Team[i].Bar 
+    if Party.Team[i].Score >= 5000 then
+      return false -- end the round
+    end
+  end  
+  return true -- continue with the round
+end
+
+function Finish()
+  local i
+  local winners={}
+  for i=0,Party.Teams-1 do
+    if Party.Team[i].Score >= 5000 then
+      table.insert(winners,i) 
+    end 
+  end
+  return winners
+end
-- 
cgit v1.2.3