Lexin -  31-07-2009 11:30
Kod:
// Supply Stone Script by Lexin
// Copyright Lexin 2002
//
[ITEMDEF i_supply_stone]
ID=i_gravestone_18
TYPE=t_switch

ON=@CREATE
ATTR=8010
COLOR=00481
NAME=Supply Stone

ON=@DCLICK
DIALOG d_supplymenu
RETURN 1

[DIALOG d_supplymenu]
0,0
resizepic 20 20 2520 300 450
text 53 440 1154 0
text 67 70 1153 1
text 67 100 1153 2
text 67 130 1153 3
text 67 160 1153 4
text 67 190 1153 5
text 67 220 1153 6
text 67 250 1153 7
text 67 280 1153 8
text 67 310 1153 9
text 67 340 1153 10
text 65 30 1986 11
text 67 370 1153 12
button 50 72 1209 1210 1 0 1
button 50 102 1209 1210 1 0 2
button 50 132 1209 1210 1 0 3
button 50 162 1209 1210 1 0 4
button 50 192 1209 1210 1 0 5
button 50 222 1209 1210 1 0 6
button 50 252 1209 1210 1 0 7
button 50 282 1209 1210 1 0 8
button 50 312 1209 1210 1 0 9
button 50 342 1209 1210 1 0 10
button 50 372 1209 1210 1 0 11
[DIALOG d_supplymenu TEXT]
Supply Stone Scripted By Lexin
Arrows/Bolts
Bottles
Blank Scrools
Regler
Tools
Full Spellbook
Yemek
Shrink Potion
Siyah MageRobe
Bandaj
<SERV.NAME> Supply Menusu
Dying Tub's
[DIALOG d_supplymenu BUTTON]
ONBUTTON=0
src.sysmessage Supply Menu Kapandi.
ONBUTTON=1
DIALOG d_Arrows
ONBUTTON=2
DIALOG d_Bottles
ONBUTTON=3
DIALOG d_Scrools
ONBUTTON=4
DIALOG d_regs
ONBUTTON=5
DIALOG d_tools
ONBUTTON=6
DIALOG d_fullsb
ONBUTTON=7
DIALOG d_yemek
ONBUTTON=8
DIALOG d_shrink
ONBUTTON=9
DIALOG d_magerobe
ONBUTTON=10
DIALOG d_bandaj
ONBUTTON=11
DIALOG d_dye

[DIALOG d_bolts]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 65 157 1153 4
text 180 200 1153 5
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 45 160 1209 1210 1 0 4
button 260 203 1209 1210 1 0 5

[DIALOG d_bolts TEXT]
Bolts
50 Bolts - 500gp
100 Bolts - 1000gp
500 Bolts - 5000gp
Arrows =>
Ana Menu
[DIALOG d_bolts BUTTON]
ONBUTTON=0
src.sysmessage Bolts Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 500 i_gold>
SRC.CONSUME 500 i_gold
SRC.NEWITEM 01bfb
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Boltlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bolt Alacak Kadar Paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME 1000 i_gold
SRC.NEWITEM 01bfb
SRC.ACT.AMOUNT 100
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Boltlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bolt Alacak Kadar Paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.NEWITEM 01bfb
SRC.ACT.AMOUNT 500
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Boltlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bolt Alacak Kadar Paraniz Yok.
ONBUTTON=4
DIALOG d_Arrows
ONBUTTON=5
DIALOG d_supplymenu
[DIALOG d_arrows]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 65 157 1153 4
text 180 200 1153 5
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 45 160 1209 1210 1 0 4
button 260 203 1209 1210 1 0 5
[DIALOG d_arrows TEXT]
Arrows
50 Arrows - 500gp
100 Arrows - 1000gp
500 Arrows - 5000gp
Bolts =>
Ana Menu
[DIALOG d_arrows BUTTON]
ONBUTTON=0
src.sysmessage Arrows Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 500 i_gold>
SRC.CONSUME 500 i_gold
SRC.NEWITEM 0f3f
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Arrowlari Aldiniz.
ELSE
SRC.SYSMESSAGE Arrow Alacak Kadar Paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME 1000 i_gold
SRC.NEWITEM 0f3f
SRC.ACT.AMOUNT 100
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Arrowlari Aldiniz.
ELSE
SRC.SYSMESSAGE Arrow Alacak Kadar Paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.NEWITEM 0f3f
SRC.ACT.AMOUNT 500
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Arrowlari Aldiniz.
ELSE
SRC.SYSMESSAGE Arrow Alacak Kadar Paraniz Yok.
ONBUTTON=4
DIALOG d_bolts
ONBUTTON=5
DIALOG d_supplymenu

