var PlayerId : integer; ... procedure Init Begin PlayerId:=$003B2146; end; ... if PlayerId=ReadD(4) then ...