TCL script

[mrmad]

[mod]server ad removed[/mod]

Now I need a little help with a TCL script that i am working on... Because my server is a fun server with high xp, players tend to go up in levels fast, then they don't get xp anymore, so i am working on a trainer to reset levels so that players can start over again... my script is not working yet... I need a bit of help, this is what i got so far....

here is the creature:

[creature 40010]
name=MrMads Level Resetter
questscript=level_reset
guild=Level Reseting NPC
flags1=08480046
npcflags=05
attack=3613 3774
bounding_radius=0.306
combat_reach=3.31
damage=43200 94400
faction=35
family=7
level=255
maxhealth=184700
maxmana=3585
model=1616
type=7
unk7=1

Here is the tcl so far:

# StartTCL:
# This Files is Scripts by someone else by Remodified By Khanbaba to make
# It compatible with the new tcl 1.9.2 system....
# Contact Site: United-german-crew.de Afghan Warriorz Official Forum khanbaba site
# Talent Resetting Master
# Modified by MrMad to reset levels
# Contact Site: Redirecting you to mrmad.no-ip.com forums

::Custom::AddCommand {
"remlevelonload" ::WoWEmu::Commands::setlevel
}

proc remlevelonload { player } {
return ".remlevelonload $player 40" }


# Level Master
# NPC Command

namespace eval level_reset {
proc GossipHello { npc player } {
SendGossip $player $npc { text 4 "Please help me reset my level to 40!" }
}

proc GossipSelect { npc player option } {
set plevel [GetLevel $player]
if {$plevel < 40 } {
Say $npc 0 "You are too low level for me"
} else {
SendGossipComplete $player
set money -100000
# set spellid 14867
set playertarget [GetSelection $player]


if { [ChangeMoney $player $money] == 1 } {
# LearnSpell $player $spellid
Say $npc 0 "You have successfully reset your level to 40"
Emote $npc 2
} else {
Say $npc 0 "You must pay 10 gold"
Emote $npc 274
}
SendSwitchGossip $player $npc 1
}
proc QuestStatus { npc player } {
return 1
}
}
}

Thanks for any help !

[MentaL]

[compboy]

noobemu lol

[[lexx]]

[mod]don't advertise your server within any content posted here[/mod]

[mrmad]

But the system asked me to write a message intoducing myself and to make sure it was 2 par. sorry if I violated anything... but the main question, can anybody help me with my script, I am trying to send a gm command to a player in tcl... that is the big question, can it be done?

[[lexx]]

But the system asked me to write a message intoducing myself and to make sure it was 2 par. sorry if I violated anything... but the main question, can anybody help me with my script, I am trying to send a gm command to a player in tcl... that is the big question, can it be done?

introduction section is here: http://forum.ragezone.com/meet-greet/
we all (especially me) like being very specific on WoW emu and not going wondering around on other topics, but WoW emulation.