; ===================================
; QGO Market Def NPC File : 9Ech-0126
; Exchange NPC
; -----------------------------------
; 9 July 2003 (Xerxes)
;   - Added New text
;   - Added routines to exchange obsolete eq
; ===================================
[@main]
#IF
#SAY
		;ڳ    ϴ  Ƴ? \
		; ϴ  Ʒ ٳ... \
		;ѹ غڳ..? Ź Ұ غ \ \
; ========== NEW TEXT ==========
Hello! My speciality is to bundle all your loose items, like\
drugs, gold and such. It is IMPORTANT that you have enough\
room in your bag!!\\
SPECIAL OFFER!! This month only, I will exchange your\
obsolete equipment for tokens!\
; ========== END NEW TEXT ==========
		;<ݱ  Ϳ Ͽ ˾ ./@gold100> \
		;<ݱ Ͽ ˾ ./@gold500> \
		;<¦ Ͽ ˾ ./@gold1000> \
		;<  ࿡ Ͽ ˾ ./@bind> \
		;<׸д/@exit>
<Exchange Goldbar/@gold100> <Bundle Goldbars/@gold500> \
<Create Goldchest/@gold1000> <Bundle scrolls and drugs/@bind> \
<Teleport out/@tele> <Cancel/@exit> \
<Exchange Old Equipment/@exchange>

; -----------------------------------
[@gold100]
#IF
#SAY
		; ݱ Ͽ   ִ  ݱ  \
		;ٲپ شٴ ƴϸ  ݱ ٲپ ִ \
		; Ҽ ֳ.. ݱ ġ  100 ϼ \
		; Ͻð. ׷   Ź Ұǰ? \ \
; ========== NEW TEXT ==========
I can exchange your Gold into a Gold bar \
or viceversa... \
Please note that one gold bar is worth 1 million
gold. Well then, what can I do for you? \\ 
; ========== END NEW TEXT ==========
		;< ݱ ȯ Ѵ./@Change> \
		;<ݱ  ȯ Ѵ./@Reverse> \
		;<  /@main> \
<Exchange Gold into Goldbar/@Change> \
<Exchange Goldbar into Gold/@Reverse> \
 <Back/@main> \


; -----------------------------------
[@gold500]
#IF
#SAY
		; ݱ  Ͽ   ִ  ݱ \
		;ݱ ٲپ شٴ ƴϸ ݱ ݱ  \
		;ٲپִ  Ҽ ֳ.. ݱ ġ ݱ \
		;5 ٳ. ׷  Ź Ұǰ? \ \
; ========== NEW TEXT ==========
I can exchange Goldbars into a Goldbar Bundle \
or I can exchange it back to Goldbars\
(you cannot do this by yourself). \
A Goldbar Bundle is made up of 5 Goldbars.\
Well, what can I do for you? \ \ 
; ========== END NEW TEXT ==========
		;<ݱ ݱ ȯ Ѵ./@Change5Set> \
		;<ݱ ݱ ȯ Ѵ./@Reverse5Set> \
		;<  /@main> \
<Exchange Goldbars into Goldbar Bundle/@Change5Set> \
<Exchange Goldbar Bundle into Goldbars/@Reverse5Set> \
<Back/@main> \


; -----------------------------------
[@gold1000]
#IF
#SAY
		; ¦ Ͽ   ִ  ¦ \
		;ݱ ٲپ شٴ ƴϸ ݱ \
		;¦ ٲپ ִ  Ҽ ִٳ.. \
		;¦ ġ ݱ 2 ٳ. ׷  \
		;Ź Ұǰ? \ \ 
; ========== NEW TEXT ==========
I can create a Goldchest for you from Goldbar Bundles,\
or I can split a Goldchest into Goldbar Bundles.\
A Goldchest is made from 2 GoldBar Bundles.\
What would you have me do? \\ 
; ========== END NEW TEXT ==========
		;<ݱ  ¦ ȯ Ѵ./@Change10Set> \
		;<¦ ݱ  ȯ Ѵ./@Reverse10Set> \
		;<  /@main> \ 
<Exchange Goldbar Bundles into a Goldchest/@Change10Set> \
<Exchange a Goldchest into Goldbar Bundles/@Reverse10Set> \
<Back/@main> \


; -----------------------------------
[@Change5Set]
#IF
	checkitem GoldBar 5
#SAY
		;ݱ ݱ ٲٰ ʹٰ ߳? \
		;׷ ڳ׸ ؼ ݱ ȯ  ټ ֳ \
		;  Ḧ  ֽð .. \
		;  12000 ϼ ׷ ٲٰڳ? \ \
