game info.txt

type:game,title:Dragon Warrior,name:Dragon,engine:rpg,save_tag:Adventure Log,battleMusic:DragonWarriorBattle,titleMusic:DragonWarriorTitle
║type:player═

level:1,
hp:15,mp:0,
strength:4,
agility:4,
attack:6,
defense:4,
xp:0,
gold:0,
keys:0═

weapon:Bamboo Pole,
shield:,
armor:,
ring:,
necklace:,
belt:═

map:throne,
x:2,
y:5


║type:item,item_type:weapon═

name:Bamboo Pole,
attack:2,
cost:10═

name:Club,
attack:4,
cost:60═

name:Copper Sword,
attack:10,
cost:180═

name:Hand Axe,
attack:15,
cost:560═

name:Broad Sword,
attack:20,
cost:1500═

name:Flame Sword,
attack:28,
cost:9800═

name:Erdrick's Sword,
attack:40


║type:item,item_type:armor═

name:Clothes,
defense:2,
cost:20═

name:Leather Armor,
defense:4,
cost:70═

name:Chain Mail,
defense:10,
cost:300═

name:Half Plate,
defense:16,
cost:1000═

name:Full Plate,
defense:24,
cost:3000═

name:Magic Armor,
defense:24,
cost:7700═

name:Erdrick's Armor,
defense:28


║type:item,item_type:shield═

name:Small Shield,
defense:4,
cost:90═

name:Large Shield,
defense:10,
cost:800═

name:Silver Shield,
defense:20,
cost:14800


║type:item,item_type:use═

name:Herb,
cost:24,
effect:herb═

name:Wings,
cost:70,
effect:use_wings═

name:Torch,
cost:8,
effect:torch═

name:Fairy Water,
cost:38,
effect:avoid_encounters_water═

name:Light Orb═

name:Erdrick's Tablet,
effect:read_tablet═

name:Silver Harp,
effect:silver_harp═

name:Fairy Flute,
effect:fairy_flute═

name:Rain Staff═

name:Sunstone═

name:Gwaelin's Love,
effect:distance_from_castle═

name:Erdrick's Token═

name:Rainbow Drop


║type:item,item_type:necklace═

name:Dragon's Scale,
defense:2,
cost:20═

name:Cursed Necklace,
cost:1200


║type:item,item_type:ring═

name:Fighter's Ring,
attack:2,
cost:15


║type:item,item_type:belt═

name:Cursed Belt,cost:180


║type:spells,
name:magic,
level:player.level,
cost:player.mp═

name:Heal,
level:3,
cost:3,
effect:cast_heal═

name:Hurt,
level:4,
cost:2,
combat:true,
effect:cast_hurt═

name:Sleep,
level:7,
cost:2,
combat:true,
effect:cast_sleep═

name:Radiant,
level:9,
cost:2,
combat:false,
effect:cast_radiant═

name:StopSpell,
level:10,
cost:2,
combat:true,
effect:cast_stop═

name:Outside,
level:12,
cost:6,
combat:false,
effect:cast_outside═

name:Return,
level:13,
cost:8,
combat:false,
effect:return_home═

name:Repel,
level:15,
cost:2,
combat:false,
effect:avoid_encounters═

name:HealMore,
level:17,
cost:8,
effect:cast_healmore═

name:HurtMore,
level:19,
cost:5,
combat:true,
effect:cast_hurtmore




║type:logic


═action:DamagePlayer;
    if:ints.damage<0;
        set:ints.damage=0;
    endif;
    sub:player.hp=ints.damage;
    if:player.hp>0;
        exit;
    endif;
    go:outworld,47,45;
    setto:player.hp=playerMax.hp;
    setto:player.mp=playerMax.mp;
    setto:ints.gold=player.gold;
    div:ints.gold=4;
    sub:player.gold=ints.gold;
    if:player.gold<0;
        set:player.gold=0;
    endif;
    set:encounter.over=true;
    say:Thou hast nearly perished. But thy adventure must go on. ints.gold of thy gold hast been lost to the Dragonlord's minions.;

═action:CalculatePlayerStats;
    setto:player.strength=playerMax.strength;
    setto:player.agility=playerMax.agility;
    setto:player.attack=player.strength;
    add:player.attack=gear.attack;
    setto:player.defense=player.agility;
    add:player.defense=gear.defense;


