µ±Ç°Î»Öà : 145zÓÎÏ·Õ¾¡¡|¡¡ÈÈѪ´«Ææ¡¡|¡¡¼¼Êõ½Ì³Ì¡¡|¡¡

´«ÆæÓÎÏ·¾ªÏÖ¾ôλ¾èÏ׽ű¾£¬×Üͳ¹«¾ô²»ÔÙÊÇÃΣ¡

À´Ô´£º ×÷Õߣº Èȶȣº
ÔÚ´«ÆæÓÎÏ·ÖУ¬¾ôλ¾èÏ׽ű¾¿ÉÒÔ°ïÖúÍæ¼ÒÌáÉý×Ô¼ºµÄ¾ô룬²¢»ñµÃÏàÓ¦µÄ·âºÅ¡£ÒÔÏÂÊÇÒ»ÖÖ¿ÉÄܵÄʵÏÖ·½Ê½£º

python
# ´«ÆæÓÎÏ·¾ôλ¾èÏ׽ű¾

def donate_to_rank(rank):
# ¾èÏ×Ö¸¶¨ÊýÁ¿µÄ×ÊÔ´ºÍ½ð±ÒÒÔÌáÉý¾ôλ
if rank == "×Üͳ":
# Ö´ÐÐ×Üͳ¼¶±ðµÄ¾èÏײÙ×÷
donate_resources(1000)
donate_gold(10000)
elif rank == "¹«¾ô":
# Ö´Ðй«¾ô¼¶±ðµÄ¾èÏײÙ×÷
donate_resources(800)
donate_gold(8000)
elif rank == "ºî¾ô":
# Ö´Ðкî¾ô¼¶±ðµÄ¾èÏײÙ×÷
donate_resources(600)
donate_gold(6000)
elif rank == "²®¾ô":
# Ö´Ðв®¾ô¼¶±ðµÄ¾èÏײÙ×÷
donate_resources(400)
donate_gold(4000)
elif rank == "×Ó¾ô":
# Ö´ÐÐ×Ó¾ô¼¶±ðµÄ¾èÏײÙ×÷
donate_resources(200)
donate_gold(2000)
else:
print("ÎÞЧµÄ¾ôλ£¡")

# µ÷ÓþèÏ׺¯ÊýÒÔÌáÉýÅÅÃûÇ°ÎåÃûµÄ¾ôλ
donate_to_rank("×Üͳ")
donate_to_rank("¹«¾ô")
donate_to_rank("ºî¾ô")
donate_to_rank("²®¾ô")
donate_to_rank("×Ó¾ô")

# Êä³öÅÅÃûÇ°ÎåÃûµÄ·âºÅ
print("ÅÅÃûµÚÒ»£º×Üͳ")
print("ÅÅÃûµÚ¶þ£º¹«¾ô")
print("ÅÅÃûµÚÈý£ººî¾ô")
print("ÅÅÃûµÚËÄ£º²®¾ô")
print("ÅÅÃûµÚÎ壺×Ó¾ô")



(@buy @sell @upgradenow @getbackupgnow @repair @srepair @@InPutString @@InPutInteger @ReclaimItem )
%100
+10
+11
+15

[@main]
#IF
CHECKLEVELEX > 0
#ACT
LOADVAR HUMAN JK ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\Ôª±¦¾è¿î.txt
SortHumVarToListEx JK ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\Ôª±¦¾è¿î.txt 1 ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 1
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 0 S21 N21
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 1 S22 N22
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 2 S23 N23
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 3 S24 N24
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 4 S25 N25
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 5 S26 N26

MOV S27 <$USERNAME>
INC S27 :<$HUMAN(JK)>
GetStringPos ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>
MOV S28

#IF
EQUAL N30 1
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:15>
goto @main1
BREAK

#IF
EQUAL N30 2
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:31>
goto @main1
BREAK

#IF
EQUAL N30 3
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:47>
goto @main1
BREAK

#IF
EQUAL N30 4
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:63>
goto @main1
BREAK

