Procedure MemainkanWeddingDash
While prosesmasukgame {
Begin
Memilih player untuk memulai permainan
if (player:=play) then
click career mode && start game
else
click quit && exit game
end
Repeat
Call procedure gameWeddingDash
until
Player complete 50th level
Procedure GameWeddingDash
while (skor<=goal) do
Begin
Input pesan
if(pesan!=3;) then
pesan++
if(pesan==true) then
skor := skor+100
else if (skor:=0)
else (pesan:=3;) then
masuk proses pelayanan
//proses pelayanan tamu
if(tamu:=0) then
tamu exit
else (adapermintaan:=true)then
if(duduktepat:=true)then
skor++
else if (skor- -)
if(hadiah=true)then
if(dilayani:=true) then
skor++
else if(skor--)
if(menu:=3) then
do check pengganggu
else(menu:=menu+1)
if(dilayani:=true) then
skor++
else if(skor--)
//mengecek apakah ada pengganggu
if(pengganggu!=0) then
(pengganggu++) then
if(bertengkar:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(nenekmenangis:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(orgmabuk:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(alatdjrusak:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(lalat:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(tempatcakejatuh:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
if(kebakarandapur:=true) then
if(dilayani:=true)then
skor++ && pengganggu--
else if(skor--)
else(do check other pengganggu)
else do sum skor ;
end
Repeat
Until skor >=goal
level++
Tidak ada komentar:
Posting Komentar