[GSP] Userlogin, randomgift, sabukwar. Wecashitem. Potal, script.

smoochy boys on tour

sh5002

Loyal Member
Loyal Member
Feb 9, 2017
82
9
20
userlogin & randomgift
00Default
Code:
;痰빵되쩌뇰랙[@_UserLogin]
#call [..\event\userlogin.txt] @welcome
#ACT
Break
\event\userlogin.txt
Code:
[@welcome]
{


#if
Isadmin
#act
sysmsg "Welcome to Admin"
delaygoto [local] 1200 @gift ; 1200sec(20min)
break
#elseACT
mov A0 %USERNAME
linemsg [Grobal] "'<$USERNAME>'_has Online  !"  
delaygoto [local] 1200 @gift
break


[@gift]
;#if 
;random 5
;#act 
;give 1YearAnniversaryBox
;delaygoto [local] 1200 @gift
;sysmsg "You have received 1YearAnniversaryBox in connection with the access times"
;break


;#if 
;random 5
;checkfame
;#act 
;mov d1 %p9
;inc d1 100
;setfame %d1
;delaygoto [local] 1200 @gift
;sysmsg "You have received Fame in connection with the access times"
;break


#if 
random 5
#act 
give OilOfBenediction
delaygoto [local] 1200 @gift
sysmsg "You have received OilOfBenediction in connection with the access times"
break


#if 
random 5
#act 
give gold 100000
delaygoto [local] 1200 @gift
sysmsg "You have received Gold in connection with the access times"
break


#if 
random 5
#act 
giveexp %username 100000
delaygoto [local] 1200 @gift
sysmsg "You have received Exp in connection with the access times"
break


#if 
random 5
#act 
give gold 500000
delaygoto [local] 1200 @gift
sysmsg "You have received Gold in connection with the access times"
break


#if 
random 5
#act 
giveexp %username 500000
delaygoto [local] 1200 @gift
sysmsg "You have received Exp in connection with the access times"
break


}
;;


famepoint not work...