#IF
EQUAL N30 5
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:79>
goto @main1
BREAK

#IF
EQUAL N30 6
CHECKVAR HUMAN JK > 0
#ACT
MOV S28 <Img:14:0:-190:95>
goto @main1
#ELSEACT
goto @main1
BREAK



[@MAIN1]
#IF
CHECKNAMELIST ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÁùÅÅÃû.txt
#act
#SAY
\ \ \
<»¶Ó­ÄúʹÓÃٺ»¾èÏ×ϵͳ/AUTOCOLOR=241,238,249,95,70,133,146>\
<Ò»ºÅÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=46> <30-30/SCOLOR=250> <+10%ÎïÀíÃâÉË/SCOLOR=46><+10%ħ·¨ÃâÉË/SCOLOR=254>\
<µÚ¶þÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=238> <20-20/SCOLOR=250> <ϵͳ˵Ã÷£º/SCOLOR=22><ٺ»¾èϵͳ¿ÉÒÔÌáÉýÄúµÄʵÁ¦/SCOLOR=254>\
<µÚÈýÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=22> <15-15/SCOLOR=250> <Ö»ÒªÄúÅŵ½Ç°ÁùÃû¾Í¿ÉÒÔ»ñµÃ·á¸»¸øÓè/SCOLOR=254>\
<µÚËÄÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=253> <10-10/SCOLOR=250> <×¢ÒâÊÂÏ/SCOLOR=22><Ç벻ҪäĿ¾èÏ× ºÏÇø²»±£Áô/SCOLOR=254>\
<µÚÎåÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=250> <5-5/SCOLOR=250> <¾èÏ×Ðë¸ßÓÚ1000Ôª±¦²Å¿ÉÒÔ»ñµÃٺ»/SCOLOR=22>\
<µÚÁùÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=254> <3-3/SCOLOR=250> <¾èÏ×1000Ôª±¦¾Í¿ÉÒÔ»ñµÃµÚÁùÃû3-3ÊôÐÔ/SCOLOR=250>\
<ÿ´ÎºÏÇøÇåÀí¾èÏ×ÅÅÃû> \
<¾èÏ×ÅÅÐÐ/@ÅÅÐÐ> <ÎÒÒª¾è¿î/@@InPutInteger15> \
#ELSESAY
\ \ \
<»¶Ó­ÄúʹÓÃٺ»¾èÏ×ϵͳ/AUTOCOLOR=241,238,249,95,70,133,146>\
<Ò»ºÅÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=46> <30-30/SCOLOR=250> <+10%ÎïÀíÃâÉË/SCOLOR=46><+10%ħ·¨ÃâÉË/SCOLOR=254>\
<µÚ¶þÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=238> <20-20/SCOLOR=250> <ϵͳ˵Ã÷£º/SCOLOR=22><ٺ»¾èϵͳ¿ÉÒÔÌáÉýÄúµÄʵÁ¦/SCOLOR=254>\
<µÚÈýÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=22> <15-15/SCOLOR=250> <Ö»ÒªÄúÅŵ½Ç°ÁùÃû¾Í¿ÉÒÔ»ñµÃ·á¸»¸øÓè/SCOLOR=254>\
<µÚËÄÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=253> <10-10/SCOLOR=250> <×¢ÒâÊÂÏ/SCOLOR=22><Ç벻ҪäĿ¾èÏ× ºÏÇø²»±£Áô/SCOLOR=254>\
<µÚÎåÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=250> <5-5/SCOLOR=250> <¾èÏ×Ðë¸ßÓÚ1000Ôª±¦²Å¿ÉÒÔ»ñµÃٺ»/SCOLOR=22>\
<µÚÁùÃû/SCOLOR=254>:<ÊôÐÔ¸øÓè ¹¥Ä§µÀ/SCOLOR=254> <3-3/SCOLOR=250> <¾èÏ×1000Ôª±¦¾Í¿ÉÒÔ»ñµÃµÚÁùÃû3-3ÊôÐÔ/SCOLOR=250>\
<ÿ´ÎºÏÇøÇåÀí¾èÏ×ÅÅÃû> \
<¾èÏ×ÅÅÐÐ/@ÅÅÐÐ> <ÎÒÒª¾è¿î/@@InPutInteger15> \




