summaryrefslogblamecommitdiff
path: root/world/map/npc/functions/ferry.txt
blob: 0b66f68e79f894e25ccb901421844526d77cee07 (plain) (tree)
1
2
3
4
5
6
7
8
9

                   
                       
 



                             
                           

        





                                      
 

            


                                                             
                                                       
                       
                 

                 


                                                             
                                                       

                                                    
                 

            

                               
                               

                           
                                     
                             
                 

            

                               
                               

                           
                                     
                              
                 
 






                                   
                              

                 
         

                            
                            

                           
                                  
                             
                 
 
               
                               
                 

              
                                                   
                 

            

                             
                           
                 




                           
                         

                
 
// The ferry system

function|script|Ferry|,
{
    if (BaseLevel < 20)
        goto L_LowerCost;
    set @cost_tulimshar, 500;
    set @cost_hurnscald, 500;
    set @cost_nivalis, 500;

L_Start:
    set @cost_candor, 1500;
    mes "Where would you like to go?";
    next;
    if (BaseLevel < 40)
        goto L_PlainMenu;
    goto L_MenuWithCandor;


L_PlainMenu:
    menu
        "Tulimshar (" + @cost_tulimshar + "GP)", L_Tulimshar,
        "Hurnscald (" + @cost_hurnscald + "GP)", L_Hurnscald,
        "Nivalis (" + @cost_nivalis + "GP)", L_Nivalis,
        "Nevermind", -;
    goto L_Close;

L_MenuWithCandor:
    menu
        "Tulimshar (" + @cost_tulimshar + "GP)", L_Tulimshar,
        "Hurnscald (" + @cost_hurnscald + "GP)", L_Hurnscald,
        "Nivalis (" + @cost_nivalis + "GP)", L_Nivalis,
        "Candor (" + @cost_candor + "GP)", L_Candor,
        "Nevermind", -;
    goto L_Close;

L_Tulimshar:
    if (@loc == DOCK_tulimshar)
        goto L_AlreadyThere;
    if (Zeny < @cost_tulimshar)
        goto L_NotEnoughGP;

    set Zeny, Zeny - @cost_tulimshar;
    warp "022-1.gat", 76, 72;
    goto L_Close;

L_Hurnscald:
    if (@loc == DOCK_hurnscald)
        goto L_AlreadyThere;
    if (Zeny < @cost_hurnscald)
        goto L_NotEnoughGP;

    set Zeny, Zeny - @cost_hurnscald;
    warp "008-1.gat", 137, 64;
    goto L_Close;

L_Nivalis:
    if (@loc == DOCK_nivalis)
        goto L_AlreadyThere;
    if (Zeny < @cost_nivalis)
        goto L_NotEnoughGP;

    set Zeny, Zeny - @cost_nivalis;
    warp "031-1.gat", 95, 109;
    goto L_Close;

L_Candor:
    if (@loc == DOCK_candor)
        goto L_AlreadyThere;
    if (Zeny < @cost_candor)
        goto L_NotEnoughGP;

    set Zeny, Zeny - @cost_candor;
    warp "029-1.gat", 25, 37;
    goto L_Close;

L_AlreadyThere:
    mes "You're already here!";
    goto L_Close;

L_NotEnoughGP:
    mes "You don't have enough money to go there!";
    goto L_Close;

L_LowerCost:
    set @cost_tulimshar, 250;
    set @cost_hurnscald, 250;
    set @cost_nivalis, 250;
    goto L_Start;

L_Close:
    set @cost_tulimshar, 0;
    set @cost_hurnscald, 0;
    set @cost_candor, 0;
    set @cost_nivalis, 0;
    set @loc, 0;
    close;
}