; ========== NEW TEXT ==========
Do you want to exchange your Goldbars into a Goldbar Bundle?\
It's not difficult for me to do it for you, but I will\
charge you for my work. My costs are 12000 gold;\
do you still want to make the exchange? \\
; ========== END NEW TEXT ==========
		;<ȯѴ./@Change5Set_1> \
		;<׸д./@exit>
<Exchange/@Change5Set_1> \
<Cancel/@exit>

#ELSESAY
		;ڳ 5 ݱ 鼭   ȯ \
		;ش޶ Ź ϳ? ڳ ݱ  ϸ \
		;ٽ ðԳ.. \ \
; ========== NEW TEXT ==========
But you don't have enough gold bars! Why do you ask me\
to exchange it without the necessary items?\
Come back again when you get sufficient gold bars!\\
; ========== END NEW TEXT ==========
		;<ڷ/@main>
<Back/@main>


; -----------------------------------
[@Change5Set_1]
#IF 
	checkitem GoldBar 5
	checkgold 12000
#ACT
	take GoldBar 5
	take Gold 12000
	give GoldBaBundle 1
#SAY
		;ݱ ݱ ߹ٲپ. \ 
		; ٲٽðڴ°? \ \
; ========== NEW TEXT ==========
That's it, I have completed the exchange.\
Would you like me to exchange more for you? \\
; ========== END NEW TEXT ==========
		;<ٲ۴./@Change5Set> \
		;<ٲʴ´./@exit>
<Exchange/@Change5Set> \
<Cancel/@exit>

#ELSESAY
		;ݱ ų Ȥ ڳװ ᰡ  \
		;ٲپ ټ .. ٽ ѹ Ȯ  \ \
; ========== NEW TEXT ==========
I cannot do this because you either don't have enough\
Goldbars or enough Gold to pay me.\
Check your items and come back later.\\
; ========== END NEW TEXT ==========
		;<׸д./@exit>
<Cancel/@exit>


; -----------------------------------
[@Reverse5Set]
#IF
	checkitem GoldBaBundle 1
#SAY
		;ݱ ݱ ٲٰ ʹٰ ߳? \
		;׷ ڳ׸ ؼ ݱ ȯ  ټ ֳ \
		;  Ḧ  ֽð .. \
		;  12000 ϼ ׷ ٲٰڳ? \ \
; ========== NEW TEXT ==========
Do you want to exchange a Goldbar Bundle into Goldbars?\
It's not difficult for me to do it for you, but I will\
charge you for my work. My costs are 12000 gold;\
do you still want to make the exchange? \ \
; ========== END NEW TEXT ==========
		;<ȯѴ./@Reverse5Set_1> \
		;<׸д./@exit>
<Exchange/@Reverse5Set_1> \
<Cancel/@exit>

#ELSESAY
		;ڳ ݱ 鼭   ȯ \
		;ش޶ Ź ϳ? ڳ ݱ غ Ǹ \
		;ٽ ðԳ.. \ \
; ========== NEW TEXT ==========
You don't have a Goldbar Bundle! Why do you ask me to\
make the exchange without this item?\
Come back again when you get a Goldbar Bundle for me!\\
; ========== END NEW TEXT ==========
	;<ڷ/@main>
<Back/@main>


; -----------------------------------
[@Reverse5Set_1]
#IF 
	checkbaggage
	checkitem GoldBaBundle 1
	checkgold 12000
#ACT
	take GoldBaBundle 1
	take Gold 12000
	give GoldBar 5
#SAY
;ݱ ݱ ߹ٲپ. \ 
I finished my work. \
; ٲٽðڴ°? \ \
Would you like to exchange again? \ \

;<ٲ۴./@Reverse5Set> \
 <Exchange/@Reverse5Set> \
;<ٲʴ´./@exit>
 <Cancel/@exit>

#ELSESAY
;ݱ ų Ȥ ڳװ ᰡ  \
You don't have either enough GoldBar Bundle or enough Gold \
;ٲپ ټ .. ٽ ѹ Ȯ  \ \
I can't make the exchange... come back later \ \

;<׸д./@exit>
<Cancel/@exit>

[@Change10Set]
#IF
checkitem GoldBaBundle 2
#SAY
;ݱ ¦ ٲٰ ʹٰ ߳? \
Do you want to exchange GoldBar Bundle into GoldChest? \
;׷ ڳ׸ ؼ ¦ ȯ  ټ ֳ \
Of course, it's not difficult to do it for you \
;  Ḧ  ֽð .. \
but I will charge you for my work... \
;  12000 ϼ ׷ ٲٰڳ? \ \
This charge is 10000 gold, do you still want to exchange it? \ \

