1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#strict 2
#appendto LNKT
func Activate(clonk)
{
[$TxtConnectline$]
var line = FindObject2(Find_Action("Connect"), Find_Or(Find_ActionTarget(this), Find_ActionTarget2(this)));
var lineName = 0;
if(line)
{
lineName = GetName(line);
}
var fObjs = FindObjects(Find_OCF(OCF_LineConstruct), Find_AtPoint(), Find_Exclude(this));
var objs = CreateArray(GetLength(fObjs));
var i = 0;
for(var obj in fObjs)
{
if(line && obj == GetActionTarget(0, line) || obj == GetActionTarget(1, line))
{
objs[i++] = [obj, "$TxtRemoveLine$", GetID()];
}
else
{
var lineType = obj->~LineConnectType() || DefaultLineType(obj);
if(lineType)
{
var showName = GetName(obj);
if(!lineName)
{
showName = Format("%s: %s", GetName(obj), GetName(0, lineType));
}
objs[i++] = [obj, showName];
}
}
}
SetLength(objs, i);
if(GetLength(objs) <= 1)
{
ConnectToObject(0, fObjs[0]);
}
else
{
var caption = "$TxtConnectline$";
if(line)
{
caption = Format("$TxtConnectLineType$", GetName(line));
}
(clonk && clonk->~CreateSelectionMenu("ConnectToObject", objs, GetID(), caption, this)) || ConnectToObject(0, objs[0]);
}
return true;
}
func ConnectToObject(id id, object obj)
{
// Keins da? Auch gut.
if(!obj) return(Message("$TxtNoNewLine$", this));
// Leitung
var pLine = FindObject(0, 0,0,0,0, 0, "Connect", this);
// Aktuelle Leitung anschließen
if(pLine)
{
// Zielobjekt == Quellobject?
if(obj == GetActionTarget(0, pLine) || obj == GetActionTarget(1, pLine))
{
// Leitung wieder entfernen
Message("$TxtLineRemoval$", this, GetName(pLine));
RemoveObject(pLine);
Sound("Connect");
return(1);
}
else
{
// Line an pFrom anschließen
if(!ConnectLine(pLine, obj)) return(1);
}
}
// Neue Leitung
else
{
// LineType abfragen
var linetype = obj->~LineConnectType();
// Nicht vorhanden -> Standard-LineType verwenden
if(!linetype) linetype = DefaultLineType(obj);
// Kein möglicher Leitungstyp? :(
if(!linetype)
{
Sound("Error");
return(Message("$TxtNoNewLine$", this));
}
// Line erzeugen
pLine = CreateLine(linetype, GetOwner(), obj, this);
}
}
|
