0 Members and 1 Guest are viewing this topic.
procedure GivePower(ID: byte);var power,hp,line: byte;begin try line := 0; power := sbot[ID].bonus; line := 1; if power = 1 then hp := getplayerstat(ID,'health'); line := 2; if power <> 255 then begin givebonus(ID,power); line := 3; if power = 1 then dodamage(ID,150-hp); line := 4; end; except writeln('+++++++++++++++++++++++++++++++++++++++'); writeln('GivePower Error Captured'); writeln('Error: ' + exceptiontostring(exceptiontype,exceptionparam)); writeln('ID='+tostr(ID)+'('+getplayerstat(ID,'name')+')'); writeln('line='+tostr(line)); writeln('++++++++++++++++++++++++++++++++++++++++'); end;end;
(23:32:44) +++++++++++++++++++++++++++++++++++++++(23:32:44) GivePower Error Captured(23:32:44) Error: Exception: Access violation at address 081153B6, accessing address 08B32CCA(23:32:44) ID=(Vortex)(23:32:44) line=(23:32:45) ++++++++++++++++++++++++++++++++++++++++
(00:06:36) +++++++++++++++++++++++++++++++++++++++(00:06:36) GivePower Error Captured(00:06:36) Error: Exception: Access violation at address 081153B6, accessing address 08B32CCA(00:06:36) ID=7(Vortex)(00:06:36) line=2(00:06:36) ++++++++++++++++++++++++++++++++++++++++
if power <> 255 then begin givebonus(ID,power);
(00:43:57) +++++++++++++++++++++++++++++++++++++++(00:43:57) GivePower Error Captured(00:43:57) Error: Exception: Access violation at address 081153B6, accessing address 08B32CCA(00:43:57) ID=17(Vortex) power=1(00:43:57) line=2(00:43:57) ++++++++++++++++++++++++++++++++++++++++
(18:10:18) +++++++++++++++++++++++++++++++++++++++(18:10:18) GivePower Error Captured(18:10:18) Error: Exception: Access violation at address 081153B6, accessing address 08B32CCA(18:10:18) ID=6(Vortex) power=1(18:10:18) line=2(18:10:18) ++++++++++++++++++++++++++++++++++++++++