From 41fb814e99adb1bbb6b62aeb821574713c8c799b Mon Sep 17 00:00:00 2001
From: XienDev <XienDev@gmail.com>
Date: Sat, 27 Apr 2013 18:11:26 +0300
Subject: Added build

Third patch
---
 src/script/script.cpp | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)

(limited to 'src/script/script.cpp')

diff --git a/src/script/script.cpp b/src/script/script.cpp
index 9174971..c95cd4b 100644
--- a/src/script/script.cpp
+++ b/src/script/script.cpp
@@ -1003,6 +1003,88 @@ bool CScript::rDirection(CBotVar* var, CBotVar* result, int& exception, void* us
     return true;
 }
 
+// Instruction "build(type)"
+// draws error if can not build (wher errormode stop), otherwise 0 <- 1
+
+bool CScript::rBuild(CBotVar* var, CBotVar* result, int& exception, void* user)
+{
+    CScript*    script = (static_cast<CObject *>(user))->GetRunScript();
+    CObject*    pThis = static_cast<CObject *>(user);
+    ObjectType  oType;
+    ObjectType  category;
+    Error       err;
+
+    exception = 0;
+
+    oType = pThis->GetType();
+
+    if ( oType != OBJECT_MOBILEfa &&  // allowed only for grabber bots
+         oType != OBJECT_MOBILEta &&
+         oType != OBJECT_MOBILEwa &&
+         oType != OBJECT_MOBILEia)
+    {
+        err = ERR_MANIP_VEH; //Wrong vehicle;
+    }
+    else
+    {
+        category  = static_cast<ObjectType>(var->GetValInt()); //get category parameter
+
+        //if we want to produce one of these buildings
+        if ( (category == OBJECT_DERRICK   && (g_build & BUILD_DERRICK))   ||
+             (category == OBJECT_FACTORY   && (g_build & BUILD_FACTORY))   ||
+             (category == OBJECT_STATION   && (g_build & BUILD_STATION))   ||
+             (category == OBJECT_CONVERT   && (g_build & BUILD_CONVERT))   ||
+             (category == OBJECT_REPAIR    && (g_build & BUILD_REPAIR))    ||
+             (category == OBJECT_TOWER     && (g_build & BUILD_TOWER))     ||
+             (category == OBJECT_RESEARCH  && (g_build & BUILD_RESEARCH))  ||
+             (category == OBJECT_RADAR     && (g_build & BUILD_RADAR))     ||
+             (category == OBJECT_ENERGY    && (g_build & BUILD_ENERGY))    ||
+             (category == OBJECT_LABO      && (g_build & BUILD_LABO))      ||
+             (category == OBJECT_NUCLEAR   && (g_build & BUILD_NUCLEAR))   ||
+             (category == OBJECT_INFO      && (g_build & BUILD_INFO  ))    ||
+             (category == OBJECT_PARA      && (g_build & BUILD_PARA )))
+        {
+
+            //if we want to build  not researched one
+            if ( (category == OBJECT_TOWER && !(g_researchDone & RESEARCH_TOWER)) ||
+                 (category == OBJECT_NUCLEAR && !(g_researchDone & RESEARCH_ATOMIC))
+                )
+            {
+                err = ERR_BUILD_RESEARCH;
+            }
+            else if (script->m_primaryTask == 0) //if we have no other tasks
+            {
+                script->m_primaryTask = new CTaskManager(script->m_object);
+                err = script->m_primaryTask->StartTaskBuild(category);
+
+                if (err != ERR_OK)
+                {
+                    delete script->m_primaryTask;
+                    script->m_primaryTask = 0;
+                }
+            }
+
+        }
+        else //if we can't build this object
+        {
+            err = ERR_BUILD_DISABLED;
+        }
+    }
+
+    if ( err != ERR_OK )
+    {
+        result->SetValInt(err);  // return error
+        if ( script->m_errMode == ERM_STOP )
+        {
+            exception = err;
+            return false;
+        }
+        return true;
+    }
+
+    return Process(script, result, exception);
+
+}
 
 // Compilation of the instruction "produce(pos, angle, type[, scriptName[, power]])"
 // or "produce(type[, power])".
@@ -2856,6 +2938,9 @@ void CScript::InitFonctions()
     CBotProgram::AddFunction("penup",     rPenUp,     CScript::cNull);
     CBotProgram::AddFunction("pencolor",  rPenColor,  CScript::cOneFloat);
     CBotProgram::AddFunction("penwidth",  rPenWidth,  CScript::cOneFloat);
+
+    CBotProgram::AddFunction("build", rBuild, CScript::cOneFloat);
+
 }
 
 // Object's destructor.
-- 
cgit v1.2.3-1-g7c22