;; xlhly޸
[@Prentice]
{
#SAY
       Above 58 levels may apply to receive the person, below 55 levels may apply to acknowledge as teacher, the apprentice rank rises to 55 above, skilled worker applies to break relations, skilled worker may obtain bonus 500W, if the apprentice forcefully breaks relations, skilled worker cannot attain the bonus, but later apprentice might want carefully to select. Basic and marriage same operation, has not only exchanged the ring. Skilled worker after submits receives the person to apply suddenly to fall the line, slightly to draw back or the withdrawal has played, must click on {FCOLOR/10} to here [ cancellation to receive person to apply for ] {FCOLOR/12}, attention this point is very important otherwise can affect other person to use this function.\\
       <[ Has known ]/@Prentice1>\
       <[ Exit ]/@exit>

[@Prentice1]
	#Define N0{START_TUDI}          N0         ;ͽʽ־
	#Define N1{WEDDING_TUDI}        N1
	#Define N3{TIME_TUDI}           N3
	#Define N4{TRY_TUDI}            N4
	#Define N5{WAITOUT}             N5
	#Define N6{SHIFU}               N6         ;ͽ־
	#Define N7{TUDI}                N7         ;ʦ־
	
	#Define B5{SHIFUNAME}           B5
	#Define B6{TUDINAME}            B6
	#Define B7{INPUTTUDINAME}       B7
	
	#IF
		Equal   N0{START_TUDI}   1
	#SAY
	At present cannot carry on, please slightly waits. .\
	#ELSESAY
        Below the function link please do not have continuously to click, the procedure can pass through 2-4 second operation time, please note chats the dialog box system to return to the information.\\
	<* The application receives person 0.5W/@wantshoutu>\
	<* The application acknowledges as teacher 0.5W/@wantbaishi>\
        <* Breaks relations (skilled worker to use)/@tltd>\
        <* Breaks relations 20W(ͽ)/@tlsf>\
        <* Examines me the priests and disciples/@showst>\
        <* Receives the priests and disciples wages/@gxst>\

	#IF
		Equal   B5{SHIFUNAME}   %USERNAME
	#SAY
	<* The cancellation receives the person to apply/@Cancelshoutu>\
	
	#IF
		IsAdmin
	#SAY
	<* Parameter initialization/@adminVar>\

        #IF
        #SAY
        \<[ Return ]/@main>\
         <[ Exit ]/@exit>

;鿴ҵʦͽ
[@showst]
       #IF
       #ACT
                FormatStr "FLD_CHARACTER='%s'" %USERNAME
                ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_SHIFU,FLD_TUDI"  [@masd1]
[@masd1()]
       #IF
       #ACT
                mov  A0  %ARG(2)
                mov  A8  %ARG(3)
                SysMsg  "Ŀǰʦ<$OUTPUT(A0)> ͽܣ<$OUTPUT(A8)>"

;ʦͽϵ
[@tltd]
       #IF
                  !checklevel 58
       #ACT
                  SysMsg  "ʦõġ"
                  break

       #IF
       #ACT
                  FormatStr "FLD_CHARACTER='%s'" %USERNAME
                  ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_TUDI"  [@lasd]
[@lasd()]
        #IF
        #ACT
                mov  A8  %ARG(1)
                mov  B2  %ARG(2)
                mov  A0  %A9

        #IF
                Equal   B2   ""
        #ACT
                SysMsg  "ûͽܡ"
        #ELSEACT
                FormatStr "FLD_CHARACTER='%s'" %USERNAME
                mov  A1  ""
                FormatStr "FLD_TUDI='%s'" %A1
                UpdateValueSql "TBL_CHARACTER" %A0 %A9
                Delaygoto [Grobal] 3 @next
[@next]
         #IF
         #ACT
                FormatStr "FLD_CHARACTER='%s'" %B2
                ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_SHIFU,FLD_LEVEL"  [@pang]
[@pang()]
        #IF
        #ACT
                mov      A8   %ARG(1)
                mov      D7   %ARG(2)
                mov      D8   %ARG(3)
                mov      A0   %A9

        #IF
                elarge  D8  54
        #ACT
                give Gold 5000000
                SysMsg  " ʦͽϵɹͽܵȼ54ϵͳ500WGold"
        #ELSEACT
                SysMsg  " ʦͽϵɹͽû55һ"

        #IF
        #ACT
                FormatStr "FLD_CHARACTER='%s'" %B2
                mov  A1  ""
                FormatStr "FLD_SHIFU='%s'" %A1
                UpdateValueSql "TBL_CHARACTER" %A0 %A9
                close
[@tlsf]
       #IF
                !checkgold 200000
       #ACT
                SysMsg  "Gold"
                close
                break

       #IF
       #ACT
                  FormatStr "FLD_CHARACTER='%s'" %USERNAME
                  ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_SHIFU"  [@lasd1]
[@lasd1()]
       #IF
       #ACT
                mov  B2  %ARG(2)
                mov  A0  %A9

        #IF
                Equal   B2   ""
        #ACT
                SysMsg  "ûʦ"
        #ELSEACT
                FormatStr "FLD_CHARACTER='%s'" %USERNAME
                mov    A1   ""
                FormatStr "FLD_SHIFU='%s'" %A1
                UpdateValueSql "TBL_CHARACTER" %A0 %A9
                Delaygoto [Grobal] 3 @next111

[@next111]
        #IF
        #ACT
                FormatStr "FLD_CHARACTER='%s'" %B2
                ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_TUDI,FLD_STOREGOLD"  [@pang1]
[@pang1()]
        #IF
        #ACT
                mov      D8   %ARG(3)
                mov      A0   %A9
        #IF
        #ACT
                mov    A1   ""
                inc    D8   100000
                FormatStr "FLD_CHARACTER='%s'" %B2
                FormatStr "FLD_TUDI='%s'" %A1
                UpdateValueSql "TBL_CHARACTER" %A0 %A9
                FormatStr "FLD_STOREGOLD='%s'" %D8
                UpdateValueSql "TBL_CHARACTER" %A0 %A9
                SysMsg  "ʦͽϵɹΪͽĳͷ㱻û20WGoldʦֿ10WGold"
                take Gold 200000
;Adminʼ
[@adminVar]
		#ACT
                        SysMsg  "ʼɹ"
			goto @cancelPrentice
;ȡͽ
[@Cancelshoutu]
		#ACT
			SysMsg "Ѿȡͽ롣"
			goto @CancelPrentice
;
[@CancelPrentice]
		#ACT
			Mov  N0{START_TUDI}      0
			Mov  N1(WEDDING}         0
			Mov  N3{TIME_TUDI}       0
			Mov  N4{TRY_TUDI}        0
			Mov  N5{WAITOUT}         0
			Mov  N6{SHIFU}           0
			Mov  N7{TUDI}            0
			Mov  B5{SHIFUNAME}       ""
			Mov  B6{TUDINAME}        ""
			Mov  B7{INPUTTUDINAME}   ""
			ClearDelayGoto
;ͽ
[@wantshoutu]
		#IF
			!CheckLevel 58
		#ACT
	                SysMsg  "58ϲſʹôܡ"
                        break

		#IF
			!CheckGold   5000
		#ACT
			SysMsg  "ͽò"
			break

                #IF
                #ACT
                        FormatStr "FLD_CHARACTER='%s'" %USERNAME
                        ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_TUDI,FLD_SHIFU"  [@pass1]
[@pass1()]
                #IF
                #ACT
                        mov      A8   %ARG(2)
                        mov      A7   %ARG(3)

                #IF
                        !Equal   A7   ""
                #ACT
                        SysMsg  "ʦͽ"
			break

                #IF
                        !Equal   A8   ""
                #ACT
                        SysMsg  "Ѿͽˡ"
			break
                #ELSESAY
                        <ͽܵ/@@inputtudi>\
[@@inputtudi]
                #IF
                #ACT
                        Mov   B0  %INPUTSTR
              
                #IF
                        Equal  B0   %USERNAME
                #ACT
                        SysMsg  "㲻ԼΪͽܡ"
                        break
             
		#IF
			!Equal  B0  ""
		#SAY
			Ҫյͽ <$OUTPUT(B0)> \
			ͽȷ\\
			<[  ȷ]/@Process1> \
			<[ȷ]/@@inputtudi>\
[@Process1]
		#IF
			Equal   N6{SHIFU}     1
		#SAY
	                ʹøùܡ\

		#ACT
			break
		
		#IF
			!Equal   B5{SHIFUNAME} ""
		#SAY
	                ʹøùܡ\

		#ACT
			break
		
		#IF
			!Equal   B7{INPUTTUDINAME} ""
		#SAY
	                ʹøùܡ\

		#ACT
			break
		
		#IF
			!CheckGold   5000
		#ACT
			SysMsg  "ͽò"
			break
		
		#IF
		#ACT
			mov     N1{WEDDING_TUDI}         1
			mov     B5{SHIFUNAME}            %USERNAME
			mov     B7{INPUTTUDINAME}        %B0
			mov     N6{SHIFU}                1
			mov     N5{WAITOUT}              0
			Delaygoto [local] 5  @startloop1
			SysMsg  "ͽ룬ͽҲʦͻͽá"
                        close
[@wantbaishi]
		#IF                                             
			!Equal   N6{SHIFU}    1
		#ACT
			SysMsg  "ʦδͽ"
			break

		#IF
			!Equal   B7{INPUTTUDINAME}   %USERNAME
		#ACT
			SysMsg  "ʦδͽ"
			break
              
                #IF
                        Equal    B5{SHIFUNAME}  %USERNAME
                #ACT
			SysMsg  "ܰԼΪʦ"
			break

                #IF
                        CheckLevel 55
                #ACT
              		SysMsg  "ȼѴﵽ򳬹55,ܰʦ"
			break

		#IF
			!CheckGold 5000
                #ACT
              		SysMsg  "Gold㡣"
			break

                #IF
                #ACT
                        FormatStr "FLD_CHARACTER='%s'" %USERNAME
                        ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_SHIFU"  [@PA89]
                        close
[@PA89()]
                #IF
                #ACT
                        mov  A8  %ARG(2)

                #IF
                        !Equal   A8   ""
                #ACT
                        SysMsg  "Ѿʦ<$OUTPUT(A8)>ˡ"
		#ELSEACT
			take Gold 5000
			mov   N7{TUDI}     1
			mov   B6{TUDINAME}  %USERNAME
                        SysMsg  "ʦѽɡ"
[@startloop1]
		#IF
			Equal   N0{START_TUDI}   1
		#ACT
			break

		#IF
			Large   N5{WAITOUT}   10
		#ACT
			SysMsg  "ͽδʱͽ"
			goto @CancelPrentice
			break
		
		#IF
			Equal   N6{SHIFU}     1
			Equal   N7{TUDI}      0
		#ACT
			SysMsg  "ڵȺͽʦ"
                        Inc     N5{WAITOUT}      1
			Delaygoto [local] 6 @startloop1
			break
		
		#IF
			Equal   N6{SHIFU}     1
			Equal   N7{TUDI}      1
		#ACT
			Take  Gold   5000
			Mov     N0{START_TUDI}   1
			Mov     N3{TIME_TUDI}    0
			EventMsg  "0" "Ͼͻʦ<$OUTPUT(B5)>ͽ<$OUTPUT(B0)>ʦͽʽ"
			SysMsg    "ʦͽʽ׼á"
			Delaygoto [local] 10  @weddingCeremony1
			close
[@weddingCeremony1]
                #IF
                #ACT
                        Inc  N3{TIME_TUDI} 1

		#IF
			Equal N1{WEDDING_TUDI} 0
		#ACT
			break
		
		#IF
			Large  N3{TIME_TUDI}  30
		#ACT
			EventMsg  "0"  "ʦͽ̫ʱδʽȡ"
                        goto @CancelPrentice
			break
		
		#IF
			Equal  N1{WEDDING_TUDI}   1
		#ACT
			EventMsg   "0"  "ڿʼʦ<$OUTPUT(B5)>ͽ<$OUTPUT(B0)>ʦͽʽ"
			Mov  N1{WEDDING_TUDI}  2
			Delaygoto [local]  10  @weddingCeremony1
			break
		
		#IF
			Equal  N1{WEDDING_TUDI}  2
		#ACT
			EventMsg  "0"  "ʦ<$OUTPUT(B5)>Ļڴ3ﱣͽ<$OUTPUT(B0)> á/ǡ̻ش "
			Mov  N4{TRY_TUDI}    5
			CaptureSaying   %B5  @ListenSayYes_man1
			Mov   N1{WEDDING_TUDI}  3
			Delaygoto [local]   10  @weddingCeremony1
			break
		
		#IF
			Equal N1{WEDDING_TUDI}  3
		#ACT
			EventMsg  "0"  "ʦá/ǡش"
			Delaygoto [local]   10  @weddingCeremony1
			break
		
		#IF
			Equal  N1{WEDDING_TUDI}  4
		#ACT
			Eventmsg   "0"  "ͽ<$OUTPUT(B0)>Ļڴ3Զ׷ʦ<$OUTPUT(B5)> á/ǡ̻ش"
			Mov  N4{TRY_TUDI}    5
			CaptureSaying  %B0  @ListenSayYes_woman1
			Mov  N1{WEDDING_TUDI}  5
			Delaygoto [local]   10  @weddingCeremony1
			break
		
		#IF
			Equal N1{WEDDING_TUDI}  5
		#ACT
			EventMsg  "0"  "ͽá/ǡش"
			Delaygoto [local]  10  @weddingCeremony1
			break

		#IF
			Equal N1{WEDDING_TUDI}  6
		#ACT
			EventMsg  "0"  "ʦͽʽԲϣʦͽڴﻥͬ"
                        FormatStr "FLD_CHARACTER='%s'" %B6{TUDINAME}
                        ReadValueSql  "TBL_CHARACTER"  %A9  "FLD_CHARACTER,FLD_SHIFU"  [@PA889]
                        close
                #ELSEACT
                        Delaygoto [local]  10  @weddingCeremony1
[@PA889()]
                #ACT
                        mov   A0   %A9
                        FormatStr "FLD_CHARACTER='%s'" %B6{TUDINAME}
                        FormatStr "FLD_SHIFU='%s'" %B5{SHIFUNAME}
                        UpdateValueSql "TBL_CHARACTER" %A0 %A9
                        Delaygoto [Grobal] 3 @save_2
[@save_2]
                #ACT
                        FormatStr "FLD_CHARACTER='%s'" %B5{SHIFUNAME}
                        ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_TUDI"  [@SOS]
[@SOS()]
                #ACT
                        mov   A0   %A9
                        FormatStr "FLD_CHARACTER='%s'" %B5{SHIFUNAME}
                        FormatStr "FLD_TUDI='%s'" %B6{TUDINAME}
                        Mov  N0{START_TUDI}      0
			Mov  N1(WEDDING}         0
			Mov  N3{TIME_TUDI}       0
			Mov  N4{TRY_TUDI}        0
			Mov  N5{WAITOUT}         0
			Mov  N6{SHIFU}           0
			Mov  N7{TUDI}            0
			Mov  B5{SHIFUNAME}       ""
			Mov  B6{TUDINAME}        ""
			Mov  B7{INPUTTUDINAME}   ""
			ClearDelayGoto
                        UpdateValueSql "TBL_CHARACTER" %A0 %A9
[@ListenSayYes_man1]
		#IF
			Equal N1{WEDDING_TUDI}  0
		#ACT
			CaptureSaying ""
			break
		
		#IF
		#ACT
			mov  B9 %INPUTSTR

		#IF
			Equal  N1{WEDDING_TUDI}  3
			Equal  B9  ""
		#ACT
			Mov  B9  ""
			EventMsg  "0"  "ʦ<$OUTPUT(B5)>شǡ"
			Mov  N1{WEDDING_TUDI}  4
			CaptureSaying  "" 
			break
		
		#IF
			Equal  N1{WEDDING_TUDI}  3
			Equal  B9  ""
		#ACT
			Mov  B9  ""
			EventMsg  "1"  "ʦ<$OUTPUT(B5)>ش𡰲ǡ,ʽòȡλʦúȥһ¡"
			CaptureSaying  ""
                        goto @CancelPrentice
			Break
		
		#IF
			Equal  N1{WEDDING_TUDI} 3
			!Equal  B9  ""
		#ACT
			EventMsg  "0" "ʦá/ǡش"
		
		#IF
			Large  N4{TRY_TUDI}  0
		#ACT
			SysMsg "ֻʣ<$OUTPUT(N4)>εĻᡣá/ǡش"
		#ELSEACT
			EventMsg  "0"  "ʦͽʽȡ"
			CaptureSaying  ""
			goto @CancelPrentice
			Break
		
		#IF
		#ACT
			Dec   N4{TRY_TUDI}   1
[@ListenSayYes_woman1]
		#IF
			Equal N1{WEDDING_TUDI}  0
		#ACT
			CaptureSaying ""
			break
		
		#IF
		#ACT
			mov  B9 %INPUTSTR
		
		#IF
			Equal  N1{WEDDING_TUDI}  5
			Equal  B9  ""
		#ACT
			Mov  B9  ""
			EventMsg  "0"  "ͽ<$OUTPUT(B0)>ѻشǡ"
			Mov  N1{WEDDING_TUDI}  6
			CaptureSaying  ""
			break
		
		#IF
			Equal  N1{WEDDING_TUDI}  5
			Equal  B9  ""
		#ACT
			Mov  B9  ""
			EventMsg  "0"  "ͽ<$OUTPUT(B0)>ش𡰲ǡ,ʽòȡλͽܺúȥһ¡"
			CaptureSaying  ""
                        goto @CancelPrentice
			Break
		
		#IF
			Equal  N1{WEDDING_TUDI} 5
			!Equal  B9  ""
		#ACT
			EventMsg  "0" "ͽá/ǡش"
		
		#IF
			Large N4{TRY_TUDI}   0
		#ACT
			SysMsg "<ֻʣ$OUTPUT(N4)>εĻᡣá/ǡش"
		#ELSEACT
			EventMsg  "0"  "ʦͽʽȡ"
			CaptureSaying  ""
			goto @CancelPrentice
			Break
		
		#IF
		#ACT
			Dec   N4{TRY_TUDI}   1
[@gxst]
#SAY
     ΪҽǵĴ磬Ƴʦͽÿշ18W 10W \\
     <ȡ/@gxst1>\
     < /@main>\

[@gxst1]
#IF
#ACT
     FormatStr "FLD_CHARACTER='%s'" %USERNAME
     ReadValueSql  "TBL_CHARACTER" %A9 "FLD_CHARACTER,FLD_SHIFU,FLD_TUDI"  [@mir3g]

[@mir3g()]
#IF
#ACT
     mov  A8  %ARG(2)
     mov  A7  %ARG(3)
     mov  D5  0
#IF
     !Equal   A8   ""
#ACT
      mov  D5  180000

#IF
     !Equal   A7   ""
#ACT
      mov  D5  100000

#IF
     Equal   D5   0
#ACT
     SysMsg  "ûͽҲûʦ칤ʡ"
     break

#IF
        dayofweek sun
        check [1391] 0
        !Equal D5 0
#ACT
        set [1391] 1
        set [1392] 0
        set [1393] 0
        set [1394] 0
        set [1395] 0
        set [1396] 0
        set [1397] 0
        give Gold %D5
        break
#SAY
        ĹѾˡ\\
        < /@main>\
        <л л/@exit>

#IF
       !Equal D5 0
       dayofweek mon
       check [1392] 0
#ACT
       set [1391] 0
       set [1392] 1
       set [1393] 0
       set [1394] 0
       set [1395] 0
       set [1396] 0
       set [1397] 0
       give Gold %D5
       break
#SAY
       ĹѾˡ\\
       < /@main>\
       <л л/@exit>


#IF
       !Equal D5 0
       dayofweek tue
       check [1393] 0
#ACT
       set [1391] 0
       set [1392] 0
       set [1393] 1
       set [1394] 0
       set [1395] 0
       set [1396] 0
       set [1397] 0
       give Gold %D5
       break
#SAY
       ĹѾˡ\\
       < /@main>\
       <л л/@exit>

#IF
        !Equal D5 0
        dayofweek wed
        check [1394] 0
#ACT
        set [1391] 0
        set [1392] 0
        set [1393] 0
        set [1394] 1
        set [1395] 0
        set [1396] 0
        set [1397] 0
        give Gold %D5
        break
#SAY
        ĹѾˡ\\
        < /@main>\
        <л л/@exit>

#IF
        !Equal D5 0
        dayofweek thu
        check [1395] 0
#ACT
        set [1391] 0
        set [1392] 0
        set [1393] 0
        set [1394] 0
        set [1395] 1
        set [1396] 0
        set [1397] 0
        give Gold %D5
        break
#SAY
        ĹѾˡ\\
        < /@main>\
        <л л/@exit>

#IF
        !Equal D5 0
        dayofweek fri
        check [1396] 0
#ACT
        set [1391] 0
        set [1392] 0
        set [1393] 0
        set [1394] 0
        set [1395] 0
        set [1396] 1
        set [1397] 0
        give Gold %D5
        break
#SAY
        ĹѾˡ\\
        < /@main>\
        <л л/@exit>

#IF
        !Equal D5 0
        dayofweek sat
        check [1397] 0
#ACT
        set [1391] 0
        set [1392] 0
        set [1393] 0
        set [1394] 0
        set [1395] 0
        set [1396] 0
        set [1397] 1
        give Gold %D5
#SAY
        ĹѾˡ\\
        < /@main>\
        <л л/@exit>
#ELSESAY
        Ѿ˰ô죿\\
        < /@main>\
        < /@exit>
}

;; xlhly޸