SabukWar
Sql TBL_CastleDefine - CastleName - SabukKeep --> Sabuk
..\Envir\Market_Def\Share\Castle
Sabuk.txt
Code:
[@Castle_Manager]
{
#IF
#SAY
I was the Political Officer sent form the official Bichon . My job is deal with SabukKeep war-related matters.I take orders from SabukKeep Santo\\
#IF
IsCastleGuild [Sabuk]
IsGuildMaster
#SAY
SabukKeep Coffers:<$CS_SABUK_CASTLEGOLD> Gold\
SabukKeep today's Taxes:<$CS_SABUK_TODAYTAX> Gold\
Gate Of SabukKeep Status:\
<$@DoorState1>\
<$@DoorState3>\
<$@DoorState4>\
<Extraction SabukKeep taxes./@@DrawTax>\
;<뚝뻣풀튿/@ChargeGoldNote> \
;<쥴혤첼휑묏栗。/@lingqusx>\\


#IF
#SAY
<View War of SabukKeep schedule./@view_warschedule>\
<Apply for War of SabukKeep/@Propse_CastleWar>\
<Inquire about SabukKeep War/@requestcastlewar> \\
<Talk/@TalkToQuest> to {FCOLOR/10}<$NPCNAME>{FCOLOR/12}\\
<Exit/@exit>\\


[@@DrawTax]
#ACT
mov D1 %SABUKGOLD
mov D2 %INPUTNUM
goto @DrawTax


[@DrawTax]
#IF
large D2 %D1
or small d2 1
#SAY
Enter the amount of the excess, can not be extracted. \\
<Exit/@exit>
#ELSESAY
Extraction <$OUTPUT(D2)> Gold.\\
<Exit/@exit>


#ELSEACT
mov P9 1
makelog 62 9999 %D2 %NPCNAME
GetBackCastleGold [Sabuk] %d2


[@Propse_CastleWar]
;#IF
;#SAY
;묑냘헝董灌역렴,쓴헝퍅덤。
;#ACT
;break


#IF
IsOnCastleWar [Sabuk]
#SAY
SabukKeep Now in war, can not apply for SabukKeep war. \\
<Back/@main>
#ACT
break


#IF
!IsGuildMaster
#SAY
Only the guild leader can apply for SabukKeep war.\\
<Back/@main>
#ACT
break


#IF
IsCastleGuild [Sabuk]
#SAY
Master Guild Of any Castle cannot apply the siege.\\
<Back/@main>
#ACT
break


#IF
IsCastleGuild [TaoSung]
#SAY
Master Guild Of any Castle cannot apply the siege.\\
<Back/@main>
#ACT
break


;#IF
;#ACT
;actcmd READSQL "TBL_AdminServer" "헝묑냘" "헝묑냘" "where FLD_Server='뺐'"


;#IF
;!Equal 헝묑냘 "역렴"
;#ACT
;break
;#SAY
;코꿎섟무꿎퍅쇌꼇콘헝묑냘!\\


#IF
!checkitem FragmentOfZumaKing 1
#SAY
You can only  apply for SabukKeep war while bring FragmentOfZumaKing \ \
<Back/@main>
#ACT
break




#IF
CanProposeCastleWar [Sabuk]
#ACT
ProposeCastleWar [Sabuk]
take FragmentOfZumaKing 1
LineMsg  "Grobal"  "(!)'<$GUILD>' Guild apply for SabukKeep war, 3 days later the war!"
#SAY
Successfully applied for SabukKeep war.\\
SabukKeep war will begin {FCOLOR/10}at 20:00 3 days later{FCOLOR/12}.\\
<Back/@main>
#ELSESAY
You have applied for SabukKeep war,no longer apply again.\ \
<Back/@main>


[@requestcastlewar]
#SAY
It can only  apply for SabukKeep war while bring FragmentOfZumaKing.do you bring it?...\
If you apply for SabukKeep war now ,SabukKeep war will begin {FCOLOR/10}at 20:00 3 days later{FCOLOR/12}.\ \
<Back/@main>


[@view_warschedule]
#SAY
SabukKeep war schedule. \
{FCOLOR/10}<$CS_SABUK_WARDATE>{FCOLOR/12} \\
<Back/@main>








[@DoorState1]
#IF
#SAY
Positive side of the gate:
#IF
CheckCastleDoor [SABUK] 1
#SAY
_(Fine)
#ELSESAY
_(<Make door/@Make_door(1,Positive)>)
#ELSEACT
break
#IF
CheckCastleDoorOpen [SABUK] 1
#SAY
_(<Close/@Close_Door(1,Positive)>)
#ELSESAY
_(<Open/@Open_Door(1,Positive)>)


[@DoorState3]
#IF
#SAY
The left side of the gate:
#IF
CheckCastleDoor [SABUK] 3
#SAY
_(Fine)
#ELSESAY
_(<Make/@Make_door(3,Left)>)
#ELSEACT
break
#IF
CheckCastleDoorOpen [SABUK] 3
#SAY
_(<Close/@Close_Door(3, Left)>)
#ELSESAY
_(<Open/@Open_Door(3, Left)>)






[@DoorState4]
#IF
#SAY
The right side of the gate
#IF
CheckCastleDoor [SABUK] 4
#SAY
_(Fine)
#ELSESAY
_(<Make/@make_door(4,Right)>)
#ELSEACT
break
#IF
CheckCastleDoorOpen [SABUK] 4
#SAY
_(<Close/@Close_Door(4, Right)>)
#ELSESAY
_(<Open/@Open_Door(4, Right)>)




[@Make_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)
#IF
!IsOnCastleWar [Sabuk]
#SAY
Gates production cost is 500,000 gold. \ \
Pay 500,000 gold <production /@Make_door_comfirm><$OUTPUT(A0)>gates. \
#ELSESAY
SabukKeep Now in war, can not apply for Gates production\ \
<Exit/@exit>




[@Make_door_comfirm]
#IF
!checkgold 500000
#SAY
Not enough money,can not apply for Gates production.\ \
<Back/@main>
#ACT
break
#IF
!CheckCastleDoor [SABUK] %D0
#ACT
take Gold 500000
MakeCastleDoor [SABUK] %D0
#SAY
Gates production was done.\ \
<Back/@main>
#ELSESAY
There have been the gates.\ \
<Back/@main>






[@Open_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)
#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151
#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151
#IF
Equal D0 4
#ACT
mov D1 233
mov D2 87
#IF
CheckCastleDoor [SABUK] %D0
!CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "GateofSabukKeep%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 OPEN
#SAY
SabukKeep gate <$OUTPUT(A0)> Has been opened.\ \
<Back/@main>
#ELSESAY
No gates or gates opened. \ \
<Back/@main>




[@Close_door()]
#IF
#ACT
Mov D0 %ARG(1)
Mov A0 %ARG(2)


#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151


#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151


#IF
Equal D0 4
#ACT
mov D1 233
mov D2 87


#IF
CheckCastleDoor [SABUK] %D0
CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "GateofSabukKeep%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 CLOSE
#SAY
SabukKeep gates was closed.\ \
<Back/@main>
#ELSESAY
No gates or gates closed.\ \
<Back/@main>




}

