(0.1, 0, 0, [(party_get_current_terrain,":terrain","p_main_party"),
(neq,":terrain", 5),], # 5 or whatever the number of your retextured terrain in header_terrain_types.
[(try_begin),
(troop_get_inventory_slot, ":cur_horse", "trp_player",8), #horse slot
(assign, ":new_icon", -1),
(try_begin),
(eq, "$g_player_icon_state", pis_normal),
(try_begin),
(ge, ":cur_horse", 0),
(assign, ":new_icon", "icon_player_horseman"),
(else_try),
(assign, ":new_icon", "icon_player"),
(try_end),
(else_try),
(eq, "$g_player_icon_state", pis_camping), # All of this is thanks to Lumos bein' generous, and not being as much of a lazy arse as I am
(assign, ":new_icon", "icon_camp"),
(try_end),
(party_set_icon, "p_main_party", ":new_icon"),
(try_end),
]),
(0.1, 0, 0, [(party_get_current_terrain,":terrain","p_main_party"),
(eq,":terrain",5),], #Oh shi- ALL HAIL HYPNOTOAD
[(party_set_icon,"p_main_party", "icon_ship"),]),