═action:PlayerStep;
    sub:ints.fairySteps=1;
    sub:ints.radiantSteps=1;
    if:ints.fairySteps<0;
        set:ints.fairySteps=0;
    endif;
    if:ints.radiantSteps=0;
        set:map.darkRadius=1;
    endif;
    if:ints.radiantSteps<0;
        set:ints.radiantSteps=0;
    endif;
    if:ints.radiantSteps=60;
        set:map.darkRadius=2;
    endif;
    if:ints.radiantSteps=120;
        set:map.darkRadius=3;
    endif;
    if:map.OnToxicTile=true;
        setto:ints.damage=map.ToxicLevel;
        ifnot:playerGear.armor=Erdrick's Armor;
            run:DamagePlayer;
    endif;
    if:playerGear.armor=Erdrick's Armor;
        add:player.hp=1;
    endif;
    if:playerGear.armor=Magic Armor;
        add:player.hp=1;
    endif;
    if:player.hp>playerMax.hp;
        setto:player.hp=playerMax.hp;
    endif;
    if:map.name=outworld;
        set:map.darkRadius=1;
        setto:ints.east=player.x;
        sub:ints.east=46;
        set:ints.west=46;
        sub:ints.west=player.x;
        setto:ints.south=player.y;
        sub:ints.south=46;
        set:ints.north=46;
        sub:ints.north=player.y;
    endif;
    run:RandomEncounter;

═action:RandomEncounter;
    if:bools.gameWon=true;
        exit;
    endif;
    if:ints.fairySteps>0;
        exit;
    endif;
    if:map.hasEncounters=false;
        exit;
    endif;
    if:map.OnDangerTile=true;
        set:ints.encounterThreshold=30;
    else;
        set:ints.encounterThreshold=15;
    endif;
    rand:ints.encounterCheck=0,300;
    if:ints.encounterCheck<ints.encounterThreshold;
        encounter:map.encounter;

═action:StartEncounter;
    set:enemy.status=ok;
    set:player.status=ok;
    set:bools.playerWon=false;
    rand:ints.run=0,255;
    mul:ints.run=player.agility;
    rand:ints.block=0,255;
    mul:ints.block=enemy.agility;
    if:ints.run>ints.block;
        set:encounter.playerTurn=true;
        say:A ENEMYNAME draws near!;
    else;
        set:encounter.playerTurn=false;
        say:A ENEMYNAME hast surprised thou.;