;<ȯѴ./@Change10Set_1> \
 <Exchange/@Change10Set_1> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ 2 ݱ 鼭   ȯ \
Why do you ask me to exchange it without 2 GoldBar Bundle? \
;ش޶ Ź ϳ? ڳ ݱ  ϸ \
Come again when you get enough GoldBar Bundle \
;ٽ ðԳ.. \ \

;<ڷ/@main>
 <Back/@main>

[@Change10Set_1]
#IF 
checkitem GoldBaBundle 2
checkgold 10000
#ACT
take GoldBaBundle 2
take Gold 10000
give GoldChest 1
#SAY
;ݱ ¦ ߹ٲپ. \
I finished my work. \
; ٲٽðڴ°? \ \
Would you like to exchange again? \ \

;<ٲ۴./@Change10Set> \
 <Exchange/@Change10Set> \
;<ٲʴ´./@exit>
 <Cancel/@exit>

#ELSESAY
;ݱ ų Ȥ ڳװ ᰡ  \
You don't have either enough GoldBar Bundle or enough Gold \
;ٲپ ټ .. ٽ ѹ Ȯ  \ \
I can't make the exchange... come back later \ \
;<׸д./@exit>
 <Cancel/@exit>

[@Reverse10Set]
#IF
checkitem GoldChest 1
#SAY
;¦ ݱ ٲٰ ʹٰ ߳? \
Do you want to exchange GoldChest into GoldBar Bundle? \
;׷ ڳ׸ ؼ ݱ ȯ  ټ ֳ \
Of course, it's not difficult to do it for you \
;  Ḧ  ֽð .. \
but I will charge you for my work... \
;  10000 ϼ ׷ ٲٰڳ? \ \
This charge is 10000 gold, do you still want to exchange it? \ \

;<ȯѴ./@Reverse10Set_1> \
 <Exchange/@Reverse10Set_1> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ ¦ 鼭   ȯ \
Why do you ask me to exchange it without GoldChest? \
;ش޶ Ź ϳ? ڳ ¦ غ Ǹ \
Come again when you got a GoldChest \ \
;ٽ ðԳ.. \ \

;<ڷ/@main>
<Back/@main>

[@Reverse10Set_1]
#IF 
checkbaggage
checkitem GoldChest 1
checkgold 10000
#ACT
take GoldChest 1
take Gold 10000
give GoldBaBundle 2
#SAY
;¦ ݱ ߹ٲپ. \ 
I finished my work. \
; ٲٽðڴ°? \ \
Would you like to exchange again? \ \

;<ٲ۴./@Reverse10Set> \
 <Exchange/@Reverse10Set> \
;<ٲʴ´./@exit>
 <Cancel/@exit>

#ELSESAY
;¦ ų Ȥ ڳװ ᰡ  \
You don't have either enough GoldChest or enough Gold \
;ٲپ ټ .. ٽ ѹ Ȯ  \ \
I can't make the exchange... come back later \ \
;<׸д./@exit>
 <Cancel/@exit>


[@Change]
#IF
checkgold 1000000
#SAY
;ڳ  ݱ ٲٰ ʹٰ ߳? \  
Do you want to exchange money into GoldBar? \
;׷ ڳ׸ ؼ ݱ ٲپ ټ ֳ \ 
I can do it, but I'll charge you for my work\
;  Ḧ  ־ ϳ \ 
;  12000 ϼ ׷ ٲٰڳ? \ \
This charge is 2000 gold, do you still want to exchange it? \ \

;<ȯѴ./@Change_1> \
 <Exchange/@Change_1> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ ׸  鼭   ȯ \  
Your gold is not enough for an exchange \
;ش޶ Ź ϳ? ڳ   ϸ \  
Come again later when you have enough money \ \
;ٽÿ \ \

;<ڷ/@main> 
 <Back/@main>

[@Change_1]
#IF 
checkbaggage
checkgold 1002000
#ACT
take Gold 1002000
give GoldBar 1
#SAY
; ݱ ߹ٲپ. \  
I finished my work. \
; ٲٽðڴ°? \ \
Would you like to exchange again? \ \

;<ٲ۴./@Change> \
 <Exchange/@Change> \
;<ٲʴ´./@exit>
 <Cancel/@exit>

#ELSESAY
; áų Ȥ ڳװ ᰡ  \  
Because either your bag is full or you have no money to pay the charge \
;ٲپ ټ .. ٽ ѹ Ȯ  \ \  
I can't make exchange... come back later \ \