[DIALOG d_bottles]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 180 200 1153 4
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 260 203 1209 1210 1 0 4
[DIALOG d_bottles TEXT]
Bottles
50 Bottles - 500gp
100 Bottles - 1000gp
500 Bottles - 5000gp
Ana Menu
[DIALOG d_bottles BUTTON]
ONBUTTON=0
src.sysmessage Bottles Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 500 i_gold>
SRC.CONSUME 500 i_gold
SRC.NEWITEM 0f0e
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Siseleri Aldiniz.
ELSE
SRC.SYSMESSAGE Bos Sise Alacak Kadar paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME 1000 i_gold
SRC.NEWITEM 0f0e
SRC.ACT.AMOUNT 100
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Siseleri Aldiniz.
ELSE
SRC.SYSMESSAGE Bos Sise Alacak Kadar paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.NEWITEM 0f0e
SRC.ACT.AMOUNT 500
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Siseleri Aldiniz.
ELSE
SRC.SYSMESSAGE Bos Sise Alacak Kadar paraniz Yok.
ONBUTTON=4
DIALOG d_supplymenu

[DIALOG d_regs]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 180 200 1153 4
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 260 203 1209 1210 1 0 4

[DIALOG d_regs TEXT]
Regler
30 Adet Reg      - 1000gp
50 Adet Reg      - 1750gp
Reg Crystali (150) - 4000
Ana Menu
[DIALOG d_regs BUTTON]
ONBUTTON=0
src.sysmessage Reg Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME 1000 i_gold
SRC.NEWITEM 0f7a
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f7b
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f84
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f85
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f86
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f88
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f8c
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.NEWITEM 0f8d
SRC.ACT.AMOUNT 30
SRC.ACT.BOUNCE
SRC.SYSMESSAGE 30 Adet Reg Aldiniz.
ELSE
SRC.SYSMESSAGE Regleri Alacak Kadar paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 1750 i_gold>
SRC.CONSUME 1750 i_gold
SRC.NEWITEM 0f7a
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f7b
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f84
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f85
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f86
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f88
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f8c
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.NEWITEM 0f8d
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE 50 Adet Reg Aldiniz.
ELSE
SRC.SYSMESSAGE Regleri Alacak Kadar paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 4000 i_gold>
SRC.CONSUME 4000 i_gold
SRC.NEWITEM i_reg_kristali
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE

ONBUTTON=4
DIALOG d_supplymenu


[DIALOG d_tools]
0,0
resizepic 20 20 2520 300 300
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 65 148 1153 4
text 65 173 1153 5
text 65 198 1153 6
text 65 223 1153 7
text 65 248 1153 8
text 180 292 1153 9
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 45 150 1209 1210 1 0 4
button 45 175 1209 1210 1 0 5
button 45 200 1209 1210 1 0 6
button 45 225 1209 1210 1 0 7
button 45 250 1209 1210 1 0 8
button 260 295 1209 1210 1 0 9