═action:WinEncounter;
    set:bools.playerWon=true;
    add:ints.fairySteps=5;
    add:player.xp=enemy.exp;
    add:player.gold=enemy.gold;
    set:encounter.over=true;
    if:playerMax.xp=0;
        set:playerMax.xp=7;
    endif;
    csay:Thou hast done well in defeating the ENEMYNAME. Thy Experience increases by enemy.exp. Thy gold increases by enemy.gold.;
    if:player.xp<playerMax.xp;
        exit;
    endif;
    csay:Courage and wit have served thee well. Thou hast been promoted to the next level.;
    add:player.level=1;
    if:player.level>30;
        player.level=30;
        exit;
    endif;
    if:player.level=2;
        set:playerMax.xp=23;
        add:playerMax.hp=7;
        add:playerMax.strength=1;
        run:CalculatePlayerStats;
        say:Thy power increases by 1. Thy Maximum Hit Points increase by 7.;
    endif;
    if:player.level=3;
        set:playerMax.xp=47;
        add:playerMax.strength=2;
        add:playerMax.agility=2;
        add:playerMax.hp=2;
        add:playerMax.mp=7;
        csay:Thy power increases by 2. Thy Response Speed increases by 2. Thy Maximum Hit Points increase by 2. Thy Maximum Magic Points increase by 6. Thou hast learned a new spell.;
    endif;
    if:player.level=4;
        set:playerMax.xp=110;
        add:playerMax.strength=2;
        add:playerMax.agility=2;
        add:playerMax.hp=2;
        add:playerMax.mp=7;
        csay:Thy Response Speed increases by 2. Thy Maximum Hit Points increase by 7. Thy Maximum Magic Points increase by 10. Thou hast learned a new spell.;
    endif;
    if:player.level=5;
        set:playerMax.xp=220;
        add:playerMax.strength=5;
        add:playerMax.agility=2;
        add:playerMax.hp=4;
        add:playerMax.mp=4;
        csay:Thy power increases by 5. Thy Response Speed increases by 2. Thy Maximum Hit Points increase by 4. Thy Maximum Magic Points increase by 4.;
    endif;
    if:player.level=6;
        set:playerMax.xp=450;
        add:playerMax.strength=4;
        add:playerMax.hp=3;
        add:playerMax.mp=3;
        csay:Thy power increases by 4. Thy Maximum Hit Points increase by 3. Thy Maximum Magic Points increase by 3.;
    endif;
    if:player.level=7;
        set:playerMax.xp=800;
        add:playerMax.strength=2;
        add:playerMax.agility=6;
        add:playerMax.hp=2;
        add:playerMax.mp=2;
        csay:Thy power increases by 2. Thy Response Speed increases by 6. Thy Maximum Hit Points increase by 2. Thy Maximum Magic Points increase by 2. Thou hast learned a new spell.;
    endif;
    if:player.level=8;
        set:playerMax.xp=1300;
        add:playerMax.strength=4;
        add:playerMax.agility=3;
        add:playerMax.hp=6;
        add:playerMax.mp=3;
        csay:Thy power increases by 4. Thy Response Speed increases by 3. Thy Maximum Hit Points increase by 6. Thy Maximum Magic Points increase by 3.;
    endif;
    if:player.level=9;
        set:playerMax.xp=2000;
        add:playerMax.strength=8;
        add:playerMax.agility=1;
        add:playerMax.hp=4;
        add:playerMax.mp=6;
        csay:Thy power increases by 8. Thy Response Speed increases by 1. Thy Maximum Hit Points increase by 4. Thy Maximum Magic Points increase by 6. Thou hast learned a new spell.;
    endif;
    if:player.level=10;
        set:playerMax.xp=2900;
        add:playerMax.strength=5;
        add:playerMax.agility=8;
        add:playerMax.hp=4;
        add:playerMax.mp=4;
        csay:Thy power increases by 5. Thy Response Speed increases by 8. Thy Maximum Hit Points increase by 4. Thy Maximum Magic Points increase by 4. Thou hast learned a new spell.;
    endif;
    if:player.level=11;
        set:playerMax.xp=4000;
        add:playerMax.strength=5;
        add:playerMax.agility=4;
        add:playerMax.hp=8;
        add:playerMax.mp=9;
        csay:Thy power increases by 5. Thy Response Speed increases by 4. Thy Maximum Hit Points increase by 8. Thy Maximum Magic Points increase by 9.;
    endif;
    if:player.level=12;
        set:playerMax.xp=5500;
        add:playerMax.strength=8;
        add:playerMax.agility=5;
        add:playerMax.hp=1;
        add:playerMax.mp=7;
        csay:Thy power increases by 8. Thy Response Speed increases by 5. Thy Maximum Hit Point increase by 1. Thy Maximum Magic Points increase by 7. Thou hast learned a new spell.;
    endif;
    if:player.level=13;
        set:playerMax.xp=7500;
        add:playerMax.strength=4;
        add:playerMax.agility=7;
        add:playerMax.hp=7;
        add:playerMax.mp=5;
        csay:Thy power increases by 4. Thy Response Speed increases by 7. Thy Maximum Hit Points increase by 7. Thy Maximum Magic Points increase by 5. Thou hast learned a new spell.;
    endif;
    if:player.level=14;
        set:playerMax.xp=10000;
        add:playerMax.strength=8;
        add:playerMax.agility=6;
        add:playerMax.hp=8;
        add:playerMax.mp=6;
        csay:Thy power increases by 8. Thy Response Speed increases by 6. Thy Maximum Hit Points increase by 8. Thy Maximum Magic Points increase by 6.;
    endif;
    if:player.level=15;
        set:playerMax.xp=13000;
        add:playerMax.strength=8;
        add:playerMax.agility=8;
        add:playerMax.hp=8;
        add:playerMax.mp=1;
        csay:Thy power increases by 8. Thy Response Speed increases by 8. Thy Maximum Hit Points increase by 8. Thy Maximum Magic Point increase by 1. Thou hast learned a new spell.;
    endif;
    if:player.level=16;
        set:playerMax.xp=16000;
        add:playerMax.strength=4;
        add:playerMax.agility=6;
        add:playerMax.hp=6;
        add:playerMax.mp=21;
        csay:Thy power increases by 4. Thy Response Speed increases by 6. Thy Maximum Hit Points increase by 6. Thy Maximum Magic Points increase by 21.;
    endif;
    if:player.level=17;
        set:playerMax.xp=19000;
        add:playerMax.agility=7;
        add:playerMax.hp=8;
        add:playerMax.mp=5;
        csay:Thy Response Speed increases by 7. Thy Maximum Hit Points increase by 8. Thy Maximum Magic Points increase by 5. Thou hast learned a new spell.;
    endif;
    if:player.level=18;
        set:playerMax.xp=22000;
        add:playerMax.strength=13;
        add:playerMax.agility=5;
        add:playerMax.hp=15;
        add:playerMax.mp=7;
        csay:Thy power increases by 13. Thy Response Speed increases by 5. Thy Maximum Hit Points increase by 15. Thy Maximum Magic Points increase by 7.;
    endif;
    if:player.level=19;
        set:playerMax.xp=26000;
        add:playerMax.strength=2;
        add:playerMax.agility=2;
        add:playerMax.hp=15;
        add:playerMax.mp=6;
        csay:Thy power increases by 2. Thy Response Speed increases by 2. Thy Maximum Hit Points increase by 15. Thy Maximum Magic Points increase by 6. Thou hast learned a new spell.;
    endif;
    if:player.level>19;
        setto:ints.xpIncrease=playerMax.xp;
        div:ints.xpIncrease=7;
        add:playerMax.xp=ints.xpIncrease;
        rand:ints.hpIncrease=2,15;
        add:playerMax.hp=ints.hpIncrease;
        rand:ints.mpIncrease=2,20;
        add:playerMax.mp=ints.mpIncrease;
        rand:ints.agilityIncrease=2,8;
        add:playerMax.agility=ints.agilityIncrease;
        rand:ints.strengthIncrease=2,10;
        add:playerMax.strength=ints.strengthIncrease;
        say:Thy power increases by ints.strengthIncrease. Thy Response Speed increases by ints.agilityIncrease. Thy Maximum Hit Points increase by ints.hpIncrease. Thy Maximum Magic Points increase by ints.mpIncrease.;
    endif;
    run:CalculatePlayerStats;