[@¾èÏ×¹æÔò]
#IF
#ACT
MESSAGEBOX ¾è¿î²»µÃÉÙÓÚ1000Ôª±¦!\ÅÅÃûÇ°5·Ö±ð»ñµÃ:×Üͳ£¬¹«¾ô£¬ºî¾ô£¬²®¾ô£¬×Ó¾ô·âºÅ¡£\ºÏÇøÇåÀíÊý¾Ý¡£


[@ÅÅÐÐ]
#IF
#ACT
#SAY
\ \ \
<¾è¿î²»µÃÉÙÓÚ1000Ôª±¦!ºÏÇøÇåÀíÊý¾Ý¡£/SCOLOR=254>\ \
<Ò»ºÅÃû:×Üͳ/SCOLOR=253>:<Ëù¾è½ð¶î/SCOLOR=46>:<¾èÏ×Õß/SCOLOR=46>:<$STR(S21)>{<$STR(N21)>/SCOLOR=250}\
<µÚ¶þÃû:¹«¾ô/SCOLOR=249>:<Ëù¾è½ð¶î/SCOLOR=46>:<¾èÏ×Õß/SCOLOR=46>:<$STR(S22)>{<$STR(N22)>/SCOLOR=250}\
<µÚÈýÃû:ºî¾ô/SCOLOR=250>:<Ëù¾è½ð¶î/SCOLOR=46>:<¾èÏ×Õß/SCOLOR=46>:<$STR(S23)>{<$STR(N23)>/SCOLOR=250}\
<µÚËÄÃû:²®¾ô/SCOLOR=250>:<Ëù¾è½ð¶î/SCOLOR=46>:<¾èÏ×Õß/SCOLOR=46>:<$STR(S24)>{<$STR(N24)>/SCOLOR=250}\
<µÚÎåÃû:×Ó¾ô/SCOLOR=250>:<Ëù¾è½ð¶î/SCOLOR=46>:<¾èÏ×Õß/SCOLOR=46>:<$STR(S25)>{<$STR(N25)>/SCOLOR=250}\

<ÎҵľèÏ×£º/SCOLOR=253> <$HUMAN(JK)>

[@InPutInteger15]
#IF
EQUAL N15
#ACT
messagebox ÇëÊäÈë¾è¿î½ð¶î!
GOTO @WYJK
BREAK

#IF
SMALL N15 1000
#ACT
messagebox ÄúËùÒªµÄ¾è¿îµÄ½ð¶îСÓÚ1000Ôª±¦!
BREAK


#IF
CHECKGAMEGOLD > <$STR(N15)>
#ACT
GAMEGOLD - <$STR(N15)>
CALCVAR HUMAN JK + <$STR(N15)>
SAVEVAR HUMAN JK ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\Ôª±¦¾è¿î.txt
Addnamelist ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÁùÅÅÃû.txt
#CALL [\ϵͳ¹¦ÄÜ\ÊôÐÔ¸øÓè.txt] @ÊôÐÔ¸øÓè
#ELSEACT
messagebox ÄúûÓÐ×ã¹»µÄÔª±¦£¡
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N21)>
#ACT
GuildNoticeMsg 251 0 Íæ¼Ò¡º<$USERNAME>¡»¾è¿î¡º<$STR(N15)>¡»Ôª±¦ÇÀ×ßÁËÍæ¼Ò¡º<$STR(S21)>¡»×Üͳ³ÆºÅ£¬ÉÏÏß¹¥Ä§µÀ+30.
GOTO @ÅÅÃûË¢ÐÂ
BREAK

