ive customized this might be good for some people if you want some AllInOne NPC here is the Script if any one needs
(@bigstorage @biggetback @getnextpage @getPreviouspage @@sendmsg @buy @sell @repair)
%100
+5
+6
+10
+11
+15
+19
+20
+21
+22
+23
+24
+26
;ALL IN ONE NPC
[@main]
#ACT
OPENBIGDIALOGBOX 2
#SAY
----------------------------------------------------<All In One NPC - Made by KillerBoy123/AUTOCOLOR=254,251,168,191,250,70,245,249,253> ----------------------------------------------------\ \
--Shop--\
<Repair/@repair> - <Buy Stuff/@buy> - <Sell Stuff/@sell>\
--Storage--\
<Large Storage/@bigstorage> - <Get Back Items/@biggetback>\
--Appearence--\
<Change Hair/@hair> - <Custom Rank Name/@customrank> - <Show Effect/@showeffect> - <Change Name Colour/@namec> - <Shiney Items/@testlight>\
--Teleport--\
<View Teleport List/@teleport>\
--Misc--\
<Send Global Message/@@sendmsg> - <Send Move Message/@movemsg> - <Map Magic/@mapmagic> - <Vibrate/@vibrate>\
--Other--\
<Assign Other Players Title/@@inputstring.player> - <Make Map Snow/@@inputstring.setweather> - <Show Effect on Other Player/@@InPutString.playereffect> <EXPEVENT x2/@yes> -
-<PetRent/@next>\ \
[@buy]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What do you want to buy?
<Back/@main>
[@sell]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What do you want to sell?
<Back/@main>
[@repair]
#ACT
CLOSEBIGDIALOGBOX
#SAY
Give me the item you want to repair.\ \ \
<Back/@main>
[~@repair]
Your item seems repaired fine.\ \
<Back/@main>
[goods]
;Item Amount Time
Thrusting 200 1
Slaying 200 1
FireBall 200 1
TwinDragonBlade 200 1
<LevlingCave/@Tele1>\
<EXPEVENT x2/@yes>\
<No thanks./@exit>
[@tele1]
#IF
CHECKITEM levelingtoken 1
#ACT
TAKE ITEM LevelingToken 1
MapMove EV003
[@Yes]
#IF
DAYOFWEEK MON
#ACT
reset [101] 7
GOTO @Mon
#ELSEACT
GOTO @Check1
[@Mon]
#IF
CHECK [101] 0
#ACT
SET [101] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check1]
#IF
DAYOFWEEK TUE
#ACT
GOTO @Tue
#ELSEACT
goto @Check2
[@Tue]
#IF
CHECK [102] 0
#ACT
SET [102] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check2]
#IF
DAYOFWEEK WED
#ACT
GOTO @Wed
#ELSEACT
goto @Check3
[@Wed]
#IF
CHECK [103] 0
#ACT
SET [103] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check3]
#IF
DAYOFWEEK THU
#ACT
GOTO @THU
#ELSEACT
goto @Check4
[@THU]
#IF
CHECK [104] 0
#ACT
SET [104] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check4]
#IF
DAYOFWEEK FRI
#ACT
GOTO @FRI
#ELSEACT
goto @Check5
[@FRI]
#IF
CHECK [105] 0
#ACT
SET [105] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check5]
#IF
DAYOFWEEK SAT
#ACT
GOTO @SAT
#ELSEACT
goto @Check6
[@SAT]
#IF
CHECK [106] 0
#ACT
SET [106] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check6]
#IF
DAYOFWEEK SUN
#ACT
GOTO @SUN
[@SUN]
#IF
CHECK [107] 0
#ACT
SET [107] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Error]
#SAY
You have had your experience today\
<$USERNAME>!!!\ \
[@next]
Right, a believer eh?\
Good for you son\
What pets would you like?\
The better, the more expensive..\
Hope you've got some cash there <$USERNAME>\
<Aye I do/@pet> <No, Sorry./@exit>
[@pet]
#SAY
What level are you?\
<1-22/@22> <23-33/@33>\
<33-40/@40> <40-50/@50>\
<50-60/@60> <60-70/@70>\
<Or 70+/@80>\
[@22]
#SAY
Oh ok\
Best get leveling\
I have something for you\
It will only cost...\
Well, have it for free!\
<Ok/@ok> <Hmm, No ty/@exit>
[@ok]
#IF
checklevel 1
#ACT
RECALLMOB OmaWarrior 7
RECALLMOB OmaWarrior 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB OmaWarrior 2
#ELSESAY
you already having 2 pet dont be greedy
[@33]
#SAY
Oh, nice!\
Here, I hope it helps..\
At such a small fee of\
25k, it will pour the levels\
in... Whatcha' say?\
<Yeah SURE!/@sure> <No, FO./@exit>
[@sure]
#IF
checklevel 33
checkgold 25000
#ACT
Take gold 25000
RECALLMOB FireMinotaur 7
RECALLMOB FireMinotaur 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB FireMinotuar 2
#ELSESAY
you already having 2 pet dont be greedy
[@40]
#SAY
Very good <$USERNAME>\
Well, at a fee of 100k\
I can summon 2 strong pets\
Well, I havent got all day!\
<Soz, Yeah Please!/@please> <Erm, No./@exit>
[@please]
#IF
checklevel 40
Checkgold 100000
#ACT
Take gold 100000
RECALLMOB AxeOma 7
RECALLMOB AxeOma 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB AxeOma 2
#ELSESAY
you already having 2 pet dont be greedy
[@50]
#SAY
You've been geeking it then eh?\
Only joking mate!\
Want some uber pets?\
These truely help alot!\
At a small fee of 250k\
Yeah?\
<hellYEAH/@50yes> <Lol, Or not./@exit>#IF
[@50yes]
#IF
checklevel 50
checkgold 250000
#ACT
take gold 250000
RECALLMOB KingHog 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<1
#ACT
RECALLMOB KingHob 1
#ELSESAY
you already having 1 pet dont be greedy
[@60]
#SAY
Pfft, I look up to people like you..\
Anyways, back on buisness\
I can give you a NICE, lushious\
Kick ass mob, at a fee of 500k\
Well?\
<Hmph, OK/@60yes> <Maybe not../@exit>
[@60yes]
#IF
checklevel 60
checkgold 500000
#ACT
take gold 500000
RECALLMOB DarkDevil 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<1
#ACT
RECALLMOB DarkDevil 1
#ELSESAY
you already having 2 pet dont be greedy
[@70]
#SAY
Not much of a change now your this high\
But I can give you 2 DarkDevils now!\
Instead of 1... And, <$USERNAME>,\
At only 750k, And ermm\
Shh, I'll make them level 7!\
.....Well?\
<YEAH!/@70yes> <I'll stick with solo/@exit>
[@70yes]
#IF
checklevel 70
checkgold 750000
#ACT
take gold 750000
RECALLMOB DarkDevil 7
RECALLMOB DarkDevil 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB DarkDevil 2
#ELSESAY
you already having 2 pet dont be greedy
[@80]
#SAY
My god sir <$USERNAME>\
You've grown so much!\
How can I help you my might friend?\
Pets you say?\
No problem, I'm feeling nice you see\
I'll give you a level 7 MinotaurKing\
You WON'T regret it.\
At such a price of 1million\
<Yes you little rat/@80yes> <No, get some money!/@exit>
[@80yes]
#IF
checklevel 80
checkgold 1000000
#ACT
take gold 1000000
RECALLMOB MinotaurKing 7
RECALLMOB MinotaurKing 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB MinotuarKing 2
#ELSESAY
you already having 2 pet dont be greedy
[@teleport]
Bichon--\
<Oma Cave/@omacave> - <Oma Natural Cave/@omanat> - <Bichon Dead Pit/@bwmine>\ \
Mongchon--\
<Death Valley/@bugcave> - <Zuma Temple/@zumatemple> - <Angled Stone Tomb/@stonetomb> - <Connection Cave/@conncave>\ \
Tao Village--\
<Insect Cave/@insectcave> - <Wooma Temple/@woomatemple> - <Mineral Mine/@mineralmine> - <Red Valley/@spidercave>\ \
Castle Gi--\
<Black Dragon Dungeon/@bddungeon>\ \
Pranja--\
<Prajna Cave/@prajnacave> - <Prajna Stone Cave/@prajnastonecave> - <Prajna Temple/@prajnatemple>\ \
<Random/@Random>\ \
<Go Back/@main>\
[@Random]
Would you like to go to Bosslands or LevelingCave.\\
<bossland/@tele2>\
<LevelingCave/@tele3>\
<nah/@exit>
[@Tele3]
#IF
CHECKITEM LevelingToken
#ACT
TAKE ITEM LevelingToken
Give TownTeleport
MapMove EV003
[@Tele2]
#IF
CHECKGOLD 1000000
#ACT
TAKE GOLD 1000000
Give TownTeleport
MapMove R001
[@omacave]
#IF
#ACT
Give TownTeleport
mapmove D001
[@omanat]
#IF
#ACT
Give TownTeleport
mapmove D011
[@bwmine]
#IF
#ACT
Give TownTeleport
mapmove D401
[@bugcave]
#IF
#ACT
Give TownTeleport
mapmove D601
[@zumatemple]
#IF
#ACT
Give TownTeleport
mapmove D501
[@stonetomb]
#IF
#ACT
Give TownTeleport
mapmove D711
[@conncave]
#IF
#ACT
Give TownTeleport
mapmove D701
[@insectcave]
#IF
#ACT
Give TownTeleport
mapmove D2041
[@woomatemple]
#IF
#ACT
Give TownTeleport
mapmove D022
[@mineralmine]
#IF
#ACT
Give TownTeleport
mapmove D2031
[@spidercave]
#IF
#ACT
Give TownTeleport
mapmove D10011
[@bddungeon]
#IF
#ACT
Give TownTeleport
mapmove D2001
[@prajnacave]
#IF
#ACT
Give TownTeleport
mapmove D2051
[@prajnastonecave]
#IF
#ACT
Give TownTeleport
mapmove D2061
[@prajnatemple]
#IF
#ACT
Give TownTeleport
mapmove D2071
[@InputString.item]
#ACT
give s0
goto @main
[@InputString.itemp]
#ACT
MOV HUMAN Name S1 S1 S1 S1
SAVEVAR HUMAN Name test.txt
#SAY
<$STR(S1)>
[@inputstring.testpp]
#ACT
MOV S1 S0
#SAY
<$STR(S0)>\
<$STR(S1)>
[@otherplayeritem]
#ACT
MOV S1 "Null"
MOV S2 "No Item"
#SAY
Give item to other player (Uses Variables)\ \
This lets you specify an character name and give them a item you also enter, It is a simple example\
of what is possible with the variables in these files! Cool stuff. Enjoy\ \
Player who recieves item: Null - <Change/@@inputstring.changeplayer>\
Item to Recieve: No Item - <Change/@@inputstring.changeitem>\\
<Send Item/@senditem> - Please make sure all data is entered above\ \
Error Messages displayed in chat bar!\ \ \ \
<Go Back/@main>\
[@otherplayeritem2]
#SAY
Give item to other player (Uses Variables)\ \
This lets you specify an character name and give them a item you also enter, It is a simple example\
of what is possible with the variables in these files! Cool stuff. Enjoy\ \
Player who recieves item: <$STR(S1)> - <Change/@@inputstring.changeplayer>\
Item to Recieve: <$STR(S2)> - <Change/@@inputstring.changeitem>\\
<Send Item/@senditem> - Please make sure all data is entered above\ \
Error Messages displayed in chat bar!\ \ \ \
<Go Back/@main>\
[@senditem]
;checks user name entered
#IF
CHECKCONTAINSTEXT S1 Null
#ACT
SENDMSG 0 "No Username Entered"
close
#ELSEACT
goto @senditem2
[@senditem2]
;checks user offline
#IF
S1.CHECKONLINE
#ACT
goto @senditem3
#ELSEACT
SENDMSG 0 "<$STR(S1)> is offline"
close
[@senditem3]
;check item entered
#IF
CHECKCONTAINSTEXT S2 No Item
#ACT
SENDMSG 0 "No Item Entered"
close
#ELSEACT
s1.give s2
close
[@inputstring.changeplayer]
#ACT
MOV S1 S0
goto @otherplayeritem2
[@inputstring.changeitem]
#ACT
MOV S2 S0
goto @otherplayeritem2
;<TEST/@@inputstring.testpp>
[@inputstring.setweather]
#ACT
SNOW 0 0
goto @main
[@InPutString.playereffect]
#IF
S0.CHECKONLINE
#ACT
S0.gmexecute showeffect 1 1
SENDMSG 0 "Effect Sent to user <$STR(S0)>"
close
#ELSEACT
SENDMSG 0 "<$STR(S0)> is offline"
close
[@inputstring.player]
#ACT
s0.setranklevelname "HaHa"
close
[@timer]
#ACT
SETOFFTIMER 0
SENDMSG 0 [@OnTimer0]10ÃëÔËÐÐÒ»´Î
goto @main
[@vibrate]
#ACT
VIBRATION
goto @main
[@showeffect]
<Effect 1/@effect1>\
[@effect1]
#ACT
gmexecute showeffect 1 0 1
goto @main
[@mapmagic]
#ACT
;mapmove 3 318 328
;move 3 318 328
;effect list
;1=RME Spike, 2=Mirroring Image, 3=clone image, 4=thunder bolt
; map x y time effect duration damage? speed
ADDMAPMAGICEVENT 0 330 268 1 6 100 2 100
ADDMAPMAGICEVENT 0 335 265 1 5 100 2 100
close
[@testlight]
This allows you to change the shine effect on your equiped items.\
---------------------------------Glow 1---------------------------------\
<Brace Right/@5S> - <Brace Left/@6S> - <Ring Right/@7S> - <Ring Left/@8S> - <Necklace/@3S>\ \
---------------------------------Glow 2---------------------------------\
<Brace Right/@b5S> - <Brace Left/@b6S> - <Ring Right/@b7S> - <Ring Left/@b8S> - <Necklace/@b3S>\ \
---------------------------------Glow 3---------------------------------\
<Brace Right/@c5S> - <Brace Left/@c6S> - <Ring Right/@c7S> - <Ring Left/@c8S> - <Necklace/@c3S>\ \ \
<Go Back/@main>\
[@nowusedglow]
<Ñ«ÕÂÉÁ¹â/@2S> <Necklace/@3S> <¶¾·ûÉÁ¹â/@9S>\ \
<Ñü´øÉÁ¹â/@10S> <Ь×ÓÉÁ¹â/@11S> <±¦Ê¯ÉÁ¹â/@12S>\
[@2S]
#ACT
SETITEMSLIGHT 2 1
break
[@3S]
#ACT
SETITEMSLIGHT 3 1
break
[@5S]
#ACT
SETITEMSLIGHT 5 1
break
[@6S]
#ACT
SETITEMSLIGHT 6 1
break
[@7S]
#ACT
SETITEMSLIGHT 7 1
break
[@8S]
#ACT
SETITEMSLIGHT 8 1
break
[@9S]
#ACT
SETITEMSLIGHT 9 1
break
[@10S]
#ACT
SETITEMSLIGHT 10 1
break
[@11S]
#ACT
SETITEMSLIGHT 11 1
break
[@12S]
#ACT
SETITEMSLIGHT 12 1
break
[@b2S]
#ACT
SETITEMSLIGHT 2 2
break
[@b3S]
#ACT
SETITEMSLIGHT 3 2
break
[@b5S]
#ACT
SETITEMSLIGHT 5 2
break
[@b6S]
#ACT
SETITEMSLIGHT 6 2
break
[@b7S]
#ACT
SETITEMSLIGHT 7 2
break
[@b8S]
#ACT
SETITEMSLIGHT 8 2
break
[@b9S]
#ACT
SETITEMSLIGHT 9 2
break
[@b10S]
#ACT
SETITEMSLIGHT 10 2
break
[@b11S]
#ACT
SETITEMSLIGHT 11 2
break
[@b12S]
#ACT
SETITEMSLIGHT 12 2
break
[@c2S]
#ACT
SETITEMSLIGHT 2 3
break
[@c3S]
#ACT
SETITEMSLIGHT 3 3
break
[@c5S]
#ACT
SETITEMSLIGHT 5 3
break
[@c6S]
#ACT
SETITEMSLIGHT 6 3
break
[@c7S]
#ACT
SETITEMSLIGHT 7 3
break
[@c8S]
#ACT
SETITEMSLIGHT 8 3
break
[@c9S]
#ACT
SETITEMSLIGHT 9 3
break
[@c10S]
#ACT
SETITEMSLIGHT 10 3
break
[@c11S]
#ACT
SETITEMSLIGHT 11 3
break
[@c12S]
#ACT
SETITEMSLIGHT 12 3
break
[@customrank]
#ACT
CLOSEBIGDIALOGBOX
#SAY
Please enter your custom User Rank:\
<Click to type/@@InPutString.rank>\
[@InPutString.rank]
#ACT
setranklevelname s0
close
[@movemsg]
#ACT
SENDMOVEMSG 1 221 0 2 Server is rebooting Please log of thank you
goto @main
[@msgtest]
#ACT
SENDMSG 0 "%s Message 0"
SENDMSG 1 "%s Message 1"
SENDMSG 2 "%s Message 2"
SENDMSG 3 "%s Message 3"
SENDMSG 4 "%s Message 4"
SENDMSG 5 "%s Message 5"
SENDMSG 6 "%s Message 6"
SENDMSG 7 "%s Message 7"
SENDMSG 8 "%s Message 8"
goto @main
[@@sendmsg]
#ACT
SETSENDMSGFLAG
goto @main
[@hair]
Choose hair:\
<Hair 0/@hair0>\
<Hair 1/@hair1>\
<Hair 2/@hair2>\
<Hair 3/@hair3>\
<Hair 4/@hair4>\ \
<go Back/@main>\
[@hair0]
#ACT
HAIRSTYLE 0
goto @main
[@hair1]
#ACT
Hair 1
goto @main
[@hair2]
#ACT
hair 2
goto @main
[@hair3]
#ACT
hair 3
goto @main
[@hair4]
#ACT
hair 4
goto @main
[@bigstorage]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What would you like to store?\ \
<Main/@main>
[@biggetback]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What would you like to get back?\ \
<Previous Page/@getPreviouspage> <Next Page/@getnextpage> \
<main/@main>
[@getPreviouspage]
#ACT
goto @biggetback
[@getnextpage]
#ACT
goto @biggetback
---------- Post Merged at 09:52 PM ---------- Previous Post was at 09:51 PM ----------
sorry i dont know how to put it in a code box sorry
Code:
%100
+5
+6
+10
+11
+15
+19
+20
+21
+22
+23
+24
+26
;ALL IN ONE NPC
[@main]
#ACT
OPENBIGDIALOGBOX 2
#SAY
----------------------------------------------------<All In One NPC - Made by KillerBoy123/AUTOCOLOR=254,251,168,191,250,70,245,249,253> ----------------------------------------------------\ \
--Shop--\
<Repair/@repair> - <Buy Stuff/@buy> - <Sell Stuff/@sell>\
--Storage--\
<Large Storage/@bigstorage> - <Get Back Items/@biggetback>\
--Appearence--\
<Change Hair/@hair> - <Custom Rank Name/@customrank> - <Show Effect/@showeffect> - <Change Name Colour/@namec> - <Shiney Items/@testlight>\
--Teleport--\
<View Teleport List/@teleport>\
--Misc--\
<Send Global Message/@@sendmsg> - <Send Move Message/@movemsg> - <Map Magic/@mapmagic> - <Vibrate/@vibrate>\
--Other--\
<Assign Other Players Title/@@inputstring.player> - <Make Map Snow/@@inputstring.setweather> - <Show Effect on Other Player/@@InPutString.playereffect> <EXPEVENT x2/@yes> -
-<PetRent/@next>\ \
[@buy]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What do you want to buy?
<Back/@main>
[@sell]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What do you want to sell?
<Back/@main>
[@repair]
#ACT
CLOSEBIGDIALOGBOX
#SAY
Give me the item you want to repair.\ \ \
<Back/@main>
[~@repair]
Your item seems repaired fine.\ \
<Back/@main>
[goods]
;Item Amount Time
Thrusting 200 1
Slaying 200 1
FireBall 200 1
TwinDragonBlade 200 1
<LevlingCave/@Tele1>\
<EXPEVENT x2/@yes>\
<No thanks./@exit>
[@tele1]
#IF
CHECKITEM levelingtoken 1
#ACT
TAKE ITEM LevelingToken 1
MapMove EV003
[@Yes]
#IF
DAYOFWEEK MON
#ACT
reset [101] 7
GOTO @Mon
#ELSEACT
GOTO @Check1
[@Mon]
#IF
CHECK [101] 0
#ACT
SET [101] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check1]
#IF
DAYOFWEEK TUE
#ACT
GOTO @Tue
#ELSEACT
goto @Check2
[@Tue]
#IF
CHECK [102] 0
#ACT
SET [102] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check2]
#IF
DAYOFWEEK WED
#ACT
GOTO @Wed
#ELSEACT
goto @Check3
[@Wed]
#IF
CHECK [103] 0
#ACT
SET [103] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check3]
#IF
DAYOFWEEK THU
#ACT
GOTO @THU
#ELSEACT
goto @Check4
[@THU]
#IF
CHECK [104] 0
#ACT
SET [104] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check4]
#IF
DAYOFWEEK FRI
#ACT
GOTO @FRI
#ELSEACT
goto @Check5
[@FRI]
#IF
CHECK [105] 0
#ACT
SET [105] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check5]
#IF
DAYOFWEEK SAT
#ACT
GOTO @SAT
#ELSEACT
goto @Check6
[@SAT]
#IF
CHECK [106] 0
#ACT
SET [106] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Check6]
#IF
DAYOFWEEK SUN
#ACT
GOTO @SUN
[@SUN]
#IF
CHECK [107] 0
#ACT
SET [107] 1
KILLMONEXPRATE 200 3600
SENDMSG 6 "Your exp rate has been increased by x2 for 1 hour."
#ELSEACT
GOTO @Error
[@Error]
#SAY
You have had your experience today\
<$USERNAME>!!!\ \
[@next]
Right, a believer eh?\
Good for you son\
What pets would you like?\
The better, the more expensive..\
Hope you've got some cash there <$USERNAME>\
<Aye I do/@pet> <No, Sorry./@exit>
[@pet]
#SAY
What level are you?\
<1-22/@22> <23-33/@33>\
<33-40/@40> <40-50/@50>\
<50-60/@60> <60-70/@70>\
<Or 70+/@80>\
[@22]
#SAY
Oh ok\
Best get leveling\
I have something for you\
It will only cost...\
Well, have it for free!\
<Ok/@ok> <Hmm, No ty/@exit>
[@ok]
#IF
checklevel 1
#ACT
RECALLMOB OmaWarrior 7
RECALLMOB OmaWarrior 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB OmaWarrior 2
#ELSESAY
you already having 2 pet dont be greedy
[@33]
#SAY
Oh, nice!\
Here, I hope it helps..\
At such a small fee of\
25k, it will pour the levels\
in... Whatcha' say?\
<Yeah SURE!/@sure> <No, FO./@exit>
[@sure]
#IF
checklevel 33
checkgold 25000
#ACT
Take gold 25000
RECALLMOB FireMinotaur 7
RECALLMOB FireMinotaur 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB FireMinotuar 2
#ELSESAY
you already having 2 pet dont be greedy
[@40]
#SAY
Very good <$USERNAME>\
Well, at a fee of 100k\
I can summon 2 strong pets\
Well, I havent got all day!\
<Soz, Yeah Please!/@please> <Erm, No./@exit>
[@please]
#IF
checklevel 40
Checkgold 100000
#ACT
Take gold 100000
RECALLMOB AxeOma 7
RECALLMOB AxeOma 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB AxeOma 2
#ELSESAY
you already having 2 pet dont be greedy
[@50]
#SAY
You've been geeking it then eh?\
Only joking mate!\
Want some uber pets?\
These truely help alot!\
At a small fee of 250k\
Yeah?\
<hellYEAH/@50yes> <Lol, Or not./@exit>#IF
[@50yes]
#IF
checklevel 50
checkgold 250000
#ACT
take gold 250000
RECALLMOB KingHog 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<1
#ACT
RECALLMOB KingHob 1
#ELSESAY
you already having 1 pet dont be greedy
[@60]
#SAY
Pfft, I look up to people like you..\
Anyways, back on buisness\
I can give you a NICE, lushious\
Kick ass mob, at a fee of 500k\
Well?\
<Hmph, OK/@60yes> <Maybe not../@exit>
[@60yes]
#IF
checklevel 60
checkgold 500000
#ACT
take gold 500000
RECALLMOB DarkDevil 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<1
#ACT
RECALLMOB DarkDevil 1
#ELSESAY
you already having 2 pet dont be greedy
[@70]
#SAY
Not much of a change now your this high\
But I can give you 2 DarkDevils now!\
Instead of 1... And, <$USERNAME>,\
At only 750k, And ermm\
Shh, I'll make them level 7!\
.....Well?\
<YEAH!/@70yes> <I'll stick with solo/@exit>
[@70yes]
#IF
checklevel 70
checkgold 750000
#ACT
take gold 750000
RECALLMOB DarkDevil 7
RECALLMOB DarkDevil 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB DarkDevil 2
#ELSESAY
you already having 2 pet dont be greedy
[@80]
#SAY
My god sir <$USERNAME>\
You've grown so much!\
How can I help you my might friend?\
Pets you say?\
No problem, I'm feeling nice you see\
I'll give you a level 7 MinotaurKing\
You WON'T regret it.\
At such a price of 1million\
<Yes you little rat/@80yes> <No, get some money!/@exit>
[@80yes]
#IF
checklevel 80
checkgold 1000000
#ACT
take gold 1000000
RECALLMOB MinotaurKing 7
RECALLMOB MinotaurKing 7
#SAY
Enjoy Your New Pet <$USERNAME>!
#IF
CHECKSLAVECOUNT<2
#ACT
RECALLMOB MinotuarKing 2
#ELSESAY
you already having 2 pet dont be greedy
[@teleport]
Bichon--\
<Oma Cave/@omacave> - <Oma Natural Cave/@omanat> - <Bichon Dead Pit/@bwmine>\ \
Mongchon--\
<Death Valley/@bugcave> - <Zuma Temple/@zumatemple> - <Angled Stone Tomb/@stonetomb> - <Connection Cave/@conncave>\ \
Tao Village--\
<Insect Cave/@insectcave> - <Wooma Temple/@woomatemple> - <Mineral Mine/@mineralmine> - <Red Valley/@spidercave>\ \
Castle Gi--\
<Black Dragon Dungeon/@bddungeon>\ \
Pranja--\
<Prajna Cave/@prajnacave> - <Prajna Stone Cave/@prajnastonecave> - <Prajna Temple/@prajnatemple>\ \
<Random/@Random>\ \
<Go Back/@main>\
[@Random]
Would you like to go to Bosslands or LevelingCave.\\
<bossland/@tele2>\
<LevelingCave/@tele3>\
<nah/@exit>
[@Tele3]
#IF
CHECKITEM LevelingToken
#ACT
TAKE ITEM LevelingToken
Give TownTeleport
MapMove EV003
[@Tele2]
#IF
CHECKGOLD 1000000
#ACT
TAKE GOLD 1000000
Give TownTeleport
MapMove R001
[@omacave]
#IF
#ACT
Give TownTeleport
mapmove D001
[@omanat]
#IF
#ACT
Give TownTeleport
mapmove D011
[@bwmine]
#IF
#ACT
Give TownTeleport
mapmove D401
[@bugcave]
#IF
#ACT
Give TownTeleport
mapmove D601
[@zumatemple]
#IF
#ACT
Give TownTeleport
mapmove D501
[@stonetomb]
#IF
#ACT
Give TownTeleport
mapmove D711
[@conncave]
#IF
#ACT
Give TownTeleport
mapmove D701
[@insectcave]
#IF
#ACT
Give TownTeleport
mapmove D2041
[@woomatemple]
#IF
#ACT
Give TownTeleport
mapmove D022
[@mineralmine]
#IF
#ACT
Give TownTeleport
mapmove D2031
[@spidercave]
#IF
#ACT
Give TownTeleport
mapmove D10011
[@bddungeon]
#IF
#ACT
Give TownTeleport
mapmove D2001
[@prajnacave]
#IF
#ACT
Give TownTeleport
mapmove D2051
[@prajnastonecave]
#IF
#ACT
Give TownTeleport
mapmove D2061
[@prajnatemple]
#IF
#ACT
Give TownTeleport
mapmove D2071
[@InputString.item]
#ACT
give s0
goto @main
[@InputString.itemp]
#ACT
MOV HUMAN Name S1 S1 S1 S1
SAVEVAR HUMAN Name test.txt
#SAY
<$STR(S1)>
[@inputstring.testpp]
#ACT
MOV S1 S0
#SAY
<$STR(S0)>\
<$STR(S1)>
[@otherplayeritem]
#ACT
MOV S1 "Null"
MOV S2 "No Item"
#SAY
Give item to other player (Uses Variables)\ \
This lets you specify an character name and give them a item you also enter, It is a simple example\
of what is possible with the variables in these files! Cool stuff. Enjoy\ \
Player who recieves item: Null - <Change/@@inputstring.changeplayer>\
Item to Recieve: No Item - <Change/@@inputstring.changeitem>\\
<Send Item/@senditem> - Please make sure all data is entered above\ \
Error Messages displayed in chat bar!\ \ \ \
<Go Back/@main>\
[@otherplayeritem2]
#SAY
Give item to other player (Uses Variables)\ \
This lets you specify an character name and give them a item you also enter, It is a simple example\
of what is possible with the variables in these files! Cool stuff. Enjoy\ \
Player who recieves item: <$STR(S1)> - <Change/@@inputstring.changeplayer>\
Item to Recieve: <$STR(S2)> - <Change/@@inputstring.changeitem>\\
<Send Item/@senditem> - Please make sure all data is entered above\ \
Error Messages displayed in chat bar!\ \ \ \
<Go Back/@main>\
[@senditem]
;checks user name entered
#IF
CHECKCONTAINSTEXT S1 Null
#ACT
SENDMSG 0 "No Username Entered"
close
#ELSEACT
goto @senditem2
[@senditem2]
;checks user offline
#IF
S1.CHECKONLINE
#ACT
goto @senditem3
#ELSEACT
SENDMSG 0 "<$STR(S1)> is offline"
close
[@senditem3]
;check item entered
#IF
CHECKCONTAINSTEXT S2 No Item
#ACT
SENDMSG 0 "No Item Entered"
close
#ELSEACT
s1.give s2
close
[@inputstring.changeplayer]
#ACT
MOV S1 S0
goto @otherplayeritem2
[@inputstring.changeitem]
#ACT
MOV S2 S0
goto @otherplayeritem2
;<TEST/@@inputstring.testpp>
[@inputstring.setweather]
#ACT
SNOW 0 0
goto @main
[@InPutString.playereffect]
#IF
S0.CHECKONLINE
#ACT
S0.gmexecute showeffect 1 1
SENDMSG 0 "Effect Sent to user <$STR(S0)>"
close
#ELSEACT
SENDMSG 0 "<$STR(S0)> is offline"
close
[@inputstring.player]
#ACT
s0.setranklevelname "HaHa"
close
[@timer]
#ACT
SETOFFTIMER 0
SENDMSG 0 [@OnTimer0]10ÃëÔËÐÐÒ»´Î
goto @main
[@vibrate]
#ACT
VIBRATION
goto @main
[@showeffect]
<Effect 1/@effect1>\
[@effect1]
#ACT
gmexecute showeffect 1 0 1
goto @main
[@mapmagic]
#ACT
;mapmove 3 318 328
;move 3 318 328
;effect list
;1=RME Spike, 2=Mirroring Image, 3=clone image, 4=thunder bolt
; map x y time effect duration damage? speed
ADDMAPMAGICEVENT 0 330 268 1 6 100 2 100
ADDMAPMAGICEVENT 0 335 265 1 5 100 2 100
close
[@testlight]
This allows you to change the shine effect on your equiped items.\
---------------------------------Glow 1---------------------------------\
<Brace Right/@5S> - <Brace Left/@6S> - <Ring Right/@7S> - <Ring Left/@8S> - <Necklace/@3S>\ \
---------------------------------Glow 2---------------------------------\
<Brace Right/@b5S> - <Brace Left/@b6S> - <Ring Right/@b7S> - <Ring Left/@b8S> - <Necklace/@b3S>\ \
---------------------------------Glow 3---------------------------------\
<Brace Right/@c5S> - <Brace Left/@c6S> - <Ring Right/@c7S> - <Ring Left/@c8S> - <Necklace/@c3S>\ \ \
<Go Back/@main>\
[@nowusedglow]
<Ñ«ÕÂÉÁ¹â/@2S> <Necklace/@3S> <¶¾·ûÉÁ¹â/@9S>\ \
<Ñü´øÉÁ¹â/@10S> <Ь×ÓÉÁ¹â/@11S> <±¦Ê¯ÉÁ¹â/@12S>\
[@2S]
#ACT
SETITEMSLIGHT 2 1
break
[@3S]
#ACT
SETITEMSLIGHT 3 1
break
[@5S]
#ACT
SETITEMSLIGHT 5 1
break
[@6S]
#ACT
SETITEMSLIGHT 6 1
break
[@7S]
#ACT
SETITEMSLIGHT 7 1
break
[@8S]
#ACT
SETITEMSLIGHT 8 1
break
[@9S]
#ACT
SETITEMSLIGHT 9 1
break
[@10S]
#ACT
SETITEMSLIGHT 10 1
break
[@11S]
#ACT
SETITEMSLIGHT 11 1
break
[@12S]
#ACT
SETITEMSLIGHT 12 1
break
[@b2S]
#ACT
SETITEMSLIGHT 2 2
break
[@b3S]
#ACT
SETITEMSLIGHT 3 2
break
[@b5S]
#ACT
SETITEMSLIGHT 5 2
break
[@b6S]
#ACT
SETITEMSLIGHT 6 2
break
[@b7S]
#ACT
SETITEMSLIGHT 7 2
break
[@b8S]
#ACT
SETITEMSLIGHT 8 2
break
[@b9S]
#ACT
SETITEMSLIGHT 9 2
break
[@b10S]
#ACT
SETITEMSLIGHT 10 2
break
[@b11S]
#ACT
SETITEMSLIGHT 11 2
break
[@b12S]
#ACT
SETITEMSLIGHT 12 2
break
[@c2S]
#ACT
SETITEMSLIGHT 2 3
break
[@c3S]
#ACT
SETITEMSLIGHT 3 3
break
[@c5S]
#ACT
SETITEMSLIGHT 5 3
break
[@c6S]
#ACT
SETITEMSLIGHT 6 3
break
[@c7S]
#ACT
SETITEMSLIGHT 7 3
break
[@c8S]
#ACT
SETITEMSLIGHT 8 3
break
[@c9S]
#ACT
SETITEMSLIGHT 9 3
break
[@c10S]
#ACT
SETITEMSLIGHT 10 3
break
[@c11S]
#ACT
SETITEMSLIGHT 11 3
break
[@c12S]
#ACT
SETITEMSLIGHT 12 3
break
[@customrank]
#ACT
CLOSEBIGDIALOGBOX
#SAY
Please enter your custom User Rank:\
<Click to type/@@InPutString.rank>\
[@InPutString.rank]
#ACT
setranklevelname s0
close
[@movemsg]
#ACT
SENDMOVEMSG 1 221 0 2 Server is rebooting Please log of thank you
goto @main
[@msgtest]
#ACT
SENDMSG 0 "%s Message 0"
SENDMSG 1 "%s Message 1"
SENDMSG 2 "%s Message 2"
SENDMSG 3 "%s Message 3"
SENDMSG 4 "%s Message 4"
SENDMSG 5 "%s Message 5"
SENDMSG 6 "%s Message 6"
SENDMSG 7 "%s Message 7"
SENDMSG 8 "%s Message 8"
goto @main
[@@sendmsg]
#ACT
SETSENDMSGFLAG
goto @main
[@hair]
Choose hair:\
<Hair 0/@hair0>\
<Hair 1/@hair1>\
<Hair 2/@hair2>\
<Hair 3/@hair3>\
<Hair 4/@hair4>\ \
<go Back/@main>\
[@hair0]
#ACT
HAIRSTYLE 0
goto @main
[@hair1]
#ACT
Hair 1
goto @main
[@hair2]
#ACT
hair 2
goto @main
[@hair3]
#ACT
hair 3
goto @main
[@hair4]
#ACT
hair 4
goto @main
[@bigstorage]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What would you like to store?\ \
<Main/@main>
[@biggetback]
#ACT
CLOSEBIGDIALOGBOX
#SAY
What would you like to get back?\ \
<Previous Page/@getPreviouspage> <Next Page/@getnextpage> \
<main/@main>
[@getPreviouspage]
#ACT
goto @biggetback
[@getnextpage]
#ACT
goto @biggetback
Code:
---------- Post Merged at 09:52 PM ---------- Previous Post was at 09:51 PM ----------
sorry i dont know how to put it in a code box sorry