equal
deleted
inserted
replaced
423 end; |
423 end; |
424 end; |
424 end; |
425 InsertGearToList(gear); |
425 InsertGearToList(gear); |
426 AddGear:= gear; |
426 AddGear:= gear; |
427 |
427 |
428 ScriptCall('onGearAdd', LongInt(gear)); |
428 ScriptCall('onGearAdd', gear^.uid); |
429 end; |
429 end; |
430 |
430 |
431 procedure DeleteGear(Gear: PGear); |
431 procedure DeleteGear(Gear: PGear); |
432 var team: PTeam; |
432 var team: PTeam; |
433 t,i: Longword; |
433 t,i: Longword; |
434 k: boolean; |
434 k: boolean; |
435 begin |
435 begin |
436 |
436 |
437 ScriptCall('onGearDelete', LongInt(gear)); |
437 ScriptCall('onGearDelete', gear^.uid); |
438 |
438 |
439 DeleteCI(Gear); |
439 DeleteCI(Gear); |
440 |
440 |
441 if Gear^.Tex <> nil then |
441 if Gear^.Tex <> nil then |
442 begin |
442 begin |