;<׸д./@exit> 
<Cancel./@exit>

[@Reverse]
#IF
checkitem GoldBar 1
#SAY 
;ڳ ݱ  ٲٰ ʹٰ ߳? \  
You said you want to exchange GoldBar into money? \
;׷ ڳ׸ ؼ  ٲپ ټ ֳ \ 
Well, no problem... \
;  Ḧ  ־ ϳ \ 
but I will charge you for my work... \
;  12000 ϼ ׷ ٲٰڳ? \ \
This charge is 2000 gold, do you still want to exchange it? \ \

;<ȯѴ./@Reverse_1> \
 <Exchange/@Reverse_1> \
;<׸д./@exit>
 <Cancel./@exit>

#ELSESAY
;ڳ ݱ 鼭  ٲپ ޶? \  
You have no GoldBar for making exchange? \
;ĥ ϳ?   ! \ \ 
Did you want to cheat me? Get out of here now! \ \

;<׸д./@exit> 
 <Cancel/@exit>

[@Reverse_1]
#IF
checkitem GoldBar 1
checkgold 4002001
#SAY
;ڳ  ٲپ ְ . \  
Hey you, I want to make this exchange for you \
;ڳװ   ʹ Ƽ ٲپ ټ . \ \ 
but you have too much money! so I can't do it. \ \

;<׸д./@exit> 
 <Cancel/@exit>

#ELSEACT
goto @Reverse_2

[@Reverse_2]
#IF 
checkitem GoldBar 1
#ACT
take GoldBar 1
give Gold 998000
#SAY
;ݱ  ߹ٲپ. \ 
I finished my work. \
; ٲٽðڴ°? \ \
Would you like to exchange again? \ \

;<ٲ۴./@Reverse> \
 <Exchange/@Reverse> \
;<ٲʴ´./@exit>
 <Cancel/@exit>

[@bind]
;   ִ κ  κа \ 
Actually I can bundle all kind of teleport \
; ֹ κ ϼ ѹ  ðڳ? \
and liquid drug. Do you want to try? \
; µ 100  ʿϳ. \ \
It costs 100 gold for each bundle you want to create. \ \ 
; <´./@P_bind> \
 <Bundle/@P_bind> drugs \
;ֹ <´./@Z_bind> \
 <Bundle/@Z_bind> teleports  \

[@P_bind]
;üȸ() <´./@ch_bind1> \
<Bundle/@ch_bind1> (HP)Druglarge \
;ȸ() <´./@ma_bind1> \ 
<Bundle/@ma_bind1> (MP)Druglarge \ 
;üȸ() <´./@ch_bind2> \ 
<Bundle/@ch_bind2> (HP)Drugmedium \
;ȸ() <´./@ma_bind2> \
<Bundle/@ma_bind2> (MP)Drugmedium \
;üȸ() <´./@ch_bind3> \
<Bundle/@ch_bind3> (HP)Drugsmall \
;ȸ() <´./@ma_bind3> \
<Bundle/@ma_bind3> (MP)Drugsmall \
;<  /@bind>
 <Back/@bind>

[@Z_bind]
;ư <´./@zum_bind1> \
<Bundle/@zum_bind1> DungeonEscape  \
;ư༭ <´./@zum_bind2> \
<Bundle/@zum_bind1> RandomTeleport \
;ʰ <´./@zum_bind3> \
<Bundle/@zum_bind1> TownTeleport  \
;ͼ <´./@zum_bind4> \
<Bundle/@zum_bind1> TeleportHome \
;<  /@bind>
<Back/@bind>

[@ch_bind1]
#IF
    checkitem (HP)Druglarge 6
#ACT
   goto @ch_bind1_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ch_bind1_1]
#IF 
   checkgold 100
   checkitem (HP)Druglarge 6
#ACT
   take Gold 100
   take (HP)Druglarge 6
   give (HP)DrugBundle 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind1]
#IF
   checkitem (MP)Druglarge 6
#ACT
   goto @ma_bind1_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind1_1]
#IF 
   checkgold 100
   checkitem (MP)Druglarge 6
#ACT
   take Gold 100
   take (MP)Druglarge 6
    give (MP)DrugBundle 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ch_bind2]
#IF
    checkitem (HP)Drugmedium 6
#ACT
   goto @ch_bind2_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ch_bind2_1]
#IF 
   checkgold 100
    checkitem (HP)Drugmedium 6
#ACT
   take Gold 100
   take (HP)Drugmedium 6
   give (HP)MDrugBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind2]