[DIALOG d_tools TEXT]
Tools
Makas - 50gp
Dikis Seti - 50gp
Tinker Tools - 75gp
Mortar & Pestle - 100gp
Sledgehammer - 75gp
Pickaxe - 75gp
Carpentry Tools - 100gp
Muzik Aleti - 50gp
Ana Menu
[DIALOG d_tools BUTTON]
ONBUTTON=0
src.sysmessage Tools Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 50 i_gold>
SRC.CONSUME 50 i_gold
SRC.NEWITEM 0f9e
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Makasi Aldiniz.
ELSE
SRC.SYSMESSAGE Makasi Alacak Kadar Paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 50 i_gold>
SRC.CONSUME 50 i_gold
SRC.NEWITEM 0f9d
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Dikis Setini Aldiniz.
ELSE
SRC.SYSMESSAGE Dikis Seti Alacak Kadar Paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 75 i_gold>
SRC.CONSUME 75 i_gold
SRC.NEWITEM 01ebc
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Tinker Tool Aldiniz.
ELSE
SRC.SYSMESSAGE Tinker Tool Alacak Kadar Paraniz Yok.
ONBUTTON=4
IF <SRC.RESTEST 100 i_gold>
SRC.CONSUME 100 i_gold
SRC.NEWITEM 0e9b
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Mortar & Pestle Aldiniz.
ELSE
SRC.SYSMESSAGE Mortar & Pestle Alacak Kadar Paraniz Yok.
ONBUTTON=5
IF <SRC.RESTEST 75 i_gold>
SRC.CONSUME 75 i_gold
SRC.NEWITEM 0fb5
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Sledgehammer'i Aldiniz.
ELSE
SRC.SYSMESSAGE Sledgehammer Alacak Kadar Paraniz Yok.
ONBUTTON=6
IF <SRC.RESTEST 75 i_gold>
SRC.CONSUME 75 i_gold
SRC.NEWITEM i_pickaxe
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Pickaxe'i Aldiniz.
ELSE
SRC.SYSMESSAGE Pickaxe'i Alacak Kadar Paraniz Yok.
ONBUTTON=7
IF <SRC.RESTEST 100 i_gold>
SRC.CONSUME 100 i_gold
SRC.NEWITEM={ i_chisels 1 i_saw_dovetail 1 i_hammer 1 i_plane_moulding 1 i_plane_jointing 1 i_plane_smoothing 1 i_saw 1 }
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Carpentry Tool'u Aldiniz.
ELSE
SRC.SYSMESSAGE Carpentry Tool Alacak Kadar Paraniz Yok.
ONBUTTON=8
IF <SRC.RESTEST 50 i_gold>
SRC.CONSUME 50 i_gold
SRC.NEWITEM={ i_drum 1 i_tambourine 1 i_lyre 1 i_lute }
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Muzik Aletini Aldiniz.
ELSE
SRC.SYSMESSAGE Muzik Aleti Alacak Kadar Paraniz Yok.
ONBUTTON=9
DIALOG d_supplymenu

[DIALOG d_scrools]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 180 200 1153 4
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 260 203 1209 1210 1 0 4

[DIALOG d_scrools TEXT]
Scrools
50 Blank Scrool - 2500gp
100 Blank Scrool - 5000gp
500 Blank Scrool - 25000gp
Ana Menu
[DIALOG d_scrools BUTTON]
ONBUTTON=0
src.sysmessage Scrools Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 2500 i_gold>
SRC.CONSUME 2500 i_gold
SRC.NEWITEM 0e34
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Scroollari Aldiniz.
ELSE
SRC.SYSMESSAGE Bu Scroollari Alacak Kadar paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.NEWITEM 0e34
SRC.ACT.AMOUNT 100
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Scroollari Aldiniz.
ELSE
SRC.SYSMESSAGE Bu Scroollari Alacak Kadar paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 25000 i_gold>
SRC.CONSUME 25000 i_gold
SRC.NEWITEM 0e34
SRC.ACT.AMOUNT 500
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bos Scroollari Aldiniz.
ELSE
SRC.SYSMESSAGE Bu Scroollari Alacak Kadar Paraniz Yok.
ONBUTTON=4
DIALOG d_supplymenu

[DIALOG d_fullsb]
0,0
resizepic 20 20 2520 400 200
text 55 30 1153 0
text 85 73 1153 1
text 155 112 1153 2
text 240 112 1153 3
text 65 148 1153 4
button 140 115 1209 1210 1 0 1
button 225 115 1209 1210 1 0 2
[DIALOG d_fullsb TEXT]
Full Spellbook
Full SpellBook Almak Istiyormusunuz?
Evet
Hayir
Fiyati: 15000gp

[DIALOG d_fullsb BUTTON]
ONBUTTON=0
src.sysmessage Full Spellboook Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 15000 i_gold>
SRC.CONSUME 15000 i_gold
SRC.NEWITEM i_spellbook_full
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE
SRC.MESSAGE Full Spellbook'u Aldiniz.
ELSE
SRC.SYSMESSAGE Full Spellbook Alacak Kadar Paraniz Yok.
ONBUTTON=2
DIALOG d_supplymenu

[DIALOG d_yemek]
0,0
resizepic 20 20 2520 400 200
text 55 30 1153 0
text 85 73 1153 1
text 155 112 1153 2
text 240 112 1153 3
text 65 148 1153 4
button 140 115 1209 1210 1 0 1
button 225 115 1209 1210 1 0 2
[DIALOG d_yemek TEXT]
Yemek
15 Adet Yemek Almak Istiyormusunuz?
Evet
Hayir
Fiyati: 250gp

