Scripting basically makes your story into a complex game.
Albeit a complex text base game.
It's basically a bunch of codes you use to affect the game.
This is some examples of the codes I use for my story.
%FHP := %STR * 3 + 150
%FMP := %INT * 2 + 90
IF %HP > %FHP THEN
BEGIN
%HP := %FHP
END
IF %MP >= %FMP THEN
BEGIN
%MP := %FMP
END
IF %MP <= 0 THEN
BEGIN
$DEST := @END
END
%MINATT := %DEX
%MAXATT := %STR + (%WEAP*%STR/80)
IF %MINATT > %MAXATT THEN
BEGIN
%MINATT := %MAXATT
END
%DIF := %MAXATT - %MINATT
%ENEMYD := (%ENEMYL * 2)
IF %ATT < 0 THEN
BEGIN
%ATT := 0
END
%DEF := (%DEX*%ARM/100)
IF %DIF < 0 THEN
BEGIN
%DIF := 0
END
IF %MINATT > %MAXATT THEN
BEGIN
%MINATT := %MAXATT
END
IF %ENEMYA < 0 THEN
BEGIN
%ENEMYA := 0
END
IF %ENEMYH <= 0 THEN
BEGIN
%EXPG := (%ENEMYFH / 4D4) + 1D30
%ENEMYH := %ENEMYFH
%ENEMYM := %ENEMYFM
END
%MIN := %MIN + 1D10
IF %MIN >= 60 THEN
BEGIN
%HOUR := %HOUR + 1
%TWENTYFOUR := %TWENTYFOUR + 1
%MIN := 16
END
IF %TWENTYFOUR = 24 THEN
BEGIN
%DAY := %DAY + 1
%TWENTYFOUR := 0
END
IF %HOUR > 12 THEN
BEGIN
%HOUR :=1
END
%FEXP := (%LVL * 30/5) + (%LVL * 30)
IF %EXP >= %FEXP THEN
BEGIN
%LVL := %LVL + 1
%STATS := %STATS + 15
%EXP := 0
%EXPG := 0
%HP := %FHP
%MP := %FMP
END
IF $DEST != @P83 THEN
BEGIN
%CODE := 0
END
ELSE
IF $DEST =@P83 THEN
BEGIN
%CODE := 1
END
%CHANCE := 1D5
IF %ANBU = 1 THEN
BEGIN
IF %CHANCE = 5 THEN
BEGIN
$DEST := @P200
%ENEMYL := 50
%ENEMYFH := (%ENEMYL * 60) + (1D100)
%ENEMYFM := (%ENEMYL * 60) + (1D100)
%ENEMYH := %ENEMYFH
%ENEMYM := %ENEMYFM
%BATTLE := 1
END
END
IF %HP <= 0 THEN
BEGIN
$DEST := @P180
END
%ENEMYL := 2
%EXPG := (%ENEMYFH / 4D4) + 1D30
IF %ENEMYL = 2 THEN
BEGIN
IF %DIF <= 10 THEN
BEGIN
%DIF := 1D10
%BATTLE := 1
END
IF %DIF <= 20 THEN
BEGIN
IF %DIF > 10 THEN
BEGIN
%DIF := 1D20
%BATTLE := 1
END
END
IF %DIF <= 30 THEN
BEGIN
IF %DIF > 20 THEN
BEGIN
%DIF := 1D30
%BATTLE := 1
END
END
IF %DIF <= 40 THEN
BEGIN
IF %DIF > 30 THEN
BEGIN
%DIF := 1D40
%BATTLE := 1
END
END
IF %DIF <= 50 THEN
BEGIN
IF %DIF > 40 THEN
BEGIN
%DIF := 1D50
%BATTLE := 1
END
END
IF %DIF <= 60 THEN
BEGIN
IF %DIF > 50 THEN
BEGIN
%DIF := 1D60
%BATTLE := 1
END
END
IF %DIF <= 70 THEN
BEGIN
IF %DIF > 60 THEN
BEGIN
%DIF := 1D70
%BATTLE := 1
END
END
IF %DIF <= 80 THEN
BEGIN
IF %DIF > 70 THEN
BEGIN
%DIF := 1D80
%BATTLE := 1
END
END
IF %DIF <= 90 THEN
BEGIN
IF %DIF > 80 THEN
BEGIN
%DIF := 1D90
%BATTLE := 1
END
END
IF %DIF <= 100 THEN
BEGIN
IF %DIF > 90 THEN
BEGIN
%DIF := 1D100
%BATTLE := 1
END
END
IF %DIF > 100 THEN
BEGIN
%DIF := 1D100
%BATTLE := 1
END
END
IF %BATTLE = 1 THEN
BEGIN
%ATT := (%MINATT - %ENEMYD) + (%DIF)
%ENEMYA := (%ENEMYFH/10) + (%ENEMYL * 1D5) - (%DEF)
%ENEMYH := %ENEMYH - %ATT
%HP := %HP - %ENEMYA
$DEST := @NONE
END
IF %ATT > %MAXATT - %ENEMYD THEN
BEGIN
%ATT := %MAXATT-%ENEMYD
END
IF %ENEMYH <= 0 THEN
BEGIN
IF %HP > 0 THEN
BEGIN
$DEST := @P83
%GOLDG := (%ENEMYFH / 4D4) + 1D30
%GOLD := %GOLD + %GOLDG
%EXP := %EXP + %EXPG
%EXPSN := %FEXP - %EXP
%BATTLE :=0
END
END
IF %HP <= 0 THEN
BEGIN
$DEST := @P180
END