#IF
    checkitem (MP)Drugmedium 6
#ACT
   goto @ma_bind2_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind2_1]
#IF 
checkgold 100
checkitem (MP)Drugmedium 6
#ACT
take Gold 100
take (MP)Drugmedium 6
give (MP)MDrugBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ch_bind3]
#IF
  checkitem (HP)DrugSmall 6
#ACT
   goto @ch_bind3_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ch_bind3_1]
#IF 
checkgold 100
checkitem (HP)DrugSmall 6
#ACT
take Gold 100
take (HP)DrugSmall 6
give (HP)SDrugBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind3]
#IF
   checkitem (MP)DrugSmall 6
#ACT
   goto @ma_bind3_1
#ELSESAY
;ڳ  ִ ൵ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough drugs? \
; غ Ѵ ٽÿðԳ.. \ \
Go get enough drugs, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@ma_bind3_1]
#IF 
   checkgold 100
   checkitem (MP)DrugSmall 6
#ACT
   take Gold 100
   take (MP)DrugSmall 6
   give (MP)SDrugBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@P_bind> \ 
 <Bind again/@P_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind1]
#IF
   checkitem DungeonEscape 6
#ACT
   goto @zum_bind1_1
#ELSESAY
;ڳ  ִ ֹ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough teleports? \
; غ Ѵ ٽÿðԳ.. \ \ 
Go get enough teleports, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind1_1]
#IF 
   checkgold 100
   checkitem DungeonEscape 6
#ACT
   take Gold 100
   take DungeonEscape 6
   give EscapeBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@Z_bind> \ 
 <Bind again/@Z_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind2]
#IF
   checkitem RandomTeleport 6
#ACT
   goto @zum_bind2_1
#ELSESAY
;ڳ  ִ ֹ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough teleports? \
; غ Ѵ ٽÿðԳ.. \ \ 
Go get enough teleports, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind2_1]
#IF 
   checkgold 100
   checkitem RandomTeleport 6
#ACT
   take Gold 100
   take RandomTeleport 6
   give RandomBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@Z_bind> \ 
 <Bind again/@Z_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind3]
#IF
   checkitem TownTeleport 6
#ACT
   goto @zum_bind3_1
#ELSESAY
;ڳ  ִ ֹ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough teleports? \
; غ Ѵ ٽÿðԳ.. \ \ 
Go get enough teleports, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind3_1]
#IF 
   checkgold 100
   checkitem TownTeleport 6
#ACT
   take Gold 100
   take TownTeleport 6
   give TownTeBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@Z_bind> \ 
 <Bind again/@Z_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>


[@zum_bind4]
#IF
    checkitem TeleportHome  6
#ACT
   goto @zum_bind4_1
#ELSESAY
;ڳ  ִ ֹ 鼭   ޶°ǰ? \
Why do you ask me to make a bundle without enough teleports? \
; غ Ѵ ٽÿðԳ.. \ \ 
Go get enough teleports, then come back to me... \ \
;<׸д./@exit>
 <Cancel/@exit>

[@zum_bind4_1]
#IF 
   checkgold 100
   checkitem TeleportHome 6
#ACT
   take Gold 100
   take TeleportHome 6
   give TeHomeBundl 1
#SAY
; ...   .. \
The work is complete! \
;׷     ã.. \ \ 
Do you need another bundle? \ \

;<ٽ ´./@Z_bind> \ 
 <Bind again/@Z_bind> \
;<׸д./@exit>
 <Cancel/@exit>

#ELSESAY
;ڳ   ִ  鼭  \
Why do you ask me to make a bundle without enough Gold? \
;  ڴ°? \
; ư.... \ \
Go get some gold first! \ \
;<׸д./@exit>
 <Cancel/@exit>

[@tele]
#IF
checklevel 1
#ACT
mapmove 0 288 253


;===============================================================
; QGO Exchange Functions and subroutines
; for obsolete items and objects (1.4i/1.5 preparation)
;===============================================================
[@exchange]
#IF
	checkitemw SurviveRing 1
#ACT
	takew SurviveRing 1
	give extoken 2
#SAY
Found SurviveRing worn!\\
#IF
	checkitem SurviveRing 1
#ACT
	take SurviveRing 1
	give extoken 2
#SAY
Found SurviveRing in bag!\\
; ----------------------------------------
#IF
	checkitemw SurviveBrace 1
#ACT
	takew SurviveBrace 1
	give extoken 4
#SAY
Found SurviveBrace worn!\\
#IF
	checkitem SurviveBrace 1