═action:use_wings;
    if:map.name=outworld;
        take:Wings;
        go:outworld,47,45;
        say:PLAYERNAME threw The Wings of the Wyvern up into the sky.;
═action:return_home;
    if:map.name=outworld;
        go:outworld,47,45;
        say:PLAYERNAME zooms up into the sky.;

═action:torch;
    set:map.darkRadius=2;
    take:Torch;
    say:PLAYERNAME lights a torch.;

═action:avoid_encounters;
    set:ints.fairySteps=128;
    say:Thou dost unleash a truly repulsive scent.;
═action:avoid_encounters_water;
    take:Fairy Water;
    set:ints.fairySteps=128;
    say:Thou splashes the Fairy Water over thy head. Thy perfume art truly repulsive.;

═action:herb;
    take:Herb;
    rand:ints.restore=20,30;
    add:player.hp=ints.restore;
    if:player.hp>playerMax.hp;
        setto:player.hp=playerMax.hp;
    endif;
    say:Thou eats the herb. ints.restore health hast been restored.;
═action:silver_harp;
    encounter:Slime,Red Slime,Drakee,Ghost,Magician,Scorpion;

═action:fairy_flute;
    if:enemy.name=Golem;
        csay:PLAYERNAME blew the Fairies’ Flute. The Golem hast been pacified.;
        run:WinEncounter;
    else;
        say:PLAYERNAME blew the Fairies’ Flute. But nothing happened.;