Potal(D function move_

\envir\Market_Def\DFunc
Diary.txt
Code:
#IF
ISADMIN
#SAY
_角뤠릿삶?\
_<AUTOTING/@AUTOTING> 菱땡눈箇!\
_<RESURRECTION/@RESURRECTION> 릿삶!\
_<GIVELIFE /@GIVELIFE> 속沂1!\




#IF
CHECK [001] 0
#SAY
<View Main Maps/@ShowMapInfo>\
<View All Level with Fit Maps/@ShowFitMap(1)>\
<View HotKeys,Commands,Chat so on/@ShowHotKeys>\
<Potal Service/@PotalSystem>\\
<Close/@Exit>\




[@AUTOTING]
#IF
#ACT
Enablecmd @@exusername1
Break
#say
_<please enter a villid name as Extitle./@@exusername1>\\
[@@exusername1]
#act
mov a1 %inputstr
AUTOTING %a1
break


[@RESURRECTION]
#IF
#ACT
Enablecmd @@exusername2
Break
#say
_<please enter a villid name as Extitle./@@exusername2>\\
[@@exusername2]
#act
mov a1 %inputstr
RESURRECTION %a1
break




[@GIVELIFE]
#IF
#ACT
Enablecmd @@exusername3
Break
#say
_<please enter a villid name as Extitle./@@exusername3>\\
[@@exusername3]
#act
mov a1 %inputstr
GIVELIFE %a1
break




;------------------------------------------------------------------------------------------
[@RefreshLocation]
#IF
#ACT
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
MAPMOVE %A0 %A1 %A2
SYSMSG "Character Location Refresh completed!"






;------------------------------------------------------離솅뒈暠鹿섟뒈暠쒔駱속냥-------------------------


[@ShowFitMap()]
#CALL [..\Market_Def\DFunc\FitMapList.txt] @FitMapList


;------------------------------------------------------踏狗곤燎,우쌥숩,땍-------------------------


[@ShowHotKeys]
#CALL [..\Market_Def\DFunc\GameHotKeys.txt] @GameHotKeys




;------------------------------------------------------鞫刻뒈暠 댕竟썽鹿섟몹뒈暠蕨돔貫零-------------------------


[@ShowMapInfo]
#CALL [..\Market_Def\DFunc\MapInfo.txt] @MapList


[@PotalSystem]
#Call [..\Market_Def\DFunc\PotalSystem.txt] @Potal


}
..\Market_Def\DFunc
PotalSystem.txt
Code:
[@Potal]
{
#if
checkpkpoint 2
#Say
_You have been exiled here, \
_under your evil over time from being diluted away, \
_or through your own efforts before you wash, \
_you can't get through me to get out of here.\ \
<Exit/@Exit>
#Elseact
goto @gopotal
break


[@gopotal]
#Say
_{FCOLOR/3}Free_Move{FCOLOR/12}\
_{FCOLOR/10}SabukKeep_RefineWeapon{FCOLOR/12}_<Move/@MoveToNPC( 3, 212, 151, 0 )>\
_{FCOLOR/10}Taosung_RefineWeapon{FCOLOR/12}_<Move/@MoveToNPC( 5, 262, 110, 0 )>\
_{FCOLOR/10}Banya_RefineAccesory{FCOLOR/12}_<Move/@MoveToNPC( 2, 155, 180, 0 )>\
_{FCOLOR/10}Taosung_FameItem{FCOLOR/12}_<Move/@MoveToNPC( 5, 240, 90, 0 )> \
_{FCOLOR/10}Banya_HairShop{FCOLOR/12}_<Move/@MoveToNPC( 2, 180, 160, 0 )> \
_{FCOLOR/10}Taosun_RustyItem{FCOLOR/12}_<Move/@MoveToNPC( 4, 160, 170, 0 )> \
_{FCOLOR/10}Silnakwon_Bonus{FCOLOR/12}_<Move/@MoveToNPC( 1, 165, 195, 0 )> \ \
=======================================\
_{FCOLOR/3}Pay_Move{FCOLOR/12}\
_Gold Color_{FCOLOR/10}(2,000)_,{FCOLOR/14}(10,000)_,{FCOLOR/9}(200,000)\
_{FCOLOR/10}DesertedMineL1{FCOLOR/12}_<Move/@MoveToNPC( D201, 55, 288, 2000 )>
_{FCOLOR/10}CarvedStoneTombL1{FCOLOR/12}_<Move/@MoveToNPC( D701, 35, 210, 2000 )>\
_{FCOLOR/10}AntCave{FCOLOR/12}_<Move/@MoveToNPC( D401, 180, 185, 2000 )>
_{FCOLOR/10}FleaCaveL1{FCOLOR/12}<Move/@MoveToNPC( D301, 91, 244, 2000 )>\
_{FCOLOR/10}Desert{FCOLOR/12}_<Move/@MoveToNPC( D002, 110, 155, 2000 )>
_{FCOLOR/10}UmaTempleL{FCOLOR/12}_<Move/@MoveToNPC( D501, 364, 370, 2000 )>\
_{FCOLOR/10}DespairValleyL1{FCOLOR/12}_<Move/@MoveToNPC( D801, 151, 243, 2000 )>
_{FCOLOR/10}RedMoonValleyL1{FCOLOR/12}_<Move/@MoveToNPC( D901, 13, 22, 2000 )> \
_{FCOLOR/10}BanyaStoneCaveL1{FCOLOR/12}_<Move/@MoveToNPC( D601, 135, 170, 2000 )>
_{FCOLOR/14}BanyaTempleL1{FCOLOR/12}_<Move/@MoveToNPC( D1001, 25, 150, 10000 )>\
_{FCOLOR/14}ZumaTempleL1{FCOLOR/12}_<Move/@MoveToNPC( D1101, 50, 50, 10000 )>
_{FCOLOR/14}JinchonPalace-B{FCOLOR/12}_<Move/@MoveToNPC( D1200, 120, 90, 10000 )>\
_{FCOLOR/14}BlackPalaceL1{FCOLOR/12}_<Move/@MoveToNPC( D1301, 19, 40, 10000 )>
_{FCOLOR/14}NumaRuinsL1{FCOLOR/12}_<Move/@MoveToNPC( D1501, 353, 255, 10000 )>\
_{FCOLOR/14}DesertDungeon{FCOLOR/12}_<Move/@MoveToNPC( D2001, 280, 270, 10000 )>
_{FCOLOR/9}PhantomShip{FCOLOR/12}_<Move/@MoveToNPC( D1401, 48, 59, 200000 )>\
_{FCOLOR/9}FrostDungeonL1{FCOLOR/12}_<Move/@MoveToNPC( D2101, 20, 265, 200000 )>
_{FCOLOR/9}HolyPalaceEnt{FCOLOR/12}_<Move/@MoveToNPC( D8_002, 150, 160, 200000 )>\
_{FCOLOR/9}HyunmoonTempleL1{FCOLOR/12}_<Move/@MoveToNPC( D2401, 153, 276, 200000 )>
_{FCOLOR/9}GoruCaveL1{FCOLOR/12}_<Move/@MoveToNPC( D2301, 20, 55, 200000 )>\
_{FCOLOR/9}BanyoCave{FCOLOR/12}_<Move/@MoveToNPC( D2601, 163, 211, 200000 )>
_{FCOLOR/9}TheLair{FCOLOR/12}_<Move/@MoveToNPC( D2900, 47, 28, 200000 )>\
_{FCOLOR/9}DragonAbyss{FCOLOR/12}_<Move/@MoveToNPC( D008, 58, 67, 200000 )>
_{FCOLOR/9}DepartedValleyL1{FCOLOR/12}_<Move/@MoveToNPC( D2501, 185, 126, 200000 )>\


<Exit/@Exit> \




[@MoveToNPC()]
#ACT
;Mov Map X Y Gold
    Mov A4 %ARG(1)
    Mov D2 %ARG(2)
    Mov D3 %ARG(3)
    Mov D4 %ARG(4)


#IF
    CheckGold %D4
#ACT
    Take gold %D4
    Delaygoto [Local] 3 @GotoMoveToNPCSAY
#SAY
_Wait 3 sec. . .\


[@GotoMoveToNPCSAY]
#ACT
    Give ScrollOfTownPortal 1
    MapMove %A4 %D2 %D3
break


}