[DIALOG d_yemek BUTTON]
ONBUTTON=0
src.sysmessage Yemek Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 250 i_gold>
SRC.CONSUME 250 i_gold
SRC.NEWITEM 09f2
SRC.ACT.AMOUNT 15
SRC.ACT.BOUNCE
SRC.MESSAGE Yemekleri Aldiniz.
ELSE
SRC.SYSMESSAGE Yemek Alacak Kadar Paraniz Yok.
ONBUTTON=2
DIALOG d_supplymenu

[DIALOG d_shrink]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 180 200 1153 4
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 260 203 1209 1210 1 0 4
[DIALOG d_shrink TEXT]
Shrink
1 Adet Shrink - 300gp
5 Adet Shrink - 1500gp
10 Adet Shrink - 3000gp
Ana Menu
[DIALOG d_shrink BUTTON]
ONBUTTON=0
src.sysmessage Shrink Menusu Kapatildi.
ONBUTTON=1
IF <SRC.RESTEST 300 i_gold>
SRC.CONSUME 300 i_gold
SRC.NEWITEM i_shrink_potion
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE
SRC.MESSAGE Shrink'i Aldiniz.
ELSE
SRC.SYSMESSAGE Shrink Alacak Kadar Paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 1500 i_gold>
SRC.CONSUME 1500 i_gold
SRC.NEWITEM i_shrink_potion
SRC.ACT.AMOUNT 5
SRC.ACT.BOUNCE
SRC.MESSAGE Shrinkleri Aldiniz.
ELSE
SRC.SYSMESSAGE Shrink Alacak Kadar Paraniz Yok.

ONBUTTON=3
IF <SRC.RESTEST 3000 i_gold>
SRC.CONSUME 3000 i_gold
SRC.NEWITEM i_shrink_potion
SRC.ACT.AMOUNT 5
SRC.ACT.BOUNCE
SRC.MESSAGE Shrinkleri Aldiniz.
ELSE
SRC.SYSMESSAGE Shrink Alacak Kadar Paraniz Yok.
ONBUTTON=4
DIALOG d_Supplymenu

[DIALOG d_magerobe]
0,0
resizepic 20 20 2520 400 200
text 55 30 1153 0
text 85 73 1153 1
text 155 112 1153 2
text 240 112 1153 3
text 65 148 1153 4
button 140 115 1209 1210 1 0 1
button 225 115 1209 1210 1 0 2
[DIALOG d_magerobe TEXT]
Mage Robe
Siyah Mage Robe Almak Istiyormusunuz?
Evet
Hayir
Fiyati: 2500gp

[DIALOG d_magerobe BUTTON]
ONBUTTON=0
src.sysmessage Mage Robe Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 2500 i_gold>
SRC.CONSUME 2500 i_gold
SRC.NEWITEM i_deathshroud_armour
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE
SRC.MESSAGE Mage Robe'u Aldiniz.
ELSE
SRC.SYSMESSAGE Mage Robe Alacak Kadar Paraniz Yok.
ONBUTTON=2
DIALOG d_supplymenu

[DIALOG d_bandaj]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 65 123 1153 3
text 180 200 1153 4
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 45 125 1209 1210 1 0 3
button 260 203 1209 1210 1 0 4
[DIALOG d_bandaj TEXT]
Bandage
25 Bandage  - 125gp
50 Bandage  - 250gp
100 Bandage - 500gp
Ana Menu
[DIALOG d_bandaj BUTTON]
ONBUTTON=0
src.sysmessage Bottles Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 125 i_gold>
SRC.CONSUME 125 i_gold
SRC.NEWITEM i_bandage
SRC.ACT.AMOUNT 25
SRC.ACT.BOUNCE
SRC.SYSMESSAGE bandajlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bandaj Alacak Kadar Paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 250 i_gold>
SRC.CONSUME 250 i_gold
SRC.NEWITEM i_bandage
SRC.ACT.AMOUNT 50
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bandajlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bandaj Alacak Kadar paraniz Yok.
ONBUTTON=3
IF <SRC.RESTEST 500 i_gold>
SRC.CONSUME 500 i_gold
SRC.NEWITEM i_bandage
SRC.ACT.AMOUNT 100
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Bandajlari Aldiniz.
ELSE
SRC.SYSMESSAGE Bandaj Alacak Kadar paraniz Yok.
ONBUTTON=4
DIALOG d_supplymenu


