Begin myscriptshort doonceif ( "player"->GetSpellEffects, "myspell" == 1 ) if ( doonce == 0 ) set doonce to 1 ;Scripted effects go here endifelse set doonce to 0endifEnd
Begin CTEnvScriptshort doonceshort effectif ( "player"->GetSpellEffects, "CTEnv" == 1 ) if ( doonce == 0 ) set doonce to 1 if effect == 0 player->addspell, "CTEnvA" set effect to 1 elseif effect == 1 player->removespell, "CTEnvA" set effect to 0 endif endifelse set doonce to 0endifEnd
Begin CTEnvScriptshort doonceif ( MenuMode == 1 ) Returnendifif ( "player"->GetSpellEffects, "CTEnv" == 1 ) if ( doonce == 0 ) set doonce to 1 if ( "player"->GetSpellEffects, "CTEnvA" == 0 ) "player"->AddSpell, "CTEnvA" else "player"->RemoveSpell, "CTEnvA" endif endifelse set doonce to 0endifEnd
Begin CTEnvScriptshort doonceif ( MenuMode == 1 ) Returnendifif ( "player"->GetSpellEffects, "CTEnv" == 1 ) if ( doonce == 0 ) set doonce to 1 if ( "player"->GetSpellEffects, "CTEnvA" == 0 ) "player"->AddSpell, "CTEnvA" else "player"->RemoveSpell, "CTEnvA" endif endifelse set doonce to 0endifEnd