From fb5a910d0c49be971b3c6baca78e3ada6e861f32 Mon Sep 17 00:00:00 2001
From: Maikel de Vries <mdt.maikel@gmail.com>
Date: Tue, 8 Dec 2015 13:58:36 +0100
Subject: [PATCH] add test scenario for rope and related objects

---
 planet/Tests.ocf/RopeTest.ocs/MapBg.bmp    | Bin 0 -> 3834 bytes
 planet/Tests.ocf/RopeTest.ocs/MapFg.bmp    | Bin 0 -> 3834 bytes
 planet/Tests.ocf/RopeTest.ocs/Scenario.txt |  10 +++++
 planet/Tests.ocf/RopeTest.ocs/Script.c     |  49 +++++++++++++++++++++
 4 files changed, 59 insertions(+)
 create mode 100644 planet/Tests.ocf/RopeTest.ocs/MapBg.bmp
 create mode 100644 planet/Tests.ocf/RopeTest.ocs/MapFg.bmp
 create mode 100644 planet/Tests.ocf/RopeTest.ocs/Scenario.txt
 create mode 100644 planet/Tests.ocf/RopeTest.ocs/Script.c

diff --git a/planet/Tests.ocf/RopeTest.ocs/MapBg.bmp b/planet/Tests.ocf/RopeTest.ocs/MapBg.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..ead4c0641390baf331286299ef65d4184c29f686
GIT binary patch
literal 3834
zcmeH{y=zoK6vdB@Je>9EgVo@7Kr93iBWNKeBoIkrqlH$&iixoiw6YNkiHIQB1w;_6
zEd3)a6fDKkA|PmCwJ`8t;NcK|_vK?ZA;yGgBfBtf=iQHU&OI}`qnE2asy`2RNO##y
zvW~E}X(vx<rXlU!wXg_ULZcH`@7KvqJhrb<JEM6$aX*!uQ%XtB7JHX?cS)+GzN06V
zRh16)AJo|3AR&UvRAmc*j=IL9c}<O;r9RW>%W3U?3>!VSN6vujD6cdy($eXnYr1gd
zo=y$jWL?*@*;#owUw`<ji(|Jzl_my`*9`rK_bY;Z?7%*vutGch;5|^rouMz1cWSj-
znwq?&432YmzH5AZT(3UPvA!`&l#A4PuM>?IdUxYFdaRFyuFr3#RnqtA?NfBv++IKC
zzSwjsS(k>-lds3M5s1SZU7hu4i$1|ioJUm(P2OI>f|r%ZSM)^Ujun};Vvq{399U1@
zc_)va3Ze*hLW4IP0CTz>F;7i^FEdrdUCo<=7nK_xl^K9pSyGdunO@W33VOW?>n)kd
zjxMjzZD*2`XXa>{j2pd0gg0kKuK-6xOK$V?D5wQQ2Ex-|kO(QdOZuJ1Q~GjiAa1D~
zt$~>nd<h;B@_e_=OF(=I<j@CKqCc~l&FDIZXXHa+y+JYHJK9{qERd&=<O4kb6>yYx
zL73fv*JS7MtwdX5uH5cS-D788a83d3xQ50Q3u{wGlk)}G8JZ(wF*E!Ty&ervb2b5u
z_=eVk8Uu)U=Ft?W3+5N%`?yPmon^3hG^B!ln~n2h_0_&JAKV!jh5bgF6`IY1Hk<{X
zIMKq)O}T*HrrpRk^E<pS515;KlQCnPx`cKIPZRqSdQvb9yLSO-?g(=^{IVNjpT_d1
zeqDSl2ibJTH^1*7b@z6nJ^Upvdj51fu(V%tXXQQVL|4X_x;FmZLF(@5M7N6HjoRC9
z+JP<p`}~RTU!QIdfBh5a`LnJ+{0*&}-*9sA|7=ygMF}k?fBUtnYpvJC-c>1!{vG^P
Kz`fW1#(`fTRbSx%

literal 0
HcmV?d00001

diff --git a/planet/Tests.ocf/RopeTest.ocs/MapFg.bmp b/planet/Tests.ocf/RopeTest.ocs/MapFg.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..11fe87763bde2ebcc3f3a1b0d7c3731d9435dfa9
GIT binary patch
literal 3834
zcmeH{ziSjh9L1lGEKXcqI1T;|h=m|x1TDmb1R_ba&_XLAVq($=TG@z&L_`qm0wM@j
zmi`eI3YKDN5fHSn3Jfd^EDrJW-Q;qYBgTYiBX=-+v)>=@z3-d38@W>LQT=(iL%Pdu
zl68c&O*?r?vpv$@T}z9gB{VXA?S7ry#AEv!wX<5(6ZcceIi-~3Y_WHVcbB9}>OFc=
zSyky!-$9KI3=kryOjWi7=&0*?w5X|(v(#rAc{#1!k71){X7~)aj`B+V!xK6^cwHB+
z-qWeUTdW&;Ha8~^=j#t&b#ZhCRB62bc+Jpvc)udp#}4cx3M;fj58eZ1+!^{Jd8dhq
z2~ADjRtCqpJKr@nHl|k}=ULyFCCWwWyw{1I7kYQ|IeM&*g|5$Urd87S>FrZ=*xX(}
z=D*l<Dp{9?&XcdlwGoKJ8(p3CXp26<OPohl3QgW#z=D^R$XE14;*J%WwPKJ8upC%V
z-gzgFo(iG}c0z+U8~}5=9WhT$fG;yu#9hssgBO(>9+eq@Sy@t(qnTdQ;R<@a3hOPI
z$&N0s&~0aulV|2=nv5I0MT9qJMy~)zL`!b-^C+kVL<YjsV2}tYx=Z?<$5Z-pYani^
z9Ib(w6MP9C67qa6n3sU~6v&|uu0(%kGn>(M4$sJk!g_;Zz<0E{f>|I>A;|}N04m@p
z?Se471Fyl(<6DWg#9X=EnYzc$zTlh!+HnnyDHhhIj3(y`uroAA#$smpBYHg=pyq4>
z8u1OS1vLf`@yw$sP#4TE#P@QS3OmbS?`TK`{Wcrt$Lg(pXFj+yFbeyPG%7Tk2Mcf(
zc;ZA0GdJV{dK-2l7ntASg?Yf-+?$LU7pO~Ucknc@KcOcD!?1f7faZ=cm%}f+A@;ev
z@~K~!A1gsN?eWd;TS)D_t!Nj&=|$I{b_bgKraP<eNh`WK-t5}=cMGY#rxo2QemiP+
zzi9`y`0w*4zJGnXUHtV=pzF`N{_r=nZhphb<^QvedW#ZTPX6|*qie0#<=&2zMgI<d
L2XOcGzj5FfRy?XR

literal 0
HcmV?d00001

diff --git a/planet/Tests.ocf/RopeTest.ocs/Scenario.txt b/planet/Tests.ocf/RopeTest.ocs/Scenario.txt
new file mode 100644
index 000000000..3f7724824
--- /dev/null
+++ b/planet/Tests.ocf/RopeTest.ocs/Scenario.txt
@@ -0,0 +1,10 @@
+[Head]
+Icon=2
+Title=RopeTest
+Version=6,0
+
+[Definitions]
+Definition1=Objects.ocd
+
+[Player1]
+Crew=Clonk=1
diff --git a/planet/Tests.ocf/RopeTest.ocs/Script.c b/planet/Tests.ocf/RopeTest.ocs/Script.c
new file mode 100644
index 000000000..fcdb3f06d
--- /dev/null
+++ b/planet/Tests.ocf/RopeTest.ocs/Script.c
@@ -0,0 +1,49 @@
+/**
+	Rope Test
+	Test scenario for the rope and all related objects.
+	
+	@author Maikel
+*/
+
+
+public func Initialize()
+{
+	// Rope ladders at the start.
+	CreateObjectAbove(Ropeladder, 104, 40)->Unroll(1, 0, 12);
+	CreateObjectAbove(Ropeladder, 222, 40)->Unroll(1, -1, 12);
+	
+	// Ropebridge.
+	var post1 = CreateObjectAbove(Ropebridge_Post, 80, 152);
+	var post2 = CreateObjectAbove(Ropebridge_Post, 176, 152);
+	post2->SetObjDrawTransform(-1000, 0, 0, 0, 1000);
+	post2.Double->SetObjDrawTransform(-1000, 0, 0, 0, 1000);
+	CreateObjectAbove(Ropebridge, 140, 152)->MakeBridge(post1, post2);
+	
+	// Series of rope ladders.
+	CreateObjectAbove(Ropeladder, 292, 60)->Unroll(-1, COMD_Up);
+	CreateObjectAbove(Ropeladder, 332, 60)->Unroll(-1, COMD_Up);
+	CreateObjectAbove(Ropeladder, 372, 60)->Unroll(-1, COMD_Up);
+	CreateObjectAbove(Ropeladder, 412, 60)->Unroll(-1, COMD_Up);
+	CreateObjectAbove(Ropeladder, 452, 60)->Unroll(-1, COMD_Up);
+	CreateObjectAbove(Ropeladder, 492, 60)->Unroll(-1, COMD_Up);	
+	
+	// Profile.
+	ProfileObject(Ropebridge);
+	ProfileObject(Ropeladder);
+	return;
+}
+
+public func InitializePlayer(int plr)
+{
+	GetCrew(plr)->CreateContents(GrappleBow, 2);
+	GetCrew(plr)->CreateContents(Ropeladder);
+	return;
+}
+
+global func ProfileObject(id def, int duration)
+{
+	if (duration == nil)
+		duration = 10;
+	StartScriptProfiler(def);
+	ScheduleCall(nil, "StopScriptProfiler", duration * 36, 0);
+}