#ACT
	take SurviveBrace 1
	give extoken 4
#SAY
Found SurviveBrace in bag!\\
; ----------------------------------------
#IF
	checkitemw SurviveNeckl 1
#ACT
	takew SurviveNeckl 1
	give extoken 1
#SAY
Found SurviveNeckl worn!\\
#IF
	checkitem SurviveNeckl 1
#ACT
	take SurviveNeckl 1
	give extoken 1
#SAY
Found SurviveNeckl in bag!\\
; ----------------------------------------
#IF
	checkitemw TaoistRing 1
#ACT
	takew TaoistRing 1
	give extoken 1
#SAY
Found TaoistRing worn!\\
#IF
	checkitem TaoistRing 1
#ACT
	take TaoistRing 1
	give extoken 1
#SAY
Found TaoistRing in bag!\\
; ----------------------------------------
#IF
	checkitemw TaoistBracelet 1
#ACT
	takew TaoistBracelet 1
	give extoken 1
#SAY
Found TaoistBracelet worn!\\
#IF
	checkitem TaoistBracelet 1
#ACT
	take TaoistBracelet 1
	give extoken 1
#SAY
Found TaoistBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw TaoistNecklace 1
#ACT
	takew TaoistNecklace 1
	give extoken 1
#SAY
Found TaoistNecklace worn!\\
#IF
	checkitem TaoistNecklace 1
#ACT
	take TaoistNecklace 1
	give extoken 1
#SAY
Found TaoistNecklace in bag!\\
; ----------------------------------------
#IF
	checkitemw WizardRing 1
#ACT
	takew WizardRing 1
	give extoken 1
#SAY
Found WizardRing worn!\\
#IF
	checkitem WizardRing 1
#ACT
	take WizardRing 1
	give extoken 1
#SAY
Found WizardRing in bag!\\
; ----------------------------------------
#IF
	checkitemw WizardBracelet 1
#ACT
	takew WizardBracelet 1
	give extoken 1
#SAY
Found WizardBracelet worn!\\
#IF
	checkitem WizardBracelet 1
#ACT
	take WizardBracelet 1
	give extoken 1
#SAY
Found WizardBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw WizardNecklace 1
#ACT
	takew WizardNecklace 1
	give extoken 1
#SAY
Found WizardNecklace worn!\\
#IF
	checkitem WizardNecklace 1
#ACT
	take WizardNecklace 1
	give extoken 1
#SAY
Found WizardNecklace in bag!\\
; ----------------------------------------
#IF
	checkitemw ChimeraRing 1
#ACT
	takew ChimeraRing 1
	give extoken 2
#SAY
Found ChimeraRing worn!\\
#IF
	checkitem ChimeraRing 1
#ACT
	take ChimeraRing 1
	give extoken 2
#SAY
Found ChimeraRing in bag!\\
; ----------------------------------------
#IF
	checkitemw OgreRing 1
#ACT
	takew OgreRing 1
	give extoken 2
#SAY
Found OgreRing worn!\\
#IF
	checkitem OgreRing 1
#ACT
	take OgreRing 1
	give extoken 2
#SAY
Found OgreRing in bag!\\
; ----------------------------------------
#IF
	checkitemw WarBracer 1
#ACT
	takew WarBracer 1
	give extoken 1
#SAY
Found WarBracer worn!\\
#IF
	checkitem WarBracer 1
#ACT
	take WarBracer 1
	give extoken 1
#SAY
Found WarBracer in bag!\\
; ----------------------------------------
#IF
	checkitemw ZenBracelet 1
#ACT
	takew ZenBracelet 1
	give extoken 1
#SAY
Found ZenBracelet worn!\\
#IF
	checkitem ZenBracelet 1
#ACT
	take ZenBracelet 1
	give extoken 1
#SAY
Found ZenBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw BraceofCasting 1
#ACT
	takew BraceofCasting 1
	give extoken 1
#SAY
Found BraceofCasting worn!\\
#IF
	checkitem BraceofCasting 1
#ACT
	take BraceofCasting 1
	give extoken 1
#SAY
Found BraceofCasting in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaSword 1
#ACT
	takew OmaSword 1
	give extoken 2
#SAY
Found OmaSword worn!\\
#IF
	checkitem OmaSword 1
#ACT
	take OmaSword 1
	give extoken 2
#SAY
Found OmaSword in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaSlayer 1
#ACT
	takew OmaSlayer 1
	give extoken 4
#SAY
Found OmaSlayer worn!\\
#IF
	checkitem OmaSlayer 1