WecashItem use(1YearAnniversaryBox) NPC , and Make ITem

Code:
[@mwelcome]
{
#IF
CHECK [001] 0
#SAY
_Aha,What wind bring you to here.?\ \
_<Ask about CashItem./@AskCashItem>\
_<make test./@make>\ 
_<Exit/@exit>\ \
[@AskCashItem]
#SAY
_CashItem,{FCOLOR/10} Gift Pack(MirPacakge, etc..)__Need 50 Fame,{FCOLOR/12}\ \
_<Cost 50 Fame To Get One CashItem/@BuyCashItem (1YearAnniversaryBox,50)>\ \
_<Back/@main>\
_<Thank you tell me./@Exit>\ \


[@BuyCashItem ()]
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)




#IF
checkfame %D0
#SAY
_Here the_<$OUTPUT(A0)>_,cost<$OUTPUT(D0)>_fame\ \
_<Back/@main>\
_<Exit/@Exit>\ \
#ACT
DEC P9 %D0
Setfame  %P9    ;숑빻롤돨寡令
Give    %A0    1
break
#ELSESAY
_I'm so sorry,are you sure you have enough fames\
_If you wants to buy <%OUTPUT(A0)> will be cost <%OUTPUT(D0)> Fame.\
_<Back/@main>\
_<Exit/@Exit>\ \
[@make]
#if
#act
Enablecmd @@makeitem\
break
#say
_<itemname./@@makeitem>\
 [@@makeitem]
#if
#act
Mov a1 %inputstr
Give %a1
#say
_Is this <%output(a1)> bye!!\
_<again/@make>\
_<exit/@exit>\\
}

Maybe someone usefull this...
 

sh5002

Loyal Member
Loyal Member
Feb 9, 2017
82
9
20
  • Like
Reactions: zedina
Upvote 0