SCN ...
Short Once
Begin OnActivate
if(once)
return
else
set once to 1
endif
end
Begin GameMode
if(once == 0 || open == 4)
return
endif
if(once)
MessageBox "Wollt Ihr einen schwarzen Seelenstein opfern?" "Ja", "Nein"
set button to getbuttonpressed
set once to 2
if(once == 2)
if(button == -1)
set button to 0
set once to 0
return
elseif(button == 0)
if(player.getitemcount <SeelenSteinID>)
player.removeItem <SeelenSteinID>
set once to 3
endif
elseif(button == 1)
set button to 0
set once to 0
return
endif
elseif(once == 3)
set <TürRef>.Open to <TürRef>.Open +1
set once to 4
return
endif
endif
end