IF
  Global("JanIsAlchemist","GLOBAL",0)
THEN
  RESPONSE #100
    SetGlobal("JanIsAlchemist","GLOBAL",1)
    ChangeAIScript("Alchem1",RACE)
    GiveItemCreate("JanTome","Jan",3,0,0)  // JanTome
END