Еще одни stat balls, .56b Опции

[KonstantiN]

Код

[ITEMDEF i_stat_ball]
ID=i_virtstone_6
NAME=Stat Ball
TYPE=T_SCRIPT
WEIGHT=.1
CATEGORY=Donation Items
SUBSECTION=Skill Stat Balls
DESCRIPTION=Stat Ball

ON=@Dclick
if <src.restest 1 i_stat_ball>
src.str 100
src.dex 100
src.int 100
src.CONSUME 1 i_stat_ball
SRC.SYSMESSAGE @67,,1 Your stats have been changed.
return 1
else
SRC.SYSMESSAGE @022,,1 This item must be on your person to be active.
return 1

[ITEMDEF i_skill_ball_8]
ID=i_virtstone_2
NAME=Skill Ball x8
TYPE=T_SCRIPT
WEIGHT=.1

CATEGORY=Donation Items
SUBSECTION=Skill Stat Balls
DESCRIPTION=Stat Ball x8

ON=@Create
MORE=8

ON=@DClick
if <src.restest 1 i_skill_ball_8>
src.ctag.skillball = 8
src.dialogclose d_skill_ball
dialog d_skill_ball
return 1
else
SRC.SYSMESSAGE @022,,1 This item must be on your person to be active.
return 1

[ITEMDEF i_skill_ball_16]
ID=i_virtstone_5
NAME=Skill Ball x16
TYPE=T_SCRIPT
WEIGHT=.1

CATEGORY=Donation Items
SUBSECTION=Skill Stat Balls
DESCRIPTION=Stat Ball x16

ON=@Create
MORE=16

ON=@DClick
if <src.restest 1 i_skill_ball_16>
src.ctag.skillball = 16
src.dialogclose d_skill_ball
dialog d_skill_ball
return 1
else
SRC.SYSMESSAGE @022,,1 This item must be on your person to be active.
return 1

[DIALOG d_skill_ball]
0,0
page 0
resizepic 10 8 9200 446 498
resizepic 18 17 9350 432 486
resizepic 78 24 9200 284 42
dtext 169 26 0 Skill Select Menu
dtext 139 40 75 Please choose your skills.
checkbox 24 90 210 211 0 0
dtext 48 90 0 Alchemy
checkbox 24 114 210 211 0 1
dtext 48 114 0 Anatomy
checkbox 24 137 210 211 0 2
dtext 48 137 0 Animal Lore
checkbox 24 161 210 211 0 31
dtext 48 161 0 Archery
checkbox 24 185 210 211 0 4
dtext 48 185 0 ArmsLore
checkbox 24 208 210 211 0 6
dtext 48 208 0 Begging
checkbox 24 232 210 211 0 7
dtext 48 232 0 Blacksmithing
checkbox 24 256 210 211 0 8
dtext 48 256 0 Bowcrafting
checkbox 24 279 210 211 0 10
dtext 48 279 0 Camping
checkbox 24 303 210 211 0 11
dtext 48 303 0 Carpentry
checkbox 24 351 210 211 0 13
dtext 48 351 0 Cooking
checkbox 24 374 210 211 0 14
dtext 48 374 0 Detect Hidden
checkbox 24 396 210 211 0 15
dtext 48 396 0 Discordance
checkbox 24 419 210 211 0 16
dtext 48 419 0 Evaluate Intel
checkbox 24 442 210 211 0 42
dtext 48 442 0 Fencing
checkbox 178 90 210 211 0 18
dtext 204 90 0 Fishing
checkbox 179 115 210 211 0 19
dtext 203 115 0 Forensic Evaluation
checkbox 179 138 210 211 0 17
dtext 203 138 0 Healing
checkbox 179 185 210 211 0 21
dtext 203 185 0 Hiding
checkbox 179 209 210 211 0 23
dtext 203 209 0 Inscription
checkbox 179 232 210 211 0 3
dtext 203 232 0 Item ID
checkbox 179 256 210 211 0 24
dtext 203 256 0 Lock Picking
checkbox 179 280 210 211 0 44
dtext 203 280 0 Lumberjacking
checkbox 179 303 210 211 0 41
dtext 203 303 0 Mace Fighting
checkbox 179 327 210 211 0 25
dtext 203 327 0 Magery
checkbox 179 351 210 211 0 26
dtext 204 351 0 Magic Resistance
checkbox 179 374 210 211 0 46
dtext 203 374 0 Meditation
checkbox 179 396 210 211 0 45
dtext 203 396 0 Mining
checkbox 179 419 210 211 0 29
dtext 203 419 0 Musicianship
checkbox 179 442 210 211 0 5
dtext 203 442 0 Parrying
checkbox 326 88 210 211 0 9
dtext 350 88 0 Peacemaking
checkbox 326 111 210 211 0 30
dtext 350 111 0 Poisoning
checkbox 326 135 210 211 0 22
dtext 350 131 0 Provocation
checkbox 326 157 210 211 0 48
dtext 350 155 0 Remove Trap
checkbox 326 179 210 211 0 28
dtext 350 179 0 Snooping
checkbox 326 202 210 211 0 32
dtext 350 202 0 Spirit Speak
checkbox 326 226 210 211 0 33
dtext 350 226 0 Stealing
checkbox 326 250 210 211 0 47
dtext 350 250 0 Stealth
checkbox 326 273 210 211 0 40
dtext 350 273 0 Swordsmanship
checkbox 326 297 210 211 0 27
dtext 350 297 0 Tactics
checkbox 326 321 210 211 0 34
dtext 350 321 0 Tailoring
checkbox 326 344 210 211 0 35
dtext 350 344 0 Taming
checkbox 326 366 210 211 0 36
dtext 350 366 0 Taste ID
checkbox 326 389 210 211 0 37
dtext 350 389 0 Tinkering
checkbox 326 412 210 211 0 38
dtext 350 412 0 Tracking
checkbox 326 436 210 211 0 39
dtext 350 436 0 Veterinary
checkbox 326 459 210 211 0 43
dtext 350 459 0 Wrestling
checkbox 24 326 210 211 0 12
dtext 48 326 0 Cartography
checkbox 179 162 210 211 0 20
dtext 203 162 0 Herding
button 185 476 244 246 1 0 2
button 252 475 241 243 1 0 0
button 117 477 238 240 1 0 1

[DIALOG d_skill_ball text]

[DIALOG d_skill_ball button]
ON=0

ON=1
Local.Checked = 0
FOR 0 48
If <ARGCHK[<Local._for>]>
Local.Checked += 1
Endif
ENDFOR
If <Local.Checked> > <Src.Ctag.Skillball>
Src.Sysmessage @34,,1 You have picked more than <Src.dCtag.Skillball> skills!
Return 1
Endif
If <Local.Checked> < <Src.Ctag.Skillball>
Src.Sysmessage @34,,1 You have picked less than <Src.dCtag.Skillball> skills!
Return 1
Endif
If <Topobj>==<Src.Uid>
FOR 0 48
If <ARGCHK[<Local._for>]>
Src.<Local._for> = 1000
Endif
ENDFOR
Consume
Else
Src.Sysmessage @34,,1 You must have the skillball on your person to use it!
Endif
on=2
dialog d_skill_ball
return 1
[EOF]