[DIALOG d_dye]
0,0
resizepic 20 20 2520 300 210
text 55 30 1153 0
text 65 73 1153 1
text 65 98 1153 2
text 180 200 1153 3
button 45 75 1209 1210 1 0 1
button 45 100 1209 1210 1 0 2
button 260 203 1209 1210 1 0 3
[DIALOG d_dye TEXT]
Dye Tub's
Leather Dye Tub - 5000gp
Black Dye Tub   - 50000gp
Ana Menu
[DIALOG d_dye BUTTON]
ONBUTTON=0
src.sysmessage Dye Tub's Menusu Kapandi.
ONBUTTON=1
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.NEWITEM i_leather_dye_tup
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Leather Dye Tub'i Aldiniz.
ELSE
SRC.SYSMESSAGE Leather Dye Tub Alacak Kadar paraniz Yok.
ONBUTTON=2
IF <SRC.RESTEST 50000 i_gold>
SRC.CONSUME 50000 i_gold
SRC.NEWITEM i_blackdyee
SRC.ACT.AMOUNT 1
SRC.ACT.BOUNCE
SRC.SYSMESSAGE Siyah Boyayi Aldiniz.
ELSE
SRC.SYSMESSAGE Siyah Boya Alacak Kadar paraniz Yok.
ONBUTTON=3
DIALOG d_supplymenu


[ITEMDEF I_SPELLBOOK_FULL]
NAME=Full Spellbook
ID=00efa

ON=@CREATE
More1=0FFFFFFFF
More2=0FFFFFFFF
ATTR=ATTR_NEWBIE

[ITEMDEF i_deathshroud_armour]
DEFNAME=i_deathshroud_armour
ID=i_deathshroud
TYPE=t_armor
NAME=Death Shroud
REQSTR=10
ARMOR=25

DYE=1

ON=@Create
COLOR=00001

[ITEMDEF i_shrink_potion]
NAME= Shrink Potion
ID= i_bottle_yellow
WEIGTH= 5
TYPE=t_potion
TDATA1=i_bottle_empty
RESOURCES=10 i_reag_Nightshade, i_bottle_empty
SKILLMAKE=ALCHEMY 75.0


ON=@CREATE
COLOR=0481

ON=@DCLICK
IF <CONT.UID>!=<SRC.FINDLAYER(21).UID>
SRC.sysMESSAGE Shrink Cantanizda Olmali...
RETURN 1
ENDIF

TARGET Hangi Hayvani Kucultmek Istiyorsun?
RETURN 1

ON=@TARGON_CHAR
IF (<SRC.TARG.BODY>==c_man) || (<SRC.TARG.BODY>==c_woman) || (<SRC.TARG.NPC>==0)
SRC.SYSMESSAGE Insanlari Kucultemezsiniz.
RETURN 1

ELSEIF <src.targ.flags>=statf_conjured
src.sysmessage B
RETURN 1

ELSEIF (<src.targ.hits>!=<src.targ.str>)
src.sysmessage Bu Hayvan Yaralanmis!
RETURN 1

ELSEIF (<SRC.TARG.ISMYPET>)
SRC.TARG.SHRINK
Remove
ELSE
SRC.SYSMESSAGE Bu Hayvan Sizin Degil.
Return 1

ON=@TARGON_ITEM
src.sysmessage <src.targ.name>i Bunu Kucultemessiniz.
RETURN 1

ON=@TARGON_GROUND
src.sysmessage Bu Kucultulemez.
RETURN 1

[ITEMDEF i_blackdyee]
ID=0fab
NAME=Black Dye
TYPE=T_DYE_VAT
WEIGHT=10

ON=@create
COLOR=01


[ITEMDEF i_leather_dye_tup]

//Dying Tub

ID=0fab

NAME=Leather Armor Dying Tub

TYPE=T_DYE_VAT

WEIGHT=10

CATEGORY=Items by Professions

SUBSECTION=Alchemist

DESCRIPTION=Leather Armor Dying Tub



RESOURCES=i_dye_tub, 20 i_reag_dragon_blood

SKILLMAKE=ALCHEMY 100.0



ON=@DCLICK

TARGET Hangi Esyayi Boyamak Istiyorsunuz?



ON=@TARGON_ITEM

IF <SRC.TARG.TYPE=t_armor_leather>

SRC.TARG.COLOR=<COLOR>



ELSEIF

SRC.MESSAGE Bu Bir Deri Degil.



ENDIF



ON=@TARGON_CHAR

SRC.MESSAGE Bu Bir Deri Degil.




[EOF]

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR