X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fmapstructio.inc;h=ae432b9614f0a857f524af2fa522be8b06d8d2fa;hb=0aed9f9d49f034aad7d8856db00fe42f3303826d;hp=3e9763be912be89a1be453e99a71a024973bcf91;hpb=aed292b6937ad75773102b66d43a8b5d1eeec921;p=d2df-sdl.git diff --git a/src/shared/mapstructio.inc b/src/shared/mapstructio.inc index 3e9763b..ae432b9 100644 --- a/src/shared/mapstructio.inc +++ b/src/shared/mapstructio.inc @@ -229,6 +229,12 @@ procedure mb_Read_TriggerData (var tr: TTriggerData; ttype: Integer; const buf; getBytesAt(tr.FXSpreadD, buf, 15, 1); end; + procedure xreadScript (); + begin + getBytesAt(tr.SCRProc, buf, 0, 64); + getIntAt(tr.SCRArg, buf, 64); + end; + begin if (bufsize < 104) then raise Exception.Create('invalid buffer size in mb_Read_TriggerData'); if (ttype = TRIGGER_EXIT) then begin xreadExit(); exit; end; @@ -259,6 +265,7 @@ begin if (ttype = TRIGGER_HEALTH) then begin xreadHealth(); exit; end; if (ttype = TRIGGER_SHOT) then begin xreadShot(); exit; end; if (ttype = TRIGGER_EFFECT) then begin xreadEffect(); exit; end; + if (ttype = TRIGGER_SCRIPT) then begin xreadScript(); exit; end; raise Exception.Create('invalid trigger type in mb_Read_TriggerData'); end;