═action:distance_from_castle;
    setto:ints.nextLevel=playerMax.xp;
    sub:ints.nextLevel=player.xp;
    csay:Heed my voice, PLAYERNAME, for this is Gwaelin. To reach the next level thou must raise thy Experience Points by ints.nextLevel. My hope is with thee. From where thou art now, my castle lies;
    set:bools.and=false;
    if:ints.north>0;
        csay:ints.north south.;
        set:bools.and=true;
    endif;
    if:ints.south>0;
        set:bools.and=true;
        csay:ints.south north.;
    endif;
    if:ints.west>0;
        run:maybe_and;
        csay:ints.west east.;
    endif;
    if:ints.east>0;
        run:maybe_and;
        csay:ints.east west.;
    endif;
    say:I love thee, PLAYERNAME.;

═action:maybe_and;
    if:bools.and=true;
        csay:and;

═action:read_tablet;
    say:The tablet reads as follows, "I am Erdrick and thou art my descendant. Three items were needed to reach the Isle of Dragons, which is south of Brecconary. I gathered these items, reached the island, and there defeated a creature of great evil. Now I have entrusted the three items to three worthy keepers. Their descendants will protect the items until thy quest leads thee to seek them out. When a new evil arises, find the three items, then fight!";

═action:cast_heal;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.restore=25,30;
    add:player.hp=ints.restore;
    if:player.hp>playerMax.hp;
        setto:player.hp=playerMax.hp;
    endif;
    say:Thou hast restore ints.restore hp.;

═action:cast_hurt;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.spellChance=1,16;
    if:enemy.hurtResist>ints.spellChance;
        say:Thou casts Hurt but fail to hit thou target.;
    endif;
    rand:ints.damage=8,12;
    csay:Thou casts Hurt.;
    run:DamageEnemy;

═action:cast_sleep;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.spellChance=1,16;
    if:enemy.sleepResist>ints.spellChance;
        say:Thou hast cast Sleep but ENEMYNAME resists.;
    endif;
    set:enemy.status=sleep;
    say:Thou hast put ENEMYNAME to sleep.;

═action:cast_radiant;
    set:ints.radiantSteps=200;
    set:map.darkRadius=4;
    say:Thou hast cast radiant.;
═action:cast_stop;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.spellChance=1,16;
    if:enemy.stopResist>ints.spellChance;
        say:Thou hast cast Stop but it had no effect.;
═action:cast_outside;
    if:map.name=outworld;
        say:Thoust art already outside.;
    endif;
    go:map.Exit;

═action:cast_healmore;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.restore=85,100;
    add:player.hp=ints.restore;
    if:player.hp>playerMax.hp;
        setto:player.hp=playerMax.hp;
    endif;
    say:Thou hast restore ints.restore hp.;

═action:cast_hurtmore;
    if:player.status=stop;
        exit;
    endif;
    rand:ints.spellChance=1,16;
    if:enemy.hurtResist>ints.spellChance;
        say:Thou casts Hurt but fail to hit thou target.;
    endif;
    rand:ints.damage=58,65;
    run:DamageEnemy;

═action:PlayerTurn;
    ifnot:player.status=ok;
        run:WakePlayer;
    endif;
    if:player.status=sleep;
        set:encounter.playerTurn=false;
        say:Thou art asleep.;
    
═action:WakePlayer;
    rand:ints.wake=0,100;
    if:ints.wake>50;
        exit;
    endif;
    if:player.status=sleep;
        csay:Thou hast awoken.;
    endif;
    set:player.status=ok;
    
    
═action:EnemyTurn;
    ifnot:enemy.status=ok;
        run:WakeEnemy;
    endif;
    if:enemy.status=sleep;
        set:encounter.playerTurn=true;
        say:ENEMYNAME art asleep.;
    
═action:WakeEnemy;
    rand:ints.wake=5,500;
    if:ints.wake>25;
        exit;
    endif;
    if:enemy.status=sleep;
        csay:ENEMYNAME wakes up.;
    endif;
    set:enemy.status=ok;

═action:PlayerAttack;
    rand:ints.dodge=1,64;
    if:enemy.dodge>ints.dodge;
        say:Thou attacks ENEMYNAME. But missed!;
    endif;
    setto:ints.damage=player.attack;
    setto:ints.defense=enemy.agility;
    rand:ints.Crits=1,32;
    if:ints.Crits>1;
        div:ints.defense=2;
    else;
        csay:Excellent move!;
        set:ints.defense=0;
    endif;
    sub:ints.damage=ints.defense;
    div:ints.damage=4;
    csay:Thou attacks ENEMYNAME.;
    run:DamageEnemy;