#ACT
	take OmaSlayer 1
	give extoken 4
#SAY
Found OmaSlayer in bag!\\
; ----------------------------------------
#IF
	checkitemw GreatOmaSlayer 1
#ACT
	takew GreatOmaSlayer 1
	give extoken 8
#SAY
Found GreatOmaSlayer worn!\\
#IF
	checkitem GreatOmaSlayer 1
#ACT
	take GreatOmaSlayer 1
	give extoken 8
#SAY
Found GreatOmaSlayer in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaArmour(F) 1
#ACT
	takew OmaArmour(F) 1
	give extoken 2
#SAY
Found OmaArmour(F) worn!\\
#IF
	checkitem OmaArmour(F) 1
#ACT
	take OmaArmour(F) 1
	give extoken 2
#SAY
Found OmaArmour(F) in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaArmour(M) 1
#ACT
	takew OmaArmour(M) 1
	give extoken 2
#SAY
Found OmaArmour(M) worn!\\
#IF
	checkitem OmaArmour(M) 1
#ACT
	take OmaArmour(M) 1
	give extoken 2
#SAY
Found OmaArmour(M) in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaBracelet 1
#ACT
	takew OmaBracelet 1
	give extoken 1
#SAY
Found OmaBracelet worn!\\
#IF
	checkitem OmaBracelet 1
#ACT
	take OmaBracelet 1
	give extoken 1
#SAY
Found OmaBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaSoulRing 1
#ACT
	takew OmaSoulRing 1
	give extoken 1
#SAY
Found OmaSoulRing worn!\\
#IF
	checkitem OmaSoulRing 1
#ACT
	take OmaSoulRing 1
	give extoken 1
#SAY
Found OmaSoulRing in bag!\\
; ----------------------------------------
#IF
	checkitemw MagicOmaRing 1
#ACT
	takew MagicOmaRing 1
	give extoken 1
#SAY
Found MagicOmaRing worn!\\
#IF
	checkitem MagicOmaRing 1
#ACT
	take MagicOmaRing 1
	give extoken 1
#SAY
Found MagicOmaRing in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaPipe 1
#ACT
	takew OmaPipe 1
	give extoken 1
#SAY
Found OmaPipe worn!\\
#IF
	checkitem OmaPipe 1
#ACT
	take OmaPipe 1
	give extoken 1
#SAY
Found OmaPipe in bag!\\
; ----------------------------------------
#IF
	checkitemw OmaRing 1
#ACT
	takew OmaRing 1
	give extoken 1
#SAY
Found OmaRing worn!\\
#IF
	checkitem OmaRing 1
#ACT
	take OmaRing 1
	give extoken 1
#SAY
Found OmaRing in bag!\\
; ----------------------------------------
#IF
	checkitemw KingOmaGlove 1
#ACT
	takew KingOmaGlove 1
	give extoken 3
#SAY
Found KingOmaGlove worn!\\
#IF
	checkitem KingOmaGlove 1
#ACT
	take KingOmaGlove 1
	give extoken 3
#SAY
Found KingOmaGlove in bag!\\
; ----------------------------------------
#IF
	checkitemw KingOmaRing 1
#ACT
	takew KingOmaRing 1
	give extoken 2
#SAY
Found KingOmaRing worn!\\
#IF
	checkitem KingOmaRing 1
#ACT
	take KingOmaRing 1
	give extoken 2
#SAY
Found KingOmaRing in bag!\\
; ----------------------------------------
#IF
	checkitemw KingBracelet 1
#ACT
	takew KingBracelet 1
	give extoken 3
#SAY
Found KingBracelet worn!\\
#IF
	checkitem KingBracelet 1
#ACT
	take KingBracelet 1
	give extoken 3
#SAY
Found KingBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw MagicRing 1
#ACT
	takew MagicRing 1
	give extoken 1
#SAY
Found MagicRing worn!\\
#IF
	checkitem MagicRing 1
#ACT
	take MagicRing 1
	give extoken 1
#SAY
Found MagicRing in bag!\\
; ----------------------------------------
#IF
	checkitemw MagicBrace 1
#ACT
	takew MagicBrace 1
	give extoken 1
#SAY
Found MagicBrace worn!\\
#IF
	checkitem MagicBrace 1
#ACT
	take MagicBrace 1
	give extoken 1
#SAY
Found MagicBrace in bag!\\
; ----------------------------------------
#IF
	checkitemw MagicNeck 1
#ACT
	takew MagicNeck 1
	give extoken 1
#SAY
Found MagicNeck worn!\\
#IF
	checkitem MagicNeck 1
