e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 11
var unique_items_created := {};
0: decl global #0
1: array
2: :=
3: #
var starteqp_cfg;
4: decl global #1
5: #
var template;
6: decl global #2
7: #
var magicspawnchance := 0;
8: decl global #3
9: 0L
10: :=
11: #
var magicadjustment  := 0;
12: decl global #4
13: 0L
14: :=
15: #
var making_starting_equipment := 0;
16: decl global #5
17: 0L
18: :=
19: #
var thecritter;
20: decl global #6
21: #
E:\gry\pol\pvp097\pkg\tools\gmtools\spawnTest.src, Line 10
var chestarray := {};
22: decl global #7
23: array
24: :=
25: #
E:\gry\pol\pvp097\pkg\tools\gmtools\spawnTest.src, Line 12
program spawntest(item)
26: get arg 'item'
var rng := GetObjProperty(item,"range");
27: decl local #1
28: local #0
29: "range"
30: Func(4,1): GetObjProperty
31: :=
32: #
var amt := GetObjProperty(item,"amount");
33: decl local #2
34: local #0
35: "amount"
36: Func(4,1): GetObjProperty
37: :=
38: #
var frq := GetObjProperty(item,"duration");
39: decl local #3
40: local #0
41: "duration"
42: Func(4,1): GetObjProperty
43: :=
44: #
foreach thing in ListItemsNearLocation(cint(item.x), cint(item.y), cint(item.z)
45: local #0
46: get member id 'x' (0)
47: Func(0,0): CInt
48: local #0
49: get member id 'y' (1)
50: Func(0,0): CInt
51: local #0
52: get member id 'z' (2)
53: Func(0,0): CInt
54: local #1
55: Func(0,0): CInt
56: "britannia"
57: Func(4,10): ListItemsNearLocation
58: initforeach @69
if(GetObjProperty(thing,"link") == item.serial)
59: local #4
60: "link"
61: Func(4,1): GetObjProperty
62: local #0
63: get member id 'serial' (6)
64: ==
65: if false goto 69
DestroyItem(thing);
66: local #4
67: Func(4,5): DestroyItem
68: #
69: stepforeach @59
70: leave block(3)
if((!amt) or (!frq))
71: local #2
72: !
73: local #3
74: !
75: ||
76: if false goto 97
print("Chest Spawner " + item.serial + " at: " + item.x + ", " + item.y + " is 
77: "Chest Spawner "
78: local #0
79: get member id 'serial' (6)
80: +
81: " at: "
82: +
83: local #0
84: get member id 'x' (0)
85: +
86: ", "
87: +
88: local #0
89: get member id 'y' (1)
90: +
91: " is improperly configured"
92: +
93: Func(1,0): Print
94: #
return;
95: ""
96: progend
var chest, current, thechest, newamt;
97: decl local #4
98: #
99: decl local #5
100: #
101: decl local #6
102: #
103: decl local #7
104: #
CreateTreasureChests(item, amt);
105: local #0
106: local #2
107: makelocal
108: jmp userfunc @184
109: #
foreach thing in chestarray
110: global #7
111: initforeach @116
thing.graphic := thechest.objtype;
112: local #8
113: local #6
114: get member id 'objtype' (4)
115: set member id 'graphic' (5) #
116: stepforeach @112
117: leave block(3)
while(item)
118: local #0
119: if false goto 147
sleep(frq);
120: local #3
121: Func(3,2): Sleep
122: #
CleanArray();
123: makelocal
124: jmp userfunc @149
125: #
current := len(chestarray);
126: global #7
127: Func(0,5): Len
128: local5 := 
newamt := CInt(amt - current);
129: local #2
130: local #5
131: -
132: Func(0,0): CInt
133: local7 := 
if(newamt > 0)
134: local #7
135: 0L
136: >
137: if false goto 143
CreateTreasureChests(item, newamt);
138: local #0
139: local #7
140: makelocal
141: jmp userfunc @184
142: #
sleep(frq);
143: local #3
144: Func(3,2): Sleep
145: #
146: goto118
147: leave block(8)
148: progend
E:\gry\pol\pvp097\pkg\tools\gmtools\spawnTest.src, Line 43
function cleanarray()
var newarray := {};
149: decl local #0
150: array
151: :=
152: #
foreach chest in chestarray
153: global #7
154: initforeach @178
if((chest.locked == 0) || (chest.usescript != ":tinkering:tinkerTraps") || (!ch
155: local #1
156: get member id 'locked' (70)
157: 0L
158: ==
159: local #1
160: get member id 'usescript' (16)
161: ":tinkering:tinkerTraps"
162: <>
163: ||
164: local #1
165: !
166: ||
167: if false goto 172
DestroyItem(chest);
168: local #1
169: Func(4,5): DestroyItem
170: #
171: goto178
elseif(chest)
172: local #1
173: if false goto 178
newarray.append(chest);
174: local #0
175: local #1
176: Call Method id append (#52, 1 params)
177: #
178: stepforeach @155
179: leave block(3)
chestarray := newarray;
180: local #0
181: global7 := 
182: 0L
183: return
E:\gry\pol\pvp097\pkg\tools\gmtools\spawnTest.src, Line 54
function CreateTreasureChests(item, amt)
184: pop param 'amt'
185: pop param 'item'
var lvl := GetObjProperty(item,"level");
186: decl local #2
187: local #1
188: "level"
189: Func(4,1): GetObjProperty
190: :=
191: #
var rng := GetObjProperty(item,"range");
192: decl local #3
193: local #1
194: "range"
195: Func(4,1): GetObjProperty
196: :=
197: #
var newx;
198: decl local #4
199: #
var newy;
200: decl local #5
201: #
var newz;
202: decl local #6
203: #
if(rng > 10)
204: local #3
205: 10L
206: >
207: if false goto 210
rng := 10;
208: 10L
209: local3 := 
var checker;
210: decl local #7
211: #
var total := 0;
212: decl local #8
213: 0L
214: :=
215: #
var type, gfx, lootgroup, chest, lockid, strength, traptype;
216: decl local #9
217: #
218: decl local #10
219: #
220: decl local #11
221: #
222: decl local #12
223: #
224: decl local #13
225: #
226: decl local #14
227: #
228: decl local #15
229: #
while(total < amt)
230: local #8
231: local #0
232: <
233: if false goto 445
checker := 0;
234: 0L
235: local7 := 
while((checker == 0) && (item))
236: local #7
237: 0L
238: ==
239: local #1
240: &&
241: if false goto 308
newx := cint(item.x + RandomInt(rng) - RandomInt(rng));
242: local #1
243: get member id 'x' (0)
244: local #3
245: Func(2,1): RandomInt
246: +
247: local #3
248: Func(2,1): RandomInt
249: -
250: Func(0,0): CInt
251: local4 := 
newy := cint(item.y + RandomInt(rng) - RandomInt(rng));
252: local #1
253: get member id 'y' (1)
254: local #3
255: Func(2,1): RandomInt
256: +
257: local #3
258: Func(2,1): RandomInt
259: -
260: Func(0,0): CInt
261: local5 := 
newz:= cint(GetWorldHeight(newx, newy));
262: local #4
263: local #5
264: "britannia"
265: Func(4,11): GetWorldHeight
266: Func(0,0): CInt
267: local6 := 
if((cint(item.x) == newx) && (cint(item.y) == newy))
268: local #1
269: get member id 'x' (0)
270: Func(0,0): CInt
271: local #4
272: ==
273: local #1
274: get member id 'y' (1)
275: Func(0,0): CInt
276: local #5
277: ==
278: &&
279: if false goto 283
checker := 0;
280: 0L
281: local7 := 
282: goto304
elseif(CheckLosAt(item, newx, newy, newz))
283: local #1
284: local #4
285: local #5
286: local #6
287: Func(4,12): CheckLosAt
288: if false goto 292
checker := 1;
289: 1L
290: local7 := 
291: goto304
elseif(len(ListItemsNearLocation(newx, newy, newz, 0)) > 0)
292: local #4
293: local #5
294: local #6
295: 0L
296: "britannia"
297: Func(4,10): ListItemsNearLocation
298: Func(0,5): Len
299: 0L
300: >
301: if false goto 304
checker := 0;
302: 0L
303: local7 := 
sleepms(10);
304: 10L
305: Func(3,3): Sleepms
306: #
307: goto236
type := RandomInt(4)+1;
308: 4L
309: Func(2,1): RandomInt
310: 1L
311: +
312: local9 := 
case(type)
313: local #9
314: casejmp
	1: @315
	2: @318
	3: @321
	4: @324
	5: @327
	default: @329
gfx := 3650;
315: 3650L
316: local10 := 
317: goto329
gfx := 3651;
318: 3651L
319: local10 := 
320: goto329
gfx := 3703;
321: 3703L
322: local10 := 
323: goto329
gfx := 3648;
324: 3648L
325: local10 := 
326: goto329
gfx := 3708;
327: 3708L
328: local10 := 
chest := CreateItemAtLocation(newx, newy, newz, gfx, 1);
329: local #4
330: local #5
331: local #6
332: local #10
333: 1L
334: "britannia"
335: Func(4,13): CreateItemAtLocation
336: local12 := 
SetObjProperty(chest,"link", item.serial);
337: local #12
338: "link"
339: local #1
340: get member id 'serial' (6)
341: Func(4,0): SetObjProperty
342: #
chest.locked :=  1;
343: local #12
344: 1L
345: set member id 'locked' (70) #
chest.movable := 0;
346: local #12
347: 0L
348: set member id 'movable' (20) #
chest.usescript := ":tinkering:tinkerTraps";
349: local #12
350: ":tinkering:tinkerTraps"
351: set member id 'usescript' (16) #
lockid := AllocLockId();
352: makelocal
353: jmp userfunc @578
354: local13 := 
SetObjProperty(chest, "lockid", lockid);
355: local #12
356: "lockid"
357: local #13
358: Func(4,0): SetObjProperty
359: #
SetObjProperty(chest, "level", lvl);
360: local #12
361: "level"
362: local #2
363: Func(4,0): SetObjProperty
364: #
strength := 0;
365: 0L
366: local14 := 
case(lvl)
367: local #2
368: casejmp
	1: @369
	2: @374
	3: @379
	4: @384
	5: @389
	default: @393
lootgroup := 69;    strength :=  20;
369: 69L
370: local11 := 
strength :=  20;
371: 20L
372: local14 := 
373: goto393
lootgroup := 70;    strength :=  40;
374: 70L
375: local11 := 
strength :=  40;
376: 40L
377: local14 := 
378: goto393
lootgroup := 71;    strength :=  60;
379: 71L
380: local11 := 
strength :=  60;
381: 60L
382: local14 := 
383: goto393
lootgroup := 72;    strength :=  80;
384: 72L
385: local11 := 
strength :=  80;
386: 80L
387: local14 := 
388: goto393
lootgroup := 73;    strength := 100;
389: 73L
390: local11 := 
strength := 100;
391: 100L
392: local14 := 
traptype := RandomInt(10)+1;
393: 10L
394: Func(2,1): RandomInt
395: 1L
396: +
397: local15 := 
if(traptype > 3)
398: local #15
399: 3L
400: >
401: if false goto 405
traptype := 3;
402: 3L
403: local15 := 
404: goto407
traptype := 2;
405: 2L
406: local15 := 
SetObjProperty(chest, "trap_type", (CStr(traptype)));
407: local #12
408: "trap_type"
409: local #15
410: Func(0,4): CStr
411: Func(4,0): SetObjProperty
412: #
SetObjProperty(chest, "LockPickDiff", (strength - RandomInt(20)));
413: local #12
414: "LockPickDiff"
415: local #14
416: 20L
417: Func(2,1): RandomInt
418: -
419: Func(4,0): SetObjProperty
420: #
SetObjProperty(chest, "trap_strength", strength);
421: local #12
422: "trap_strength"
423: local #14
424: Func(4,0): SetObjProperty
425: #
makeloot(chest, lootgroup);
426: local #12
427: local #11
428: makelocal
429: jmp userfunc @447
430: #
CreateFromGroup(chest, lootgroup);
431: local #12
432: local #11
433: makelocal
434: jmp userfunc @595
435: #
chestarray.append(chest); 
436: global #7
437: local #12
438: Call Method id append (#52, 1 params)
439: #
total := total + 1;
440: local #8
441: 1L
442: +
443: local8 := 
444: goto230
445: 0L
446: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 20
function MakeLoot(corpse, lootgroup)
447: pop param 'lootgroup'
448: pop param 'corpse'
var npcdesc := ReadConfigFile("::npcdesc");
449: decl local #2
450: "::npcdesc"
451: Func(6,0): ReadConfigFile
452: :=
453: #
var elem := FindConfigElem(npcdesc, corpse.npctemplate);
454: decl local #3
455: local #2
456: local #1
457: get member id 'npctemplate' (62)
458: Func(6,1): FindConfigElem
459: :=
460: #
var mprop, madj;
461: decl local #4
462: #
463: decl local #5
464: #
if(elem)
465: local #3
466: if false goto 478
mprop := CInt(GetConfigInt(elem, "Magicitemchance"));
467: local #3
468: "Magicitemchance"
469: Func(6,2): GetConfigInt
470: Func(0,0): CInt
471: local4 := 
madj  := CInt(GetConfigInt(elem, "MagicAdjustment"));
472: local #3
473: "MagicAdjustment"
474: Func(6,2): GetConfigInt
475: Func(0,0): CInt
476: local5 := 
477: goto507
mprop := 1;
478: 1L
479: local4 := 
if(corpse.objtype == 0x9e40)
480: local #1
481: get member id 'objtype' (4)
482: 40512L
483: ==
484: if false goto 505
case(CInt(GetObjProperty(corpse,"level")))
485: local #1
486: "level"
487: Func(4,1): GetObjProperty
488: Func(0,0): CInt
489: casejmp
	1: @490
	2: @493
	3: @496
	4: @499
	5: @502
	default: @504
madj := 0;
490: 0L
491: local5 := 
492: goto504
madj := 2;
493: 2L
494: local5 := 
495: goto504
madj := 4;
496: 4L
497: local5 := 
498: goto504
madj := 6;
499: 6L
500: local5 := 
501: goto504
madj := 8;
502: 8L
503: local5 := 
504: goto507
magicadjustment := 0;
505: 0L
506: global4 := 
if(GetHp(corpse))
507: local #1
508: makelocal
509: jmp userfunc @1269
510: if false goto 524
foreach thing in ListEquippedItems(corpse)
511: local #1
512: Func(4,2): ListEquippedItems
513: initforeach @522
if(thing.objtype == 0xe75)
514: local #6
515: get member id 'objtype' (4)
516: 3701L
517: ==
518: if false goto 522
corpse := thing;
519: local #6
520: local1 := 
break;
521: goto523
522: stepforeach @514
523: leave block(3)
thecritter := corpse;
524: local #1
525: global6 := 
if(mprop)
526: local #4
527: if false goto 531
magicspawnchance := 1;
528: 1L
529: global3 := 
530: goto546
if((corpse.objtype == 0x9e40) || (corpse.objtype == 0xe40))
531: local #1
532: get member id 'objtype' (4)
533: 40512L
534: ==
535: local #1
536: get member id 'objtype' (4)
537: 3648L
538: ==
539: ||
540: if false goto 544
magicspawnchance := 1;
541: 1L
542: global3 := 
543: goto546
magicspawnchance := 0;
544: 0L
545: global3 := 
magicadjustment  := madj;
546: local #5
547: global4 := 
starteqp_cfg := ReadConfigFile("::nlootgroup");
548: "::nlootgroup"
549: Func(6,0): ReadConfigFile
550: global1 := 
if(lootgroup)
551: local #0
552: if false goto 559
CreateFromGroup(corpse, lootgroup);
553: local #1
554: local #0
555: makelocal
556: jmp userfunc @595
557: #
558: goto576
var lootgroups := GetConfigStringArray(elem, "lootgroup");
559: decl local #0
560: local #3
561: "lootgroup"
562: Func(6,3): GetConfigStringArray
563: :=
564: #
foreach str in lootgroups
565: local #6
566: initforeach @573
CreateFromGroup(corpse, CInt(str));
567: local #1
568: local #7
569: Func(0,0): CInt
570: makelocal
571: jmp userfunc @595
572: #
573: stepforeach @567
574: leave block(3)
575: leave block(1)
576: 0L
577: return
e:/gry/pol/pvp097/scripts/util/key.inc, Line 8
function AllocLockId()
var lockid := GetGlobalProperty( "nextlockid" );
578: decl local #0
579: "nextlockid"
580: Func(4,7): GetGlobalProperty
581: :=
582: #
if (!lockid)
583: local #0
584: if true goto 587
lockid := 1;
585: 1L
586: local0 := 
SetGlobalProperty( "nextlockid", lockid+1 );
587: "nextlockid"
588: local #0
589: 1L
590: +
591: Func(4,8): SetGlobalProperty
592: #
return lockid;
593: local #0
594: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 81
function CreateFromGroup(who, group)
595: pop param 'group'
596: pop param 'who'
if(making_starting_equipment != 1)
597: global #5
598: 1L
599: <>
600: if false goto 604
starteqp_cfg := ReadConfigFile("::nlootgroup");
601: "::nlootgroup"
602: Func(6,0): ReadConfigFile
603: global1 := 
var elem := starteqp_cfg[group];
604: decl local #2
605: global #1
606: local #0
607: [] 1
608: :=
609: #
foreach str in GetConfigStringArray(elem, "Stack")
610: local #2
611: "Stack"
612: Func(6,3): GetConfigStringArray
613: initforeach @619
CreateFromStackString(who, str);
614: local #1
615: local #3
616: makelocal
617: jmp userfunc @1082
618: #
619: stepforeach @614
620: leave block(3)
foreach str in GetConfigStringArray(elem, "Item")
621: local #2
622: "Item"
623: Func(6,3): GetConfigStringArray
624: initforeach @630
CreateFromItemString(who, str);
625: local #1
626: local #3
627: makelocal
628: jmp userfunc @667
629: #
630: stepforeach @625
631: leave block(3)
foreach str in GetConfigStringArray(elem, "Random")
632: local #2
633: "Random"
634: Func(6,3): GetConfigStringArray
635: initforeach @641
CreateFromRandomString(who, str);
636: local #1
637: local #3
638: makelocal
639: jmp userfunc @945
640: #
641: stepforeach @636
642: leave block(3)
foreach str in GetConfigStringArray(elem, "Group")
643: local #2
644: "Group"
645: Func(6,3): GetConfigStringArray
646: initforeach @652
CreateFromGroup(who, str);
647: local #1
648: local #3
649: makelocal
650: jmp userfunc @595
651: #
652: stepforeach @647
653: leave block(3)
foreach str in GetConfigStringArray(elem, "Unique")
654: local #2
655: "Unique"
656: Func(6,3): GetConfigStringArray
657: initforeach @663
CreateFromUniqueString(who, str);
658: local #1
659: local #3
660: makelocal
661: jmp userfunc @1207
662: #
663: stepforeach @658
664: leave block(3)
665: 0L
666: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 108
function CreateFromItemString(who, str)
667: pop param 'str'
668: pop param 'who'
var params := SplitWords(str);
669: decl local #2
670: local #0
671: " "
672: Func(0,3): SplitWords
673: :=
674: #
var count, objname, color, chance;
675: decl local #3
676: #
677: decl local #4
678: #
679: decl local #5
680: #
681: decl local #6
682: #
var couleurs := ReadConfigFile("::colors");
683: decl local #7
684: "::colors"
685: Func(6,0): ReadConfigFile
686: :=
687: #
count := RandomDiceRoll(CStr(params[1]));
688: local #2
689: 1L
690: [] 1
691: Func(0,4): CStr
692: Func(2,0): RandomDiceRoll
693: local3 := 
params[1] := params[2];
694: local #2
695: 1L
696: local #2
697: 2L
698: [] 1
699: [] := (1) #
params[2] := params[3];
700: local #2
701: 2L
702: local #2
703: 3L
704: [] 1
705: [] := (1) #
params[3] := params[4];
706: local #2
707: 3L
708: local #2
709: 4L
710: [] 1
711: [] := (1) #
if (!count)
712: local #3
713: if true goto 716
count := 1;
714: 1L
715: local3 := 
objname := params[1];
716: local #2
717: 1L
718: [] 1
719: local4 := 
if(CInt(params[2]))
720: local #2
721: 2L
722: [] 1
723: Func(0,0): CInt
724: if false goto 731
color := CInt(params[2]);
725: local #2
726: 2L
727: [] 1
728: Func(0,0): CInt
729: local5 := 
730: goto824
elseif (params[2])
731: local #2
732: 2L
733: [] 1
734: if false goto 824
color := 0;
735: 0L
736: local5 := 
var colorg := FindConfigElem(couleurs, params[2]);
737: decl local #0
738: local #7
739: local #2
740: 2L
741: [] 1
742: Func(6,1): FindConfigElem
743: :=
744: #
if(colorg)
745: local #8
746: if false goto 823
var str := GetConfigStringArray(colorg, "color");
747: decl local #0
748: local #8
749: "color"
750: Func(6,3): GetConfigStringArray
751: :=
752: #
var ar := {};
753: decl local #1
754: array
755: :=
756: #
var rndint := RandomInt(len(str)) + 1;
757: decl local #2
758: local #9
759: Func(0,5): Len
760: Func(2,1): RandomInt
761: 1L
762: +
763: :=
764: #
ar := SplitWords(str[rndint]);
765: local #9
766: local #11
767: [] 1
768: " "
769: Func(0,3): SplitWords
770: local10 := 
if(len(ar) > 1)
771: local #10
772: Func(0,5): Len
773: 1L
774: >
775: if false goto 807
if(CInt(ar[2]) > 0)
776: local #10
777: 2L
778: [] 1
779: Func(0,0): CInt
780: 0L
781: >
782: if false goto 797
color := RandomInt(CInt(ar[2]) - CInt(ar[1]))+1;
783: local #10
784: 2L
785: [] 1
786: Func(0,0): CInt
787: local #10
788: 1L
789: [] 1
790: Func(0,0): CInt
791: -
792: Func(2,1): RandomInt
793: 1L
794: +
795: local5 := 
796: goto806
color := CInt(str[RandomInt(len(str))+1]);
797: local #9
798: local #9
799: Func(0,5): Len
800: Func(2,1): RandomInt
801: 1L
802: +
803: [] 1
804: Func(0,0): CInt
805: local5 := 
806: goto816
color := CInt(str[RandomInt(len(str))+1]);
807: local #9
808: local #9
809: Func(0,5): Len
810: Func(2,1): RandomInt
811: 1L
812: +
813: [] 1
814: Func(0,0): CInt
815: local5 := 
if(color == 1)
816: local #5
817: 1L
818: ==
819: if false goto 822
color := 0;
820: 0L
821: local5 := 
822: leave block(3)
823: leave block(1)
if (!color)
824: local #5
825: if true goto 828
color := 0;
826: 0L
827: local5 := 
if(CInt(params[3]))
828: local #2
829: 3L
830: [] 1
831: Func(0,0): CInt
832: if false goto 839
chance := CInt(params[3]);
833: local #2
834: 3L
835: [] 1
836: Func(0,0): CInt
837: local6 := 
838: goto841
chance := 100;
839: 100L
840: local6 := 
if(CInt(RandomInt(100)+1) <= CInt(chance))
841: 100L
842: Func(2,1): RandomInt
843: 1L
844: +
845: Func(0,0): CInt
846: local #6
847: Func(0,0): CInt
848: <=
849: if false goto 943
var i, canbemagic;
850: decl local #0
851: #
852: decl local #1
853: #
for(i:=1; i<=CInt(count); i:=i+1)
854: local #8
855: 1L
856: :=
857: #
858: local #8
859: local #3
860: Func(0,0): CInt
861: <=
862: if false goto 942
if (CInt(objname))
863: local #4
864: Func(0,0): CInt
865: if false goto 869
objname := CInt(objname);
866: local #4
867: Func(0,0): CInt
868: local4 := 
var item := CreateItemInContainer(who, objname);
869: decl local #0
870: local #1
871: local #4
872: 1L
873: Func(4,3): CreateItemInContainer
874: :=
875: #
item.color := color;
876: local #10
877: local #5
878: set member id 'color' (7) #
if(making_starting_equipment)
879: global #5
880: if false goto 886
item.newbie := 1;
881: local #10
882: 1L
883: set member id 'newbie' (25) #
continue;
884: leave block(1)
885: goto935
if( (item.graphic in array( 0xdf2, 0xdf3, 0xdf4, 0xdf5, 0x13f9 )) && (magicspaw
886: local #10
887: get member id 'graphic' (5)
888: array
889: 3570L
890: init{}
891: 3571L
892: init{}
893: 3572L
894: init{}
895: 3573L
896: init{}
897: 5113L
898: init{}
899: in
900: global #3
901: 1L
902: ==
903: &&
904: if false goto 910
ProcessWand(item);
905: local #10
906: makelocal
907: jmp userfunc @1343
908: #
909: goto934
if(magicspawnchance == 1)
910: global #3
911: 1L
912: ==
913: if false goto 934
canbemagic := MagicAllowedandType(objname);
914: local #4
915: makelocal
916: jmp userfunc @1277
917: local9 := 
case(canbemagic)
918: local #9
919: casejmp
	1: @920
	2: @925
	3: @930
	default: @934
WeaponTable(item);
920: local #10
921: makelocal
922: jmp userfunc @1511
923: #
924: goto934
ArmorTable(item);
925: local #10
926: makelocal
927: jmp userfunc @1939
928: #
929: goto934
ClothTable(item);
930: local #10
931: makelocal
932: jmp userfunc @2025
933: #
934: leave block(1)
935: local #8
936: local #8
937: 1L
938: +
939: :=
940: #
941: goto858
942: leave block(2)
943: 0L
944: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 355
function CreateFromRandomString(who, desc)
945: pop param 'desc'
946: pop param 'who'
var params := SplitWords(desc);
947: decl local #2
948: local #0
949: " "
950: Func(0,3): SplitWords
951: :=
952: #
var amt := Cint(params[1]);
953: decl local #3
954: local #2
955: 1L
956: [] 1
957: Func(0,0): CInt
958: :=
959: #
var count := 1;
960: decl local #4
961: 1L
962: :=
963: #
if(amt != 1)
964: local #3
965: 1L
966: <>
967: if false goto 974
count := RandomDiceRoll(Cstr(amt + 1));
968: local #3
969: 1L
970: +
971: Func(0,4): CStr
972: Func(2,0): RandomDiceRoll
973: local4 := 
var group := params[2];
974: decl local #5
975: local #2
976: 2L
977: [] 1
978: :=
979: #
var chance := params[4];
980: decl local #6
981: local #2
982: 4L
983: [] 1
984: :=
985: #
var elem := FindConfigElem(starteqp_cfg, group);
986: decl local #7
987: global #1
988: local #5
989: Func(6,1): FindConfigElem
990: :=
991: #
if(elem == error)
992: local #7
993: error
994: ==
995: if false goto 1003
syslog("Unable to find group " + group);
996: "Unable to find group "
997: local #5
998: +
999: Func(3,1): SysLog
1000: #
return;
1001: ""
1002: return
var items := GetConfigStringArray(elem, "Item");
1003: decl local #8
1004: local #7
1005: "Item"
1006: Func(6,3): GetConfigStringArray
1007: :=
1008: #
if(items == error)
1009: local #8
1010: error
1011: ==
1012: if false goto 1022
syslog("Group " + group + " does not contain items!");
1013: "Group "
1014: local #5
1015: +
1016: " does not contain items!"
1017: +
1018: Func(3,1): SysLog
1019: #
return;
1020: ""
1021: return
if(!chance)
1022: local #6
1023: if true goto 1026
chance := 100;
1024: 100L
1025: local6 := 
var rand := RandomInt(99)+1;
1026: decl local #9
1027: 99L
1028: Func(2,1): RandomInt
1029: 1L
1030: +
1031: :=
1032: #
if(CInt(rand) <= CInt(chance))
1033: local #9
1034: Func(0,0): CInt
1035: local #6
1036: Func(0,0): CInt
1037: <=
1038: if false goto 1080
if(count > len(items))
1039: local #4
1040: local #8
1041: Func(0,5): Len
1042: >
1043: if false goto 1047
count := len(items);
1044: local #8
1045: Func(0,5): Len
1046: local4 := 
while(count)
1047: local #4
1048: if false goto 1080
var n := RandomInt(len(items)) + 1;
1049: decl local #0
1050: local #8
1051: Func(0,5): Len
1052: Func(2,1): RandomInt
1053: 1L
1054: +
1055: :=
1056: #
if(items[n])
1057: local #8
1058: local #10
1059: [] 1
1060: if false goto 1078
CreateFromItemString(who, items[n]);
1061: local #1
1062: local #8
1063: local #10
1064: [] 1
1065: makelocal
1066: jmp userfunc @667
1067: #
if(making_starting_equipment)
1068: global #5
1069: if false goto 1074
items[n] := "";
1070: local #8
1071: local #10
1072: ""
1073: [] := (1) #
count := count - 1;
1074: local #4
1075: 1L
1076: -
1077: local4 := 
1078: leave block(1)
1079: goto1047
1080: 0L
1081: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 415
function CreateFromStackString(who, str)
1082: pop param 'str'
1083: pop param 'who'
var params := SplitWords(str);
1084: decl local #2
1085: local #0
1086: " "
1087: Func(0,3): SplitWords
1088: :=
1089: #
var count;
1090: decl local #3
1091: #
var objname;
1092: decl local #4
1093: #
var color;
1094: decl local #5
1095: #
var chance;
1096: decl local #6
1097: #
count := RandomDiceRoll(CStr(params[1]));
1098: local #2
1099: 1L
1100: [] 1
1101: Func(0,4): CStr
1102: Func(2,0): RandomDiceRoll
1103: local3 := 
params[1] := params[2];
1104: local #2
1105: 1L
1106: local #2
1107: 2L
1108: [] 1
1109: [] := (1) #
params[2] := params[3];
1110: local #2
1111: 2L
1112: local #2
1113: 3L
1114: [] 1
1115: [] := (1) #
params[3] := params[4];
1116: local #2
1117: 3L
1118: local #2
1119: 4L
1120: [] 1
1121: [] := (1) #
if (!count)
1122: local #3
1123: if true goto 1126
count := 1;
1124: 1L
1125: local3 := 
objname := params[1];
1126: local #2
1127: 1L
1128: [] 1
1129: local4 := 
if(CInt(params[2]))
1130: local #2
1131: 2L
1132: [] 1
1133: Func(0,0): CInt
1134: if false goto 1141
color := CInt(params[2]);
1135: local #2
1136: 2L
1137: [] 1
1138: Func(0,0): CInt
1139: local5 := 
1140: goto1143
color := 0;
1141: 0L
1142: local5 := 
if (CInt(params[3]))
1143: local #2
1144: 3L
1145: [] 1
1146: Func(0,0): CInt
1147: if false goto 1154
chance := CInt(params[3]);
1148: local #2
1149: 3L
1150: [] 1
1151: Func(0,0): CInt
1152: local6 := 
1153: goto1156
chance := 100;
1154: 100L
1155: local6 := 
var rand := RandomInt(100)+1;
1156: decl local #7
1157: 100L
1158: Func(2,1): RandomInt
1159: 1L
1160: +
1161: :=
1162: #
if(CInt(rand) <= CInt(chance))
1163: local #7
1164: Func(0,0): CInt
1165: local #6
1166: Func(0,0): CInt
1167: <=
1168: if false goto 1205
if (CInt(objname))
1169: local #4
1170: Func(0,0): CInt
1171: if false goto 1175
objname := CInt(objname);
1172: local #4
1173: Func(0,0): CInt
1174: local4 := 
var item := CreateItemInContainer(who, objname, count);
1175: decl local #0
1176: local #1
1177: local #4
1178: local #3
1179: Func(4,3): CreateItemInContainer
1180: :=
1181: #
if(!item)
1182: local #8
1183: if true goto 1196
syslog("Unable to create " + objname + " on " + who.name + ".");
1184: "Unable to create "
1185: local #4
1186: +
1187: " on "
1188: +
1189: local #1
1190: get member id 'name' (3)
1191: +
1192: "."
1193: +
1194: Func(3,1): SysLog
1195: #
item.color := color;
1196: local #8
1197: local #5
1198: set member id 'color' (7) #
if(making_starting_equipment)
1199: global #5
1200: if false goto 1204
item.newbie := 1;
1201: local #8
1202: 1L
1203: set member id 'newbie' (25) #
1204: leave block(1)
1205: 0L
1206: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 395
function CreateFromUniqueString(who, str)
1207: pop param 'str'
1208: pop param 'who'
var params := SplitWords(str);
1209: decl local #2
1210: local #0
1211: " "
1212: Func(0,3): SplitWords
1213: :=
1214: #
var objtype;
1215: decl local #3
1216: #
if (CInt(params[1]))
1217: local #2
1218: 1L
1219: [] 1
1220: Func(0,0): CInt
1221: if false goto 1227
objtype := params[1];
1222: local #2
1223: 1L
1224: [] 1
1225: local3 := 
1226: goto1232
objtype := GetObjtypeByName(params[1]);
1227: local #2
1228: 1L
1229: [] 1
1230: Func(4,6): GetObjtypeByName
1231: local3 := 
if(!objtype)
1232: local #3
1233: if true goto 1243
syslog("Don't know what a " + str + " is");
1234: "Don't know what a "
1235: local #0
1236: +
1237: " is"
1238: +
1239: Func(3,1): SysLog
1240: #
return;
1241: ""
1242: return
if(objtype in unique_items_created)
1243: local #3
1244: global #0
1245: in
1246: if false goto 1249
return;
1247: ""
1248: return
unique_items_created[len(unique_items_created) + 1] := objtype;
1249: global #0
1250: global #0
1251: Func(0,5): Len
1252: 1L
1253: +
1254: local #3
1255: [] := (1) #
var newstr := "1 " + str;
1256: decl local #4
1257: "1 "
1258: local #0
1259: +
1260: :=
1261: #
CreateFromItemString(who, newstr);
1262: local #1
1263: local #4
1264: makelocal
1265: jmp userfunc @667
1266: #
1267: 0L
1268: return
e:/gry/pol/pvp097/scripts/include/attributes.inc, Line 324
function GetHp(who)
1269: pop param 'who'
return Cint(GetVital(who, VITALID_LIFE)/ 100);
1270: local #0
1271: "Life"
1272: Func(8,1): GetVital
1273: 100L
1274: /
1275: Func(0,0): CInt
1276: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 455
function MagicAllowedandType(objname)
1277: pop param 'objname'
var magicweapcfg := ReadConfigFile(":combat:magicweaps");
1278: decl local #1
1279: ":combat:magicweaps"
1280: Func(6,0): ReadConfigFile
1281: :=
1282: #
var magicarmorcfg := ReadConfigFile(":combat:magicarmor");
1283: decl local #2
1284: ":combat:magicarmor"
1285: Func(6,0): ReadConfigFile
1286: :=
1287: #
var magicclothcfg := ReadConfigFile(":combat:magiccloth");
1288: decl local #3
1289: ":combat:magiccloth"
1290: Func(6,0): ReadConfigFile
1291: :=
1292: #
var elem1 := FindConfigElem(magicweapcfg, "1");
1293: decl local #4
1294: local #1
1295: "1"
1296: Func(6,1): FindConfigElem
1297: :=
1298: #
var data1 := GetConfigInt(elem1, objname);
1299: decl local #5
1300: local #4
1301: local #0
1302: Func(6,2): GetConfigInt
1303: :=
1304: #
if(data1)
1305: local #5
1306: if false goto 1309
return 1;
1307: 1L
1308: return
var elem2 := FindConfigElem(magicarmorcfg, "1");
1309: decl local #6
1310: local #2
1311: "1"
1312: Func(6,1): FindConfigElem
1313: :=
1314: #
var data2 := GetConfigInt(elem2, objname);
1315: decl local #7
1316: local #6
1317: local #0
1318: Func(6,2): GetConfigInt
1319: :=
1320: #
if(data2)
1321: local #7
1322: if false goto 1325
return 2;
1323: 2L
1324: return
var elem3 := FindConfigElem(magicclothcfg, "1");
1325: decl local #8
1326: local #3
1327: "1"
1328: Func(6,1): FindConfigElem
1329: :=
1330: #
var data3 := GetConfigInt(elem3, objname);
1331: decl local #9
1332: local #8
1333: local #0
1334: Func(6,2): GetConfigInt
1335: :=
1336: #
if(data3)
1337: local #9
1338: if false goto 1341
return 3;
1339: 3L
1340: return
return 0;
1341: 0L
1342: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 180
function ProcessWand(item)
1343: pop param 'item'
var amt;
1344: decl local #1
1345: #
case(RandomInt(10) + 1)
1346: 10L
1347: Func(2,1): RandomInt
1348: 1L
1349: +
1350: casejmp
	1: @1351
	2: @1364
	3: @1377
	4: @1390
	5: @1403
	6: @1416
	7: @1429
	8: @1442
	9: @1455
	10: @1468
	default: @1480
amt :=  15;   SetObjProperty(item, "SpellId",  1);   SetObjProperty(item, "dama
1351: 15L
1352: local1 := 
SetObjProperty(item, "SpellId",  1);   SetObjProperty(item, "damagemod", "of cl
1353: local #0
1354: "SpellId"
1355: 1L
1356: Func(4,0): SetObjProperty
1357: #
SetObjProperty(item, "damagemod", "of clumsiness");
1358: local #0
1359: "damagemod"
1360: "of clumsiness"
1361: Func(4,0): SetObjProperty
1362: #
1363: goto1480
amt :=  15;   SetObjProperty(item, "SpellId",  3);   SetObjProperty(item, "dama
1364: 15L
1365: local1 := 
SetObjProperty(item, "SpellId",  3);   SetObjProperty(item, "damagemod", "of fe
1366: local #0
1367: "SpellId"
1368: 3L
1369: Func(4,0): SetObjProperty
1370: #
SetObjProperty(item, "damagemod", "of feeblemindedness");
1371: local #0
1372: "damagemod"
1373: "of feeblemindedness"
1374: Func(4,0): SetObjProperty
1375: #
1376: goto1480
amt :=  15;   SetObjProperty(item, "SpellId",  4);   SetObjProperty(item, "dama
1377: 15L
1378: local1 := 
SetObjProperty(item, "SpellId",  4);   SetObjProperty(item, "damagemod", "of he
1379: local #0
1380: "SpellId"
1381: 4L
1382: Func(4,0): SetObjProperty
1383: #
SetObjProperty(item, "damagemod", "of healing");
1384: local #0
1385: "damagemod"
1386: "of healing"
1387: Func(4,0): SetObjProperty
1388: #
1389: goto1480
amt :=  15;   SetObjProperty(item, "SpellId",  8);   SetObjProperty(item, "dama
1390: 15L
1391: local1 := 
SetObjProperty(item, "SpellId",  8);   SetObjProperty(item, "damagemod", "of we
1392: local #0
1393: "SpellId"
1394: 8L
1395: Func(4,0): SetObjProperty
1396: #
SetObjProperty(item, "damagemod", "of weakness");
1397: local #0
1398: "damagemod"
1399: "of weakness"
1400: Func(4,0): SetObjProperty
1401: #
1402: goto1480
amt :=  10;   SetObjProperty(item, "SpellId", 12);   SetObjProperty(item, "dama
1403: 10L
1404: local1 := 
SetObjProperty(item, "SpellId", 12);   SetObjProperty(item, "damagemod", "of ha
1405: local #0
1406: "SpellId"
1407: 12L
1408: Func(4,0): SetObjProperty
1409: #
SetObjProperty(item, "damagemod", "of harming");
1410: local #0
1411: "damagemod"
1412: "of harming"
1413: Func(4,0): SetObjProperty
1414: #
1415: goto1480
amt :=   5;   SetObjProperty(item, "SpellId", 18);   SetObjProperty(item, "dama
1416: 5L
1417: local1 := 
SetObjProperty(item, "SpellId", 18);   SetObjProperty(item, "damagemod", "of fi
1418: local #0
1419: "SpellId"
1420: 18L
1421: Func(4,0): SetObjProperty
1422: #
SetObjProperty(item, "damagemod", "of fireballs");
1423: local #0
1424: "damagemod"
1425: "of fireballs"
1426: Func(4,0): SetObjProperty
1427: #
1428: goto1480
amt :=   5;   SetObjProperty(item, "SpellId", 29);   SetObjProperty(item, "dama
1429: 5L
1430: local1 := 
SetObjProperty(item, "SpellId", 29);   SetObjProperty(item, "damagemod", "of gr
1431: local #0
1432: "SpellId"
1433: 29L
1434: Func(4,0): SetObjProperty
1435: #
SetObjProperty(item, "damagemod", "of greater healing");
1436: local #0
1437: "damagemod"
1438: "of greater healing"
1439: Func(4,0): SetObjProperty
1440: #
1441: goto1480
amt :=   3;   SetObjProperty(item, "SpellId", 30);   SetObjProperty(item, "dama
1442: 3L
1443: local1 := 
SetObjProperty(item, "SpellId", 30);   SetObjProperty(item, "damagemod", "of li
1444: local #0
1445: "SpellId"
1446: 30L
1447: Func(4,0): SetObjProperty
1448: #
SetObjProperty(item, "damagemod", "of lightning");
1449: local #0
1450: "damagemod"
1451: "of lightning"
1452: Func(4,0): SetObjProperty
1453: #
1454: goto1480
amt :=  10;   SetObjProperty(item, "SpellId", 31);   SetObjProperty(item, "dama
1455: 10L
1456: local1 := 
SetObjProperty(item, "SpellId", 31);   SetObjProperty(item, "damagemod", "of ma
1457: local #0
1458: "SpellId"
1459: 31L
1460: Func(4,0): SetObjProperty
1461: #
SetObjProperty(item, "damagemod", "of mana draining");
1462: local #0
1463: "damagemod"
1464: "of mana draining"
1465: Func(4,0): SetObjProperty
1466: #
1467: goto1480
amt := 100;   SetObjProperty(item, "SpellId", 65);   SetObjProperty(item, "dama
1468: 100L
1469: local1 := 
SetObjProperty(item, "SpellId", 65);   SetObjProperty(item, "damagemod", "of id
1470: local #0
1471: "SpellId"
1472: 65L
1473: Func(4,0): SetObjProperty
1474: #
SetObjProperty(item, "damagemod", "of identification");
1475: local #0
1476: "damagemod"
1477: "of identification"
1478: Func(4,0): SetObjProperty
1479: #
SetObjProperty(item, "charges", (amt + RandomInt(10)));
1480: local #0
1481: "charges"
1482: local #1
1483: 10L
1484: Func(2,1): RandomInt
1485: +
1486: Func(4,0): SetObjProperty
1487: #
item.usescript := ":wands:magicWands";
1488: local #0
1489: ":wands:magicWands"
1490: set member id 'usescript' (16) #
var dsc;
1491: decl local #2
1492: #
if(item.objtype == 0x13f9)
1493: local #0
1494: get member id 'objtype' (4)
1495: 5113L
1496: ==
1497: if false goto 1501
dsc := "sekata laska";
1498: "sekata laska"
1499: local2 := 
1500: goto1503
dsc := "rozdzka";
1501: "rozdzka"
1502: local2 := 
SetName(item, "magiczny " + dsc);
1503: local #0
1504: "magiczny "
1505: local #2
1506: +
1507: Func(4,4): SetName
1508: #
1509: 0L
1510: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 322
function WeaponTable(item)
1511: pop param 'item'
var newarray := array(1, 2, 3);
1512: decl local #1
1513: array
1514: 1L
1515: init{}
1516: 2L
1517: init{}
1518: 3L
1519: init{}
1520: :=
1521: #
var count := RandomInt(100) + 1;
1522: decl local #2
1523: 100L
1524: Func(2,1): RandomInt
1525: 1L
1526: +
1527: :=
1528: #
var counter;
1529: decl local #3
1530: #
if(count >= 60)
1531: local #2
1532: 60L
1533: >=
1534: if false goto 1538
counter := 1;
1535: 1L
1536: local3 := 
1537: goto1554
elseif(count >= 40)
1538: local #2
1539: 40L
1540: >=
1541: if false goto 1545
counter := 2;
1542: 2L
1543: local3 := 
1544: goto1554
elseif(count >= 10)
1545: local #2
1546: 10L
1547: >=
1548: if false goto 1552
counter := 3;
1549: 3L
1550: local3 := 
1551: goto1554
counter := 4;
1552: 4L
1553: local3 := 
if(counter == 1)
1554: local #3
1555: 1L
1556: ==
1557: if false goto 1563
DestroyItem(item);
1558: local #0
1559: Func(4,5): DestroyItem
1560: #
return;
1561: ""
1562: return
count := 0;
1563: 0L
1564: local2 := 
var num, val;
1565: decl local #4
1566: #
1567: decl local #5
1568: #
while(count <= counter)
1569: local #2
1570: local #3
1571: <=
1572: if false goto 1608
num := RandomInt(len(newarray)) + 1;
1573: local #1
1574: Func(0,5): Len
1575: Func(2,1): RandomInt
1576: 1L
1577: +
1578: local4 := 
val := newarray[num];
1579: local #1
1580: local #4
1581: [] 1
1582: local5 := 
case(val)
1583: local #5
1584: casejmp
	1: @1585
	2: @1590
	3: @1595
	default: @1599
ApplyAccyMod(item);
1585: local #0
1586: makelocal
1587: jmp userfunc @1661
1588: #
1589: goto1599
ApplyHPMod(item);
1590: local #0
1591: makelocal
1592: jmp userfunc @1838
1593: #
1594: goto1599
ApplyDmgMod(item);
1595: local #0
1596: makelocal
1597: jmp userfunc @1752
1598: #
newarray.erase(num);
1599: local #1
1600: local #4
1601: Call Method id erase (#49, 1 params)
1602: #
count := count + 1;
1603: local #2
1604: 1L
1605: +
1606: local2 := 
1607: goto1569
AddName(item);
1608: local #0
1609: makelocal
1610: jmp userfunc @1614
1611: #
1612: 0L
1613: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 587
function AddName(item)
1614: pop param 'item'
var currdesc := item.desc;
1615: decl local #1
1616: local #0
1617: get member id 'desc' (19)
1618: :=
1619: #
if(currdesc[1] == "a")
1620: local #1
1621: 1L
1622: [] 1
1623: "a"
1624: ==
1625: if false goto 1653
var space := find(item.desc, " ", 1);
1626: decl local #0
1627: local #0
1628: get member id 'desc' (19)
1629: " "
1630: 1L
1631: Func(0,6): Find
1632: :=
1633: #
var newname := currdesc[space+1,len(item.desc)];
1634: decl local #1
1635: local #1
1636: local #2
1637: 1L
1638: +
1639: local #0
1640: get member id 'desc' (19)
1641: Func(0,5): Len
1642: [,]
1643: :=
1644: #
SetName(item,"magiczny " + newname);
1645: local #0
1646: "magiczny "
1647: local #3
1648: +
1649: Func(4,4): SetName
1650: #
1651: leave block(2)
1652: goto1659
SetName(item, "magiczny " + currdesc);
1653: local #0
1654: "magiczny "
1655: local #1
1656: +
1657: Func(4,4): SetName
1658: #
1659: 0L
1660: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 501
function ApplyAccyMod(item)
1661: pop param 'item'
var numb := ((RandomInt(100)+1) - magicadjustment);
1662: decl local #1
1663: 100L
1664: Func(2,1): RandomInt
1665: 1L
1666: +
1667: global #4
1668: -
1669: :=
1670: #
if(numb < 1)
1671: local #1
1672: 1L
1673: <
1674: if false goto 1677
numb := 1;
1675: 1L
1676: local1 := 
var modifier := 0;
1677: decl local #2
1678: 0L
1679: :=
1680: #
if(numb >= 50)
1681: local #1
1682: 50L
1683: >=
1684: if false goto 1693
modifier := 5;
1685: 5L
1686: local2 := 
SetObjProperty(item, "accuracy", "dokladny");
1687: local #0
1688: "accuracy"
1689: "dokladny"
1690: Func(4,0): SetObjProperty
1691: #
1692: goto1740
elseif(numb >= 25)
1693: local #1
1694: 25L
1695: >=
1696: if false goto 1705
modifier := 10;
1697: 10L
1698: local2 := 
SetObjProperty(item, "accuracy", "niezwyklej dokladnosci");
1699: local #0
1700: "accuracy"
1701: "niezwyklej dokladnosci"
1702: Func(4,0): SetObjProperty
1703: #
1704: goto1740
elseif(numb >= 15)
1705: local #1
1706: 15L
1707: >=
1708: if false goto 1717
modifier := 15;
1709: 15L
1710: local2 := 
SetObjProperty(item, "accuracy", "wybitnej dokladnosci");
1711: local #0
1712: "accuracy"
1713: "wybitnej dokladnosci"
1714: Func(4,0): SetObjProperty
1715: #
1716: goto1740
elseif(numb >= 5)
1717: local #1
1718: 5L
1719: >=
1720: if false goto 1729
modifier := 20;
1721: 20L
1722: local2 := 
SetObjProperty(item, "accuracy", "nadzwyczajnej dokladnosci");
1723: local #0
1724: "accuracy"
1725: "nadzwyczajnej dokladnosci"
1726: Func(4,0): SetObjProperty
1727: #
1728: goto1740
elseif(numb >= 1)
1729: local #1
1730: 1L
1731: >=
1732: if false goto 1740
modifier := 25;
1733: 25L
1734: local2 := 
SetObjProperty(item, "accuracy", "najwyzszej dokladnosci");
1735: local #0
1736: "accuracy"
1737: "najwyzszej dokladnosci"
1738: Func(4,0): SetObjProperty
1739: #
SetObjProperty(item, "type", "accuracy");
1740: local #0
1741: "type"
1742: "accuracy"
1743: Func(4,0): SetObjProperty
1744: #
SetObjProperty(item, "gain", modifier);
1745: local #0
1746: "gain"
1747: local #2
1748: Func(4,0): SetObjProperty
1749: #
1750: 0L
1751: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 477
function ApplyDmgMod(item)
1752: pop param 'item'
var numb := ((RandomInt(100)+1) - magicadjustment);
1753: decl local #1
1754: 100L
1755: Func(2,1): RandomInt
1756: 1L
1757: +
1758: global #4
1759: -
1760: :=
1761: #
if(numb < 1)
1762: local #1
1763: 1L
1764: <
1765: if false goto 1768
numb := 1;
1766: 1L
1767: local1 := 
if(numb >= 50)
1768: local #1
1769: 50L
1770: >=
1771: if false goto 1781
item.dmg_mod := 1;
1772: local #0
1773: 1L
1774: set member id 'dmg_mod' (91) #
SetObjProperty(item, "damagemod", "ruiny");
1775: local #0
1776: "damagemod"
1777: "ruiny"
1778: Func(4,0): SetObjProperty
1779: #
1780: goto1832
elseif(numb >= 25)
1781: local #1
1782: 25L
1783: >=
1784: if false goto 1794
item.dmg_mod := 3;
1785: local #0
1786: 3L
1787: set member id 'dmg_mod' (91) #
SetObjProperty(item, "damagemod", "potegi");
1788: local #0
1789: "damagemod"
1790: "potegi"
1791: Func(4,0): SetObjProperty
1792: #
1793: goto1832
elseif(numb >= 15)
1794: local #1
1795: 15L
1796: >=
1797: if false goto 1807
item.dmg_mod := 5;
1798: local #0
1799: 5L
1800: set member id 'dmg_mod' (91) #
SetObjProperty(item, "damagemod", "mocy");
1801: local #0
1802: "damagemod"
1803: "mocy"
1804: Func(4,0): SetObjProperty
1805: #
1806: goto1832
elseif(numb >= 5)
1807: local #1
1808: 5L
1809: >=
1810: if false goto 1820
item.dmg_mod := 7;
1811: local #0
1812: 7L
1813: set member id 'dmg_mod' (91) #
SetObjProperty(item, "damagemod", "zdolnosci");
1814: local #0
1815: "damagemod"
1816: "zdolnosci"
1817: Func(4,0): SetObjProperty
1818: #
1819: goto1832
elseif(numb >= 1)
1820: local #1
1821: 1L
1822: >=
1823: if false goto 1832
item.dmg_mod := 9;
1824: local #0
1825: 9L
1826: set member id 'dmg_mod' (91) #
SetObjProperty(item, "damagemod", "zwyciezania");
1827: local #0
1828: "damagemod"
1829: "zwyciezania"
1830: Func(4,0): SetObjProperty
1831: #
SilverMod(item);
1832: local #0
1833: makelocal
1834: jmp userfunc @2389
1835: #
1836: 0L
1837: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 527
function ApplyHPMod(item)
1838: pop param 'item'
var numb := ((RandomInt(100)+1) - magicadjustment);
1839: decl local #1
1840: 100L
1841: Func(2,1): RandomInt
1842: 1L
1843: +
1844: global #4
1845: -
1846: :=
1847: #
if(numb < 1)
1848: local #1
1849: 1L
1850: <
1851: if false goto 1854
numb := 1;
1852: 1L
1853: local1 := 
if(numb >= 50)
1854: local #1
1855: 50L
1856: >=
1857: if false goto 1870
item.maxhp_mod := item.maxhp_mod + 05;
1858: local #0
1859: local #0
1860: get member id 'maxhp_mod' (89)
1861: 5L
1862: +
1863: set member id 'maxhp_mod' (89) #
SetObjProperty(item, "durability", "trwaly");
1864: local #0
1865: "durability"
1866: "trwaly"
1867: Func(4,0): SetObjProperty
1868: #
1869: goto1933
elseif(numb >= 25)
1870: local #1
1871: 25L
1872: >=
1873: if false goto 1886
item.maxhp_mod := item.maxhp_mod + 10;
1874: local #0
1875: local #0
1876: get member id 'maxhp_mod' (89)
1877: 10L
1878: +
1879: set member id 'maxhp_mod' (89) #
SetObjProperty(item, "durability", "solidny");
1880: local #0
1881: "durability"
1882: "solidny"
1883: Func(4,0): SetObjProperty
1884: #
1885: goto1933
elseif(numb >= 15)
1886: local #1
1887: 15L
1888: >=
1889: if false goto 1902
item.maxhp_mod := item.maxhp_mod + 15;
1890: local #0
1891: local #0
1892: get member id 'maxhp_mod' (89)
1893: 15L
1894: +
1895: set member id 'maxhp_mod' (89) #
SetObjProperty(item, "durability", "masywny");
1896: local #0
1897: "durability"
1898: "masywny"
1899: Func(4,0): SetObjProperty
1900: #
1901: goto1933
elseif(numb >= 5)
1902: local #1
1903: 5L
1904: >=
1905: if false goto 1918
item.maxhp_mod := item.maxhp_mod + 20;
1906: local #0
1907: local #0
1908: get member id 'maxhp_mod' (89)
1909: 20L
1910: +
1911: set member id 'maxhp_mod' (89) #
SetObjProperty(item, "durability", "wzmocniony");
1912: local #0
1913: "durability"
1914: "wzmocniony"
1915: Func(4,0): SetObjProperty
1916: #
1917: goto1933
elseif(numb >= 1)
1918: local #1
1919: 1L
1920: >=
1921: if false goto 1933
item.maxhp_mod := item.maxhp_mod + 25;
1922: local #0
1923: local #0
1924: get member id 'maxhp_mod' (89)
1925: 25L
1926: +
1927: set member id 'maxhp_mod' (89) #
SetObjProperty(item, "durability", "niezniszczalny");
1928: local #0
1929: "durability"
1930: "niezniszczalny"
1931: Func(4,0): SetObjProperty
1932: #
item.hp := item.maxhp;
1933: local #0
1934: local #0
1935: get member id 'maxhp' (90)
1936: set member id 'hp' (88) #
1937: 0L
1938: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 241
function ArmorTable(item)
1939: pop param 'item'
var newarray := {1, 2};
1940: decl local #1
1941: array
1942: 1L
1943: init{}
1944: 2L
1945: init{}
1946: :=
1947: #
var count := RandomInt(99) + 1;
1948: decl local #2
1949: 99L
1950: Func(2,1): RandomInt
1951: 1L
1952: +
1953: :=
1954: #
var counter;
1955: decl local #3
1956: #
if(count >= 40)
1957: local #2
1958: 40L
1959: >=
1960: if false goto 1964
counter := 1;
1961: 1L
1962: local3 := 
1963: goto1966
counter := 2;
1964: 2L
1965: local3 := 
count := 0;
1966: 0L
1967: local2 := 
var num;
1968: decl local #4
1969: #
while(count <= counter)
1970: local #2
1971: local #3
1972: <=
1973: if false goto 2008
num := RandomInt(99) + 1;
1974: 99L
1975: Func(2,1): RandomInt
1976: 1L
1977: +
1978: local4 := 
if(num >=  50)
1979: local #4
1980: 50L
1981: >=
1982: if false goto 1986
num := 1;
1983: 1L
1984: local4 := 
1985: goto1988
num := 2;
1986: 2L
1987: local4 := 
case(num)
1988: local #4
1989: casejmp
	1: @1990
	2: @1995
	default: @1999
ApplyHPMod(item);
1990: local #0
1991: makelocal
1992: jmp userfunc @1838
1993: #
1994: goto1999
ApplyARMod(item);
1995: local #0
1996: makelocal
1997: jmp userfunc @2428
1998: #
newarray.erase(num);
1999: local #1
2000: local #4
2001: Call Method id erase (#49, 1 params)
2002: #
count := count + 1;
2003: local #2
2004: 1L
2005: +
2006: local2 := 
2007: goto1970
if((RandomInt(10)+1) <= 1)
2008: 10L
2009: Func(2,1): RandomInt
2010: 1L
2011: +
2012: 1L
2013: <=
2014: if false goto 2019
ExtraArmorTable(item);
2015: local #0
2016: makelocal
2017: jmp userfunc @2202
2018: #
AddName(item);
2019: local #0
2020: makelocal
2021: jmp userfunc @1614
2022: #
2023: 0L
2024: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 205
function ClothTable(item)
2025: pop param 'item'
var val := RandomInt(19) + 1;
2026: decl local #1
2027: 19L
2028: Func(2,1): RandomInt
2029: 1L
2030: +
2031: :=
2032: #
if(val >= 14)
2033: local #1
2034: 14L
2035: >=
2036: if false goto 2061
var charges := RandomDiceRoll("1d30") + 10;
2037: decl local #0
2038: "1d30"
2039: Func(2,0): RandomDiceRoll
2040: 10L
2041: +
2042: :=
2043: #
SetObjProperty(item, "charges", charges);
2044: local #0
2045: "charges"
2046: local #2
2047: Func(4,0): SetObjProperty
2048: #
SetObjProperty(item, "type", "sight");
2049: local #0
2050: "type"
2051: "sight"
2052: Func(4,0): SetObjProperty
2053: #
SetObjProperty(item, "damagemod", " nocnego widzenia");
2054: local #0
2055: "damagemod"
2056: " nocnego widzenia"
2057: Func(4,0): SetObjProperty
2058: #
2059: leave block(1)
2060: goto2196
elseif(val >= 11)
2061: local #1
2062: 11L
2063: >=
2064: if false goto 2089
var charges := RandomDiceRoll("1d30") + 10;
2065: decl local #0
2066: "1d30"
2067: Func(2,0): RandomDiceRoll
2068: 10L
2069: +
2070: :=
2071: #
SetObjProperty(item, "charges", charges);
2072: local #0
2073: "charges"
2074: local #2
2075: Func(4,0): SetObjProperty
2076: #
SetObjProperty(item, "type", "protection");
2077: local #0
2078: "type"
2079: "protection"
2080: Func(4,0): SetObjProperty
2081: #
SetObjProperty(item, "damagemod", " ochrony");
2082: local #0
2083: "damagemod"
2084: " ochrony"
2085: Func(4,0): SetObjProperty
2086: #
2087: leave block(1)
2088: goto2196
elseif(val <= 8)
2089: local #1
2090: 8L
2091: <=
2092: if false goto 2117
var charges := RandomDiceRoll("1d30") + 10;
2093: decl local #0
2094: "1d30"
2095: Func(2,0): RandomDiceRoll
2096: 10L
2097: +
2098: :=
2099: #
SetObjProperty(item, "charges", charges);
2100: local #0
2101: "charges"
2102: local #2
2103: Func(4,0): SetObjProperty
2104: #
SetObjProperty(item, "type", "strength");
2105: local #0
2106: "type"
2107: "strength"
2108: Func(4,0): SetObjProperty
2109: #
SetObjProperty(item, "damagemod", " sily");
2110: local #0
2111: "damagemod"
2112: " sily"
2113: Func(4,0): SetObjProperty
2114: #
2115: leave block(1)
2116: goto2196
elseif(val > 5)
2117: local #1
2118: 5L
2119: >
2120: if false goto 2145
var charges := RandomDiceRoll("1d30") + 10;
2121: decl local #0
2122: "1d30"
2123: Func(2,0): RandomDiceRoll
2124: 10L
2125: +
2126: :=
2127: #
SetObjProperty(item, "charges", charges);
2128: local #0
2129: "charges"
2130: local #2
2131: Func(4,0): SetObjProperty
2132: #
SetObjProperty(item, "type", "invisibility");
2133: local #0
2134: "type"
2135: "invisibility"
2136: Func(4,0): SetObjProperty
2137: #
SetObjProperty(item, "damagemod", " niewidzialnosci");
2138: local #0
2139: "damagemod"
2140: " niewidzialnosci"
2141: Func(4,0): SetObjProperty
2142: #
2143: leave block(1)
2144: goto2196
elseif(val == 3)
2145: local #1
2146: 3L
2147: ==
2148: if false goto 2173
var charges := RandomDiceRoll("1d30") + 10;
2149: decl local #0
2150: "1d30"
2151: Func(2,0): RandomDiceRoll
2152: 10L
2153: +
2154: :=
2155: #
SetObjProperty(item, "charges", charges);
2156: local #0
2157: "charges"
2158: local #2
2159: Func(4,0): SetObjProperty
2160: #
SetObjProperty(item, "type", "blessing");
2161: local #0
2162: "type"
2163: "blessing"
2164: Func(4,0): SetObjProperty
2165: #
SetObjProperty(item, "damagemod", " blogoslawienstwa");
2166: local #0
2167: "damagemod"
2168: " blogoslawienstwa"
2169: Func(4,0): SetObjProperty
2170: #
2171: leave block(1)
2172: goto2196
var charges := RandomDiceRoll("1d30") + 10;
2173: decl local #0
2174: "1d30"
2175: Func(2,0): RandomDiceRoll
2176: 10L
2177: +
2178: :=
2179: #
SetObjProperty(item, "charges", charges);
2180: local #0
2181: "charges"
2182: local #2
2183: Func(4,0): SetObjProperty
2184: #
SetObjProperty(item, "type", "reflect");
2185: local #0
2186: "type"
2187: "reflect"
2188: Func(4,0): SetObjProperty
2189: #
SetObjProperty(item, "damagemod", " magicznego odbicia");
2190: local #0
2191: "damagemod"
2192: " magicznego odbicia"
2193: Func(4,0): SetObjProperty
2194: #
2195: leave block(1)
AddName(item);
2196: local #0
2197: makelocal
2198: jmp userfunc @1614
2199: #
2200: 0L
2201: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 272
function ExtraArmorTable(item)
2202: pop param 'item'
var val := RandomInt(4) + 1;
2203: decl local #1
2204: 4L
2205: Func(2,1): RandomInt
2206: 1L
2207: +
2208: :=
2209: #
case(val)
2210: local #1
2211: casejmp
	1: @2212
	2: @2256
	3: @2300
	4: @2344
	default: @2387
var charges := RandomDiceRoll("1d30") + 10;
2212: decl local #0
2213: "1d30"
2214: Func(2,0): RandomDiceRoll
2215: 10L
2216: +
2217: :=
2218: #
SetObjProperty(item, "charges", charges);
2219: local #0
2220: "charges"
2221: local #2
2222: Func(4,0): SetObjProperty
2223: #
SetObjProperty(item, "type", "protection");
2224: local #0
2225: "type"
2226: "protection"
2227: Func(4,0): SetObjProperty
2228: #
var dmgmod := GetObjProperty(item, "damagemod");
2229: decl local #1
2230: local #0
2231: "damagemod"
2232: Func(4,1): GetObjProperty
2233: :=
2234: #
if(dmgmod)
2235: local #3
2236: if false goto 2247
dmgmod := dmgmod + " i ochrony";
2237: local #3
2238: " i ochrony"
2239: +
2240: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2241: local #0
2242: "damagemod"
2243: local #3
2244: Func(4,0): SetObjProperty
2245: #
2246: goto2254
dmgmod := " of protection";
2247: " of protection"
2248: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2249: local #0
2250: "damagemod"
2251: local #3
2252: Func(4,0): SetObjProperty
2253: #
2254: leave block(2)
2255: goto2387
var charges := RandomDiceRoll("1d30") + 10;
2256: decl local #0
2257: "1d30"
2258: Func(2,0): RandomDiceRoll
2259: 10L
2260: +
2261: :=
2262: #
SetObjProperty(item, "charges", charges);
2263: local #0
2264: "charges"
2265: local #2
2266: Func(4,0): SetObjProperty
2267: #
SetObjProperty(item, "type", "strength");
2268: local #0
2269: "type"
2270: "strength"
2271: Func(4,0): SetObjProperty
2272: #
var dmgmod := GetObjProperty(item, "damagemod");
2273: decl local #1
2274: local #0
2275: "damagemod"
2276: Func(4,1): GetObjProperty
2277: :=
2278: #
if(dmgmod)
2279: local #3
2280: if false goto 2291
dmgmod := dmgmod + " i sily";
2281: local #3
2282: " i sily"
2283: +
2284: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2285: local #0
2286: "damagemod"
2287: local #3
2288: Func(4,0): SetObjProperty
2289: #
2290: goto2298
dmgmod := " of strength";
2291: " of strength"
2292: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2293: local #0
2294: "damagemod"
2295: local #3
2296: Func(4,0): SetObjProperty
2297: #
2298: leave block(2)
2299: goto2387
var charges := RandomDiceRoll("1d30") + 10;
2300: decl local #0
2301: "1d30"
2302: Func(2,0): RandomDiceRoll
2303: 10L
2304: +
2305: :=
2306: #
SetObjProperty(item, "charges", charges);
2307: local #0
2308: "charges"
2309: local #2
2310: Func(4,0): SetObjProperty
2311: #
SetObjProperty(item, "type", "blessing");
2312: local #0
2313: "type"
2314: "blessing"
2315: Func(4,0): SetObjProperty
2316: #
var dmgmod := GetObjProperty(item, "damagemod");
2317: decl local #1
2318: local #0
2319: "damagemod"
2320: Func(4,1): GetObjProperty
2321: :=
2322: #
if(dmgmod)
2323: local #3
2324: if false goto 2335
dmgmod := dmgmod + " i blogoslawienstwa";
2325: local #3
2326: " i blogoslawienstwa"
2327: +
2328: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2329: local #0
2330: "damagemod"
2331: local #3
2332: Func(4,0): SetObjProperty
2333: #
2334: goto2342
dmgmod := " of blessing";
2335: " of blessing"
2336: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2337: local #0
2338: "damagemod"
2339: local #3
2340: Func(4,0): SetObjProperty
2341: #
2342: leave block(2)
2343: goto2387
var charges := RandomDiceRoll("1d30") + 10;
2344: decl local #0
2345: "1d30"
2346: Func(2,0): RandomDiceRoll
2347: 10L
2348: +
2349: :=
2350: #
SetObjProperty(item, "charges", charges);
2351: local #0
2352: "charges"
2353: local #2
2354: Func(4,0): SetObjProperty
2355: #
SetObjProperty(item, "type", "reflect");
2356: local #0
2357: "type"
2358: "reflect"
2359: Func(4,0): SetObjProperty
2360: #
var dmgmod := GetObjProperty(item, "damagemod");
2361: decl local #1
2362: local #0
2363: "damagemod"
2364: Func(4,1): GetObjProperty
2365: :=
2366: #
if(dmgmod)
2367: local #3
2368: if false goto 2379
dmgmod := dmgmod + " i magicznego odbicia";
2369: local #3
2370: " i magicznego odbicia"
2371: +
2372: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2373: local #0
2374: "damagemod"
2375: local #3
2376: Func(4,0): SetObjProperty
2377: #
2378: goto2386
dmgmod := " magicznego odbicia";
2379: " magicznego odbicia"
2380: local3 := 
SetObjProperty(item, "damagemod", dmgmod);
2381: local #0
2382: "damagemod"
2383: local #3
2384: Func(4,0): SetObjProperty
2385: #
2386: leave block(2)
2387: 0L
2388: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 574
function SilverMod(item)
2389: pop param 'item'
var numb := (RandomInt(10) + 1);
2390: decl local #1
2391: 10L
2392: Func(2,1): RandomInt
2393: 1L
2394: +
2395: :=
2396: #
if(numb == 1)
2397: local #1
2398: 1L
2399: ==
2400: if false goto 2426
var hits := GetObjProperty(item, "OnHit");
2401: decl local #0
2402: local #0
2403: "OnHit"
2404: Func(4,1): GetObjProperty
2405: :=
2406: #
if(!hits)
2407: local #2
2408: if true goto 2411
hits := {};
2409: array
2410: local2 := 
hits.append("silverHit");
2411: local #2
2412: "silverHit"
2413: Call Method id append (#52, 1 params)
2414: #
SetObjProperty(item, "OnHit", hits);
2415: local #0
2416: "OnHit"
2417: local #2
2418: Func(4,0): SetObjProperty
2419: #
SetObjProperty(item, "silvermod", 1);
2420: local #0
2421: "silvermod"
2422: 1L
2423: Func(4,0): SetObjProperty
2424: #
2425: leave block(1)
2426: 0L
2427: return
e:/gry/pol/pvp097/scripts/include/startEqp.inc, Line 551
function ApplyARMod(item)
2428: pop param 'item'
var numb := ((RandomInt(100)+1) - magicadjustment);
2429: decl local #1
2430: 100L
2431: Func(2,1): RandomInt
2432: 1L
2433: +
2434: global #4
2435: -
2436: :=
2437: #
if(numb < 1)
2438: local #1
2439: 1L
2440: <
2441: if false goto 2444
numb := 1;
2442: 1L
2443: local1 := 
if(numb >= 50)
2444: local #1
2445: 50L
2446: >=
2447: if false goto 2457
item.ar_mod := 5;
2448: local #0
2449: 5L
2450: set member id 'ar_mod' (31) #
SetObjProperty(item, "damagemod", "obrony");
2451: local #0
2452: "damagemod"
2453: "obrony"
2454: Func(4,0): SetObjProperty
2455: #
2456: goto2508
elseif(numb >= 25)
2457: local #1
2458: 25L
2459: >=
2460: if false goto 2470
item.ar_mod := 10;
2461: local #0
2462: 10L
2463: set member id 'ar_mod' (31) #
SetObjProperty(item, "damagemod", "ochrony");
2464: local #0
2465: "damagemod"
2466: "ochrony"
2467: Func(4,0): SetObjProperty
2468: #
2469: goto2508
elseif(numb >= 15)
2470: local #1
2471: 15L
2472: >=
2473: if false goto 2483
item.ar_mod := 15;
2474: local #0
2475: 15L
2476: set member id 'ar_mod' (31) #
SetObjProperty(item, "damagemod", "wytrzymalosci");
2477: local #0
2478: "damagemod"
2479: "wytrzymalosci"
2480: Func(4,0): SetObjProperty
2481: #
2482: goto2508
elseif(numb >= 5)
2483: local #1
2484: 5L
2485: >=
2486: if false goto 2496
item.ar_mod := 20;
2487: local #0
2488: 20L
2489: set member id 'ar_mod' (31) #
SetObjProperty(item, "damagemod", "wzmocnienia");
2490: local #0
2491: "damagemod"
2492: "wzmocnienia"
2493: Func(4,0): SetObjProperty
2494: #
2495: goto2508
elseif(numb >= 1)
2496: local #1
2497: 1L
2498: >=
2499: if false goto 2508
item.ar_mod := 25;
2500: local #0
2501: 25L
2502: set member id 'ar_mod' (31) #
SetObjProperty(item, "damagemod", "niewrazliwosci");
2503: local #0
2504: "damagemod"
2505: "niewrazliwosci"
2506: Func(4,0): SetObjProperty
2507: #
2508: 0L
2509: return