═action:PlayerRun;
    rand:ints.run=0,255;
    mul:ints.run=player.agility;
    rand:ints.block=0,255;
    mul:ints.block=enemy.agility;
    if:ints.run>ints.block;
        set:encounter.over=true;
        say:Thou hast ran away.;
    else;
        say:ENEMYNAME hast blocked thy attempt to flee.;

═action:EnemyRun;
    setto:ints.heroStr=player.strength;
    div:ints.heroStr=2;
    if:ints.heroStr<enemy.strength;
        exit;
    endif;
    rand:ints.runChance=0,3;
    if:ints.runChance=0;
        set:encounter.over=true;
        say:ENEMYNAME hast ran away.;


═action:DamageEnemy;
    if:ints.damage<1;
        set:ints.damage=1;
    endif;
    sub:enemy.hp=ints.damage;
    csay:The ENEMYNAME's Hit Points have been reduced by ints.damage.;
    if:enemy.hp<1;
        run:WinEncounter;

═action:attack;
    rand:ints.dodge=0,64;
    if:player.agility>ints.dodge;
        say:ENEMYNAME attacks! But missed!;
    endif;    
    if:player.defense<enemy.strength;
        setto:ints.damage=enemy.strength;
        add:ints.damage=4;
        div:ints.damage=6;
    else;
        setto:ints.damage=enemy.strength;
        setto:ints.defense=player.defense;
        div:ints.defense=2;
        sub:ints.damage=ints.defense;
        div:ints.damage=4;
    endif;
    if:ints.damage<0;
        set:ints.damage=0;
    endif;
    csay:ENEMYNAME attacks! Thou hast lost ints.damage hp.;
    run:DamagePlayer;


═action:hurt;
    rand:ints.damage=3,5;
    if:playerGear.armor=Magic Armor;
        div:ints.damage=3;
    endif;
    if:playerGear.armor=Erdrick's Armor;
        div:ints.damage=5;
    endif;
    csay:ENEMYNAME cast hurt! Thou hast lost ints.damage hp.;
    run:DamagePlayer;

═action:stop;
    rand:ints.stopChance=0,100;
    if:ints.stopChance>50;
        set:player.status=stop;
        say:ENEMYNAME casts Stop. Thy magic hast been stopped.;
    endif;
    say:ENEMYNAME casts Stop. Thy magic remains unstopped.;

═action:sleep;
    rand:ints.stopChance=0,100;
    if:ints.stopChance>50;
        set:player.status=sleep;
        say:ENEMYNAME casts Sleep. Thou hast fallen asleep.;
    endif;
    say:ENEMYNAME casts Sleep. Thou hast resisted.

═action:hurtmore;
    rand:ints.damage=30,45;
    if:playerGear.armor=Magic Armor;
        div:ints.damage=3;
    endif;
    if:playerGear.armor=Erdrick's Armor;
        div:ints.damage=4;
    endif;
    csay:ENEMYNAME cast hurtmore! Thou hast lost ints.damage hp.;
    run:DamagePlayer;

═action:breath;
    rand:ints.damage=26,43;
    if:playerGear.armor=Magic Armor;
        div:ints.damage=3;
    endif;
    if:playerGear.armor=Erdrick's Armor;
        div:ints.damage=4;
    endif;
    csay:ENEMYNAME hast horrid breath! Thou hast lost ints.damage hp.;
    run:DamagePlayer;

═action:strongbreath;
    rand:ints.damage=45,72;
    if:playerGear.armor=Magic Armor;
        div:ints.damage=3;
    endif;
    if:playerGear.armor=Erdrick's Armor;
        div:ints.damage=4;
    endif;
    csay:ENEMYNAME hast breath of fire! Thou hast lost ints.damage hp.;
    run:DamagePlayer;

═action:run;
    rand:ints.run=0,100;
    if:ints.run<25;
        set:encounter.over=true;
        say:ENEMYNAME hast ran way.;
    else;
        say:Thou hast blocked ENEMYNAME attempt to flee.;