viewing paste Unknown #17804 | Aegis

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206
//---------------------- TOWER Dungeon Security Guard -----------------------
npc "e_tower" "Tower Protection Stone" 2_MONEMUS 81 105 0 0 0
 
OnClick:
var ins_mas = (v[VAR_ISPARTYMASTER])
var ins_pt = (v[VAR_CPARTY])
var p_name = PartyName
var p_reader = PcName
var md_name = "Endless Tower"
var p_name2 = PcName
var 102time = checkquest_playtime 12058
if (ins_pt > 0)
    if (102time == 0)
    if (ins_mas == 1)
    dialog "Confirmed the party has been made. Would you like to reserve for the entry to the Endless Tower? "
    wait
    choose menu md_name + "Dungeon Generated" "Enter the dungeon" "Return to Alberta" "Cancel"
        case 1
            var in_wait = MD_Subscription md_name
            if (in_wait == 0)
                dialog "Party Name:"+p_name+""
                dialog "Party Leader:"+p_reader+""
                dialog "^0000ff"+md_name+" ^000000- Reservation Failed"
                close
            else
                dialog "^0000ff"+md_name+"^000000 - Try to reserve"
                dialog "After making a reservation, you have to talk to NPC behind and select the menu 'Enter the Dungeon' to enter the dungeon."
                close
            endif
            return
        break
        case 2
            var move_md = MD_Enter md_name
            if (move_md == 3)
                dialog "An unidentified error is occured."
                close
            elseif (move_md == 2)
                dialog "The memorial dungeon " + md_name + " does not exist."
                dialog "The party leader did not generate the dungeon yet."
                close
            elseif (move_md == 1)
                dialog "You can enter the dungeon after making the party."
                close
            elseif (move_md == 0)
                broadcastinmap2 "00ff99A party memeber, " + p_name2 + " of the party, " FW_NORMAL 12 0 0  p_name + ", is entering the dungeon, " + md_name + "."
                setquest 12058
                close
            endif
            return
        break
        case 3
            dialog "I will move you to the place where you were."
            close
            moveto "alberta" 223 36
            return
        break
        case 4
            close
            return
        break
    endchoose
                close
            return
else
    dialog "If you have the dungeon generated already, you can enter it. "
    wait
    choose menu md_name + "Enter the dungeon" "Return to Alberta" "Cancel"
        case 1
            var move_md = MD_Enter md_name
            if (move_md == 3)
                dialog "An unidentified error is occured."
                close
            elseif (move_md == 2)
                dialog "The memorial dungeon " + md_name + " does not exist."
                dialog "Please confirm with your party leader wether the memorial dungeon has been destructed or if the time given for entering has been expired."
                close
            elseif (move_md == 1)
                dialog "You can enter the dungeon after making the party."
                close
            elseif (move_md == 0)
                broadcastinmap2 "00ff99A party memeber, " + p_name2 + " of the party, " FW_NORMAL 12 0 0  p_name + ", is entering the dungeon, " + md_name + "."
                setquest 12058
                close
            endif
            return
        break
        case 2
            dialog "I will move you to the place where you were."
            close
            moveto "alberta" 223 36
            return
        break
        case 3
            close
            return
        break
 
    endchoose
            close
            return
        endif
    return
 
    elseif (102time == 1)
            dialog "^0000ffDue to the aftereffect, the protection stone of the tower did not repond to your request.^000000"
        close
        return
 
    elseif (102time == 2)
        dialog "^0000ffThe records and aftereffect related to the Endless Tower have been removed. You can genearte and enter the Endless Tower again.^000000"
        erasequest 12058
                close
        return
endif
 
else
    dialog "Make or join the party with more than 1 member or try again."
    close
endif
return
 
 
 
npc "e_tower" "Huge Vortex" CLEAR_NPC 30 30 2 2 0
OnTouch2:
    var p_name2 = PcName
    broadcastinmap2 "00ff99An adventurer," FW_NORMAL 12 0 0  "[ " + p_name2 + " ], seems to be engulfed by a huge vortex"
    moveto "alberta" 223 36
return
 
 
npc "e_tower" "#102Administrator Mode104" CLEAR_NPC 1 1 2 2 0
OnClick:
    dialog "Please enter the password"
    dlgwritestr
    wait
    if (inputstr == "dmc2008")
    choose menu "Generate Purification Stone" "Remove Purification Stone" "Cancel"
        case 1
            dialog "Create the Purification Stone that stays for 30 minutes."
            cmdothernpc "Purification Stone#102tower" "on" 
            close
            return
        break
        case 2
            dialog "Destroy the Purification Stone immediately"
            cmdothernpc "Purification Stone#102tower" "off" 
            close
            return
        break
        case 3
            dialog "You have canceled it."
            close
            return
        break
    endchoose
    else
        dialog "Enter the password exactly."
        close
        return
    endif
return
 
 
npc "e_tower" "Purification Stone#102tower" 2_MONEMUS 69 117 4 0 0
 
OnInit: 
     disablenpc "Purification Stone#102tower"
return 
 
OnCommand: "on" 
    InitTimer
return 
 
OnCommand: "off" 
    stoptimer
    disablenpc "Purification Stone#102tower"
return 
 
OnTimer: 1000
    enablenpc "Purification Stone#102tower"
return 
 
OnTimer: 1740000
    broadcastinmap2 "00ff99" FW_NORMAL 12 0 0  "The Purification Stone will be destroyted in one minute"
return 
 
OnTimer: 1800000
    disablenpc "Purification Stone#102tower"
return 
 
OnClick: 
    erasequest 12058
    setitem in_102floor 0
    dialog "^0000ffThe records and aftereffect related to the Endless Tower have been removed. You can genearte and enter the Endless Tower again.^000000"
    close
return
 
npc "e_tower" "Purification Stone#102tower-2" CLEAR_NPC 151 185 4 0 0
OnClick: 
    erasequest 12058
    setitem in_102floor 0
    dialog "^0000ffThe records and aftereffect related to the Endless Tower have been removed. You can genearte and enter the Endless Tower again.^000000"
    close
    moveto "e_tower" 75 108
return
Viewed 980 times, submitted by milk.