#IF
CHECKVAR HUMAN JK > <$STR(N22)>
#ACT
GuildNoticeMsg 251 0 Íæ¼Ò¡º<$USERNAME>¡»¾è¿î¡º<$STR(N15)>¡»Ôª±¦ÇÀ×ßÁËÍæ¼Ò¡º<$STR(S22)>¡»¹«¾ô³ÆºÅ£¬ÉÏÏß¹¥Ä§µÀ+20.
GOTO @ÅÅÃûË¢ÐÂ
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N23)>
#ACT
GuildNoticeMsg 251 0 Íæ¼Ò¡º<$USERNAME>¡»¾è¿î¡º<$STR(N15)>¡»Ôª±¦ÇÀ×ßÁËÍæ¼Ò¡º<$STR(S23)>¡»ºî¾ô³ÆºÅ£¬ÉÏÏß¹¥Ä§µÀ+15.
GOTO @ÅÅÃûË¢ÐÂ
BREAK



#IF
CHECKVAR HUMAN JK > <$STR(N24)>
#ACT
GuildNoticeMsg 251 0 Íæ¼Ò¡º<$USERNAME>¡»¾è¿î¡º<$STR(N15)>¡»Ôª±¦ÇÀ×ßÁËÍæ¼Ò¡º<$STR(S24)>¡»²®¾ô³ÆºÅ£¬ÉÏÏß¹¥Ä§µÀ+10.
GOTO @ÅÅÃûË¢ÐÂ
BREAK


#IF
CHECKVAR HUMAN JK > <$STR(N25)>
#ACT
GuildNoticeMsg 251 0 Íæ¼Ò¡º<$USERNAME>¡»¾è¿î¡º<$STR(N15)>¡»Ôª±¦ÇÀ×ßÁËÍæ¼Ò¡º<$STR(S25)>¡»×Ó¾ô³ÆºÅ£¬ÉÏÏß¹¥Ä§µÀ+5.
GOTO @ÅÅÃûË¢ÐÂ
BREAK


[@ÅÅÃûË¢ÐÂ]
#ACT
SortHumVarToListEx JK ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\Ôª±¦¾è¿î.txt 1 ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 1
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 0 S21 N21
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 1 S22 N22
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 2 S23 N23
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 3 S24 N24
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 4 S25 N25
GetListString ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt 5 S26 N26
ClearNameList ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ò»ºÅÅÅÃû.txt
ClearNameList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚ¶þÅÅÃû.txt
ClearNameList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÈýÅÅÃû.txt
ClearNameList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚËÄÅÅÃû.txt
ClearNameList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÎåÅÅÃû.txt
AddTextList ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ò»ºÅÅÅÃû.txt <$STR(S21)>
AddTextList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚ¶þÅÅÃû.txt <$STR(S22)>
AddTextList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÈýÅÅÃû.txt <$STR(S23)>
AddTextList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚËÄÅÅÃû.txt <$STR(S24)>
AddTextList ..\QuestDiary\¾èÏ×ÅÅÐÐ\µÚÎåÅÅÃû.txt <$STR(S25)>
MOV S27 <$USERNAME>
INC S27 <$HUMAN(JK)>
GetStringPos ..\QuestDiary\¾èÏ×ÅÅÐÐ\Ôª±¦¾èÏ×\¾è¿îÅÅÐÐ.txt <$STR(S27)>
INC N30 1
MOV N28 <$STR(N30)>

#If
S21.Checkonline
#Act
; Hcall <$STR(S21)> @Ë¢ÐÂÈËÎïÊôÐÔ

#If
S22.Checkonline
#Act
; Hcall <$STR(S22)> @Ë¢ÐÂÈËÎïÊôÐÔ

#If
S23.Checkonline
#Act
; Hcall <$STR(S23)> @Ë¢ÐÂÈËÎïÊôÐÔ

#If
S24.Checkonline
#Act
; Hcall <$STR(S24)> @Ë¢ÐÂÈËÎïÊôÐÔ

#If
S25.Checkonline
#Act
; Hcall <$STR(S25)> @Ë¢ÐÂÈËÎïÊôÐÔ