[@homestone]
#act
us_usehomestone

[@test]
#act
systemmsg "<$username>ӵ<$ui_name>, <$ui_weight>"

[@login]
#if
isfirstlogin
#act
call @firstlogin
#elseact
call @haslogin



[@testlogin]
#if
checkiplist IPList
#act
nodead
mapmove 116
close
#elseact
goto @firstlogin

[@firstlogin]
#if
check sex 0
#act
scrollmsg ӭ˧<$username>!
goto @manfirstlogin
#elseact
scrollmsg ӭŮ<$username>!
goto @womanfirstlogin

[@manfirstlogin]
ãӭһĨϦڵ\
Ϊˣ㻹һУϾܵõһЩر\
ƷˡֱɹѡŶ\
ѡ<Ӳľ/@give1>\
ѡ<ľ/@give2>\
ѡ</@give3>\
鿴</@lista>\
</@goodnew>\
<ȷ/@exit>

[@give1]
#act
give Ӳľ 1
give ҩ(С) 1
give ҩ(С) 1
give ֲ() 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@give2]
#act
give ľ 1
give ҩ(С) 1
give ҩ(С) 1
give ֲ() 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@give3]
#act
give  1
give ҩ(С) 1
give ҩ(С) 1
give ֲ() 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@lista]
ľ2-5\
񽣣3-5 +1\
Ӳľ2-4 +1\\
<ѡ/@manfirstlogin>

[@goodnew]
ںǴ398590ϼ248240\
ҵ򵼣ΪṩͬʱҲ\
￪ʼ񡱣\\
<֪ˡ/@manfirstlogin>


[@womanfirstlogin]
ãӭһĨϦڵ\
Ϊˣ㻹һУϾܵõһЩر\
ƷˡֱɹѡŶ\
ѡ<Ӳľ/@give11>\
ѡ<ľ/@give22>\
ѡ</@give33>\
鿴</@listax>\
</@goodnews>\
<ȷ/@exit>

[@give11]
#act
give Ӳľ 1
give ҩ(С) 1
give ҩ(С) 1
give ֲ(Ů) 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@give22]
#act
give ľ 1
give ҩ(С) 1
give ҩ(С) 1
give ֲ(Ů) 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@give33]
#act
give  1
give ҩ(С) 1
give ҩ(С) 1
give ֲ(Ů) 1
clearfirstlogin
#say
ףڱϷ!\
<ȷ/@exit>

[@listax]
ľ2-5\
񽣣3-5 +1\
Ӳľ2-4 +1\\
<ѡ/@womanfirstlogin>

[@goodnews]
ںǴ398590ϼ248240\
ҵ򵼣ΪṩͬʱҲ\
￪ʼ񡱣\\
<֪ˡ/@womanfirstlogin>

[@haslogin]
#if 
hasmaster
#act
call @sendtomaster
#end
#if
hasstudent
#act
call @sendtostudent
#if
ismarried
#act
call @sendtomarry
#end
#act
close 

[@sendtomarry]
#if
check sex  0
humonline $marriage
#act
systemmsgex $CC_SPECIAL  $marriage "ɷ<$username><$mapname> (<$posx>,<$posy>)ˣ"
showpage $marriage @womanshow $username
close 
#if
check sex  1
humonline $marriage
#act
systemmsgex $CC_SPECIAL  $marriage "<$username><$mapname> (<$posx>,<$posy>)ˣ"
showpage $marriage @manshow $username
close 
[@womanshow]
#act
systemmsgex $CC_SPECIAL $_param0 "<$username><$mapname> (<$posx>,<$posy>)"
close 

[@manshow]
#act
systemmsgex $CC_SPECIAL $_param0 "ɷ<$username><$mapname> (<$posx>,<$posy>)"
close 

[@sendtomaster]
#if
humonline $master
#act
systemmsgex $CC_SPECIAL $master "ͽ<$username><$mapname> (<$posx>,<$posy>)"
showpage $master @mastershow $username
close 

[@sendtostudent]
#if
hasstudent 0
humonline $student1
#act
systemmsgex $CC_SPECIAL $student1 "ʦ<$username><$mapname> (<$posx>,<$posy>)"
showpage $student1 @studentshow $username
close  
#if
hasstudent 1
humonline $student2
#act
systemmsgex $CC_SPECIAL  $student2 "ʦ<$username><$mapname> (<$posx>,<$posy>)"
showpage $student2 @studentshow $username
close 
#if
hasstudent 2
humonline $student3
#act
systemmsgex $CC_SPECIAL $student3 "ʦ<$username><$mapname> (<$posx>,<$posy>)"
showpage $student3 @studentshow $username
close 

[@mastershow]
#act
systemmsgex $CC_SPECIAL $_param0 "ʦ<$username><$mapname> (<$posx>,<$posy>)"
close 

[@studentshow]
#act
systemmsgex $CC_SPECIAL $_param0 "ͽ<$username><$mapname> (<$posx>,<$posy>)"
close