#ACT
	take MagicNeck 1
	give extoken 1
#SAY
Found MagicNeck in bag!\\
; ----------------------------------------
#IF
	checkitemw DarkRing 1
#ACT
	takew DarkRing 1
	give extoken 1
#SAY
Found DarkRing worn!\\
#IF
	checkitem DarkRing 1
#ACT
	take DarkRing 1
	give extoken 1
#SAY
Found DarkRing in bag!\\

; ----------------------------------------
; TO BE COMPLETED
; ----------------------------------------
#IF
	checkitemw ExpelBracelet 1
#ACT
	takew ExpelBracelet 1
	give gold 500000
#SAY
Found ExpelBracelet worn!\\
#IF
	checkitem ExpelBracelet 1
#ACT
	take ExpelBracelet 1
	give gold 500000
#SAY
Found ExpelBracelet in bag!\\
; ----------------------------------------
#IF
	checkitemw BlessedHelmet 1
#ACT
	takew BlessedHelmet 1
	give gold 250000
#SAY
Found BlessedHelmet worn!\\
#IF
	checkitem BlessedHelmet 5
#ACT
	take BlessedHelmet 5
	give extoken 1
#SAY
Found BlessedHelmet in bag!\\

; ----------------------------------------
; Run again for single items
; ----------------------------------------
#IF
	checkitem BlessedHelmet 1
#ACT
	take BlessedHelmet 1
	give gold 250000
#SAY
Found BlessedHelmet in bag!\\


; ----------------------------------------
; THESE ITEMS JUST TAKEN, NO EXCHANGE
; ----------------------------------------
#IF
	checkitemw BookOfOils 1
#ACT
	takew BookOfOils 1
#IF
	checkitem BookOfOils 1
#ACT
	take BookOfOils 1
; ----------------------------------------
#IF
	checkitemw ZumaSoul 1
#ACT
	takew ZumaSoul 1
#IF
	checkitem ZumaSoul 1
#ACT
	take ZumaSoul 1
; ----------------------------------------
#IF
	checkitemw WoomaSoul 1
#ACT
	takew WoomaSoul 1
#IF
	checkitem WoomaSoul 1
#ACT
	take WoomaSoul 1
; ----------------------------------------
#IF
	checkitemw RedMoonSoul 1
#ACT
	takew RedMoonSoul 1
#IF
	checkitem RedMoonSoul 1
#ACT
	take RedMoonSoul 1
; ----------------------------------------
#IF
	checkitemw WhiteBoarSoul 1
#ACT
	takew WhiteBoarSoul 1
#IF
	checkitem WhiteBoarSoul 1
#ACT
	take WhiteBoarSoul 1
; ----------------------------------------
#IF
	checkitemw EvilTongSoul 1
#ACT
	takew EvilTongSoul 1
#IF
	checkitem EvilTongSoul 1
#ACT
	take EvilTongSoul 1
; ----------------------------------------
#IF
	checkitemw EvilSnakeSoul 1
#ACT
	takew EvilSnakeSoul 1
#IF
	checkitem EvilSnakeSoul 1
#ACT
	take EvilSnakeSoul 1
; ----------------------------------------
#IF
	checkitemw Counsellor(M) 1
#ACT
	takew Counsellor(M) 1
#IF
	checkitem Counsellor(M) 1
#ACT
	take Counsellor(M) 1
; ----------------------------------------
#IF
	checkitemw Counsellor(F) 1
#ACT
	takew Counsellor(F) 1
#IF
	checkitem Counsellor(F) 1
#ACT
	take Counsellor(F) 1
; ----------------------------------------
#IF
	checkitemw CounsellorRing 1
#ACT
	takew CounsellorRing 1
#IF
	checkitem CounsellorRing 1
#ACT
	take CounsellorRing 1
; ----------------------------------------
#IF
	checkitemw E 1
#ACT
	takew E 1
#IF
	checkitem E 1
#ACT
	take E 1
; ----------------------------------------
#IF
	checkitemw A 1
#ACT
	takew A 1
#IF
	checkitem A 1
#ACT
	take A 1
; ----------------------------------------
#IF
	checkitemw S 1
#ACT
	takew S 1
#IF
	checkitem S 1
#ACT
	take S 1
; ----------------------------------------
#IF
	checkitemw T 1
#ACT
	takew T 1
#IF
	checkitem T 1
#ACT
	take T 1
; ----------------------------------------
#IF
	checkitemw R 1
#ACT
	takew R 1
#IF
	checkitem R 1
#ACT
	take R 1
