e:/gry/pol/pvp097/scripts/include/noto.inc, Line 6
var nototitles :=
0: decl global #0
1: array
2: array
3: "Banita"
4: init{}
5: "Marny"
6: init{}
7: "Niegodny"
8: init{}
9: "Straszny"
10: init{}
11: "Straszny"
12: init{}
13: init{}
14: array
15: "Podly"
16: init{}
17: "Nikczemny"
18: init{}
19: "Niegodziwy"
20: init{}
21: "Zly"
22: init{}
23: "Zly"
24: init{}
25: init{}
26: array
27: "Lotr"
28: init{}
29: "Zlosliwy"
30: init{}
31: "Wstretny"
32: init{}
33: "Lajdacki"
34: init{}
35: "Mroczny"
36: init{}
37: init{}
38: array
39: "Przykry"
40: init{}
41: "Niecny"
42: init{}
43: "Haniebny"
44: init{}
45: "Zlowieszczy"
46: init{}
47: "Zlowrogi"
48: init{}
49: init{}
50: array
51: "Prosty"
52: init{}
53: "Haniebny"
54: init{}
55: "Znany"
56: init{}
57: "Nieslawny"
58: init{}
59: "Shanbiony"
60: init{}
61: init{}
62: array
63: "None"
64: init{}
65: "Znakomity"
66: init{}
67: "Wybitny"
68: init{}
69: "Slawny"
70: init{}
71: ""
72: init{}
73: init{}
74: array
75: "Sprawiedliwy"
76: init{}
77: "Mocny"
78: init{}
79: "Szanowany"
80: init{}
81: "Dystyngowany"
82: init{}
83: "Dystyngowany"
84: init{}
85: init{}
86: array
87: "Uprzejmy"
88: init{}
89: "Powazany"
90: init{}
91: "Przywoity"
92: init{}
93: "Slawny"
94: init{}
95: "Slawny"
96: init{}
97: init{}
98: array
99: "Dobry"
100: init{}
101: "Honorowy"
102: init{}
103: "Zachwycajacy"
104: init{}
105: "Szlachetny"
106: init{}
107: "Szlachetny"
108: init{}
109: init{}
110: array
111: "Szczery"
112: init{}
113: "Chwalebny"
114: init{}
115: "Znany"
116: init{}
117: "Slynny"
118: init{}
119: "Slynny"
120: init{}
121: init{}
122: array
123: "Prawy"
124: init{}
125: "Szanowany"
126: init{}
127: "Wielki"
128: init{}
129: "Wspanialy"
130: init{}
131: "Wspanialy"
132: init{}
133: init{}
134: :=
135: #
var knototitles :=
136: decl global #1
137: array
138: array
139: "Banita"
140: init{}
141: "Marna"
142: init{}
143: "Niegodna"
144: init{}
145: "Straszna"
146: init{}
147: "Straszna"
148: init{}
149: init{}
150: array
151: "Podla"
152: init{}
153: "Nikczemna"
154: init{}
155: "Niegodziwa"
156: init{}
157: "Zla"
158: init{}
159: "Zla"
160: init{}
161: init{}
162: array
163: "Lotr"
164: init{}
165: "Zlosliwa"
166: init{}
167: "Wstretna"
168: init{}
169: "Lajdacka"
170: init{}
171: "Mroczna"
172: init{}
173: init{}
174: array
175: "Przykra"
176: init{}
177: "Niecna"
178: init{}
179: "Haniebna"
180: init{}
181: "Zlowieszcza"
182: init{}
183: "Zlowroga"
184: init{}
185: init{}
186: array
187: "Prosta"
188: init{}
189: "Haniebna"
190: init{}
191: "Znana"
192: init{}
193: "Nieslawna"
194: init{}
195: "Shanbiona"
196: init{}
197: init{}
198: array
199: ""
200: init{}
201: "Znakomita"
202: init{}
203: "Wybitna"
204: init{}
205: "Slawna"
206: init{}
207: ""
208: init{}
209: init{}
210: array
211: "Sprawiedliwa"
212: init{}
213: "Mocna"
214: init{}
215: "Szanowana"
216: init{}
217: "Dystyngowana"
218: init{}
219: "Dystyngowana"
220: init{}
221: init{}
222: array
223: "Uprzejma"
224: init{}
225: "Powazana"
226: init{}
227: "Przywoita"
228: init{}
229: "Slawna"
230: init{}
231: "Slawna"
232: init{}
233: init{}
234: array
235: "Dobra"
236: init{}
237: "Honorowa"
238: init{}
239: "Zachwycajaca"
240: init{}
241: "Szlachetna"
242: init{}
243: "Szlachetna"
244: init{}
245: init{}
246: array
247: "Szczera"
248: init{}
249: "Chwalebna"
250: init{}
251: "Znana"
252: init{}
253: "Slynna"
254: init{}
255: "Slynna"
256: init{}
257: init{}
258: array
259: "Prawa"
260: init{}
261: "Szanowana"
262: init{}
263: "Wielka"
264: init{}
265: "Wspaniala"
266: init{}
267: "Wspaniala"
268: init{}
269: init{}
270: :=
271: #
e:/gry/pol/pvp097/scripts/include/bounty.inc, Line 8
var bountyfile := DFOpenDataFile("BountySystem", 1);
272: decl global #2
273: "BountySystem"
274: 1L
275: 0L
276: makelocal
277: jmp userfunc @1993
278: :=
279: #
e:/gry/pol/pvp097/scripts/include/datafile.inc, Line 10
var DF_DEBUG_MODE	:= 1;
280: decl global #3
281: 1L
282: :=
283: #
e:/gry/pol/pvp097/scripts/../pkg/foundations/gumps/gumps.inc, Line 252
var GFref := struct;		// X- and Y-offsets for gump operations
284: decl global #4
285: struct
286: :=
287: #
GFref.+x := 0;
288: global #4
289: "x"
290: .+
291: 0L
292: := #
GFref.+y := 0;
293: global #4
294: "y"
295: .+
296: 0L
297: := #
var GFlayout := array();// Main layout array for entire gump
298: decl global #5
299: array
300: :=
301: #
var GFdata := array();	// Storage array for static-text and
302: decl global #6
303: array
304: :=
305: #
var GFdtidx;		// ...text in GFdata (index)
306: decl global #7
307: #
var GFtxtid;		// ...TeXT-entry returns (keyid)
308: decl global #8
309: #
var GFbutid;		// ...'action' BUTtons (keyid)
310: decl global #9
311: #
var GFcbxid;		// ...CheckBoXes (keyid)
312: decl global #10
313: #
var GFradid;		// ...RADio buttons (keyid)
314: decl global #11
315: #
XGFReset();
316: makelocal
317: jmp userfunc @3350
318: #
var aGFTlength := struct;
319: decl global #12
320: struct
321: :=
322: #
aGFTlength.+charsf:=   // Space as Filler is not allowed
323: global #12
324: "charsf"
325: .+
326: "||||||||||||||`',.;:::::::::!!!!!!!!!!!!!!il1[]]]]]]]]]"bcejot”(){}===adfpqrszI„~~~~ghnuvy� <>----xJ578$?+++++++kCE2369^/*****mwABDFOPŽ™40%%GLNQSZ@#######HRT&__________KšUYYYYYYYYYYYXXXXXXXXXXXXXXVVVVVVVVVVVVVVMMMMMMMMMMMMMMWWWWWWWWWWWWWW"
327: := #
aGFTlength.+width:= array
328: global #12
329: "width"
330: .+
331: array
332: 2L
333: init{}
334: 3L
335: init{}
336: 4L
337: init{}
338: 5L
339: init{}
340: 6L
341: init{}
342: 7L
343: init{}
344: 8L
345: init{}
346: 9L
347: init{}
348: 10L
349: init{}
350: 11L
351: init{}
352: 12L
353: init{}
354: 13L
355: init{}
356: 14L
357: init{}
358: 15L
359: init{}
360: 16L
361: init{}
362: 18L
363: init{}
364: 21L
365: init{}
366: := #
e:/gry/pol/pvp097/scripts/include/reportMurder.inc, Line 9
var reportables;
367: decl global #13
368: #
var reportdata := array;
369: decl global #14
370: array
371: :=
372: #
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 29
program chrdeath(corpse,ghost)
const BARN_Z := 0;
373: get arg 'corpse'
374: get arg 'ghost'
EraseObjProperty(ghost, "IsMeditating");
375: local #1
376: "IsMeditating"
377: Func(4,6): EraseObjProperty
378: #
EraseObjProperty(ghost, "IsHealing");
379: local #1
380: "IsHealing"
381: Func(4,6): EraseObjProperty
382: #
ghost.frozen := 1;
383: local #1
384: 1L
385: set member id 'frozen' (34) #
if(ghost.gender == 1)
386: local #1
387: get member id 'gender' (28)
388: 1L
389: ==
390: if false goto 396
PlaySoundEffect( ghost, 0x53D );
391: local #1
392: 1341L
393: Func(4,23): PlaySoundEffect
394: #
395: goto400
PlaySoundEffect( ghost, 0x540 );
396: local #1
397: 1344L
398: Func(4,23): PlaySoundEffect
399: #
var killer := GetObjProperty(ghost, "LastHit");
400: decl local #2
401: local #1
402: "LastHit"
403: Func(4,1): GetObjProperty
404: :=
405: #
SetObjProperty(ghost, "LastHit", killer);
406: local #1
407: "LastHit"
408: local #2
409: Func(4,0): SetObjProperty
410: #
if(killer != error)
411: local #2
412: error
413: <>
414: if false goto 424
AdjustNoto((SystemFindObjectBySerial(killer[2], SYSFIND_SEARCH_OFFLINE_MOBILES)
415: local #2
416: 2L
417: [] 1
418: 1L
419: Func(4,7): SystemFindObjectBySerial
420: local #1
421: makelocal
422: jmp userfunc @1596
423: #
var fame := CInt(GetObjProperty(ghost, "Fame"));
424: decl local #3
425: local #1
426: "Fame"
427: Func(4,1): GetObjProperty
428: Func(0,0): CInt
429: :=
430: #
fame := (fame - CInt(fame / 20));
431: local #3
432: local #3
433: 20L
434: /
435: Func(0,0): CInt
436: -
437: local3 := 
SetObjProperty(ghost, "Fame", fame);
438: local #1
439: "Fame"
440: local #3
441: Func(4,0): SetObjProperty
442: #
SetObjProperty(corpse,"serial", ghost.serial);
443: local #0
444: "serial"
445: local #1
446: get member id 'serial' (6)
447: Func(4,0): SetObjProperty
448: #
if(getobjproperty(ghost, "poly") == 2)
449: local #1
450: "poly"
451: Func(4,1): GetObjProperty
452: 2L
453: ==
454: if false goto 685
if(getobjproperty(ghost, "horrificbeast"))
455: local #1
456: "horrificbeast"
457: Func(4,1): GetObjProperty
458: if false goto 477
eraseobjproperty(ghost,"horrificbeast");
459: local #1
460: "horrificbeast"
461: Func(4,6): EraseObjProperty
462: #
eraseobjproperty(ghost,"NewRegenRateForLife");
463: local #1
464: "NewRegenRateForLife"
465: Func(4,6): EraseObjProperty
466: #
recalcvitals(ghost);
467: local #1
468: Func(3,0): RecalcVitals
469: #
PlayObjectCenteredEffect( ghost, 0x373a, 20,15 );
470: local #1
471: 14138L
472: 20L
473: 15L
474: Func(4,24): PlayObjectCenteredEffect
475: #
476: goto582
elseif(getobjproperty(ghost, "lichform"))
477: local #1
478: "lichform"
479: Func(4,1): GetObjProperty
480: if false goto 503
eraseobjproperty(ghost,"lichform");
481: local #1
482: "lichform"
483: Func(4,6): EraseObjProperty
484: #
eraseobjproperty(ghost,"NewRegenRateForLife");
485: local #1
486: "NewRegenRateForLife"
487: Func(4,6): EraseObjProperty
488: #
eraseobjproperty(ghost,"NewRegenRateForMana");
489: local #1
490: "NewRegenRateForMana"
491: Func(4,6): EraseObjProperty
492: #
recalcvitals(ghost);
493: local #1
494: Func(3,0): RecalcVitals
495: #
PlayObjectCenteredEffect( ghost, 0x373a, 20,15 );
496: local #1
497: 14138L
498: 20L
499: 15L
500: Func(4,24): PlayObjectCenteredEffect
501: #
502: goto582
elseif(getobjproperty(ghost, "vampire"))
503: local #1
504: "vampire"
505: Func(4,1): GetObjProperty
506: if false goto 553
eraseobjproperty(ghost,"vampire");
507: local #1
508: "vampire"
509: Func(4,6): EraseObjProperty
510: #
eraseobjproperty(ghost,"NewRegenRateForStamina");
511: local #1
512: "NewRegenRateForStamina"
513: Func(4,6): EraseObjProperty
514: #
eraseobjproperty(ghost,"NewRegenRateForMana");
515: local #1
516: "NewRegenRateForMana"
517: Func(4,6): EraseObjProperty
518: #
var vampresist := Cint(GetObjProperty(ghost, "vampiric_resist"));
519: decl local #0
520: local #1
521: "vampiric_resist"
522: Func(4,1): GetObjProperty
523: Func(0,0): CInt
524: :=
525: #
if(Cint(GetObjProperty(ghost, "vampiric_resist")))
526: local #1
527: "vampiric_resist"
528: Func(4,1): GetObjProperty
529: Func(0,0): CInt
530: if false goto 542
SetAttributeBaseValue(ghost, ATTRIBUTEID_MAGICRESISTANCE, vampresist * 10);
531: local #1
532: "magicresistance"
533: local #4
534: 10L
535: *
536: Func(8,6): SetAttributeBaseValue
537: #
EraseObjProperty(ghost, "vampiric_resist");
538: local #1
539: "vampiric_resist"
540: Func(4,6): EraseObjProperty
541: #
recalcvitals(ghost);
542: local #1
543: Func(3,0): RecalcVitals
544: #
PlayObjectCenteredEffect( ghost, 0x373a, 20,15 );
545: local #1
546: 14138L
547: 20L
548: 15L
549: Func(4,24): PlayObjectCenteredEffect
550: #
551: leave block(1)
552: goto582
elseif (Getobjproperty(ghost, "wraith"))
553: local #1
554: "wraith"
555: Func(4,1): GetObjProperty
556: if false goto 582
PlayObjectCenteredEffect( ghost, 0x373a, 20,15 );
557: local #1
558: 14138L
559: 20L
560: 15L
561: Func(4,24): PlayObjectCenteredEffect
562: #
ghost.ar_mod := ghost.ar_mod - getobjproperty(ghost, "wraith");
563: local #1
564: local #1
565: get member id 'ar_mod' (31)
566: local #1
567: "wraith"
568: Func(4,1): GetObjProperty
569: -
570: set member id 'ar_mod' (31) #
EraseObjProperty (ghost, "wraith");
571: local #1
572: "wraith"
573: Func(4,6): EraseObjProperty
574: #
if(!ghost.cmdlevel)
575: local #1
576: get member id 'cmdlevel' (46)
577: if true goto 582
RevokePrivilege(ghost, "freemove");
578: local #1
579: "freemove"
580: Func(4,19): RevokePrivilege
581: #
if(Cint(GetObjProperty(ghost, "#reaper")))
582: local #1
583: "#reaper"
584: Func(4,1): GetObjProperty
585: Func(0,0): CInt
586: if false goto 607
SetAttributeTemporaryMod( ghost, ATTRIBUTEID_FORENSICS, 0 );
587: local #1
588: "forensicevaluation"
589: 0L
590: Func(8,5): SetAttributeTemporaryMod
591: #
SetAttributeTemporaryMod( ghost, ATTRIBUTEID_DEXTERITY, 0 );
592: local #1
593: "dexterity"
594: 0L
595: Func(8,5): SetAttributeTemporaryMod
596: #
SetAttributeTemporaryMod( ghost, ATTRIBUTEID_STRENGTH, 0 );
597: local #1
598: "strength"
599: 0L
600: Func(8,5): SetAttributeTemporaryMod
601: #
SetAttributeTemporaryMod( ghost, ATTRIBUTEID_MAGICRESISTANCE, 0 );
602: local #1
603: "magicresistance"
604: 0L
605: Func(8,5): SetAttributeTemporaryMod
606: #
SetName(ghost, GetObjProperty (ghost, "oldname"));
607: local #1
608: local #1
609: "oldname"
610: Func(4,1): GetObjProperty
611: Func(4,22): SetName
612: #
ghost.graphic := ghost.trueobjtype;
613: local #1
614: local #1
615: get member id 'trueobjtype' (29)
616: set member id 'graphic' (5) #
ghost.color := ghost.truecolor;
617: local #1
618: local #1
619: get member id 'truecolor' (30)
620: set member id 'color' (7) #
if(Cint(GetObjProperty(ghost, "oldgraphic")))
621: local #1
622: "oldgraphic"
623: Func(4,1): GetObjProperty
624: Func(0,0): CInt
625: if false goto 632
ghost.graphic := Cint(GetObjProperty(ghost, "oldgraphic"));
626: local #1
627: local #1
628: "oldgraphic"
629: Func(4,1): GetObjProperty
630: Func(0,0): CInt
631: set member id 'graphic' (5) #
ghost.title_prefix := GetObjProperty (ghost, "oldprefix");
632: local #1
633: local #1
634: "oldprefix"
635: Func(4,1): GetObjProperty
636: set member id 'title_prefix' (51) #
ghost.title_suffix := GetObjProperty (ghost, "oldsuffix");
637: local #1
638: local #1
639: "oldsuffix"
640: Func(4,1): GetObjProperty
641: set member id 'title_suffix' (52) #
ghost.title_guild := GetObjProperty (ghost, "oldguild");
642: local #1
643: local #1
644: "oldguild"
645: Func(4,1): GetObjProperty
646: set member id 'title_guild' (53) #
ghost.title_race := GetObjProperty (ghost, "oldrace");
647: local #1
648: local #1
649: "oldrace"
650: Func(4,1): GetObjProperty
651: set member id 'title_race' (54) #
ghost.murderer := GetObjProperty (ghost, "oldmurderer");
652: local #1
653: local #1
654: "oldmurderer"
655: Func(4,1): GetObjProperty
656: set member id 'murderer' (57) #
EraseObjProperty (ghost, "oldname");
657: local #1
658: "oldname"
659: Func(4,6): EraseObjProperty
660: #
EraseObjProperty (ghost, "oldprefix");
661: local #1
662: "oldprefix"
663: Func(4,6): EraseObjProperty
664: #
EraseObjProperty (ghost, "oldsuffix");
665: local #1
666: "oldsuffix"
667: Func(4,6): EraseObjProperty
668: #
EraseObjProperty (ghost, "oldguild");
669: local #1
670: "oldguild"
671: Func(4,6): EraseObjProperty
672: #
EraseObjProperty (ghost, "oldrace");
673: local #1
674: "oldrace"
675: Func(4,6): EraseObjProperty
676: #
EraseObjProperty (ghost, "oldmurderer");
677: local #1
678: "oldmurderer"
679: Func(4,6): EraseObjProperty
680: #
EraseObjProperty (ghost, "poly");
681: local #1
682: "poly"
683: Func(4,6): EraseObjProperty
684: #
foreach magiki in EnumerateItemsInContainer(corpse) // odejmowanie ladunkow z m
685: local #0
686: 0L
687: Func(4,14): EnumerateItemsInContainer
688: initforeach @711
if(Cint(GetObjProperty(magiki, "magik")))
689: local #4
690: "magik"
691: Func(4,1): GetObjProperty
692: Func(0,0): CInt
693: if false goto 711
if(isa_jewelry(magiki))
694: local #4
695: makelocal
696: jmp userfunc @2472
697: if false goto 711
var ladunki := GetObjProperty(magiki, "ladunki");
698: decl local #0
699: local #4
700: "ladunki"
701: Func(4,1): GetObjProperty
702: :=
703: #
OdejmijLadunek(corpse, magiki, ladunki); 
704: local #0
705: local #4
706: local #7
707: makelocal
708: jmp userfunc @2535
709: #
710: leave block(1)
711: stepforeach @689
712: leave block(3)
eraseobjproperty(ghost,"NewRegenRateForStamina");
713: local #1
714: "NewRegenRateForStamina"
715: Func(4,6): EraseObjProperty
716: #
eraseobjproperty(ghost,"NewRegenRateForMana");
717: local #1
718: "NewRegenRateForMana"
719: Func(4,6): EraseObjProperty
720: #
eraseobjproperty(ghost, "#IxodynixSet");
721: local #1
722: "#IxodynixSet"
723: Func(4,6): EraseObjProperty
724: #
EraseObjProperty(ghost, "#GorxSet");
725: local #1
726: "#GorxSet"
727: Func(4,6): EraseObjProperty
728: #
EraseObjProperty(ghost, "#GorxKomplet");
729: local #1
730: "#GorxKomplet"
731: Func(4,6): EraseObjProperty
732: #
EraseObjProperty(ghost, "#hp_mod");
733: local #1
734: "#hp_mod"
735: Func(4,6): EraseObjProperty
736: #
EraseObjProperty(ghost, "#mana_mod");
737: local #1
738: "#mana_mod"
739: Func(4,6): EraseObjProperty
740: #
EraseObjProperty(ghost, "#resist_mod");
741: local #1
742: "#resist_mod"
743: Func(4,6): EraseObjProperty
744: #
recalcvitals(ghost);
745: local #1
746: Func(3,0): RecalcVitals
747: #
CureSpecific(ghost, "defaultPoison", 200, 5);
748: local #1
749: "defaultPoison"
750: 200L
751: 5L
752: makelocal
753: jmp userfunc @1930
754: #
SetObjProperty(corpse,"serial", ghost.serial);
755: local #0
756: "serial"
757: local #1
758: get member id 'serial' (6)
759: Func(4,0): SetObjProperty
760: #
dismount(ghost, corpse);
761: local #1
762: local #0
763: makelocal
764: jmp userfunc @2052
765: #
var corpsenamearray := SplitWords(corpse.name);
766: decl local #4
767: local #0
768: get member id 'name' (3)
769: " "
770: Func(0,6): SplitWords
771: :=
772: #
var corpsenamearraylen := len(corpsenamearray);
773: decl local #5
774: local #4
775: Func(0,4): Len
776: :=
777: #
var x, corpsename := "";
778: decl local #6
779: #
780: decl local #7
781: ""
782: :=
783: #
for (x := 4; x <= corpsenamearraylen; x := x + 1)
784: local #6
785: 4L
786: :=
787: #
788: local #6
789: local #5
790: <=
791: if false goto 807
corpsename := corpsename + " " + corpsenamearray[x];
792: local #7
793: " "
794: +
795: local #4
796: local #6
797: [] 1
798: +
799: local7 := 
800: local #6
801: local #6
802: 1L
803: +
804: :=
805: #
806: goto788
if ( getobjproperty (ghost, "possess") )
807: local #1
808: "possess"
809: Func(4,1): GetObjProperty
810: if false goto 815
unpossesscorpse(ghost);
811: local #1
812: makelocal
813: jmp userfunc @2849
814: #
if(!ghost.criminal)
815: local #1
816: get member id 'criminal' (48)
817: if true goto 823
SetObjProperty(corpse, "wasblue", 1);
818: local #0
819: "wasblue"
820: 1L
821: Func(4,0): SetObjProperty
822: #
var x1  := GetGlobalProperty( "arenax");//obszar areny
823: decl local #8
824: "arenax"
825: Func(4,11): GetGlobalProperty
826: :=
827: #
var x2 := GetGlobalProperty( "arenax2");
828: decl local #9
829: "arenax2"
830: Func(4,11): GetGlobalProperty
831: :=
832: #
var y1  := GetGlobalProperty( "arenay");
833: decl local #10
834: "arenay"
835: Func(4,11): GetGlobalProperty
836: :=
837: #
var y2 := GetGlobalProperty( "arenay2");
838: decl local #11
839: "arenay2"
840: Func(4,11): GetGlobalProperty
841: :=
842: #
if ( ghost.x>=x1 and ghost.y>=y1 and ghost.x <=x2 and ghost.y <=y2)
843: local #1
844: get member id 'x' (0)
845: local #8
846: >=
847: local #1
848: get member id 'y' (1)
849: local #10
850: >=
851: &&
852: local #1
853: get member id 'x' (0)
854: local #9
855: <=
856: &&
857: local #1
858: get member id 'y' (1)
859: local #11
860: <=
861: &&
862: if false goto 868
if(GetGlobalProperty( "arenared"))//prop blokujacy zaznaczanie reda
863: "arenared"
864: Func(4,11): GetGlobalProperty
865: if false goto 868
return;
866: ""
867: progend
TwojStary(ghost);
868: local #1
869: makelocal
870: jmp userfunc @2796
871: #
if(GetObjProperty(ghost, "naigrzyskach"))  // jezeli sa igrzyska
872: local #1
873: "naigrzyskach"
874: Func(4,1): GetObjProperty
875: if false goto 1190
var serial := cint(GetObjProperty(corpse, "serial"));
876: decl local #0
877: local #0
878: "serial"
879: Func(4,1): GetObjProperty
880: Func(0,0): CInt
881: :=
882: #
foreach oswojone in ListMobilesNearLocation( ghost.x, ghost.y, ghost.z, 10 );
883: local #1
884: get member id 'x' (0)
885: local #1
886: get member id 'y' (1)
887: local #1
888: get member id 'z' (2)
889: 10L
890: "britannia"
891: Func(4,25): ListMobilesNearLocation
892: initforeach @917
var masterserial := GetObjProperty(oswojone, "master");
893: decl local #0
894: local #13
895: "master"
896: Func(4,1): GetObjProperty
897: :=
898: #
if(oswojone.script == "tamed" && serial == masterserial)
899: local #13
900: get member id 'script' (61)
901: "tamed"
902: ==
903: local #12
904: local #16
905: ==
906: &&
907: if false goto 916
ApplyRawDamage(oswojone, GetMaxHp(oswojone)+10);
908: local #13
909: local #13
910: makelocal
911: jmp userfunc @2312
912: 10L
913: +
914: Func(3,5): ApplyRawDamage
915: #
916: leave block(1)
917: stepforeach @893
918: leave block(3)
DestroyItem(corpse);
919: local #0
920: Func(4,26): DestroyItem
921: #
MoveObjectToLocation( ghost, SALA_X, SALA_Y, SALA_Z, ghost.realm, MOVEOBJECT_FO
922: local #1
923: 5261L
924: 1762L
925: 0L
926: local #1
927: get member id 'realm' (113)
928: 1073741824L
929: Func(4,10): MoveObjectToLocation
930: #
foreach item in ListEquippedItems( ghost ); 
931: local #1
932: Func(4,18): ListEquippedItems
933: initforeach @946
if((item.graphic == 7939) && (!item.color))
934: local #13
935: get member id 'graphic' (5)
936: 7939L
937: ==
938: local #13
939: get member id 'color' (7)
940: !
941: &&
942: if false goto 946
destroyitem(item);
943: local #13
944: Func(4,26): DestroyItem
945: #
946: stepforeach @934
947: leave block(3)
EraseObjProperty(ghost, "dostal");
948: local #1
949: "dostal"
950: Func(4,6): EraseObjProperty
951: #
var total := 0;
952: decl local #1
953: 0L
954: :=
955: #
foreach mobile in EnumerateOnlineCharacters()
956: Func(4,2): EnumerateOnlineCharacters
957: initforeach @970
if(!mobile.dead && GetObjProperty(mobile, "naigrzyskach"))
958: local #14
959: get member id 'dead' (39)
960: !
961: local #14
962: "naigrzyskach"
963: Func(4,1): GetObjProperty
964: &&
965: if false goto 970
total := total +1;
966: local #13
967: 1L
968: +
969: local13 := 
970: stepforeach @958
971: leave block(3)
var redzik := 0;
972: decl local #2
973: 0L
974: :=
975: #
foreach redo in EnumerateOnlineCharacters()
976: Func(4,2): EnumerateOnlineCharacters
977: initforeach @992
if(!redo.dead && GetObjProperty(redo, "naigrzyskach") == "red")
978: local #15
979: get member id 'dead' (39)
980: !
981: local #15
982: "naigrzyskach"
983: Func(4,1): GetObjProperty
984: "red"
985: ==
986: &&
987: if false goto 992
redzik := redzik +1;
988: local #14
989: 1L
990: +
991: local14 := 
992: stepforeach @978
993: leave block(3)
var blue2 := 0;
994: decl local #3
995: 0L
996: :=
997: #
foreach blueo in EnumerateOnlineCharacters()
998: Func(4,2): EnumerateOnlineCharacters
999: initforeach @1014
if(!blueo.dead && GetObjProperty(blueo, "naigrzyskach") == "blue")
1000: local #16
1001: get member id 'dead' (39)
1002: !
1003: local #16
1004: "naigrzyskach"
1005: Func(4,1): GetObjProperty
1006: "blue"
1007: ==
1008: &&
1009: if false goto 1014
blue2 := blue2 +1;
1010: local #15
1011: 1L
1012: +
1013: local15 := 
1014: stepforeach @1000
1015: leave block(3)
PrintTextAbove(ZnajdzKamien(), "Niebieskich: " + blue2 + ".",3,89);
1016: makelocal
1017: jmp userfunc @3386
1018: "Niebieskich: "
1019: local #15
1020: +
1021: "."
1022: +
1023: 3L
1024: 89L
1025: Func(4,8): PrintTextAbove
1026: #
PrintTextAbove(ZnajdzKamien(), "Czerwonych: " + redzik + ".",3,40);
1027: makelocal
1028: jmp userfunc @3386
1029: "Czerwonych: "
1030: local #14
1031: +
1032: "."
1033: +
1034: 3L
1035: 40L
1036: Func(4,8): PrintTextAbove
1037: #
if(blue2 <= 0  && redzik <= 0)
1038: local #15
1039: 0L
1040: <=
1041: local #14
1042: 0L
1043: <=
1044: &&
1045: if false goto 1053
BroadCast("Remis!",3,66);
1046: "Remis!"
1047: 3L
1048: 66L
1049: Func(4,12): Broadcast
1050: #
return 0;
1051: 0L
1052: progend
SendSysMessage(ghost, "Ilosc czerwonych: " + redzik + ".",3,66);
1053: local #1
1054: "Ilosc czerwonych: "
1055: local #14
1056: +
1057: "."
1058: +
1059: 3L
1060: 66L
1061: Func(4,3): SendSysMessage
1062: #
SendSysMessage(ghost, "Ilosc niebieskich: " + blue2 + ".",3,66);
1063: local #1
1064: "Ilosc niebieskich: "
1065: local #15
1066: +
1067: "."
1068: +
1069: 3L
1070: 66L
1071: Func(4,3): SendSysMessage
1072: #
if(blue2 <= 0)
1073: local #15
1074: 0L
1075: <=
1076: if false goto 1131
var punktyblue := Cint(GetGlobalProperty("igrzyskpunktyniebieskich"));
1077: decl local #0
1078: "igrzyskpunktyniebieskich"
1079: Func(4,11): GetGlobalProperty
1080: Func(0,0): CInt
1081: :=
1082: #
var punktyred := Cint(GetGlobalProperty("igrzyskpunktyczerwonych"));
1083: decl local #1
1084: "igrzyskpunktyczerwonych"
1085: Func(4,11): GetGlobalProperty
1086: Func(0,0): CInt
1087: :=
1088: #
if(!punktyblue)
1089: local #16
1090: if true goto 1093
punktyblue := 0;
1091: 0L
1092: local16 := 
if(!punktyred)
1093: local #17
1094: if true goto 1097
punktyred := 0;
1095: 0L
1096: local17 := 
BroadCast("Runde igrzysk wygrala druzyna czerwonych!",3,66);
1097: "Runde igrzysk wygrala druzyna czerwonych!"
1098: 3L
1099: 66L
1100: Func(4,12): Broadcast
1101: #
SetGlobalProperty("igrzyskpunktyczerwonych", punktyred + 1);
1102: "igrzyskpunktyczerwonych"
1103: local #17
1104: 1L
1105: +
1106: Func(4,27): SetGlobalProperty
1107: #
BroadCast("Ilosc punktow niebieskich: " + Cint(GetGlobalProperty("igrzyskpunkty
1108: "Ilosc punktow niebieskich: "
1109: "igrzyskpunktyniebieskich"
1110: Func(4,11): GetGlobalProperty
1111: Func(0,0): CInt
1112: +
1113: 3L
1114: 66L
1115: Func(4,12): Broadcast
1116: #
BroadCast("Ilosc punktow czerwonych: " + Cint(GetGlobalProperty("igrzyskpunktyc
1117: "Ilosc punktow czerwonych: "
1118: "igrzyskpunktyczerwonych"
1119: Func(4,11): GetGlobalProperty
1120: Func(0,0): CInt
1121: +
1122: 3L
1123: 66L
1124: Func(4,12): Broadcast
1125: #
koniecrundy();
1126: makelocal
1127: jmp userfunc @2487
1128: #
1129: leave block(2)
1130: goto1188
elseif(redzik <= 0)
1131: local #14
1132: 0L
1133: <=
1134: if false goto 1188
var punktyblue := Cint(GetGlobalProperty("igrzyskpunktyniebieskich"));
1135: decl local #0
1136: "igrzyskpunktyniebieskich"
1137: Func(4,11): GetGlobalProperty
1138: Func(0,0): CInt
1139: :=
1140: #
var punktyred := Cint(GetGlobalProperty("igrzyskpunktyczerwonych"));
1141: decl local #1
1142: "igrzyskpunktyczerwonych"
1143: Func(4,11): GetGlobalProperty
1144: Func(0,0): CInt
1145: :=
1146: #
if(!punktyblue)
1147: local #16
1148: if true goto 1151
punktyblue := 0;
1149: 0L
1150: local16 := 
if(!punktyred)
1151: local #17
1152: if true goto 1155
punktyred := 0;
1153: 0L
1154: local17 := 
BroadCast("Runde igrzysk wygrala druzyna niebieskich!",3,66);
1155: "Runde igrzysk wygrala druzyna niebieskich!"
1156: 3L
1157: 66L
1158: Func(4,12): Broadcast
1159: #
SetGlobalProperty("igrzyskpunktyniebieskich", punktyblue + 1);
1160: "igrzyskpunktyniebieskich"
1161: local #16
1162: 1L
1163: +
1164: Func(4,27): SetGlobalProperty
1165: #
BroadCast("Ilosc punktow czerwonych: " + Cint(GetGlobalProperty("igrzyskpunktyc
1166: "Ilosc punktow czerwonych: "
1167: "igrzyskpunktyczerwonych"
1168: Func(4,11): GetGlobalProperty
1169: Func(0,0): CInt
1170: +
1171: 3L
1172: 66L
1173: Func(4,12): Broadcast
1174: #
BroadCast("Ilosc punktow niebieskich: " + Cint(GetGlobalProperty("igrzyskpunkty
1175: "Ilosc punktow niebieskich: "
1176: "igrzyskpunktyniebieskich"
1177: Func(4,11): GetGlobalProperty
1178: Func(0,0): CInt
1179: +
1180: 3L
1181: 66L
1182: Func(4,12): Broadcast
1183: #
koniecrundy();
1184: makelocal
1185: jmp userfunc @2487
1186: #
1187: leave block(2)
1188: leave block(4)
1189: goto1575
elseif(GetObjProperty(ghost, "#team"))
1190: local #1
1191: "#team"
1192: Func(4,1): GetObjProperty
1193: if false goto 1404
var duelfrags := Cint(GetObjProperty(ghost, "duelfrags")); // fragi duela
1194: decl local #0
1195: local #1
1196: "duelfrags"
1197: Func(4,1): GetObjProperty
1198: Func(0,0): CInt
1199: :=
1200: #
if(!duelfrags)
1201: local #12
1202: if true goto 1205
duelfrags := 0;
1203: 0L
1204: local12 := 
duelfrags := duelfrags - 1;
1205: local #12
1206: 1L
1207: -
1208: local12 := 
SendSysMessage(ghost,"Padles jak ciota! Ujemny punkt duela!", FONT_NORMAL, 40);
1209: local #1
1210: "Padles jak ciota! Ujemny punkt duela!"
1211: 3L
1212: 40L
1213: Func(4,3): SendSysMessage
1214: #
SetObjProperty(ghost,"duelfrags",duelfrags);
1215: local #1
1216: "duelfrags"
1217: local #12
1218: Func(4,0): SetObjProperty
1219: #
set_critical(1);
1220: 1L
1221: Func(2,0): Set_Critical
1222: #
ghost.frozen := 1;
1223: local #1
1224: 1L
1225: set member id 'frozen' (34) #
Resurrect( ghost );
1226: local #1
1227: 0L
1228: Func(4,9): Resurrect
1229: #
ghost.setCriminal(0);
1230: local #1
1231: 0L
1232: Call Method id setcriminal (#5, 1 params)
1233: #
var near_items := ListItemsNearLocation(ghost.x, ghost.y, ghost.z,3);
1234: decl local #1
1235: local #1
1236: get member id 'x' (0)
1237: local #1
1238: get member id 'y' (1)
1239: local #1
1240: get member id 'z' (2)
1241: 3L
1242: "britannia"
1243: Func(4,28): ListItemsNearLocation
1244: :=
1245: #
foreach item in near_items
1246: local #13
1247: initforeach @1278
if (item.objtype == UOBJ_CORPSE && cint(GetObjProperty(corpse, "serial")) == gh
1248: local #14
1249: get member id 'objtype' (4)
1250: 8198L
1251: ==
1252: local #0
1253: "serial"
1254: Func(4,1): GetObjProperty
1255: Func(0,0): CInt
1256: local #1
1257: get member id 'serial' (6)
1258: ==
1259: &&
1260: if false goto 1273
foreach thingie in EnumerateItemsInContainer(item)
1261: local #14
1262: 0L
1263: Func(4,14): EnumerateItemsInContainer
1264: initforeach @1270
Grabit(ghost,thingie);
1265: local #1
1266: local #17
1267: makelocal
1268: jmp userfunc @2369
1269: #
1270: stepforeach @1265
1271: leave block(3)
1272: goto1278
Grabit(ghost,item);
1273: local #1
1274: local #14
1275: makelocal
1276: jmp userfunc @2369
1277: #
1278: stepforeach @1248
1279: leave block(3)
var serial := cint(GetObjProperty(corpse, "serial"));
1280: decl local #2
1281: local #0
1282: "serial"
1283: Func(4,1): GetObjProperty
1284: Func(0,0): CInt
1285: :=
1286: #
var ev := {};
1287: decl local #3
1288: array
1289: :=
1290: #
MoveObjectToLocation( ghost, FRAKCJA_1_X, FRAKCJA_1_Y, FRAKCJA_1_Z, ghost.realm
1291: local #1
1292: 2990L
1293: 666L
1294: 0L
1295: local #1
1296: get member id 'realm' (113)
1297: 1073741824L
1298: Func(4,10): MoveObjectToLocation
1299: #
foreach oswojone in ListMobilesNearLocation( corpse.x, corpse.y, corpse.z, 10 )
1300: local #0
1301: get member id 'x' (0)
1302: local #0
1303: get member id 'y' (1)
1304: local #0
1305: get member id 'z' (2)
1306: 10L
1307: "britannia"
1308: Func(4,25): ListMobilesNearLocation
1309: initforeach @1353
var masterserial := GetObjProperty(oswojone, "master");
1310: decl local #0
1311: local #16
1312: "master"
1313: Func(4,1): GetObjProperty
1314: :=
1315: #
if(oswojone.script == "tamed" && serial == masterserial)
1316: local #16
1317: get member id 'script' (61)
1318: "tamed"
1319: ==
1320: local #14
1321: local #19
1322: ==
1323: &&
1324: if false goto 1352
MoveObjectToLocation( oswojone, FRAKCJA_1_X, FRAKCJA_1_Y, FRAKCJA_1_Z, ghost.re
1325: local #16
1326: 2990L
1327: 666L
1328: 0L
1329: local #1
1330: get member id 'realm' (113)
1331: 1073741824L
1332: Func(4,10): MoveObjectToLocation
1333: #
ev.+ type;
1334: local #15
1335: "type"
1336: .+
1337: #
ev.+ source;
1338: local #15
1339: "source"
1340: .+
1341: #
ev.type := SYSEVENT_DOUBLECLICKED;
1342: local #15
1343: 2048L
1344: set member 'type' #
ev.source := ghost;
1345: local #15
1346: local #1
1347: set member 'source' #
SendEvent(oswojone, ev);
1348: local #16
1349: local #15
1350: Func(4,13): SendEvent
1351: #
1352: leave block(1)
1353: stepforeach @1310
1354: leave block(3)
set_critical(0);
1355: 0L
1356: Func(2,0): Set_Critical
1357: #
ghost.frozen := 0;
1358: local #1
1359: 0L
1360: set member id 'frozen' (34) #
SetHp(ghost, GetMaxHp(ghost));
1361: local #1
1362: local #1
1363: makelocal
1364: jmp userfunc @2312
1365: makelocal
1366: jmp userfunc @2675
1367: #
SetMana(ghost, GetMaxMana(ghost));
1368: local #1
1369: local #1
1370: makelocal
1371: jmp userfunc @2320
1372: makelocal
1373: jmp userfunc @2685
1374: #
SetStamina(ghost, GetMaxStamina(ghost));
1375: local #1
1376: local #1
1377: makelocal
1378: jmp userfunc @2328
1379: makelocal
1380: jmp userfunc @2786
1381: #
SendSysMessage(ghost, "Zostales przeniesiony do swojego miasta.",3,40);
1382: local #1
1383: "Zostales przeniesiony do swojego miasta."
1384: 3L
1385: 40L
1386: Func(4,3): SendSysMessage
1387: #
EraseObjProperty(ghost, "#team");
1388: local #1
1389: "#team"
1390: Func(4,6): EraseObjProperty
1391: #
EraseObjProperty(ghost, "#duelOkno");
1392: local #1
1393: "#duelOkno"
1394: Func(4,6): EraseObjProperty
1395: #
EraseGlobalProperty("#arena");
1396: "#arena"
1397: Func(4,29): EraseGlobalProperty
1398: #
DestroyItem(corpse);
1399: local #0
1400: Func(4,26): DestroyItem
1401: #
1402: leave block(4)
1403: goto1575
elseif(!GetObjProperty(ghost, "#team")) // <-
1404: local #1
1405: "#team"
1406: Func(4,1): GetObjProperty
1407: if true goto 1575
if(GetObjProperty(ghost, "#glife") && RandomInt(100) > 50)
1408: local #1
1409: "#glife"
1410: Func(4,1): GetObjProperty
1411: 100L
1412: Func(5,0): RandomInt
1413: 50L
1414: >
1415: &&
1416: if false goto 1447
ghost.frozen := 1;
1417: local #1
1418: 1L
1419: set member id 'frozen' (34) #
SendSysMessage(ghost, "Czar Gift of Life wskrzesil Cie!",3,66);
1420: local #1
1421: "Czar Gift of Life wskrzesil Cie!"
1422: 3L
1423: 66L
1424: Func(4,3): SendSysMessage
1425: #
InstantResurrect(ghost);
1426: local #1
1427: makelocal
1428: jmp userfunc @2427
1429: #
start_script(":unpoly:unpoly", ghost);
1430: ":unpoly:unpoly"
1431: local #1
1432: Func(2,5): Start_Script
1433: #
start_script("demod",ghost);
1434: "demod"
1435: local #1
1436: Func(2,5): Start_Script
1437: #
start_script("unmod",ghost);
1438: "unmod"
1439: local #1
1440: Func(2,5): Start_Script
1441: #
ghost.frozen := 0;
1442: local #1
1443: 0L
1444: set member id 'frozen' (34) #
return 0;
1445: 0L
1446: progend
if(YesNo(ghost, "Przeniesc Cie do miasta i wskrzesic czy sobie poradzisz?"))
1447: local #1
1448: "Przeniesc Cie do miasta i wskrzesic czy sobie poradzisz?"
1449: makelocal
1450: jmp userfunc @3366
1451: if false goto 1575
if(Cint(GetObjProperty(ghost, "jailed")))
1452: local #1
1453: "jailed"
1454: Func(4,1): GetObjProperty
1455: Func(0,0): CInt
1456: if false goto 1465
SendSysMessage(ghost, "O kurwa, jaki cwaniak.",3,40);
1457: local #1
1458: "O kurwa, jaki cwaniak."
1459: 3L
1460: 40L
1461: Func(4,3): SendSysMessage
1462: #
return;
1463: ""
1464: progend
var deathcount := Cint(GetObjProperty(ghost, "#deathcount"));
1465: decl local #0
1466: local #1
1467: "#deathcount"
1468: Func(4,1): GetObjProperty
1469: Func(0,0): CInt
1470: :=
1471: #
if( Cint(GetObjProperty(ghost, "#lastresed") > ReadGameClock() ) && deathcount 
1472: local #1
1473: "#lastresed"
1474: Func(4,1): GetObjProperty
1475: Func(4,4): ReadGameClock
1476: >
1477: Func(0,0): CInt
1478: local #12
1479: 5L
1480: >=
1481: &&
1482: if false goto 1494
SendSysMessage(ghost, "Nie padaj tyle cioto. Teraz sobie poczekasz 5 minut.",3,
1483: local #1
1484: "Nie padaj tyle cioto. Teraz sobie poczekasz 5 minut."
1485: 3L
1486: 40L
1487: Func(4,3): SendSysMessage
1488: #
ghost.frozen := 0;
1489: local #1
1490: 0L
1491: set member id 'frozen' (34) #
return;
1492: ""
1493: progend
MoveObjectToLocation( ghost, FRAKCJA_1_X, FRAKCJA_1_Y, FRAKCJA_1_Z, ghost.realm
1494: local #1
1495: 2990L
1496: 666L
1497: 0L
1498: local #1
1499: get member id 'realm' (113)
1500: 1073741824L
1501: Func(4,10): MoveObjectToLocation
1502: #
if(Cint(GetObjProperty(ghost, "lata") == 18 ) && !ghost.murderer)
1503: local #1
1504: "lata"
1505: Func(4,1): GetObjProperty
1506: 18L
1507: ==
1508: Func(0,0): CInt
1509: local #1
1510: get member id 'murderer' (57)
1511: !
1512: &&
1513: if false goto 1529
SendSysMessage(ghost, "Przenosze do noob miasta...", 3, 40);
1514: local #1
1515: "Przenosze do noob miasta..."
1516: 3L
1517: 40L
1518: Func(4,3): SendSysMessage
1519: #
MoveObjectToLocation(ghost, NOOB_X, NOOB_Y, NOOB_Z, ghost.realm, 4);
1520: local #1
1521: 2957L
1522: 3447L
1523: 15L
1524: local #1
1525: get member id 'realm' (113)
1526: 4L
1527: Func(4,10): MoveObjectToLocation
1528: #
SendSysMessage(ghost, "Jako iz jestes ciota, zostales przeniesiony do swojego m
1529: local #1
1530: "Jako iz jestes ciota, zostales przeniesiony do swojego miasta."
1531: 3L
1532: 40L
1533: Func(4,3): SendSysMessage
1534: #
SetObjProperty(ghost, "#deathcount", deathcount + 1);
1535: local #1
1536: "#deathcount"
1537: local #12
1538: 1L
1539: +
1540: Func(4,0): SetObjProperty
1541: #
DeathDecay(ghost);
1542: local #1
1543: makelocal
1544: jmp userfunc @1975
1545: #
SetObjProperty(ghost, "#lastresed", ReadGameClock() + 300);
1546: local #1
1547: "#lastresed"
1548: Func(4,4): ReadGameClock
1549: 300L
1550: +
1551: Func(4,0): SetObjProperty
1552: #
Resurrect( ghost );
1553: local #1
1554: 0L
1555: Func(4,9): Resurrect
1556: #
foreach item in ListEquippedItems( ghost ); 
1557: local #1
1558: Func(4,18): ListEquippedItems
1559: initforeach @1572
if((item.graphic == 7939) && (!item.color))
1560: local #13
1561: get member id 'graphic' (5)
1562: 7939L
1563: ==
1564: local #13
1565: get member id 'color' (7)
1566: !
1567: &&
1568: if false goto 1572
destroyitem(item);
1569: local #13
1570: Func(4,26): DestroyItem
1571: #
1572: stepforeach @1560
1573: leave block(3)
1574: leave block(1)
ghost.frozen := 0;
1575: local #1
1576: 0L
1577: set member id 'frozen' (34) #
EraseObjProperty(ghost, "#team");
1578: local #1
1579: "#team"
1580: Func(4,6): EraseObjProperty
1581: #
start_script(":unpoly:unpoly", ghost);
1582: ":unpoly:unpoly"
1583: local #1
1584: Func(2,5): Start_Script
1585: #
start_script("demod",ghost);
1586: "demod"
1587: local #1
1588: Func(2,5): Start_Script
1589: #
start_script("unmod",ghost);
1590: "unmod"
1591: local #1
1592: Func(2,5): Start_Script
1593: #
1594: leave block(12)
1595: progend
e:/gry/pol/pvp097/scripts/include/noto.inc, Line 34
function AdjustNoto(attacker, defender)
1596: pop param 'defender'
1597: pop param 'attacker'
if(attacker.isA(POLCLASS_NPC))
1598: local #1
1599: 4L
1600: Call Method id isa (#0, 1 params)
1601: if false goto 1604
return;
1602: ""
1603: return
var karma   := CInt(GetObjProperty(attacker, "Karma"));
1604: decl local #2
1605: local #1
1606: "Karma"
1607: Func(4,1): GetObjProperty
1608: Func(0,0): CInt
1609: :=
1610: #
var fame    := CInt(GetObjProperty(attacker, "Fame"));
1611: decl local #3
1612: local #1
1613: "Fame"
1614: Func(4,1): GetObjProperty
1615: Func(0,0): CInt
1616: :=
1617: #
var dkarma  := CInt(GetObjProperty(defender, "Karma"));
1618: decl local #4
1619: local #0
1620: "Karma"
1621: Func(4,1): GetObjProperty
1622: Func(0,0): CInt
1623: :=
1624: #
var dfame   := CInt(GetObjProperty(defender, "Fame"));
1625: decl local #5
1626: local #0
1627: "Fame"
1628: Func(4,1): GetObjProperty
1629: Func(0,0): CInt
1630: :=
1631: #
var dfchk, dkchk;
1632: decl local #6
1633: #
1634: decl local #7
1635: #
if(defender.isA(POLCLASS_MOBILE))
1636: local #0
1637: 3L
1638: Call Method id isa (#0, 1 params)
1639: if false goto 1649
dkarma := dkarma / 50.0;
1640: local #4
1641: 50LF
1642: /
1643: local4 := 
dkchk := dkarma * 50;
1644: local #4
1645: 50L
1646: *
1647: local7 := 
1648: goto1665
elseif(!GetStrength(defender))
1649: local #0
1650: makelocal
1651: jmp userfunc @2364
1652: if true goto 1665
dkarma := dkarma * 10;
1653: local #4
1654: 10L
1655: *
1656: local4 := 
dkchk := dkarma * 10;
1657: local #4
1658: 10L
1659: *
1660: local7 := 
dkchk := 0 - dkchk;
1661: 0L
1662: local #7
1663: -
1664: local7 := 
if(defender.isA(POLCLASS_MOBILE))
1665: local #0
1666: 3L
1667: Call Method id isa (#0, 1 params)
1668: if false goto 1678
dfame := dfame / 100.0;
1669: local #5
1670: 100LF
1671: /
1672: local5 := 
dfchk := dfame * 10;
1673: local #5
1674: 10L
1675: *
1676: local6 := 
1677: goto1690
elseif(!GetStrength(defender))
1678: local #0
1679: makelocal
1680: jmp userfunc @2364
1681: if true goto 1690
dfchk := dfame * 100;
1682: local #5
1683: 100L
1684: *
1685: local6 := 
dfame := dfame * 10;
1686: local #5
1687: 10L
1688: *
1689: local5 := 
var kmod      := GetKarmaLevel(karma) - 6;
1690: decl local #8
1691: local #2
1692: makelocal
1693: jmp userfunc @2193
1694: 6L
1695: -
1696: :=
1697: #
var fmod      := GetFameLevel(fame);
1698: decl local #9
1699: local #3
1700: makelocal
1701: jmp userfunc @2128
1702: :=
1703: #
var dkmod     := GetKarmaLevel(dkchk) - 6;
1704: decl local #10
1705: local #7
1706: makelocal
1707: jmp userfunc @2193
1708: 6L
1709: -
1710: :=
1711: #
var dfmod     := GetFameLevel(dfchk);
1712: decl local #11
1713: local #6
1714: makelocal
1715: jmp userfunc @2128
1716: :=
1717: #
var famegain  := dfame;
1718: decl local #12
1719: local #5
1720: :=
1721: #
var karmagain := (0 - dkarma);
1722: decl local #13
1723: 0L
1724: local #4
1725: -
1726: :=
1727: #
var chk := 0;
1728: decl local #14
1729: 0L
1730: :=
1731: #
if(karmagain >= 0)
1732: local #13
1733: 0L
1734: >=
1735: if false goto 1738
chk := 1;
1736: 1L
1737: local14 := 
if(Abs(kmod) > Abs(dkmod))
1738: local #8
1739: Func(6,2): Abs
1740: local #10
1741: Func(6,2): Abs
1742: >
1743: if false goto 1747
karmagain := 0;
1744: 0L
1745: local13 := 
1746: goto1813
elseif(Abs(kmod) == Abs(dkmod))
1747: local #8
1748: Func(6,2): Abs
1749: local #10
1750: Func(6,2): Abs
1751: ==
1752: if false goto 1767
karmagain := Abs(karmagain) / 4;
1753: local #13
1754: Func(6,2): Abs
1755: 4L
1756: /
1757: local13 := 
if(chk == 0)
1758: local #14
1759: 0L
1760: ==
1761: if false goto 1766
karmagain := (0 - karmagain);
1762: 0L
1763: local #13
1764: -
1765: local13 := 
1766: goto1813
karmagain := Abs(karmagain) / 2;
1767: local #13
1768: Func(6,2): Abs
1769: 2L
1770: /
1771: local13 := 
var holder := 0;
1772: decl local #0
1773: 0L
1774: :=
1775: #
case(dkmod - kmod)
1776: local #10
1777: local #8
1778: -
1779: casejmp
	1: @1780
	2: @1783
	3: @1786
	4: @1789
	5: @1792
	6: @1795
	default: @1797
holder := 0.15;
1780: 0.15LF
1781: local15 := 
1782: goto1797
holder := 0.30;
1783: 0.3LF
1784: local15 := 
1785: goto1797
holder := 0.45;
1786: 0.45LF
1787: local15 := 
1788: goto1797
holder := 0.60;
1789: 0.6LF
1790: local15 := 
1791: goto1797
holder := 0.75;
1792: 0.75LF
1793: local15 := 
1794: goto1797
holder := 0.90;
1795: 0.9LF
1796: local15 := 
karmagain := karmagain + CInt(karmagain * holder);
1797: local #13
1798: local #13
1799: local #15
1800: *
1801: Func(0,0): CInt
1802: +
1803: local13 := 
if(chk == 0)
1804: local #14
1805: 0L
1806: ==
1807: if false goto 1812
karmagain := (0 - karmagain);
1808: 0L
1809: local #13
1810: -
1811: local13 := 
1812: leave block(1)
if(fmod == dfmod)
1813: local #9
1814: local #11
1815: ==
1816: if false goto 1822
famegain := famegain / 4;
1817: local #12
1818: 4L
1819: /
1820: local12 := 
1821: goto1833
elseif(fmod > dfmod)
1822: local #9
1823: local #11
1824: >
1825: if false goto 1829
famegain := 0;
1826: 0L
1827: local12 := 
1828: goto1833
famegain := famegain / 2;
1829: local #12
1830: 2L
1831: /
1832: local12 := 
karma := karma + karmagain;
1833: local #2
1834: local #13
1835: +
1836: local2 := 
fame := fame + famegain;
1837: local #3
1838: local #12
1839: +
1840: local3 := 
var online := 0;
1841: decl local #15
1842: 0L
1843: :=
1844: #
if(!attacker.isA(POLCLASS_NPC))
1845: local #1
1846: 4L
1847: Call Method id isa (#0, 1 params)
1848: if true goto 1898
foreach char in EnumerateOnlineCharacters()
1849: Func(4,2): EnumerateOnlineCharacters
1850: initforeach @1858
if(char == attacker)
1851: local #16
1852: local #1
1853: ==
1854: if false goto 1858
online := 1;
1855: 1L
1856: local15 := 
break;
1857: goto1859
1858: stepforeach @1851
1859: leave block(3)
if(online == 1)
1860: local #15
1861: 1L
1862: ==
1863: if false goto 1887
SetObjProperty(attacker, "Karma", karma);
1864: local #1
1865: "Karma"
1866: local #2
1867: Func(4,0): SetObjProperty
1868: #
SetObjProperty(attacker, "Fame", fame);
1869: local #1
1870: "Fame"
1871: local #3
1872: Func(4,0): SetObjProperty
1873: #
SendGainMessage(attacker, "Slawy", famegain);
1874: local #1
1875: "Slawy"
1876: local #12
1877: makelocal
1878: jmp userfunc @2591
1879: #
SendGainMessage(attacker, "Karmy", karmagain);
1880: local #1
1881: "Karmy"
1882: local #13
1883: makelocal
1884: jmp userfunc @2591
1885: #
1886: goto1897
SetObjProperty(attacker, "ModKarma", kmod);
1887: local #1
1888: "ModKarma"
1889: local #8
1890: Func(4,0): SetObjProperty
1891: #
SetObjProperty(attacker, "ModFame", famegain);
1892: local #1
1893: "ModFame"
1894: local #12
1895: Func(4,0): SetObjProperty
1896: #
1897: goto1908
SetObjProperty(attacker, "Karma", karma);
1898: local #1
1899: "Karma"
1900: local #2
1901: Func(4,0): SetObjProperty
1902: #
SetObjProperty(attacker, "Fame", fame);
1903: local #1
1904: "Fame"
1905: local #3
1906: Func(4,0): SetObjProperty
1907: #
if(attacker.isA(POLCLASS_MOBILE))
1908: local #1
1909: 3L
1910: Call Method id isa (#0, 1 params)
1911: if false goto 1918
SetNotoTitle(attacker, karma, fame);
1912: local #1
1913: local #2
1914: local #3
1915: makelocal
1916: jmp userfunc @2705
1917: #
if(defender.isA(POLCLASS_MOBILE))
1918: local #0
1919: 3L
1920: Call Method id isa (#0, 1 params)
1921: if false goto 1928
SetNotoTitle(defender, kmod, fmod);
1922: local #0
1923: local #8
1924: local #9
1925: makelocal
1926: jmp userfunc @2705
1927: #
1928: 0L
1929: return
e:/gry/pol/pvp097/pkg/systems/poisonwatcher/poisons.inc, Line 104
function CureSpecific(mobile, poison_name, amount, level := 1)
1930: pop param 'level'
1931: pop param 'amount'
1932: pop param 'poison_name'
1933: pop param 'mobile'
var event := struct;
1934: decl local #4
1935: struct
1936: :=
1937: #
event.+ type;
1938: local #4
1939: "type"
1940: .+
1941: #
event.+ name;
1942: local #4
1943: "name"
1944: .+
1945: #
event.+ amount;
1946: local #4
1947: "amount"
1948: .+
1949: #
event.+ level;
1950: local #4
1951: "level"
1952: .+
1953: #
event.type := EVENT_CURE_SPECIFIC_POISON;
1954: local #4
1955: 3L
1956: set member 'type' #
event.name := poison_name;
1957: local #4
1958: local #2
1959: set member id 'name' (3) #
event.amount := amount;
1960: local #4
1961: local #1
1962: set member id 'amount' (13) #
event.level := level;
1963: local #4
1964: local #0
1965: set member 'level' #
GetScript(mobile).SendEvent(event);
1966: local #3
1967: 0L
1968: makelocal
1969: jmp userfunc @2336
1970: local #4
1971: Call Method id sendevent (#74, 1 params)
1972: #
1973: 0L
1974: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 479
function DeathDecay(ghost)
1975: pop param 'ghost'
if( Cint(GetObjProperty(ghost, "#lastresed") < ReadGameClock() ) )
1976: local #0
1977: "#lastresed"
1978: Func(4,1): GetObjProperty
1979: Func(4,4): ReadGameClock
1980: <
1981: Func(0,0): CInt
1982: if false goto 1991
EraseObjProperty(ghost, "#deathcount");
1983: local #0
1984: "#deathcount"
1985: Func(4,6): EraseObjProperty
1986: #
EraseObjProperty(ghost, "#lastresed");
1987: local #0
1988: "#lastresed"
1989: Func(4,6): EraseObjProperty
1990: #
1991: 0L
1992: return
e:/gry/pol/pvp097/scripts/include/datafile.inc, Line 12
function DFOpenDataFile(filename, create:=DF_NO_CREATE, flags:=DF_KEYTYPE_STRIN
1993: pop param 'flags'
1994: pop param 'create'
1995: pop param 'filename'
var temp := OpenDataFile(filename);
1996: decl local #3
1997: local #2
1998: Func(11,0): OpenDataFile
1999: :=
2000: #
if ( (!temp) && (create) )
2001: local #3
2002: !
2003: local #1
2004: &&
2005: if false goto 2019
DF_OutPut("Creating data file: " + filename);
2006: "Creating data file: "
2007: local #2
2008: +
2009: makelocal
2010: jmp userfunc @3842
2011: #
CreateDataFile(filename, flags);
2012: local #2
2013: local #0
2014: Func(11,1): CreateDataFile
2015: #
temp := OpenDataFile(filename);
2016: local #2
2017: Func(11,0): OpenDataFile
2018: local3 := 
if ( temp )
2019: local #3
2020: if false goto 2024
return temp;
2021: local #3
2022: return
2023: goto2050
elseif ( create ) 
2024: local #1
2025: if false goto 2050
var errmsg := error;
2026: decl local #0
2027: error
2028: :=
2029: #
errmsg.+errortext := "Could not open " + filename + ":" + temp.errortext;
2030: local #4
2031: "errortext"
2032: .+
2033: "Could not open "
2034: local #2
2035: +
2036: ":"
2037: +
2038: local #3
2039: get member 'errortext'
2040: +
2041: := #
DF_OutPut(errmsg.errortext);
2042: local #4
2043: get member 'errortext'
2044: makelocal
2045: jmp userfunc @3842
2046: #
return errmsg;
2047: local #4
2048: return
2049: leave block(1)
2050: 0L
2051: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 422
function dismount(me,corpse)
2052: pop param 'corpse'
2053: pop param 'me'
var mount := GetEquipmentByLayer( corpse, 25 );
2054: decl local #2
2055: local #0
2056: 25L
2057: Func(4,20): GetEquipmentByLayer
2058: :=
2059: #
foreach item in EnumerateItemsInContainer(corpse)
2060: local #0
2061: 0L
2062: Func(4,14): EnumerateItemsInContainer
2063: initforeach @2072
if(item.objtype == 0xf021)
2064: local #3
2065: get member id 'objtype' (4)
2066: 61473L
2067: ==
2068: if false goto 2072
mount := item;
2069: local #3
2070: local2 := 
break;
2071: goto2073
2072: stepforeach @2064
2073: leave block(3)
if (!mount)
2074: local #2
2075: if true goto 2078
return;
2076: ""
2077: return
var animal := SystemFindObjectBySerial(CInt(GetObjProperty(mount,"serial")));
2078: decl local #3
2079: local #2
2080: "serial"
2081: Func(4,1): GetObjProperty
2082: Func(0,0): CInt
2083: 0L
2084: Func(4,7): SystemFindObjectBySerial
2085: :=
2086: #
animal.facing := corpse.facing;
2087: local #3
2088: local #0
2089: get member id 'facing' (9)
2090: set member id 'facing' (9) #
EraseObjProperty(animal, "mounted");
2091: local #3
2092: "mounted"
2093: Func(4,6): EraseObjProperty
2094: #
EraseObjProperty(animal, "mounted_on");
2095: local #3
2096: "mounted_on"
2097: Func(4,6): EraseObjProperty
2098: #
if(!me.ip)
2099: local #1
2100: get member id 'ip' (49)
2101: if true goto 2111
ApplyRawDamage(animal, GetHp(animal)+5);
2102: local #3
2103: local #3
2104: makelocal
2105: jmp userfunc @2185
2106: 5L
2107: +
2108: Func(3,5): ApplyRawDamage
2109: #
2110: goto2123
MoveObjectToLocation( animal, corpse.x, corpse.y, corpse.z, animal.realm, MOVEO
2111: local #3
2112: local #0
2113: get member id 'x' (0)
2114: local #0
2115: get member id 'y' (1)
2116: local #0
2117: get member id 'z' (2)
2118: local #3
2119: get member id 'realm' (113)
2120: 1073741824L
2121: Func(4,10): MoveObjectToLocation
2122: #
DestroyItem(mount);
2123: local #2
2124: Func(4,26): DestroyItem
2125: #
2126: 0L
2127: return
e:/gry/pol/pvp097/scripts/include/noto.inc, Line 135
function GetFameLevel(fame)
2128: pop param 'fame'
var fmod := 0;
2129: decl local #1
2130: 0L
2131: :=
2132: #
if((fame <= 1249) && (fame >= 0))
2133: local #0
2134: 1249L
2135: <=
2136: local #0
2137: 0L
2138: >=
2139: &&
2140: if false goto 2144
fmod := 1;
2141: 1L
2142: local1 := 
2143: goto2183
elseif((fame <= 2499) && (fame >= 1250))
2144: local #0
2145: 2499L
2146: <=
2147: local #0
2148: 1250L
2149: >=
2150: &&
2151: if false goto 2155
fmod := 2;
2152: 2L
2153: local1 := 
2154: goto2183
elseif((fame <= 4999) && (fame >= 2500))
2155: local #0
2156: 4999L
2157: <=
2158: local #0
2159: 2500L
2160: >=
2161: &&
2162: if false goto 2166
fmod := 3;
2163: 3L
2164: local1 := 
2165: goto2183
elseif((fame <= 9999) && (fame >= 5000))
2166: local #0
2167: 9999L
2168: <=
2169: local #0
2170: 5000L
2171: >=
2172: &&
2173: if false goto 2177
fmod := 4;
2174: 4L
2175: local1 := 
2176: goto2183
elseif(fame >= 10000)
2177: local #0
2178: 10000L
2179: >=
2180: if false goto 2183
fmod := 5;
2181: 5L
2182: local1 := 
return fmod;
2183: local #1
2184: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 324
function GetHp(who)
2185: pop param 'who'
return Cint(GetVital(who, VITALID_LIFE)/ 100);
2186: local #0
2187: "Life"
2188: Func(3,1): GetVital
2189: 100L
2190: /
2191: Func(0,0): CInt
2192: return
e:/gry/pol/pvp097/scripts/include/noto.inc, Line 151
function GetKarmaLevel(karma)
2193: pop param 'karma'
var kmod := 0;
2194: decl local #1
2195: 0L
2196: :=
2197: #
if(karma <= -10000)
2198: local #0
2199: -10000L
2200: <=
2201: if false goto 2205
kmod := 1;
2202: 1L
2203: local1 := 
2204: goto2310
elseif((karma <= -5000) && (karma >= -9999))
2205: local #0
2206: -5000L
2207: <=
2208: local #0
2209: -9999L
2210: >=
2211: &&
2212: if false goto 2216
kmod := 2;
2213: 2L
2214: local1 := 
2215: goto2310
elseif((karma <= -2500) && (karma >= -4999))
2216: local #0
2217: -2500L
2218: <=
2219: local #0
2220: -4999L
2221: >=
2222: &&
2223: if false goto 2227
kmod := 3;
2224: 3L
2225: local1 := 
2226: goto2310
elseif((karma <= -1250) && (karma >= -2499))
2227: local #0
2228: -1250L
2229: <=
2230: local #0
2231: -2499L
2232: >=
2233: &&
2234: if false goto 2238
kmod := 4;
2235: 4L
2236: local1 := 
2237: goto2310
elseif((karma <=  -625) && (karma >= -1249))
2238: local #0
2239: -625L
2240: <=
2241: local #0
2242: -1249L
2243: >=
2244: &&
2245: if false goto 2249
kmod := 5;
2246: 5L
2247: local1 := 
2248: goto2310
elseif((karma <=   624) && (karma >=  -624))
2249: local #0
2250: 624L
2251: <=
2252: local #0
2253: -624L
2254: >=
2255: &&
2256: if false goto 2260
kmod := 6;
2257: 6L
2258: local1 := 
2259: goto2310
elseif((karma <=  1249) && (karma >=   625))
2260: local #0
2261: 1249L
2262: <=
2263: local #0
2264: 625L
2265: >=
2266: &&
2267: if false goto 2271
kmod := 7;
2268: 7L
2269: local1 := 
2270: goto2310
elseif((karma <=  2499) && (karma >=  1250))
2271: local #0
2272: 2499L
2273: <=
2274: local #0
2275: 1250L
2276: >=
2277: &&
2278: if false goto 2282
kmod := 8;
2279: 8L
2280: local1 := 
2281: goto2310
elseif((karma <=  4999) && (karma >=  2500))
2282: local #0
2283: 4999L
2284: <=
2285: local #0
2286: 2500L
2287: >=
2288: &&
2289: if false goto 2293
kmod := 9;
2290: 9L
2291: local1 := 
2292: goto2310
elseif((karma <=  9999) && (karma >=  5000))
2293: local #0
2294: 9999L
2295: <=
2296: local #0
2297: 5000L
2298: >=
2299: &&
2300: if false goto 2304
kmod := 10;
2301: 10L
2302: local1 := 
2303: goto2310
elseif(karma >= 10000)
2304: local #0
2305: 10000L
2306: >=
2307: if false goto 2310
kmod := 11;
2308: 11L
2309: local1 := 
return kmod;
2310: local #1
2311: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 340
function GetMaxHp(who)
2312: pop param 'who'
return Cint(GetVitalMaximumValue(who, VITALID_LIFE)/ 100);
2313: local #0
2314: "Life"
2315: Func(3,2): GetVitalMaximumValue
2316: 100L
2317: /
2318: Func(0,0): CInt
2319: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 344
function GetMaxMana(who)
2320: pop param 'who'
return Cint(GetVitalMaximumValue(who, VITALID_MANA)/ 100);
2321: local #0
2322: "Mana"
2323: Func(3,2): GetVitalMaximumValue
2324: 100L
2325: /
2326: Func(0,0): CInt
2327: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 348
function GetMaxStamina(who)
2328: pop param 'who'
return Cint(GetVitalMaximumValue(who, VITALID_STAMINA)/ 100);
2329: local #0
2330: "Stamina"
2331: Func(3,2): GetVitalMaximumValue
2332: 100L
2333: /
2334: Func(0,0): CInt
2335: return
e:/gry/pol/pvp097/pkg/systems/poisonwatcher/poisons.inc, Line 126
function GetScript(mobile, no_start:=0)
2336: pop param 'no_start'
2337: pop param 'mobile'
var poison_pid := CInt(GetObjProperty(mobile, "#PoisonPID"));
2338: decl local #2
2339: local #1
2340: "#PoisonPID"
2341: Func(4,1): GetObjProperty
2342: Func(0,0): CInt
2343: :=
2344: #
var poison_watcher := GetProcess(poison_pid);
2345: decl local #3
2346: local #2
2347: Func(2,4): GetProcess
2348: :=
2349: #
if ( !poison_watcher && !no_start ) 
2350: local #3
2351: !
2352: local #0
2353: !
2354: &&
2355: if false goto 2362
poison_watcher := start_script(":poisonwatcher:poisonwatcher", {mobile});
2356: ":poisonwatcher:poisonwatcher"
2357: array
2358: local #1
2359: init{}
2360: Func(2,5): Start_Script
2361: local3 := 
return poison_watcher;
2362: local #3
2363: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 578
function GetStrength(who)
2364: pop param 'who'
return GetAttribute(who, ATTRIBUTEID_STRENGTH);
2365: local #0
2366: "strength"
2367: Func(8,2): GetAttribute
2368: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 445
function Grabit(me, it)
2369: pop param 'it'
2370: pop param 'me'
if (! (it.movable))
2371: local #0
2372: get member id 'movable' (20)
2373: if true goto 2376
return;
2374: ""
2375: return
if ((it.objtype >= STARTHAIR) && (it.objtype <= ENDHAIR))
2376: local #0
2377: get member id 'objtype' (4)
2378: 8240L
2379: >=
2380: local #0
2381: get member id 'objtype' (4)
2382: 8288L
2383: <=
2384: &&
2385: if false goto 2388
return;
2386: ""
2387: return
if (it.amount > 1 )
2388: local #0
2389: get member id 'amount' (13)
2390: 1L
2391: >
2392: if false goto 2418
foreach item in EnumerateItemsInContainer(me.backpack)
2393: local #1
2394: get member id 'backpack' (41)
2395: 0L
2396: Func(4,14): EnumerateItemsInContainer
2397: initforeach @2416
if (item.objtype == it.objtype)
2398: local #2
2399: get member id 'objtype' (4)
2400: local #0
2401: get member id 'objtype' (4)
2402: ==
2403: if false goto 2416
CreateItemInBackpack( me, it.objtype, it.amount );
2404: local #1
2405: local #0
2406: get member id 'objtype' (4)
2407: local #0
2408: get member id 'amount' (13)
2409: Func(4,30): CreateItemInBackpack
2410: #
DestroyItem(it);
2411: local #0
2412: Func(4,26): DestroyItem
2413: #
return;
2414: ""
2415: return
2416: stepforeach @2398
2417: leave block(3)
if ( MoveItemToContainer(it, me.backpack, 0, 0 ))
2418: local #0
2419: local #1
2420: get member id 'backpack' (41)
2421: 0L
2422: 0L
2423: Func(4,16): MoveItemToContainer
2424: if false goto 2425
2425: 0L
2426: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 531
function InstantResurrect(ghost)
2427: pop param 'ghost'
Resurrect( ghost );
2428: local #0
2429: 0L
2430: Func(4,9): Resurrect
2431: #
foreach item in ListItemsNearLocation(ghost.x, ghost.y, ghost.z, 0)
2432: local #0
2433: get member id 'x' (0)
2434: local #0
2435: get member id 'y' (1)
2436: local #0
2437: get member id 'z' (2)
2438: 0L
2439: "britannia"
2440: Func(4,28): ListItemsNearLocation
2441: initforeach @2468
if(GetObjProperty(item,"serial") == ghost.serial)
2442: local #1
2443: "serial"
2444: Func(4,1): GetObjProperty
2445: local #0
2446: get member id 'serial' (6)
2447: ==
2448: if false goto 2467
foreach thing in EnumerateItemsInContainer(item)
2449: local #1
2450: 0L
2451: Func(4,14): EnumerateItemsInContainer
2452: initforeach @2465
if(thing.container == item)
2453: local #4
2454: get member id 'container' (15)
2455: local #1
2456: ==
2457: if false goto 2465
MoveItemToContainer(thing, ghost.backpack);
2458: local #4
2459: local #0
2460: get member id 'backpack' (41)
2461: -1L
2462: -1L
2463: Func(4,16): MoveItemToContainer
2464: #
2465: stepforeach @2453
2466: leave block(3)
break;
2467: goto2469
2468: stepforeach @2442
2469: leave block(3)
2470: 0L
2471: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 521
function isa_jewelry(cel)
2472: pop param 'cel'
if(cel.objtype >= 0x1085 && cel.objtype <= 0x108a)
2473: local #0
2474: get member id 'objtype' (4)
2475: 4229L
2476: >=
2477: local #0
2478: get member id 'objtype' (4)
2479: 4234L
2480: <=
2481: &&
2482: if false goto 2485
return 1;
2483: 1L
2484: return
return 0;
2485: 0L
2486: return
E:\gry\pol\pvp097\scripts\misc\chrdeath.src, Line 493
function koniecrundy()
foreach koles in EnumerateOnlineCharacters()
2487: Func(4,2): EnumerateOnlineCharacters
2488: initforeach @2524
if(GetObjProperty(koles, "naigrzyskach"));
2489: local #0
2490: "naigrzyskach"
2491: Func(4,1): GetObjProperty
2492: if false goto 2524
MoveObjectToLocation( koles, SALA_X, SALA_Y, SALA_Z, koles.realm, MOVEOBJECT_FO
2493: local #0
2494: 5261L
2495: 1762L
2496: 0L
2497: local #0
2498: get member id 'realm' (113)
2499: 1073741824L
2500: Func(4,10): MoveObjectToLocation
2501: #
eraseobjproperty(koles, "dostal");
2502: local #0
2503: "dostal"
2504: Func(4,6): EraseObjProperty
2505: #
start_script(":igrzyska:end/rozbierz", koles);
2506: ":igrzyska:end/rozbierz"
2507: local #0
2508: Func(2,5): Start_Script
2509: #
foreach item in EnumerateItemsInContainer(koles.backpack)
2510: local #0
2511: get member id 'backpack' (41)
2512: 0L
2513: Func(4,14): EnumerateItemsInContainer
2514: initforeach @2522
if(GetObjProperty(item, "tr"))
2515: local #3
2516: "tr"
2517: Func(4,1): GetObjProperty
2518: if false goto 2522
DestroyItem(item);
2519: local #3
2520: Func(4,26): DestroyItem
2521: #
2522: stepforeach @2515
2523: leave block(3)
2524: stepforeach @2489
2525: leave block(3)
start_script(":igrzyska:starter/startuj");
2526: ":igrzyska:starter/startuj"
2527: 0L
2528: Func(2,5): Start_Script
2529: #
EraseGlobalProperty("#rundaigrzysk");
2530: "#rundaigrzysk"
2531: Func(4,29): EraseGlobalProperty
2532: #
2533: 0L
2534: return
e:/gry/pol/pvp097/scripts/include/ladunki.inc, Line 4
function OdejmijLadunek(who, item, ladunki)
2535: pop param 'ladunki'
2536: pop param 'item'
2537: pop param 'who'
SetObjProperty(item, "ladunki", {ladunki[1] - 1, ladunki[2]});
2538: local #1
2539: "ladunki"
2540: array
2541: local #0
2542: 1L
2543: [] 1
2544: 1L
2545: -
2546: init{}
2547: local #0
2548: 2L
2549: [] 1
2550: init{}
2551: Func(4,0): SetObjProperty
2552: #
if(ladunki[1] <= 0)
2553: local #0
2554: 1L
2555: [] 1
2556: 0L
2557: <=
2558: if false goto 2589
SendSysMessage(who, "Magiczna sila przedmiotu " + item.name + " wyczerpala sie.
2559: local #2
2560: "Magiczna sila przedmiotu "
2561: local #1
2562: get member id 'name' (3)
2563: +
2564: " wyczerpala sie."
2565: +
2566: 3L
2567: 40L
2568: Func(4,3): SendSysMessage
2569: #
EraseObjProperty(item, "magik");
2570: local #1
2571: "magik"
2572: Func(4,6): EraseObjProperty
2573: #
EraseObjProperty(item, "typ");
2574: local #1
2575: "typ"
2576: Func(4,6): EraseObjProperty
2577: #
EraseObjProperty(item, "ladunki");
2578: local #1
2579: "ladunki"
2580: Func(4,6): EraseObjProperty
2581: #
EraseObjProperty(item, "level");
2582: local #1
2583: "level"
2584: Func(4,6): EraseObjProperty
2585: #
RecalcVitals(who);
2586: local #2
2587: Func(3,0): RecalcVitals
2588: #
2589: 0L
2590: return
e:/gry/pol/pvp097/scripts/include/noto.inc, Line 205
function SendGainMessage(who, type, amount)
2591: pop param 'amount'
2592: pop param 'type'
2593: pop param 'who'
var msgtext := "";
2594: decl local #3
2595: ""
2596: :=
2597: #
if(amount < 0)
2598: local #0
2599: 0L
2600: <
2601: if false goto 2610
msgtext := msgtext + "Straciles ";
2602: local #3
2603: "Straciles "
2604: +
2605: local3 := 
amount := Abs(amount);
2606: local #0
2607: Func(6,2): Abs
2608: local0 := 
2609: goto2614
msgtext := msgtext + "Zyskales ";
2610: local #3
2611: "Zyskales "
2612: +
2613: local3 := 
if(amount > 150)
2614: local #0
2615: 150L
2616: >
2617: if false goto 2623
msgtext := msgtext + "wielka ilosc ";
2618: local #3
2619: "wielka ilosc "
2620: +
2621: local3 := 
2622: goto2661
elseif(amount > 125)
2623: local #0
2624: 125L
2625: >
2626: if false goto 2632
msgtext := msgtext + "bardzo duzo ";
2627: local #3
2628: "bardzo duzo "
2629: +
2630: local3 := 
2631: goto2661
elseif(amount > 75)
2632: local #0
2633: 75L
2634: >
2635: if false goto 2641
msgtext := msgtext + "duzo ";
2636: local #3
2637: "duzo "
2638: +
2639: local3 := 
2640: goto2661
elseif(amount > 30)
2641: local #0
2642: 30L
2643: >
2644: if false goto 2650
msgtext := msgtext + "troche ";
2645: local #3
2646: "troche "
2647: +
2648: local3 := 
2649: goto2661
elseif(amount > 0)
2650: local #0
2651: 0L
2652: >
2653: if false goto 2659
msgtext := msgtext + "malo ";
2654: local #3
2655: "malo "
2656: +
2657: local3 := 
2658: goto2661
return 0;
2659: 0L
2660: return
msgtext := msgtext + type + ".";
2661: local #3
2662: local #1
2663: +
2664: "."
2665: +
2666: local3 := 
SendSysMessage(who, msgtext);
2667: local #2
2668: local #3
2669: 3L
2670: 1000L
2671: Func(4,3): SendSysMessage
2672: #
2673: 0L
2674: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 771
function SetHp(who, hp)
2675: pop param 'hp'
2676: pop param 'who'
return SetVital(who, VITALID_LIFE, Cint(hp*100));
2677: local #1
2678: "Life"
2679: local #0
2680: 100L
2681: *
2682: Func(0,0): CInt
2683: Func(3,4): SetVital
2684: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 792
function SetMana(who, amount)
2685: pop param 'amount'
2686: pop param 'who'
SetVital(who, "Mana", cint(amount*100.0) + CInt(GetEffectiveSkill(who, SKILLID_
2687: local #1
2688: "Mana"
2689: local #0
2690: 100LF
2691: *
2692: Func(0,0): CInt
2693: local #1
2694: 16L
2695: makelocal
2696: jmp userfunc @4612
2697: 10L
2698: /
2699: Func(0,0): CInt
2700: +
2701: Func(3,4): SetVital
2702: #
2703: 0L
2704: return
e:/gry/pol/pvp097/scripts/include/noto.inc, Line 179
function SetNotoTitle(who, karma, fame)
2705: pop param 'fame'
2706: pop param 'karma'
2707: pop param 'who'
var kmod := GetKarmaLevel(karma);
2708: decl local #3
2709: local #1
2710: makelocal
2711: jmp userfunc @2193
2712: :=
2713: #
var fmod := GetFameLevel(fame);
2714: decl local #4
2715: local #0
2716: makelocal
2717: jmp userfunc @2128
2718: :=
2719: #
var newtitle;
2720: decl local #5
2721: #
if(who.gender)
2722: local #2
2723: get member id 'gender' (28)
2724: if false goto 2730
newtitle := knototitles[ (kmod) ];
2725: global #1
2726: local #3
2727: [] 1
2728: local5 := 
2729: goto2734
newtitle := nototitles[ (kmod) ];
2730: global #0
2731: local #3
2732: [] 1
2733: local5 := 
newtitle :=  CStr(newtitle[fmod]) + " ";
2734: local #5
2735: local #4
2736: [] 1
2737: Func(0,3): CStr
2738: " "
2739: +
2740: local5 := 
if(newtitle["None"])
2741: local #5
2742: "None"
2743: [] 1
2744: if false goto 2747
newtitle := "";
2745: ""
2746: local5 := 
if(fmod == 5)
2747: local #4
2748: 5L
2749: ==
2750: if false goto 2765
if(who.gender == 1)
2751: local #2
2752: get member id 'gender' (28)
2753: 1L
2754: ==
2755: if false goto 2761
newtitle := newtitle + "Madame ";
2756: local #5
2757: "Madame "
2758: +
2759: local5 := 
2760: goto2765
newtitle := newtitle + "Lord ";
2761: local #5
2762: "Lord "
2763: +
2764: local5 := 
if(newtitle != who.title_prefix)
2765: local #5
2766: local #2
2767: get member id 'title_prefix' (51)
2768: <>
2769: if false goto 2784
who.title_prefix := newtitle;
2770: local #2
2771: local #5
2772: set member id 'title_prefix' (51) #
SendSysMessage(who, "jestes teraz znany jako " + newtitle + who.name);
2773: local #2
2774: "jestes teraz znany jako "
2775: local #5
2776: +
2777: local #2
2778: get member id 'name' (3)
2779: +
2780: 3L
2781: 1000L
2782: Func(4,3): SendSysMessage
2783: #
2784: 0L
2785: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 804
function SetStamina(who, stamina)
2786: pop param 'stamina'
2787: pop param 'who'
return SetVital(who, VITALID_STAMINA, Cint(stamina*100));
2788: local #1
2789: "Stamina"
2790: local #0
2791: 100L
2792: *
2793: Func(0,0): CInt
2794: Func(3,4): SetVital
2795: return
e:/gry/pol/pvp097/scripts/include/reportMurder.inc, Line 12
function TwojStary(who)
2796: pop param 'who'
EraseObjProperty(who, "ReportMenu");
2797: local #0
2798: "ReportMenu"
2799: Func(4,6): EraseObjProperty
2800: #
EraseObjProperty(who, "LoginReport");
2801: local #0
2802: "LoginReport"
2803: Func(4,6): EraseObjProperty
2804: #
var atack := GetObjProperty(who, "LastHit");
2805: decl local #1
2806: local #0
2807: "LastHit"
2808: Func(4,1): GetObjProperty
2809: :=
2810: #
var mob := SystemFindObjectBySerial(atack[2], SYSFIND_SEARCH_OFFLINE_MOBILES);
2811: decl local #2
2812: local #1
2813: 2L
2814: [] 1
2815: 1L
2816: Func(4,7): SystemFindObjectBySerial
2817: :=
2818: #
var summoned := Cint(GetObjProperty( mob, "summoned"));
2819: decl local #3
2820: local #2
2821: "summoned"
2822: Func(4,1): GetObjProperty
2823: Func(0,0): CInt
2824: :=
2825: #
if(!mob.ip)
2826: local #2
2827: get member id 'ip' (49)
2828: if true goto 2837
SetObjProperty(mob.killer, "LoginNotify", who.serial);
2829: local #2
2830: get member 'killer'
2831: "LoginNotify"
2832: local #0
2833: get member id 'serial' (6)
2834: Func(4,0): SetObjProperty
2835: #
2836: goto2842
AdjustNoto(mob, who);
2837: local #2
2838: local #0
2839: makelocal
2840: jmp userfunc @1596
2841: #
AdjustMurderCounts(who, mob);
2842: local #0
2843: local #2
2844: makelocal
2845: jmp userfunc @3400
2846: #
2847: 0L
2848: return
e:/gry/pol/pvp097/scripts/include/possess2.inc, Line 285
function UnpossessCorpse (character)
2849: pop param 'character'
var npc;
2850: decl local #1
2851: #
if ( getobjproperty (character, "possess") )
2852: local #0
2853: "possess"
2854: Func(4,1): GetObjProperty
2855: if false goto 2862
npc := SystemFindObjectBySerial(getobjproperty (character,"possess"));
2856: local #0
2857: "possess"
2858: Func(4,1): GetObjProperty
2859: 0L
2860: Func(4,7): SystemFindObjectBySerial
2861: local1 := 
if (!npc)
2862: local #1
2863: if true goto 2878
eraseobjproperty (character, "possess");
2864: local #0
2865: "possess"
2866: Func(4,6): EraseObjProperty
2867: #
SendSysMessage(character, "Twoja dusza nie moze odnalezc swojego prawdziwego ci
2868: local #0
2869: "Twoja dusza nie moze odnalezc swojego prawdziwego ciala!!"
2870: 3L
2871: 1000L
2872: Func(4,3): SendSysMessage
2873: #
Unpossessdead(character);
2874: local #0
2875: makelocal
2876: jmp userfunc @3123
2877: #
Resurrect (character);
2878: local #0
2879: 0L
2880: Func(4,9): Resurrect
2881: #
var starecechy := Getobjproperty(character, "starecechy");
2882: decl local #2
2883: local #0
2884: "starecechy"
2885: Func(4,1): GetObjProperty
2886: :=
2887: #
character.graphic := character.trueobjtype;
2888: local #0
2889: local #0
2890: get member id 'trueobjtype' (29)
2891: set member id 'graphic' (5) #
character.color := character.truecolor;
2892: local #0
2893: local #0
2894: get member id 'truecolor' (30)
2895: set member id 'color' (7) #
SwapClothes (character, npc);
2896: local #0
2897: local #1
2898: makelocal
2899: jmp userfunc @4798
2900: #
eraseobjproperty (character, "possess");
2901: local #0
2902: "possess"
2903: Func(4,6): EraseObjProperty
2904: #
character.name := getobjproperty (character, "oldname");
2905: local #0
2906: local #0
2907: "oldname"
2908: Func(4,1): GetObjProperty
2909: set member id 'name' (3) #
character.title_prefix := getobjproperty (character, "oldprefix");
2910: local #0
2911: local #0
2912: "oldprefix"
2913: Func(4,1): GetObjProperty
2914: set member id 'title_prefix' (51) #
character.title_suffix := getobjproperty (character, "oldsuffix");
2915: local #0
2916: local #0
2917: "oldsuffix"
2918: Func(4,1): GetObjProperty
2919: set member id 'title_suffix' (52) #
character.title_guild := GetObjProperty (character, "oldguild");
2920: local #0
2921: local #0
2922: "oldguild"
2923: Func(4,1): GetObjProperty
2924: set member id 'title_guild' (53) #
character.title_race := GetObjProperty (character, "oldrace");
2925: local #0
2926: local #0
2927: "oldrace"
2928: Func(4,1): GetObjProperty
2929: set member id 'title_race' (54) #
eraseobjproperty (character, "oldname");
2930: local #0
2931: "oldname"
2932: Func(4,6): EraseObjProperty
2933: #
eraseobjproperty (character, "oldprefix");
2934: local #0
2935: "oldprefix"
2936: Func(4,6): EraseObjProperty
2937: #
eraseobjproperty (character, "oldsuffix");
2938: local #0
2939: "oldsuffix"
2940: Func(4,6): EraseObjProperty
2941: #
EraseObjProperty (character, "oldguild");
2942: local #0
2943: "oldguild"
2944: Func(4,6): EraseObjProperty
2945: #
EraseObjProperty (character, "oldrace");
2946: local #0
2947: "oldrace"
2948: Func(4,6): EraseObjProperty
2949: #
MoveObjectToLocation (character, starecechy[14], starecechy[15], starecechy[16]
2950: local #0
2951: local #2
2952: 14L
2953: [] 1
2954: local #2
2955: 15L
2956: [] 1
2957: local #2
2958: 16L
2959: [] 1
2960: local #0
2961: get member id 'realm' (113)
2962: 1073741824L
2963: Func(4,10): MoveObjectToLocation
2964: #
moveObjecttolocation (npc, 5288, 1176, 0, 0x40000000);
2965: local #1
2966: 5288L
2967: 1176L
2968: 0L
2969: 1073741824L
2970: 0L
2971: Func(4,10): MoveObjectToLocation
2972: #
setobjproperty (npc, "guardkill", 1);
2973: local #1
2974: "guardkill"
2975: 1L
2976: Func(4,0): SetObjProperty
2977: #
RevokePrivilege (npc, "invul");
2978: local #1
2979: "invul"
2980: Func(4,19): RevokePrivilege
2981: #
ApplyRawDamage (npc, GetVital (npc, "Life"));
2982: local #1
2983: local #1
2984: "Life"
2985: Func(3,1): GetVital
2986: Func(3,5): ApplyRawDamage
2987: #
SetVital (character, "Life", starecechy[11] );
2988: local #0
2989: "Life"
2990: local #2
2991: 11L
2992: [] 1
2993: Func(3,4): SetVital
2994: #
SetVital (character, "Mana", starecechy[12] );
2995: local #0
2996: "Mana"
2997: local #2
2998: 12L
2999: [] 1
3000: Func(3,4): SetVital
3001: #
SetVital (character, "Stamina", starecechy[13] );
3002: local #0
3003: "Stamina"
3004: local #2
3005: 13L
3006: [] 1
3007: Func(3,4): SetVital
3008: #
var skile := Getobjproperty(character,"stareskile");
3009: decl local #3
3010: local #0
3011: "stareskile"
3012: Func(4,1): GetObjProperty
3013: :=
3014: #
Eraseobjproperty(character,"stareskile");
3015: local #0
3016: "stareskile"
3017: Func(4,6): EraseObjProperty
3018: #
for i := 1 to 49
3019: 1L
3020: 49L
3021: initfor @3035
SetAttributeBaseValue (character, GetAttributeIDBySkillID (i-1), skile[i]);
3022: local #0
3023: local #4
3024: 1L
3025: -
3026: makelocal
3027: jmp userfunc @4444
3028: local #3
3029: local #4
3030: [] 1
3031: Func(8,6): SetAttributeBaseValue
3032: #
3033: nextfor @3022
3034: leave block(2)
SetAttributeBaseValue (character, "Strength", starecechy[5]);
3035: local #0
3036: "Strength"
3037: local #2
3038: 5L
3039: [] 1
3040: Func(8,6): SetAttributeBaseValue
3041: #
SetAttributeBaseValue (character, "Intelligence", starecechy[6]);
3042: local #0
3043: "Intelligence"
3044: local #2
3045: 6L
3046: [] 1
3047: Func(8,6): SetAttributeBaseValue
3048: #
SetAttributeBaseValue (character, "Dexterity", starecechy[7]);
3049: local #0
3050: "Dexterity"
3051: local #2
3052: 7L
3053: [] 1
3054: Func(8,6): SetAttributeBaseValue
3055: #
SetAttributeTemporaryMod (character, "Strength", starecechy[8]);
3056: local #0
3057: "Strength"
3058: local #2
3059: 8L
3060: [] 1
3061: Func(8,5): SetAttributeTemporaryMod
3062: #
SetAttributeTemporaryMod (character, "Intelligence", starecechy[9]);
3063: local #0
3064: "Intelligence"
3065: local #2
3066: 9L
3067: [] 1
3068: Func(8,5): SetAttributeTemporaryMod
3069: #
SetAttributeTemporaryMod (character, "Dexterity", starecechy[10]);
3070: local #0
3071: "Dexterity"
3072: local #2
3073: 10L
3074: [] 1
3075: Func(8,5): SetAttributeTemporaryMod
3076: #
RecalcVitals (character);
3077: local #0
3078: Func(3,0): RecalcVitals
3079: #
foreach thing in ListRootItemsInContainer (character.backpack)
3080: local #0
3081: get member id 'backpack' (41)
3082: makelocal
3083: jmp userfunc @4620
3084: initforeach @3089
EquipItem (character, thing);
3085: local #0
3086: local #4
3087: Func(4,15): EquipItem
3088: #
3089: stepforeach @3085
3090: leave block(3)
var weaponone := GetEquipmentByLayer (character, LAYER_HAND1);
3091: decl local #4
3092: local #0
3093: 1L
3094: Func(4,20): GetEquipmentByLayer
3095: :=
3096: #
var weapontwo := GetEquipmentByLayer (character, LAYER_HAND2);
3097: decl local #5
3098: local #0
3099: 2L
3100: Func(4,20): GetEquipmentByLayer
3101: :=
3102: #
if (weaponone)
3103: local #4
3104: if false goto 3112
MoveItemToContainer (weaponone, character.backpack);
3105: local #4
3106: local #0
3107: get member id 'backpack' (41)
3108: -1L
3109: -1L
3110: Func(4,16): MoveItemToContainer
3111: #
if (weapontwo)
3112: local #5
3113: if false goto 3121
MoveItemToContainer (weapontwo, character.backpack);
3114: local #5
3115: local #0
3116: get member id 'backpack' (41)
3117: -1L
3118: -1L
3119: Func(4,16): MoveItemToContainer
3120: #
3121: 0L
3122: return
e:/gry/pol/pvp097/scripts/include/possess2.inc, Line 354
function Unpossessdead(character)
3123: pop param 'character'
if(!character.dead)
3124: local #0
3125: get member id 'dead' (39)
3126: if true goto 3161
ApplyRawDamage(character, Getvital(character, "Life") + 100);
3127: local #0
3128: local #0
3129: "Life"
3130: Func(3,1): GetVital
3131: 100L
3132: +
3133: Func(3,5): ApplyRawDamage
3134: #
character.graphic := character.trueobjtype;
3135: local #0
3136: local #0
3137: get member id 'trueobjtype' (29)
3138: set member id 'graphic' (5) #
character.color := character.truecolor;
3139: local #0
3140: local #0
3141: get member id 'truecolor' (30)
3142: set member id 'color' (7) #
Resurrect( character );
3143: local #0
3144: 0L
3145: Func(4,9): Resurrect
3146: #
SetObjProperty(character, "guardkill", 1);
3147: local #0
3148: "guardkill"
3149: 1L
3150: Func(4,0): SetObjProperty
3151: #
ApplyRawDamage(character, Getvital(character, "Life") + 100);
3152: local #0
3153: local #0
3154: "Life"
3155: Func(3,1): GetVital
3156: 100L
3157: +
3158: Func(3,5): ApplyRawDamage
3159: #
3160: goto3186
Resurrect( character );
3161: local #0
3162: 0L
3163: Func(4,9): Resurrect
3164: #
character.graphic := character.trueobjtype;
3165: local #0
3166: local #0
3167: get member id 'trueobjtype' (29)
3168: set member id 'graphic' (5) #
character.color := character.truecolor;
3169: local #0
3170: local #0
3171: get member id 'truecolor' (30)
3172: set member id 'color' (7) #
SetObjProperty(character, "guardkill", 1);
3173: local #0
3174: "guardkill"
3175: 1L
3176: Func(4,0): SetObjProperty
3177: #
ApplyRawDamage(character, Getvital(character, "Life") + 100);
3178: local #0
3179: local #0
3180: "Life"
3181: Func(3,1): GetVital
3182: 100L
3183: +
3184: Func(3,5): ApplyRawDamage
3185: #
var starecechy := Getobjproperty(character, "starecechy");
3186: decl local #1
3187: local #0
3188: "starecechy"
3189: Func(4,1): GetObjProperty
3190: :=
3191: #
eraseobjproperty (character, "possess");
3192: local #0
3193: "possess"
3194: Func(4,6): EraseObjProperty
3195: #
character.name := getobjproperty (character, "oldname");
3196: local #0
3197: local #0
3198: "oldname"
3199: Func(4,1): GetObjProperty
3200: set member id 'name' (3) #
character.title_prefix := getobjproperty (character, "oldprefix");
3201: local #0
3202: local #0
3203: "oldprefix"
3204: Func(4,1): GetObjProperty
3205: set member id 'title_prefix' (51) #
character.title_suffix := getobjproperty (character, "oldsuffix");
3206: local #0
3207: local #0
3208: "oldsuffix"
3209: Func(4,1): GetObjProperty
3210: set member id 'title_suffix' (52) #
character.title_guild := GetObjProperty (character, "oldguild");
3211: local #0
3212: local #0
3213: "oldguild"
3214: Func(4,1): GetObjProperty
3215: set member id 'title_guild' (53) #
character.title_race := GetObjProperty (character, "oldrace");
3216: local #0
3217: local #0
3218: "oldrace"
3219: Func(4,1): GetObjProperty
3220: set member id 'title_race' (54) #
eraseobjproperty (character, "oldname");
3221: local #0
3222: "oldname"
3223: Func(4,6): EraseObjProperty
3224: #
eraseobjproperty (character, "oldprefix");
3225: local #0
3226: "oldprefix"
3227: Func(4,6): EraseObjProperty
3228: #
eraseobjproperty (character, "oldsuffix");
3229: local #0
3230: "oldsuffix"
3231: Func(4,6): EraseObjProperty
3232: #
EraseObjProperty (character, "oldguild");
3233: local #0
3234: "oldguild"
3235: Func(4,6): EraseObjProperty
3236: #
EraseObjProperty (character, "oldrace");
3237: local #0
3238: "oldrace"
3239: Func(4,6): EraseObjProperty
3240: #
MoveObjectToLocation (character, starecechy[14], starecechy[15], starecechy[16]
3241: local #0
3242: local #1
3243: 14L
3244: [] 1
3245: local #1
3246: 15L
3247: [] 1
3248: local #1
3249: 16L
3250: [] 1
3251: local #0
3252: get member id 'realm' (113)
3253: 1073741824L
3254: Func(4,10): MoveObjectToLocation
3255: #
SetVital (character, "Life", starecechy[11] );
3256: local #0
3257: "Life"
3258: local #1
3259: 11L
3260: [] 1
3261: Func(3,4): SetVital
3262: #
SetVital (character, "Mana", starecechy[12] );
3263: local #0
3264: "Mana"
3265: local #1
3266: 12L
3267: [] 1
3268: Func(3,4): SetVital
3269: #
SetVital (character, "Stamina", starecechy[13] );
3270: local #0
3271: "Stamina"
3272: local #1
3273: 13L
3274: [] 1
3275: Func(3,4): SetVital
3276: #
var skile := Getobjproperty(character,"stareskile");
3277: decl local #2
3278: local #0
3279: "stareskile"
3280: Func(4,1): GetObjProperty
3281: :=
3282: #
Eraseobjproperty(character,"stareskile");
3283: local #0
3284: "stareskile"
3285: Func(4,6): EraseObjProperty
3286: #
for i := 1 to 49
3287: 1L
3288: 49L
3289: initfor @3303
SetAttributeBaseValue (character, GetAttributeIDBySkillID (i-1), skile[i]);
3290: local #0
3291: local #3
3292: 1L
3293: -
3294: makelocal
3295: jmp userfunc @4444
3296: local #2
3297: local #3
3298: [] 1
3299: Func(8,6): SetAttributeBaseValue
3300: #
3301: nextfor @3290
3302: leave block(2)
SetAttributeBaseValue (character, "Strength", starecechy[5]);
3303: local #0
3304: "Strength"
3305: local #1
3306: 5L
3307: [] 1
3308: Func(8,6): SetAttributeBaseValue
3309: #
SetAttributeBaseValue (character, "Intelligence", starecechy[6]);
3310: local #0
3311: "Intelligence"
3312: local #1
3313: 6L
3314: [] 1
3315: Func(8,6): SetAttributeBaseValue
3316: #
SetAttributeBaseValue (character, "Dexterity", starecechy[7]);
3317: local #0
3318: "Dexterity"
3319: local #1
3320: 7L
3321: [] 1
3322: Func(8,6): SetAttributeBaseValue
3323: #
SetAttributeTemporaryMod (character, "Strength", starecechy[8]);
3324: local #0
3325: "Strength"
3326: local #1
3327: 8L
3328: [] 1
3329: Func(8,5): SetAttributeTemporaryMod
3330: #
SetAttributeTemporaryMod (character, "Intelligence", starecechy[9]);
3331: local #0
3332: "Intelligence"
3333: local #1
3334: 9L
3335: [] 1
3336: Func(8,5): SetAttributeTemporaryMod
3337: #
SetAttributeTemporaryMod (character, "Dexterity", starecechy[10]);
3338: local #0
3339: "Dexterity"
3340: local #1
3341: 10L
3342: [] 1
3343: Func(8,5): SetAttributeTemporaryMod
3344: #
RecalcVitals (character);
3345: local #0
3346: Func(3,0): RecalcVitals
3347: #
3348: 0L
3349: return
e:/gry/pol/pvp097/scripts/../pkg/foundations/gumps/gumps.inc, Line 862
function XGFReset( )
GFlayout := array();
3350: array
3351: global5 := 
GFdata := array();
3352: array
3353: global6 := 
GFdtidx := GFINIT_TEXT;
3354: 0L
3355: global7 := 
GFtxtid := GFINIT_TEXTENTRY;
3356: 513L
3357: global8 := 
GFbutid := GFINIT_BUTTON;
3358: 1025L
3359: global9 := 
GFcbxid := GFINIT_CHECKBOX;
3360: 1537L
3361: global10 := 
GFradid := GFINIT_RADIO;
3362: 2049L
3363: global11 := 
3364: 0L
3365: return
e:/gry/pol/pvp097/scripts/include/yesNo.inc, Line 6
function YesNo(me, prompt)
3366: pop param 'prompt'
3367: pop param 'me'
if (len(prompt) <= 10)
3368: local #0
3369: Func(0,4): Len
3370: 10L
3371: <=
3372: if false goto 3379
return SmallYesNo(me, prompt);
3373: local #1
3374: local #0
3375: makelocal
3376: jmp userfunc @4697
3377: return
3378: goto3384
return BigYesNo(me, prompt);
3379: local #1
3380: local #0
3381: makelocal
3382: jmp userfunc @3788
3383: return
3384: 0L
3385: return
e:/gry/pol/pvp097/pkg/igrzyska/include/igrzyska.inc, Line 20
function ZnajdzKamien()
var serjal := Cint(GetGlobalProperty("igrzyskaserial")); // ID kamienia igrzysk
3386: decl local #0
3387: "igrzyskaserial"
3388: Func(4,11): GetGlobalProperty
3389: Func(0,0): CInt
3390: :=
3391: #
var kamien := SystemFindObjectBySerial(serjal); // znajduje kamien na igrzyskac
3392: decl local #1
3393: local #0
3394: 0L
3395: Func(4,7): SystemFindObjectBySerial
3396: :=
3397: #
return kamien;
3398: local #1
3399: return
e:/gry/pol/pvp097/scripts/include/reportMurder.inc, Line 58
function AdjustMurderCounts(who, mob)
3400: pop param 'mob'
3401: pop param 'who'
if(GetObjProperty(mob, "naigrzyskach")) // igrzyska
3402: local #0
3403: "naigrzyskach"
3404: Func(4,1): GetObjProperty
3405: if false goto 3472
var igrzyskapunkt := Cint(GetObjProperty(mob, "igrzyskapunkt"));
3406: decl local #0
3407: local #0
3408: "igrzyskapunkt"
3409: Func(4,1): GetObjProperty
3410: Func(0,0): CInt
3411: :=
3412: #
if(!igrzyskapunkt)
3413: local #2
3414: if true goto 3420
SetObjProperty(mob, "igrzyskapunkt", 1);
3415: local #0
3416: "igrzyskapunkt"
3417: 1L
3418: Func(4,0): SetObjProperty
3419: #
if( GetObjProperty(mob, "naigrzyskach") == GetObjProperty(who, "naigrzyskach") 
3420: local #0
3421: "naigrzyskach"
3422: Func(4,1): GetObjProperty
3423: local #1
3424: "naigrzyskach"
3425: Func(4,1): GetObjProperty
3426: ==
3427: if false goto 3442
SendSysMessage(mob, "Zabiles osobe ze swojej druzyny!");
3428: local #0
3429: "Zabiles osobe ze swojej druzyny!"
3430: 3L
3431: 1000L
3432: Func(4,3): SendSysMessage
3433: #
ApplyRawDamage(mob, GetMaxHp(mob) + 100);
3434: local #0
3435: local #0
3436: makelocal
3437: jmp userfunc @2312
3438: 100L
3439: +
3440: Func(3,5): ApplyRawDamage
3441: #
SetObjProperty(mob, "igrzyskapunkt", igrzyskapunkt+1);
3442: local #0
3443: "igrzyskapunkt"
3444: local #2
3445: 1L
3446: +
3447: Func(4,0): SetObjProperty
3448: #
PrintTextAbove(mob, "Rozkurwil " + who.name + " jak zwykla szmate.");
3449: local #0
3450: "Rozkurwil "
3451: local #1
3452: get member id 'name' (3)
3453: +
3454: " jak zwykla szmate."
3455: +
3456: 3L
3457: 1000L
3458: Func(4,8): PrintTextAbove
3459: #
PrintTextAbove(mob, "Punktow: " + igrzyskapunkt + ".");
3460: local #0
3461: "Punktow: "
3462: local #2
3463: +
3464: "."
3465: +
3466: 3L
3467: 1000L
3468: Func(4,8): PrintTextAbove
3469: #
3470: leave block(1)
3471: goto3782
elseif(GetObjProperty(mob, "#team")) // czy gracz ma duela, jezeli tak odpala d
3472: local #0
3473: "#team"
3474: Func(4,1): GetObjProperty
3475: if false goto 3602
var duelfrags := Cint(GetObjProperty(mob, "duelfrags")); // fragi duela
3476: decl local #0
3477: local #0
3478: "duelfrags"
3479: Func(4,1): GetObjProperty
3480: Func(0,0): CInt
3481: :=
3482: #
duelfrags := duelfrags + 1;
3483: local #2
3484: 1L
3485: +
3486: local2 := 
SendSysMessage(mob,"Wygrales!", 3, 60);
3487: local #0
3488: "Wygrales!"
3489: 3L
3490: 60L
3491: Func(4,3): SendSysMessage
3492: #
SendSysMessage(mob,"Ilosc zapierdolonych na duelu: " + duelfrags, FONT_NORMAL, 
3493: local #0
3494: "Ilosc zapierdolonych na duelu: "
3495: local #2
3496: +
3497: 3L
3498: 40L
3499: Func(4,3): SendSysMessage
3500: #
SetObjProperty(mob,"duelfrags",duelfrags);
3501: local #0
3502: "duelfrags"
3503: local #2
3504: Func(4,0): SetObjProperty
3505: #
if(who.dead)  
3506: local #1
3507: get member id 'dead' (39)
3508: if false goto 3513
Resurrect(who);
3509: local #1
3510: 0L
3511: Func(4,9): Resurrect
3512: #
SetHp(mob, GetMaxHp(mob));
3513: local #0
3514: local #0
3515: makelocal
3516: jmp userfunc @2312
3517: makelocal
3518: jmp userfunc @2675
3519: #
SetMana(mob, GetMaxMana(mob));
3520: local #0
3521: local #0
3522: makelocal
3523: jmp userfunc @2320
3524: makelocal
3525: jmp userfunc @2685
3526: #
SetStamina(mob, GetMaxStamina(mob));
3527: local #0
3528: local #0
3529: makelocal
3530: jmp userfunc @2328
3531: makelocal
3532: jmp userfunc @2786
3533: #
SetHp(who, GetMaxHp(who));
3534: local #1
3535: local #1
3536: makelocal
3537: jmp userfunc @2312
3538: makelocal
3539: jmp userfunc @2675
3540: #
SetMana(who, GetMaxMana(who));
3541: local #1
3542: local #1
3543: makelocal
3544: jmp userfunc @2320
3545: makelocal
3546: jmp userfunc @2685
3547: #
SetStamina(who, GetMaxStamina(who));
3548: local #1
3549: local #1
3550: makelocal
3551: jmp userfunc @2328
3552: makelocal
3553: jmp userfunc @2786
3554: #
mob.setCriminal(0);
3555: local #0
3556: 0L
3557: Call Method id setcriminal (#5, 1 params)
3558: #
who.setCriminal(0);
3559: local #1
3560: 0L
3561: Call Method id setcriminal (#5, 1 params)
3562: #
who.setpoisoned(0);
3563: local #1
3564: 0L
3565: Call Method id setpoisoned (#3, 1 params)
3566: #
who.setpoisoned(0);
3567: local #1
3568: 0L
3569: Call Method id setpoisoned (#3, 1 params)
3570: #
mob.setpoisoned(0);
3571: local #0
3572: 0L
3573: Call Method id setpoisoned (#3, 1 params)
3574: #
who.setwarmode(0);
3575: local #1
3576: 0L
3577: Call Method id setwarmode (#17, 1 params)
3578: #
mob.setwarmode(0);
3579: local #0
3580: 0L
3581: Call Method id setwarmode (#17, 1 params)
3582: #
MoveObjectToLocation( mob, FRAKCJA_1_X, FRAKCJA_1_Y, FRAKCJA_1_Z, mob.realm, MO
3583: local #0
3584: 2990L
3585: 666L
3586: 0L
3587: local #0
3588: get member id 'realm' (113)
3589: 1073741824L
3590: Func(4,10): MoveObjectToLocation
3591: #
EraseObjProperty(mob, "#duelOkno");
3592: local #0
3593: "#duelOkno"
3594: Func(4,6): EraseObjProperty
3595: #
EraseObjProperty(mob, "#team");
3596: local #0
3597: "#team"
3598: Func(4,6): EraseObjProperty
3599: #
3600: leave block(1)
3601: goto3782
elseif(!GetObjProperty(mob, "#team") && (!GetObjProperty(who, "naigrzyskach")))
3602: local #0
3603: "#team"
3604: Func(4,1): GetObjProperty
3605: !
3606: local #1
3607: "naigrzyskach"
3608: Func(4,1): GetObjProperty
3609: !
3610: &&
3611: if false goto 3782
var longcount := Cint(GetObjProperty(mob,"longmurders")); // fragi zwykle
3612: decl local #0
3613: local #0
3614: "longmurders"
3615: Func(4,1): GetObjProperty
3616: Func(0,0): CInt
3617: :=
3618: #
if(!longcount)
3619: local #2
3620: if true goto 3623
longcount := 0;
3621: 0L
3622: local2 := 
var longcount2 := Cint(GetObjProperty(who,"longmurders")); // fragi zwykle padn
3623: decl local #1
3624: local #1
3625: "longmurders"
3626: Func(4,1): GetObjProperty
3627: Func(0,0): CInt
3628: :=
3629: #
if(!longcount2)
3630: local #3
3631: if true goto 3634
longcount2 := 0;
3632: 0L
3633: local3 := 
var czynpc := Cint(GetObjProperty(mob, "AiSerial"));
3634: decl local #2
3635: local #0
3636: "AiSerial"
3637: Func(4,1): GetObjProperty
3638: Func(0,0): CInt
3639: :=
3640: #
if(Cint(GetGlobalProperty("#zakazwalk")))
3641: "#zakazwalk"
3642: Func(4,11): GetGlobalProperty
3643: Func(0,0): CInt
3644: if false goto 3691
if(!czynpc)
3645: local #4
3646: if true goto 3677
BroadCast("Gracz " + mob.name + " zabil gracza " + who.name + " podczas zakazu 
3647: "Gracz "
3648: local #0
3649: get member id 'name' (3)
3650: +
3651: " zabil gracza "
3652: +
3653: local #1
3654: get member id 'name' (3)
3655: +
3656: " podczas zakazu walk! Coz za niehonorowy czyn!"
3657: +
3658: 3L
3659: 89L
3660: Func(4,12): Broadcast
3661: #
syslog("Gracz " + mob.name + " zabil gracza " + who.name + " podczas zakazu wal
3662: "Gracz "
3663: local #0
3664: get member id 'name' (3)
3665: +
3666: " zabil gracza "
3667: +
3668: local #1
3669: get member id 'name' (3)
3670: +
3671: " podczas zakazu walk! Coz za niehonorowy czyn!"
3672: +
3673: Func(2,2): SysLog
3674: #
return 0;
3675: 0L
3676: return
var cialo := SystemFindObjectBySerial(who.GetCorpse().serial);
3677: decl local #0
3678: local #1
3679: Call Method id getcorpse (#88, 0 params)
3680: get member id 'serial' (6)
3681: 0L
3682: Func(4,7): SystemFindObjectBySerial
3683: :=
3684: #
SetObjProperty(cialo, "nopvp", 1);
3685: local #5
3686: "nopvp"
3687: 1L
3688: Func(4,0): SetObjProperty
3689: #
3690: leave block(1)
if(findCity(who) == "noob")
3691: local #1
3692: makelocal
3693: jmp userfunc @3850
3694: "noob"
3695: ==
3696: if false goto 3708
var cialo := who.GetCorpse();
3697: decl local #0
3698: local #1
3699: Call Method id getcorpse (#88, 0 params)
3700: :=
3701: #
SetObjProperty(cialo, "nopvp", 1);
3702: local #5
3703: "nopvp"
3704: 1L
3705: Func(4,0): SetObjProperty
3706: #
3707: leave block(1)
if(!czynpc)
3708: local #4
3709: if true goto 3781
longcount := longcount + 1;
3710: local #2
3711: 1L
3712: +
3713: local2 := 
SendSysMessage(mob,"Ilosc zapierdolonych (punkty): " + longcount, FONT_NORMAL, 
3714: local #0
3715: "Ilosc zapierdolonych (punkty): "
3716: local #2
3717: +
3718: 3L
3719: 40L
3720: Func(4,3): SendSysMessage
3721: #
SetObjProperty(mob,"longmurders",longcount);
3722: local #0
3723: "longmurders"
3724: local #2
3725: Func(4,0): SetObjProperty
3726: #
mob.title_suffix := ", punkty: " + longcount;
3727: local #0
3728: ", punkty: "
3729: local #2
3730: +
3731: set member id 'title_suffix' (52) #
if(longcount > 100)
3732: local #2
3733: 100L
3734: >
3735: if false goto 3747
if(!mob.murderer)
3736: local #0
3737: get member id 'murderer' (57)
3738: if true goto 3746
mob.setMurderer(1);
3739: local #0
3740: 1L
3741: Call Method id setmurderer (#13, 1 params)
3742: #
mob.alignment := "evil";
3743: local #0
3744: "evil"
3745: set member id 'alignment' (131) #
3746: goto3761
elseif(longcount < 100)
3747: local #2
3748: 100L
3749: <
3750: if false goto 3761
if(mob.murderer)
3751: local #0
3752: get member id 'murderer' (57)
3753: if false goto 3761
mob.setMurderer(0);
3754: local #0
3755: 0L
3756: Call Method id setmurderer (#13, 1 params)
3757: #
mob.alignment := "good";
3758: local #0
3759: "good"
3760: set member id 'alignment' (131) #
var longcount2 := Cint(GetObjProperty(who,"longmurders")); // fragi zwykle
3761: decl local #0
3762: local #1
3763: "longmurders"
3764: Func(4,1): GetObjProperty
3765: Func(0,0): CInt
3766: :=
3767: #
SetObjProperty(who, "longmurders", longcount2 - 1);
3768: local #1
3769: "longmurders"
3770: local #5
3771: 1L
3772: -
3773: Func(4,0): SetObjProperty
3774: #
who.title_suffix := ", punkty: " + longcount2;
3775: local #1
3776: ", punkty: "
3777: local #5
3778: +
3779: set member id 'title_suffix' (52) #
3780: leave block(1)
3781: leave block(3)
EraseObjProperty(mob, "#team");
3782: local #0
3783: "#team"
3784: Func(4,6): EraseObjProperty
3785: #
3786: 0L
3787: return
e:/gry/pol/pvp097/scripts/include/yesNo.inc, Line 36
function BigYesNo(me, prompt)
3788: pop param 'prompt'
3789: pop param 'me'
var layoutyn := array(
3790: decl local #2
3791: array
3792: "page 0"
3793: init{}
3794: "nodispose"
3795: init{}
3796: "gumppic 0 0 1140"
3797: init{}
3798: "button 115 200 2130 2129 1 0 1"
3799: init{}
3800: "button 205 200 2119 2120 1 0 0"
3801: init{}
3802: "text 55 45 502 0"
3803: init{}
3804: "text 55 65 502 1"
3805: init{}
3806: "text 55 85 502 2"
3807: init{}
3808: "text 55 105 502 3"
3809: init{}
3810: "text 55 125 502 4"
3811: init{}
3812: "text 55 145 502 5"
3813: init{}
3814: "text 55 165 502 6"
3815: init{}
3816: :=
3817: #
var datayn := packPromptToArray(prompt);
3818: decl local #3
3819: local #0
3820: makelocal
3821: jmp userfunc @4642
3822: :=
3823: #
var res := SendDialogGump( me, layoutyn, datayn );
3824: decl local #4
3825: local #1
3826: local #2
3827: local #3
3828: 0L
3829: 0L
3830: Func(4,5): SendDialogGump
3831: :=
3832: #
if (res)
3833: local #4
3834: if false goto 3838
return 1;
3835: 1L
3836: return
3837: goto3840
return 0;
3838: 0L
3839: return
3840: 0L
3841: return
e:/gry/pol/pvp097/scripts/include/datafile.inc, Line 88
function DF_OutPut(text)
3842: pop param 'text'
if ( DF_DEBUG_MODE )
3843: global #3
3844: if false goto 3848
SysLog(text);
3845: local #0
3846: Func(2,2): SysLog
3847: #
3848: 0L
3849: return
e:/gry/pol/pvp097/scripts/include/findCity.inc, Line 5
function FindCity(me)
3850: pop param 'me'
if(me.x>=1244 && me.y>=1530 && me.x<=1704 && me.y<=1758)
3851: local #0
3852: get member id 'x' (0)
3853: 1244L
3854: >=
3855: local #0
3856: get member id 'y' (1)
3857: 1530L
3858: >=
3859: &&
3860: local #0
3861: get member id 'x' (0)
3862: 1704L
3863: <=
3864: &&
3865: local #0
3866: get member id 'y' (1)
3867: 1758L
3868: <=
3869: &&
3870: if false goto 3873
return "Britain";
3871: "Britain"
3872: return
if(me.x>=5246 && me.y >= 1750 && me.x<=5273 && me.y<=1777)
3873: local #0
3874: get member id 'x' (0)
3875: 5246L
3876: >=
3877: local #0
3878: get member id 'y' (1)
3879: 1750L
3880: >=
3881: &&
3882: local #0
3883: get member id 'x' (0)
3884: 5273L
3885: <=
3886: &&
3887: local #0
3888: get member id 'y' (1)
3889: 1777L
3890: <=
3891: &&
3892: if false goto 3895
return "Sala";
3893: "Sala"
3894: return
if(me.x>=6097 && me.y >= 1224 && me.x<=6143 && me.y<=1279)
3895: local #0
3896: get member id 'x' (0)
3897: 6097L
3898: >=
3899: local #0
3900: get member id 'y' (1)
3901: 1224L
3902: >=
3903: &&
3904: local #0
3905: get member id 'x' (0)
3906: 6143L
3907: <=
3908: &&
3909: local #0
3910: get member id 'y' (1)
3911: 1279L
3912: <=
3913: &&
3914: if false goto 3917
return "Arena";
3915: "Arena"
3916: return
if(me.x>=2773 && me.y >= 3366 && me.x<=3116 && me.y<=3649)
3917: local #0
3918: get member id 'x' (0)
3919: 2773L
3920: >=
3921: local #0
3922: get member id 'y' (1)
3923: 3366L
3924: >=
3925: &&
3926: local #0
3927: get member id 'x' (0)
3928: 3116L
3929: <=
3930: &&
3931: local #0
3932: get member id 'y' (1)
3933: 3649L
3934: <=
3935: &&
3936: if false goto 3939
return "noob";
3937: "noob"
3938: return
if(me.x>=1342 && me.y >= 847 && me.x<=1480 && me.y<=1023)
3939: local #0
3940: get member id 'x' (0)
3941: 1342L
3942: >=
3943: local #0
3944: get member id 'y' (1)
3945: 847L
3946: >=
3947: &&
3948: local #0
3949: get member id 'x' (0)
3950: 1480L
3951: <=
3952: &&
3953: local #0
3954: get member id 'y' (1)
3955: 1023L
3956: <=
3957: &&
3958: if false goto 3961
return "xilonmines";
3959: "xilonmines"
3960: return
if(me.x>= 2975 && me.y >= 651 && me.x<=3006 && me.y<=682)
3961: local #0
3962: get member id 'x' (0)
3963: 2975L
3964: >=
3965: local #0
3966: get member id 'y' (1)
3967: 651L
3968: >=
3969: &&
3970: local #0
3971: get member id 'x' (0)
3972: 3006L
3973: <=
3974: &&
3975: local #0
3976: get member id 'y' (1)
3977: 682L
3978: <=
3979: &&
3980: if false goto 3983
return "portalownia";
3981: "portalownia"
3982: return
if(me.x>=4379 && me.y>=1045 && me.x<=4487 && me.y<=1178)
3983: local #0
3984: get member id 'x' (0)
3985: 4379L
3986: >=
3987: local #0
3988: get member id 'y' (1)
3989: 1045L
3990: >=
3991: &&
3992: local #0
3993: get member id 'x' (0)
3994: 4487L
3995: <=
3996: &&
3997: local #0
3998: get member id 'y' (1)
3999: 1178L
4000: <=
4001: &&
4002: if false goto 4006
return "Moonglow";
4003: "Moonglow"
4004: return
4005: goto4442
elseif(me.x>=5137 && me.y>=3948 && me.x<=5196 && me.y<=4082)
4006: local #0
4007: get member id 'x' (0)
4008: 5137L
4009: >=
4010: local #0
4011: get member id 'y' (1)
4012: 3948L
4013: >=
4014: &&
4015: local #0
4016: get member id 'x' (0)
4017: 5196L
4018: <=
4019: &&
4020: local #0
4021: get member id 'y' (1)
4022: 4082L
4023: <=
4024: &&
4025: if false goto 4029
return "Delucia";
4026: "Delucia"
4027: return
4028: goto4442
elseif(me.x>=5196 && me.y>=3923 && me.x<=5322 && me.y<=4085)
4029: local #0
4030: get member id 'x' (0)
4031: 5196L
4032: >=
4033: local #0
4034: get member id 'y' (1)
4035: 3923L
4036: >=
4037: &&
4038: local #0
4039: get member id 'x' (0)
4040: 5322L
4041: <=
4042: &&
4043: local #0
4044: get member id 'y' (1)
4045: 4085L
4046: <=
4047: &&
4048: if false goto 4052
return "Delucia";
4049: "Delucia"
4050: return
4051: goto4442
elseif(me.x>=5638 && me.y>=3083 && me.x<=5799 && me.y<=3328)
4052: local #0
4053: get member id 'x' (0)
4054: 5638L
4055: >=
4056: local #0
4057: get member id 'y' (1)
4058: 3083L
4059: >=
4060: &&
4061: local #0
4062: get member id 'x' (0)
4063: 5799L
4064: <=
4065: &&
4066: local #0
4067: get member id 'y' (1)
4068: 3328L
4069: <=
4070: &&
4071: if false goto 4075
return "Papua";
4072: "Papua"
4073: return
4074: goto4442
elseif(me.x>=5799 && me.y>=3121 && me.x<=5822 && me.y<=3327)
4075: local #0
4076: get member id 'x' (0)
4077: 5799L
4078: >=
4079: local #0
4080: get member id 'y' (1)
4081: 3121L
4082: >=
4083: &&
4084: local #0
4085: get member id 'x' (0)
4086: 5822L
4087: <=
4088: &&
4089: local #0
4090: get member id 'y' (1)
4091: 3327L
4092: <=
4093: &&
4094: if false goto 4098
return "Papua";
4095: "Papua"
4096: return
4097: goto4442
elseif(me.x>=1294 && me.y>=3664 && me.x<=1506 && me.y<=3886)
4098: local #0
4099: get member id 'x' (0)
4100: 1294L
4101: >=
4102: local #0
4103: get member id 'y' (1)
4104: 3664L
4105: >=
4106: &&
4107: local #0
4108: get member id 'x' (0)
4109: 1506L
4110: <=
4111: &&
4112: local #0
4113: get member id 'y' (1)
4114: 3886L
4115: <=
4116: &&
4117: if false goto 4121
return "Jhelom";
4118: "Jhelom"
4119: return
4120: goto4442
elseif(me.x>=494 && me.y>=926 && me.x<=600 && me.y<=1034)
4121: local #0
4122: get member id 'x' (0)
4123: 494L
4124: >=
4125: local #0
4126: get member id 'y' (1)
4127: 926L
4128: >=
4129: &&
4130: local #0
4131: get member id 'x' (0)
4132: 600L
4133: <=
4134: &&
4135: local #0
4136: get member id 'y' (1)
4137: 1034L
4138: <=
4139: &&
4140: if false goto 4144
return "Yew";
4141: "Yew"
4142: return
4143: goto4442
elseif(me.x>=590 && me.y>=796 && me.x<=670 && me.y<=886)
4144: local #0
4145: get member id 'x' (0)
4146: 590L
4147: >=
4148: local #0
4149: get member id 'y' (1)
4150: 796L
4151: >=
4152: &&
4153: local #0
4154: get member id 'x' (0)
4155: 670L
4156: <=
4157: &&
4158: local #0
4159: get member id 'y' (1)
4160: 886L
4161: <=
4162: &&
4163: if false goto 4167
return "Empath Abbey";
4164: "Empath Abbey"
4165: return
4166: goto4442
elseif(me.x>=2394 && me.y>=370 && me.x<=2624 && me.y<=632)
4167: local #0
4168: get member id 'x' (0)
4169: 2394L
4170: >=
4171: local #0
4172: get member id 'y' (1)
4173: 370L
4174: >=
4175: &&
4176: local #0
4177: get member id 'x' (0)
4178: 2624L
4179: <=
4180: &&
4181: local #0
4182: get member id 'y' (1)
4183: 632L
4184: <=
4185: &&
4186: if false goto 4190
return "Minoc";
4187: "Minoc"
4188: return
4189: goto4442
elseif(me.x>=1794 && me.y>=2638 && me.x<=2136 && me.y<=2902)
4190: local #0
4191: get member id 'x' (0)
4192: 1794L
4193: >=
4194: local #0
4195: get member id 'y' (1)
4196: 2638L
4197: >=
4198: &&
4199: local #0
4200: get member id 'x' (0)
4201: 2136L
4202: <=
4203: &&
4204: local #0
4205: get member id 'y' (1)
4206: 2902L
4207: <=
4208: &&
4209: if false goto 4213
return "Trinsic";
4210: "Trinsic"
4211: return
4212: goto4442
elseif(me.x>=538 && me.y>=2106 && me.x<=686 && me.y<=2274)
4213: local #0
4214: get member id 'x' (0)
4215: 538L
4216: >=
4217: local #0
4218: get member id 'y' (1)
4219: 2106L
4220: >=
4221: &&
4222: local #0
4223: get member id 'x' (0)
4224: 686L
4225: <=
4226: &&
4227: local #0
4228: get member id 'y' (1)
4229: 2274L
4230: <=
4231: &&
4232: if false goto 4236
return "Skara Brae";
4233: "Skara Brae"
4234: return
4235: goto4442
elseif(me.x>=3646 && me.y>=2040 && me.x<=3814 && me.y<=2280)
4236: local #0
4237: get member id 'x' (0)
4238: 3646L
4239: >=
4240: local #0
4241: get member id 'y' (1)
4242: 2040L
4243: >=
4244: &&
4245: local #0
4246: get member id 'x' (0)
4247: 3814L
4248: <=
4249: &&
4250: local #0
4251: get member id 'y' (1)
4252: 2280L
4253: <=
4254: &&
4255: if false goto 4259
return "Magincia";
4256: "Magincia"
4257: return
4258: goto4442
elseif(me.x>=3588 && me.y>=2446 && me.x<=3762 && me.y<=2690)
4259: local #0
4260: get member id 'x' (0)
4261: 3588L
4262: >=
4263: local #0
4264: get member id 'y' (1)
4265: 2446L
4266: >=
4267: &&
4268: local #0
4269: get member id 'x' (0)
4270: 3762L
4271: <=
4272: &&
4273: local #0
4274: get member id 'y' (1)
4275: 2690L
4276: <=
4277: &&
4278: if false goto 4282
return "Occlo";
4279: "Occlo"
4280: return
4281: goto4442
elseif(me.x>=2612 && me.y>=2082 && me.x<=2772 && me.y<=2256)
4282: local #0
4283: get member id 'x' (0)
4284: 2612L
4285: >=
4286: local #0
4287: get member id 'y' (1)
4288: 2082L
4289: >=
4290: &&
4291: local #0
4292: get member id 'x' (0)
4293: 2772L
4294: <=
4295: &&
4296: local #0
4297: get member id 'y' (1)
4298: 2256L
4299: <=
4300: &&
4301: if false goto 4305
return "Buccaneers Den";
4302: "Buccaneers Den"
4303: return
4304: goto4442
elseif(me.x>=3496 && me.y>=1062 && me.x<=3808 && me.y<=1400)
4305: local #0
4306: get member id 'x' (0)
4307: 3496L
4308: >=
4309: local #0
4310: get member id 'y' (1)
4311: 1062L
4312: >=
4313: &&
4314: local #0
4315: get member id 'x' (0)
4316: 3808L
4317: <=
4318: &&
4319: local #0
4320: get member id 'y' (1)
4321: 1400L
4322: <=
4323: &&
4324: if false goto 4328
return "Nujelm";
4325: "Nujelm"
4326: return
4327: goto4442
elseif(me.x>=2794 && me.y>=634 && me.x<=3026 && me.y<=1000)
4328: local #0
4329: get member id 'x' (0)
4330: 2794L
4331: >=
4332: local #0
4333: get member id 'y' (1)
4334: 634L
4335: >=
4336: &&
4337: local #0
4338: get member id 'x' (0)
4339: 3026L
4340: <=
4341: &&
4342: local #0
4343: get member id 'y' (1)
4344: 1000L
4345: <=
4346: &&
4347: if false goto 4351
return "Vesper";
4348: "Vesper"
4349: return
4350: goto4442
elseif(me.x>=2206 && me.y>=1116 && me.x<=2290 && me.y<=1236)
4351: local #0
4352: get member id 'x' (0)
4353: 2206L
4354: >=
4355: local #0
4356: get member id 'y' (1)
4357: 1116L
4358: >=
4359: &&
4360: local #0
4361: get member id 'x' (0)
4362: 2290L
4363: <=
4364: &&
4365: local #0
4366: get member id 'y' (1)
4367: 1236L
4368: <=
4369: &&
4370: if false goto 4374
return "Cove";
4371: "Cove"
4372: return
4373: goto4442
elseif(me.x>=5120 && me.y>=0 && me.x<=5374 && me.y<=254)
4374: local #0
4375: get member id 'x' (0)
4376: 5120L
4377: >=
4378: local #0
4379: get member id 'y' (1)
4380: 0L
4381: >=
4382: &&
4383: local #0
4384: get member id 'x' (0)
4385: 5374L
4386: <=
4387: &&
4388: local #0
4389: get member id 'y' (1)
4390: 254L
4391: <=
4392: &&
4393: if false goto 4397
return "Wind";
4394: "Wind"
4395: return
4396: goto4442
elseif(me.x>=1382 && me.y>=3955 && me.x<=1528 && me.y<=4044)
4397: local #0
4398: get member id 'x' (0)
4399: 1382L
4400: >=
4401: local #0
4402: get member id 'y' (1)
4403: 3955L
4404: >=
4405: &&
4406: local #0
4407: get member id 'x' (0)
4408: 1528L
4409: <=
4410: &&
4411: local #0
4412: get member id 'y' (1)
4413: 4044L
4414: <=
4415: &&
4416: if false goto 4420
return "Jhelom";
4417: "Jhelom"
4418: return
4419: goto4442
elseif(me.x>=1312 && me.y>=1800 && me.x<=1326 && me.y<=1830)
4420: local #0
4421: get member id 'x' (0)
4422: 1312L
4423: >=
4424: local #0
4425: get member id 'y' (1)
4426: 1800L
4427: >=
4428: &&
4429: local #0
4430: get member id 'x' (0)
4431: 1326L
4432: <=
4433: &&
4434: local #0
4435: get member id 'y' (1)
4436: 1830L
4437: <=
4438: &&
4439: if false goto 4442
return "Cmentarz";
4440: "Cmentarz"
4441: return
return "no city";
4442: "no city"
4443: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 125
function GetAttributeIdBySkillId(skillid)
4444: pop param 'skillid'
case(skillid)
4445: local #0
4446: casejmp
	0: @4447
	1: @4450
	2: @4453
	3: @4456
	4: @4459
	5: @4462
	6: @4465
	7: @4468
	8: @4471
	9: @4474
	10: @4477
	11: @4480
	12: @4483
	13: @4486
	14: @4489
	15: @4492
	16: @4495
	17: @4498
	18: @4501
	19: @4504
	20: @4507
	21: @4510
	22: @4513
	23: @4516
	24: @4519
	25: @4522
	26: @4525
	27: @4528
	28: @4531
	29: @4534
	30: @4537
	31: @4540
	32: @4543
	33: @4546
	34: @4549
	35: @4552
	36: @4555
	37: @4558
	38: @4561
	39: @4564
	40: @4567
	41: @4570
	42: @4573
	43: @4576
	44: @4579
	45: @4582
	46: @4585
	47: @4588
	48: @4591
	49: @4594
	50: @4597
	default: @4599
return ATTRIBUTEID_ALCHEMY;
4447: "alchemy"
4448: return
4449: goto4599
return ATTRIBUTEID_ANATOMY;
4450: "anatomy"
4451: return
4452: goto4599
return ATTRIBUTEID_ANIMALLORE;
4453: "animallore"
4454: return
4455: goto4599
return ATTRIBUTEID_ITEMID;
4456: "itemid"
4457: return
4458: goto4599
return ATTRIBUTEID_ARMSLORE;
4459: "armslore"
4460: return
4461: goto4599
return ATTRIBUTEID_PARRY;
4462: "parry"
4463: return
4464: goto4599
return ATTRIBUTEID_BEGGING;
4465: "begging"
4466: return
4467: goto4599
return ATTRIBUTEID_BLACKSMITHY;
4468: "blacksmithy"
4469: return
4470: goto4599
return ATTRIBUTEID_BOWCRAFT;
4471: "bowcraft"
4472: return
4473: goto4599
return ATTRIBUTEID_PEACEMAKING;
4474: "peacemaking"
4475: return
4476: goto4599
return ATTRIBUTEID_CAMPING;
4477: "camping"
4478: return
4479: goto4599
return ATTRIBUTEID_CARPENTRY;
4480: "carpentry"
4481: return
4482: goto4599
return ATTRIBUTEID_CARTOGRAPHY;
4483: "cartography"
4484: return
4485: goto4599
return ATTRIBUTEID_COOKING;
4486: "cooking"
4487: return
4488: goto4599
return ATTRIBUTEID_DETECTINGHIDDEN;
4489: "detectinghidden"
4490: return
4491: goto4599
return ATTRIBUTEID_ENTICEMENT;
4492: "enticement"
4493: return
4494: goto4599
return ATTRIBUTEID_EVALINT;
4495: "evaluatingintelligence"
4496: return
4497: goto4599
return ATTRIBUTEID_HEALING;
4498: "healing"
4499: return
4500: goto4599
return ATTRIBUTEID_FISHING;
4501: "fishing"
4502: return
4503: goto4599
return ATTRIBUTEID_FORENSICS;
4504: "forensicevaluation"
4505: return
4506: goto4599
return ATTRIBUTEID_HERDING;
4507: "herding"
4508: return
4509: goto4599
return ATTRIBUTEID_HIDING;
4510: "hiding"
4511: return
4512: goto4599
return ATTRIBUTEID_PROVOCATION;
4513: "provocation"
4514: return
4515: goto4599
return ATTRIBUTEID_INSCRIPTION;
4516: "inscription"
4517: return
4518: goto4599
return ATTRIBUTEID_LOCKPICKING;
4519: "lockpicking"
4520: return
4521: goto4599
return ATTRIBUTEID_MAGERY;
4522: "magery"
4523: return
4524: goto4599
return ATTRIBUTEID_MAGICRESISTANCE;
4525: "magicresistance"
4526: return
4527: goto4599
return ATTRIBUTEID_TACTICS;
4528: "tactics"
4529: return
4530: goto4599
return ATTRIBUTEID_SNOOPING;
4531: "snooping"
4532: return
4533: goto4599
return ATTRIBUTEID_MUSICIANSHIP;
4534: "musicianship"
4535: return
4536: goto4599
return ATTRIBUTEID_POISONING;
4537: "poisoning"
4538: return
4539: goto4599
return ATTRIBUTEID_ARCHERY;
4540: "archery"
4541: return
4542: goto4599
return ATTRIBUTEID_SPIRITSPEAK;
4543: "spiritspeak"
4544: return
4545: goto4599
return ATTRIBUTEID_STEALING;
4546: "stealing"
4547: return
4548: goto4599
return ATTRIBUTEID_TAILORING;
4549: "tailoring"
4550: return
4551: goto4599
return ATTRIBUTEID_TAMING;
4552: "animaltaming"
4553: return
4554: goto4599
return ATTRIBUTEID_TASTEID;
4555: "tasteidentification"
4556: return
4557: goto4599
return ATTRIBUTEID_TINKERING;
4558: "tinkering"
4559: return
4560: goto4599
return ATTRIBUTEID_TRACKING;
4561: "tracking"
4562: return
4563: goto4599
return ATTRIBUTEID_VETERINARY;
4564: "veterinary"
4565: return
4566: goto4599
return ATTRIBUTEID_SWORDSMANSHIP;
4567: "swordsmanship"
4568: return
4569: goto4599
return ATTRIBUTEID_MACEFIGHTING;
4570: "macefighting"
4571: return
4572: goto4599
return ATTRIBUTEID_FENCING;
4573: "fencing"
4574: return
4575: goto4599
return ATTRIBUTEID_WRESTLING;
4576: "wrestling"
4577: return
4578: goto4599
return ATTRIBUTEID_LUMBERJACKING;
4579: "lumberjacking"
4580: return
4581: goto4599
return ATTRIBUTEID_MINING;
4582: "mining"
4583: return
4584: goto4599
return ATTRIBUTEID_MEDITATION;
4585: "meditation"
4586: return
4587: goto4599
return ATTRIBUTEID_STEALTH;
4588: "stealth"
4589: return
4590: goto4599
return ATTRIBUTEID_REMOVETRAP;
4591: "removetrap"
4592: return
4593: goto4599
return ATTRIBUTEID_NECROMANCY;
4594: "necromancy"
4595: return
4596: goto4599
return ATTRIBUTEID_CHIVALRY;
4597: "chivalry"
4598: return
var ret        := error;
4599: decl local #1
4600: error
4601: :=
4602: #
ret.+errortext := "No equivalent attributeid found for skillid " + skillid;
4603: local #1
4604: "errortext"
4605: .+
4606: "No equivalent attributeid found for skillid "
4607: local #0
4608: +
4609: := #
return ret;
4610: local #1
4611: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 307
function GetEffectiveSkill(who, skillid)
4612: pop param 'skillid'
4613: pop param 'who'
return GetAttribute(who, GetAttributeIdBySkillId(skillid));
4614: local #1
4615: local #0
4616: makelocal
4617: jmp userfunc @4444
4618: Func(8,2): GetAttribute
4619: return
e:/gry/pol/pvp097/scripts/include/myUtil.inc, Line 21
function ListRootItemsInContainer(container)
4620: pop param 'container'
var ret := { };
4621: decl local #1
4622: array
4623: :=
4624: #
foreach item in EnumerateItemsInContainer(container)
4625: local #0
4626: 0L
4627: Func(4,14): EnumerateItemsInContainer
4628: initforeach @4638
if ( item.container == container )
4629: local #2
4630: get member id 'container' (15)
4631: local #0
4632: ==
4633: if false goto 4638
ret.append(item);
4634: local #1
4635: local #2
4636: Call Method id append (#52, 1 params)
4637: #
4638: stepforeach @4629
4639: leave block(3)
return ret;
4640: local #1
4641: return
e:/gry/pol/pvp097/scripts/include/yesNo.inc, Line 64
function packPromptToArray(prompt)
4642: pop param 'prompt'
var theArray := array;
4643: decl local #1
4644: array
4645: :=
4646: #
var theString := prompt;
4647: decl local #2
4648: local #0
4649: :=
4650: #
var i;
4651: decl local #3
4652: #
for (i:=1; i<=MAX_YESNO_LINES; i:=i+1)
4653: local #3
4654: 1L
4655: :=
4656: #
4657: local #3
4658: 7L
4659: <=
4660: if false goto 4672
theArray[i] := " ";
4661: local #1
4662: local #3
4663: " "
4664: [] := (1) #
4665: local #3
4666: local #3
4667: 1L
4668: +
4669: :=
4670: #
4671: goto4657
i := 0;
4672: 0L
4673: local3 := 
while ((len(theString) > 0) && (i <= MAX_YESNO_LINES))
4674: local #2
4675: Func(0,4): Len
4676: 0L
4677: >
4678: local #3
4679: 7L
4680: <=
4681: &&
4682: if false goto 4695
i := i + 1;
4683: local #3
4684: 1L
4685: +
4686: local3 := 
theArray[i] := StripSubstring(theString, 40);
4687: local #1
4688: local #3
4689: local #2
4690: 40L
4691: makelocal
4692: jmp userfunc @4739
4693: [] := (1) #
4694: goto4674
return theArray;
4695: local #1
4696: return
e:/gry/pol/pvp097/scripts/include/yesNo.inc, Line 14
function SmallYesNo(me, prompt)
4697: pop param 'prompt'
4698: pop param 'me'
var layoutyn := array(
4699: decl local #2
4700: array
4701: "page 0"
4702: init{}
4703: "nodispose"
4704: init{}
4705: "gumppic 0 0 2070"
4706: init{}
4707: "button 30 75 2130 2129 1 0 1"
4708: init{}
4709: "button 90 75 2119 2120 1 0 0"
4710: init{}
4711: "text 40 30 502 0"
4712: init{}
4713: :=
4714: #
var datayn := array(  prompt  );
4715: decl local #3
4716: array
4717: local #0
4718: init{}
4719: :=
4720: #
var res := SendDialogGump( me, layoutyn, datayn );
4721: decl local #4
4722: local #1
4723: local #2
4724: local #3
4725: 0L
4726: 0L
4727: Func(4,5): SendDialogGump
4728: :=
4729: #
if (res)
4730: local #4
4731: if false goto 4735
return 1;
4732: 1L
4733: return
4734: goto4737
return 0;
4735: 0L
4736: return
4737: 0L
4738: return
e:/gry/pol/pvp097/scripts/include/yesNo.inc, Line 83
function StripSubstring(byref theString, theSize)
4739: pop param 'theSize'
4740: pop param byref 'theString'
var subString;
4741: decl local #2
4742: #
var newString;
4743: decl local #3
4744: #
var pos := theSize;
4745: decl local #4
4746: local #0
4747: :=
4748: #
if (len(theString) <= theSize)
4749: local #1
4750: Func(0,4): Len
4751: local #0
4752: <=
4753: if false goto 4760
subString := theString;
4754: local #1
4755: local2 := 
theString := "";
4756: ""
4757: local1 := 
return subString;
4758: local #2
4759: return
while ((theString[pos] != " ") && (pos > 1))
4760: local #1
4761: local #4
4762: [] 1
4763: " "
4764: <>
4765: local #4
4766: 1L
4767: >
4768: &&
4769: if false goto 4775
pos := pos - 1;
4770: local #4
4771: 1L
4772: -
4773: local4 := 
4774: goto4760
if (pos == 1)
4775: local #4
4776: 1L
4777: ==
4778: if false goto 4781
pos := theSize;
4779: local #0
4780: local4 := 
subString := theString[pos+1, len(theString)];
4781: local #1
4782: local #4
4783: 1L
4784: +
4785: local #1
4786: Func(0,4): Len
4787: [,]
4788: local2 := 
newString := theString[1,pos];
4789: local #1
4790: 1L
4791: local #4
4792: [,]
4793: local3 := 
theString := subString;
4794: local #2
4795: local1 := 
return newString; 
4796: local #3
4797: return
e:/gry/pol/pvp097/scripts/include/possess2.inc, Line 252
function SwapClothes (character, npc)
4798: pop param 'npc'
4799: pop param 'character'
if (!character.backpack)
4800: local #1
4801: get member id 'backpack' (41)
4802: if true goto 4818
var newbackpack := CreateItemAtLocation (5123, 1779, 0, UOBJ_BACKPACK, 1);
4803: decl local #0
4804: 5123L
4805: 1779L
4806: 0L
4807: 3701L
4808: 1L
4809: "britannia"
4810: Func(4,17): CreateItemAtLocation
4811: :=
4812: #
EquipItem (character, newbackpack);
4813: local #1
4814: local #2
4815: Func(4,15): EquipItem
4816: #
4817: leave block(1)
var hispack := npc.backpack;
4818: decl local #2
4819: local #0
4820: get member id 'backpack' (41)
4821: :=
4822: #
if (hispack)
4823: local #2
4824: if false goto 4835
MoveObjectToLocation (hispack, 5123, 1779, 0, hispack.realm, MOVEOBJECT_FORCELO
4825: local #2
4826: 5123L
4827: 1779L
4828: 0L
4829: local #2
4830: get member id 'realm' (113)
4831: 1073741824L
4832: Func(4,10): MoveObjectToLocation
4833: #
4834: goto4843
hispack := CreateItemAtLocation (5123, 1779, 0, UOBJ_BACKPACK, 1);
4835: 5123L
4836: 1779L
4837: 0L
4838: 3701L
4839: 1L
4840: "britannia"
4841: Func(4,17): CreateItemAtLocation
4842: local2 := 
foreach item in ListEquippedItems (character)
4843: local #1
4844: Func(4,18): ListEquippedItems
4845: initforeach @4859
MoveObjectToLocation (item, 5123, 1779, 0, item.realm, MOVEOBJECT_FORCELOCATION
4846: local #3
4847: 5123L
4848: 1779L
4849: 0L
4850: local #3
4851: get member id 'realm' (113)
4852: 1073741824L
4853: Func(4,10): MoveObjectToLocation
4854: #
EquipItem (npc, item);
4855: local #0
4856: local #3
4857: Func(4,15): EquipItem
4858: #
4859: stepforeach @4846
4860: leave block(3)
EquipItem (character, hispack);
4861: local #1
4862: local #2
4863: Func(4,15): EquipItem
4864: #
foreach item in ListRootItemsInContainer (npc.backpack)
4865: local #0
4866: get member id 'backpack' (41)
4867: makelocal
4868: jmp userfunc @4620
4869: initforeach @4880
if (item.newbie)
4870: local #3
4871: get member id 'newbie' (25)
4872: if false goto 4880
MoveItemToContainer (item, character.backpack);
4873: local #3
4874: local #1
4875: get member id 'backpack' (41)
4876: -1L
4877: -1L
4878: Func(4,16): MoveItemToContainer
4879: #
4880: stepforeach @4870
4881: leave block(3)
4882: 0L
4883: return