public func ControlThrow (pClonk) // Bedienung: Werfen (benutzen)
{
if(!(pClonk->~FireRifle())) return(0);
SetPhase(6, pClonk);
// Fadenkreuz zum besseren Zielen erzeugen
var pCross = CreateObject(WCHR, 0, 0, GetOwner(pClonk)); pCross->SetAction("Crosshair", pClonk);
Local(0,GetCrosshair(pClonk)) = 84;
WINC->ActualizePhase(pClonk);
// dem Clonk übermitteln, wie viel Ammo da ist
LocalN("iRifleAmmo", pClonk) = ContentsCount();
while(Contents()) Enter(pCross, Contents());
// eigene ID speichern
LocalN("idWeapon",pClonk)=GetID();
// Schnell noch schauen, ob der Clonk auch Munition hat!
if(!LocalN("iRifleAmmo", pClonk)) DefinitionCall(GetID(), "CheckAmmo", pClonk);
// ...und selbst löschen
RemoveObject();
return(1);
}
global func CreateCharMenu(object obj )
{
if( !obj ) return( 0 );
if( !( obj->~CanUseCharMenu() ) ) return 0;
// Altes Menu evtl. schließen
var existing_menu = LocalN("pCharMenu",obj);
if( existing_menu ) return 0;
// Neues Menu öffnen
var menu = CreateObject( ID_Menu_Char,30,20,-1);
SetPosition( 0, 0, menu);
LocalN("pCharMenu",obj) = menu;
menu->~AttachCharMenu( obj );
return( 1 );
}
global func CloseCharMenu( obj )
{
if( !obj ) return( 0 );
if( !( obj->~CanUseCharMenu() ) ) return 0;
var existing_menu = LocalN("pCharMenu",obj);
if( existing_menu )
{
existing_menu->~CloseMainMenu();
return 1;
}
return;
}
global func FixElevator(object elev, iDig)
{
var fBurned = GetID(elev)==ELVB;
var x=GetX(elev), y=GetDefBottom(elev);
elev->RemoveObject();
elev = CreateConstruction(ELEV, x,y, -1, 100, true); // Fürs Fundament...
elev->CreateShaft(iDig);
AddEffect("NoEnergyNeed", elev, 1, 1);
if(!fBurned) elev->GetActionTarget()->SetComDir(COMD_Down);
else
{
RemoveObject(LocalN("pCase", elev));
elev->ChangeDef(ELVB);
SetCategory(1, elev);
SetObjectLayer(elev, elev);
SetCon(100, elev);
AddEffect("Rebuild", elev, 1, 1);
}
}
public func Activate(caster, real_caster) {
// Zaubernden Clonk ermitteln
var clonk = caster;
if (real_caster) clonk = real_caster;
// Richtungsvorzeichen ermitteln
var dir_sign = -1;
if (GetDir(caster) == DIR_Right()) dir_sign = +1;
// Evtl. mit Flint kombinieren
var obj;
if (obj = FindContents(FLNT, clonk)) {
// Holz erzeugen, anzünden und in Guckrichtung schleudern
var wood = CreateObject(WOOD, 5*dir_sign, 0, -1);
Incinerate(wood);
// Richtigen Controller setzen
SetController(GetController(clonk),wood);
SetXDir(40*dir_sign, wood);
SetYDir(-10, wood);
// Flint verbrauchen
RemoveObject(obj);
}
// Evtl. mit Pfeil kombinieren
else
{
obj = FindContents(ARRW, clonk);
if(!obj) if(FindContents(ARWP, clonk))
obj = FindContents(ARWP, clonk)->GetItem();
if(obj) {
// Ein paar Objekte schleudern
var fling_cnt = RandomX(4, 10);
var fling_obj;
while (fling_obj = FindObject(0, 0, 0, -1, -1, OCF_InFree(), 0, 0, NoContainer(), fling_obj)) {
// Zu weit weg vom Clonk?
if (ObjectDistance(clonk, fling_obj) > 5*GetDefCoreVal("Width", "DefCore", GetID(caster)))
break;
// Der Wolf konnte keine Steinhütten wegblasen - Clonks können keine Hütten mit Fundament wegblasen
if (!LocalN("basement", fling_obj))
{
var pBasement = Local(9, fling_obj);
if (GetType(pBasement) != C4V_C4Object()) pBasement=0;
if (pBasement) if (!PrivateCall(pBasement, "BasementID")) pBasement=0;
if (!pBasement)
{
SetXDir(dir_sign*Min(80, 80*350/GetMass(fling_obj)), fling_obj);
SetYDir(-Min(20, 20/GetMass(fling_obj)), fling_obj);
// Bei Objekten noch den Controller anpassen
if(GetCategory(fling_obj) & C4D_Object())
SetController(GetController(clonk),fling_obj);
}
}
// Schon genügend Objekte geschleudert?
if (!fling_cnt--) break;
}
if (!Contained(clonk)) {
Fling(clonk, 8*dir_sign, -2);
}
// Pfeil verbrauchen
RemoveObject(obj);
}
// Sonst normale Wirkung
else {
AddEffect("WindUSpell", 0, 104, 50, 0, GetID(), GetDir(caster));
Sound("Wind2");
}
}
RemoveObject();
return(1);
}
global func DoInitialize() {
if(fInitialized) return();
fInitialized = 1;
fUseHungerThirst = 1;
if(!FindObject(NOPC)) CreateObject(NOPC);
if(fUseHungerThirst) if (!ObjectCount(NDWA)) CreateObject(NDWA, 50,50, -1); // Durst
if(fUseHungerThirst) if (!ObjectCount(NDFO)) CreateObject(NDFO, 50,50, -1); // Hunger
if(FindObject(_ETG)) RemoveObject(FindObject(_ETG));
if(FindObject(REPR)) RemoveObject(FindObject(REPR));
CreateObject(REPR, 50,50, -1); // Nachwuchs
if(FindObject(TREP)) RemoveObject(FindObject(TREP));
CreateObject(TREP, 50,50, -1); // Baumnachwuchs
// NPC's sollen Position halten
var i, pObj;
while(pObj = FindObjectOwner(0,-1,0,0,0,0,OCF_CrewMember,0,0,pObj))
AddEffect("StayThere",pObj,1,35,pObj);
// if (!GetPlayerCount()) return();
// Banditen erstellen
pObj = CreateObject(BNDT, 3917, 570, -1);
pObj->SetAI("BanditNoMove", 3);
pObj->SetColorDw(RGB(150));
pObj = CreateObject(BNDT, 4120, 560, -1);
pObj->SetAI("BanditNoMove", 3);
pObj->SetColorDw(RGB(150));
pObj = CreateObject(BNDT, 4175, 520, -1);
pObj->SetAI("BanditNoMove", 3);
pObj->SetColorDw(RGB(150));
pObj = CreateObject(BNDT, 4044, 477, -1);
pObj->SetAI("BanditNoMove", 3);
pObj->SetColorDw(RGB(150));
pObj = CreateObject(BNDT, 4309, 471, -1);
pObj->SetAI("BanditBoss", 3);
pObj->SetColorDw(RGB(150));
pObj->MakeBoss();
pObj->Enter(FindObject(MTNT, 4309, 471, -1, -1));
// Startmaterial erstellen
pWagon = CreateObject(COAC, 28, 270, -1);
pHorse = CreateObject(HORS, 77, 270, -1);
pHorse->ConnectWagon(pWagon);
SetDir(1, pWagon);
SetDir(1, pHorse);
// Startmaterial
CreateContents(MEAC,pWagon,6);
CreateContents(WHKY,pWagon,3);
for(i=0; i<2; i++) {
pObj = CreateContents(WSKI, pWagon);
LocalN("iWater", pObj) = 90;
pObj->~UpdateGraphics();
}
CreateContents(MLLT,pWagon);
CreateContents(KNFE,pWagon);
CreateContents(IGNB,pWagon);
CreateContents(DYNB,pWagon,2);
CreateContents(METL,pWagon,7);
CreateContents(WOOD,pWagon,21);
CreateContents(CNKT,pWagon,4);
CreateContents(LNKT,pWagon);
// Höhle muss immer vom Indianer zu betreten sein!
FreeRect(1970,589,40,9);
// Brauchbare Gebäude mit unzerstörbarkeit belegen
for(pObj in FindObjects(Find_Category(C4D_StaticBack|C4D_Structure|C4D_Vehicle),Find_Not(Find_Category(32768)),Find_InRect(1130,190,300,140)))
AddEffect("NoDmg",pObj,200);
for(pObj in FindObjects(Find_Category(C4D_StaticBack|C4D_Structure|C4D_Vehicle),Find_Func("IsIndianHandcraft"),
Find_Or(Find_InRect(1830,230,560,340),Find_InRect(3190,160,670,360))))
AddEffect("NoDmg",pObj,200);
// Weil die Kanone hier bearbeitet worden ist
if(pObj = FindObject(CCAN)) pObj->~Initialize();
if(fTestSection==1) return(ChangeSection("AshCity"));
if(fTestSection==2) return(ChangeSection("Caves"));
// ... und los!
if(!fTesting) ScriptGo(1);
return(1);
}
